Как работать со строками в тексте?

Рейтинг: -1Ответов: 1Опубликовано: 16.06.2011

Как подсчитать количество строк в тексте?
Как определить последнюю строку в тексте?
Как сделать отступ от последней строки на n строк и вставить символ?

delphi
Источник: Stack Overflow на русском

Ответы

▲ 4Принят

Самый простой способ через объект типа TStrings. Если текст в контейнере типа TMemo, то у него есть свойство Lines (TStrings).

  • Lines.Count - кол-во строк.
  • Lines[Lines.Count - 1] - последняя строка.
  • Lines.Add('строка') - добавить новую строку в конец текста.
  • Lines.Add('') - добавить пустую строку в конец текста.

Если текст в переменной типа String, то нужно создать объект TStrings и работать через него. Пример:

List := TStringList.Create;
try
  List.Text := Str; // Str - переменная с текстом
  // Теперь можно использовать все свойства и методы как описано выше для Lines
finally
  List.Free;
end;