.ini Datei Schlüssel aller Abschnitte zählen

[Drahcir]

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