Wednesday, August 22, 2007

čtení záznamů

Dalším krokem je čtení záznamů z již vytvořeného INI souboru. Je to opět velmi snadné, jak ukazuje následující příklad:
procedure TForm1.Button2Click(Sender: TObject);
var
INISoubor: TIniFile;
st:string;
begin
INISoubor := TIniFile.Create('c:\pokus.ini');
st := INISoubor.ReadString('První sekce', 'Jméno položky', 'Default');
INISoubor.Free;
ShowMessage(st);
end;
Funkce ReadString se pokusí v daném souboru najít příslušnou sekci a zjistit hodnotu požadované položky. V případě problémů (například nelze najít požadovanou sekci, položku či hodnotu) se vrací hodnota, kterou nastavíte jako implicitní (v našem případě hodnota Default).

Labels: