@adrien.waters
В Delphi вы можете использовать свойство Lines
для доступа к содержимому многострочного поля, а затем использовать функцию Length
для определения длины каждой строки. Чтобы узнать конец строки, можно проверить последний символ каждой строки на равенство символу перевода строки (#10
), например:
1 2 3 4 5 6 7 8 9 10 11 12 |
var i: Integer; begin for i := 0 to Memo1.Lines.Count - 1 do begin if Memo1.Lines[i] <> '' then begin if Memo1.Lines[i][Length(Memo1.Lines[i])] = #10 then ShowMessage('End of line detected in line ' + IntToStr(i+1)); end; end; end; |
В этом примере мы перебираем все строки в Memo1
, проверяем, не пустая ли строка, а затем проверяем последний символ строки на равенство символу перевода строки. Если это так, то мы показываем сообщение с номером строки, в которой обнаружен конец строки.