ich habe erneut ein Problem, wieder mit .ini-Dateien.
Es geht drum aus einem .ini-file aus einer unbekannten anzahl Abschnitte die anzahl aller Schlüssel auszulesen.
Mein Ansatz ist, alle Abschnitte in eine Stringlist zu laden, diese Name für name die Schlüssel zählen zu lassen und nach jedem Abschnitt auf eine Variable zu addieren.
Es funktioniert aber leider nicht und ich erhoffe mir hier zumindest einen ansatz wo mein Denkfehler ist
Delphi-Quellcode:
var sl1, sl2 : TStringlist;
I, Anzahl : Integer;
LogInIni : TIniFile;
begin
//Ini-Datei wird ordnungsgemäß angelegt und auch schon vorher verwendet
sl1 := TStringList.Create; sl2 := TStringList.Create;
sl1 := nil; sl2 := nil;
Anzahl := 0;
LogInIni.ReadSections(sl1);
for I := 1 to sl1.Count do begin
LogInIni.ReadSection(sl1[I], sl2);
Anzahl := Anzahl + sl2.count;
end;
hLogInFenster.Label1.Caption := IntToStr(Anzahl);
//Ini-Datei wird ordnungsgemäß freigegeben und zum Schluss gelöscht
Ich vermute sehr stark, das der Fehler in der Zeile liegt:
LogInIni.ReadSection(sl1[I], sl2);
Warscheinlich ist der Ausdruck
sl1[I]
falsch, aber ich hab keine Ahnung wie ich die sonst ansprechen soll ...
Vielen Dank im vorraus für Hilfe