ListBox w INI

Poniżej przedstawione zostały funkcje, które mogą posłużyć do zapisania i odczytania elementów komponentu ListBox do wybranej sekcji pliku INI.

Zapis:

uses IniFiles;

//Parametry:
//  FileName: nazwa pliku INI, w którym elementy zostaną zapisane
//  Section: sekcja, w której wartości zostaną zapisane
//  ListBox: komponent, z którego elementy zostaną zapisane
//
//Funkcja zwraca wartość logiczną, oznaczającą powodzenie zapisu.
//Podczas zapisywania elementów, usuwa całą poprzednią zawartość sekcji pliku INI.

function WriteToIni(const FileName:TFileName; const Section:string; const ListBox:TListBox):boolean;
var IniFile:TIniFile;
    i:integer;
begin
result:=TRUE;
IniFile:=TIniFile.Create(FileName);
try
  IniFile.EraseSection(Section);
  for i:=0 to ListBox.Items.Count-1 do
    IniFile.WriteString(Section, IntToStr(i), ListBox.Items[i]);
except
  result:=FALSE;
  IniFile.Free;
  end;
end;

Odczyt:

uses IniFiles;

//Parametry:
//  FileName: nazwa pliku INI, z którego elementy zostaną odczytane
//  Section: sekcja, z której wartości zostaną odczytane
//  ListBox: komponent, do którego elementy zostaną odczytane
//
//Funkcja zwraca wartość logiczną, oznaczającą powodzenie odczytu.
//Podczas odczytywania elementów usuwa całą poprzednią zawartość ListBox.

function ReadFromIni(const FileName:TFileName; const Section:string; const ListBox:TListBox):boolean;
var IniFile:TIniFile;
    i:integer;
begin
result:=TRUE;
IniFile:=TIniFile.Create(FileName);
ListBox.Items.BeginUpdate;
ListBox.Items.Clear;
try
  i:=0;
  while IniFile.ValueExists(Section, IntToStr(i)) do
    begin
    ListBox.Items.Insert(i, IniFile.ReadString(Section, IntToStr(i), ''));
    inc(i);
    end
except
  result:=FALSE;
  IniFile.Free;
  end;
ListBox.Items.EndUpdate;
end;