ListBox i INI

Jak do pliku ini zapisać wszystkie itemy z ListBox??
I jak je potem wczytać?

Javel napisał(a)

Jak do pliku ini zapisać wszystkie itemy z ListBox??
I jak je potem wczytać?

Na przykład tak:

//Ciach 
const
  NazwaPliku = 'przyklad.ini';
//Ciach 

//Zapis
procedure TForm1.btnWriteClick(Sender: TObject);
var
  ini: TIniFile;
  i: integer;
begin
  ini:= TIniFile.Create(NazwaPliku);
  try
  for i:=0 to ListBox1.Items.Count - 1 do
    ini.WriteString(ListBox1.Name, IntToStr(i), ListBox1.Items[i]);
  finally
    ini.Free;
  end;
end;

//Odczyt
procedure TForm1.btnReadClick(Sender: TObject);
var
  ini: TIniFile;
  i: integer;
  s: string;
begin
  ListBox1.Items.Clear;
  ini:= TIniFile.Create(NazwaPliku);
  try
  i:= 0;
  while True do
  begin
    //zakladam ze nigdzie nie wystepuje pusty string i jako wartosc
    //domyslna podaje pusty strin (aby bylo wiadomo kiedy skonczyc)
    s:= ini.ReadString(ListBox1.Name, IntToStr(i), '');
    if s = '' then break;
    ListBox1.Items.Add(s);
    Inc(i);
  end;
  finally
    ini.Free;
  end;
end;

Do uses dodaj IniFiles, jeżeli w ListBox może wystąpić pusty string ('') jako wartosc domyślną podaj jakis unikalny który na pewno nie wystąpi np. '??!!###!!??'