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

zusammenfalten · markieren

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
(jaja try/final und if FileExists fehlen noch ..)

oder spricht was dagegen??

Schau dir mal BigIni an. Ist 'ne sehr stark erweiterte Komponente für Ini-Verarbeitung.

Zitat von TeronG:

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

zusammenfalten · markieren

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.

Dürfte es nicht noch schneller sein, zu zählen wie oft [ bzw. ] vorkommen?
Dann spart man sich auch noch die StringList.

hab mal auf die schnelle versuche angestellt

5000 Sectionen á 10 (integer) Einträge ... Count geht schneller ... aber zählt falsch ^^ (bei 1000 klappte noch alles)
nagut .. wer macht auch schon so große ini's ... dann lieber XML/DB ... (mal big-ini angugn )
Wie äußert sich es eigentlich, daß normale inis nicht größer als 64K sein dürfen ??? Meine Testini ist 600K groß warscheinlich zählt der ja desswegen nimmer richtig

EDIT: Mit Big ini zählt Count wieder richtig
EDIT2: und Bigger Ini hat sogar ne se SectionCount Methode *schwelg*