Сохранить Listbox В Файл Delphi

Сохранение содержимого ListBox в Delphi может выполняться с помощью использования компонента TListBox и класса TStringList для записи содержимого в файл.

Один из способов сохранения ListBox:

procedure SaveListToFile(aListBox: TListBox; const aFileName: string);
var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  try
    for I := 0 to aListBox.Items.Count - 1 do
      SL.Add(aListBox.Items[I]);
    SL.SaveToFile(aFileName);
  finally
    SL.Free;
  end;
end;

Функция SaveListToFile сохраняет содержимое ListBox в файл в формате текста, каждый элемент разделяется символом перевода строки.

Для сохранения содержимого ListBox в бинарный файл, можно использовать класс TMemoryStream:

procedure SaveListToBinaryFile(aListBox: TListBox; const aFileName: string);
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    aListBox.Items.SaveToStream(MS);
    MS.SaveToFile(aFileName);
  finally
    MS.Free;
  end;
end;

Функция SaveListToBinaryFile сохраняет содержимое ListBox в бинарный файл, используя метод SaveToStream компонента TStrings.