delphi ini datei sectionen lesen

jkallup

Erfahrenes Mitglied
Hallo,

wie kann ich diese ini datei auslesen?
irgendwie klappt das nicht mit dem code unten:

Code:
[Databases]
BeispielDatenbank=@BeispielDatenbank
CONTAXT=@contaxt

[@BeispielDatenbank]
wurzel=1
quadreat=2
rechteck=3
kreis=4

[@contaxt]
würfel=2
ddd=1


Code:
procedure TForm1.getSettings;
var
ini: TIniFile;
filename: String;
tmpliste: TStringList;
strliste: TStringList;
i: Integer;
begin
try
filename := ExtractFilePath(ParamStr(0)) + 'kdb.ini';
ini := TIniFile.Create(filename);
tmpliste := TStringList.Create;
strliste := TStringList.Create;
ini.ReadSection('Databases', tmpliste);
for i := 0 to tmpliste.count - 1 do
begin
strliste.Add(tmpliste[i]);
end;
showmessage(strliste.text);
tmpliste.clear;
for i := 0 to strliste.Count - 1 do
begin;
ini.ReadSection(strliste.strings[i],tmpliste);
showMessage(tmpliste.text);
end;
except
ShowMessage('Fehler: INI Datei fehlerhaft.');
end;
FreeAndNil(tmpliste);
FreeAndNil(ini);
end;
 
Zurück