Tstringlist

[Lomanu4]

Пример кода : Простой пример

Пример кода : Использование строк название-значение
var
  names  : TStringList;            // Определение нашей переменной списка строк
  ageStr : String;
  i      : Integer;
begin
  // Определение объекта списка строк, и указание нашей переменной на него
  names := TStringList.Create;

  // Теперь добавляем несколько названия в наш список
  names.CommaText := 'Neil=45, Brian=63, Jim=22';

  // И теперь находим возраст Брайена
  ageStr := names.Values['Brian'];

  // Показ этого значения
  ShowMessage('Возраст Brian'а = '+ageStr);

  // Теперь отображаем все имена и значение возраста
  for i := 0 to names.Count-1 do
  begin
    ShowMessage(names.Names[i]+' - '+names.ValueFromIndex[i]);
  end;
end;
Возраст Brian'а 63
Neil - 45
Brian - 63
Jim - 22

Пример кода : Использование DelimitedText, Delimiter и QuoteChar
var
  cars : TStringList;            // Определение нашей переменной списка строк
  i    : Integer;
begin
  // Определение объекта списка строк, и указание нашей переменной на него
  cars := TStringList.Create;

  // Теперь добавляем несколько значений в наш список - используя свойство DelimitedText
  // с заменой управляющих переменных
  cars.Delimiter := ' ';        // Каждый элемент списка будет разделён пробелом
  cars.QuoteChar := '|';        // И каждый элемент взят в '|'
  cars.DelimitedText := '|Honda Jazz| |Ford Mondeo| |Jaguar "E-type"|';

  // Теперь показываем эти автомобили
  for i := 0 to cars.Count-1 do
    ShowMessage(cars[i]);       // cars[i] эквивалентно cars.Strings[i]
end;
Honda Jazz
Ford Mondeo
Jaguar "E-type"