Как средствами delphi узнать конец строки в многострочном поле?

Пользователь

от adrien.waters , в категории: Другие , 8 месяцев назад

Как средствами delphi узнать конец строки в многострочном поле?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от eryn.rodriguez , 8 месяцев назад

@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, проверяем, не пустая ли строка, а затем проверяем последний символ строки на равенство символу перевода строки. Если это так, то мы показываем сообщение с номером строки, в которой обнаружен конец строки.