Для разработчиков > Серверные скрипты > Описание функций > Строки > TStringList > Свойства

"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "TStringList", "Свойства", "DelimitedText".

Весть текст списка TStringList, строки разделены символом TStringList.Delimiter.

Синтаксис

property TStringList.DelimitedText: string;

Результат

Текстовая строка. Если в списке ничего нет — свойство вернёт пустую строку.

Пример

Подсчёт вхождений слова "love" в тексте песни и показ номеров строк, где оно встречается.

const
  FILENAME = 'C:\text\Lena Meyer-Satellite.txt';
var
  SL, SLOut: TStringList;
  s: string;
  i: integer;
begin
  SL := TStringList.Create;
  SL.LoadFromFile(FILENAME);
  
  SLOut := TStringList.Create;
  
    for i := 0 to SL.Count - 1 do
      if pos('love', LowerCase(SL[i])) <> 0 then SLOut.Append(IntToStr(i));
      
    SLOut.Delimiter := '|';
    
  mLogScript(SLOut.DelimitedText, 'Lines with "love" word');
  
  SL.Free;
  SLOut.Free;
end.