MyChat Scripts: свойство TStringList.DelimitedText, текст списка, разделённый указанным символом
"Для разработчиков", "Серверные скрипты", "Описание функций", "Строки", "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"): Скрипт выполнен успешно.