Примеры

Примеры

Previous pageReturn to chapter overviewNext page

Минимальный скрипт, использующий списки

 

var

SL : TStringList;

begin

SL := TStringList.Create;

SL.Free;

end.

 

Вывод содержимого списка в протокол

 

// Вывод списка строк в протокол

procedure PrintStringListToLog(ASL : TStringList);

var

i : integer;

begin

for i := 0 to ASL.Count - 1 do

 AddToLog(ASL[i]);

end;

 

var

SL : TStringList;

begin

SL := TStringList.Create;

SL.Add('111111');

SL.Add('222222');

SL.Add('333333');

PrintStringListToLog(SL);

SL.Free;

end.

 

Добавление, удаление и перемещение строк

 

var

SL : TStringList;

begin

SL := TStringList.Create;

// Добавление строк

SL.Add('111111');

SL.Add('222222');

SL.Add('333333');

// Удаление второй строки

SL.Delete(1);

// Перестановка строк

SL.Move(0,1);

// Вывод результатов

PrintStringListToLog(SL);

SL.Free;

end.

 

Добавление, удаление и перемещение строк

 

var

SL : TStringList;

begin

SL := TStringList.Create;

// Добавление строк

SL.Add('111111');

SL.Add('222222');

SL.Add('333333');

// Удаление второй строки

SL.Delete(1);

// Перестановка строк

SL.Move(0,1);

// Вывод результатов

PrintStringListToLog(SL);

SL.Free;

end.

 

Поиск строк

 

var

SL : TStringList;

begin

SL := TStringList.Create;

// Добавление строк

SL.Add('111111');

SL.Add('222222');

SL.Add('333333');

// Удаление второй строки

AddToLog(IntToStr(SL.IndexOf('111')));

AddToLog(IntToStr(SL.IndexOf('111111')));

AddToLog(IntToStr(SL.IndexOf('333333')));

SL.Free;

end.

 

В данном примере первая операция поиска не найдет образец, и функция вернет -1. Поиск "333333" и "111111" будет успешным и метод вернет их индексы.

 

Работа с текстовыми файлами

var

SL : TStringList;

begin

SL := TStringList.Create;

// Добавление строк

SL.Add('111111');

SL.Add('222222');

SL.Add('333333');

// Сохранение в текстовый файл

SL.SaveToFile(GetAVZDirectory + '1.txt');

// Загрузка из текстового файла

SL.LoadFromFile(GetAVZDirectory + '1.txt');

SL.Free;

end.