"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "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.

Результат работы скрипта

[18:01:12] (Log "DelimiterProperty"): [Lines with "love" word] 5|8|10|13|18|20|25|30|33|40|43|53|58|61|68|71

[18:01:12] (Run "DelimiterProperty"): Время выполнения скрипта: 8 мс

[18:01:12] (Run "DelimiterProperty"): Скрипт выполнен успешно.
 

Ещё посмотреть

IntToStr

LowerCase

mLogScript

Pos

TStringList.Append

TStringList.Create

TStringList.Free

TStringList.Delimiter