die Sections einer Ini-Datei zählen

[Luckie]

Zitat von TeronG:

Hi
Ich wollte mal die Einträge (sectionen) einer ini-Datei zählen und habe folgenden Code gefunden.

Delphi-Quellcode:

function INISectionsCount(const AFilename: String): Integer;
var ISectionCount: Integer;
    i: Integer;
    SCurr: String;
    SLIni: TStringList;
begin
  SLIni := TStringList.Create;
  ISectionCount := 0;

  try
    SLIni.LoadFromFile(AFilename);
    If SLIni.Count <> 0 then
    begin
      For i := 0 to SLIni.Count - 1 do
      begin
        SCurr := SLIni.Strings[i];
        If (SCurr <> '') and (SCurr[1] = '[') and (SCurr[Length(SCurr)] = ']') then
          Inc(ISectionCount);
      end;
    end
  finally
    SLIni.Free;
  end;

  Result := ISectionCount;
end;

so weit so gut ...(futzt auch)

aber wenn man eh schon mit einer TStringList arbeitet währe es da nicht einfacher mit
  ini.ReadSections(StringList); direkt die sectionen in eine Stringlist zu lesen und diese dann mit
  StringList.Count; zu Zählen

Logisch, dürfte auch schneller sein, das Zeichenkettenoperationne Zeit kosten.