INI-Dateien

[alcaeus]

Hi LoL,

der folgende Code ist ungetestet, sollte aber funktionieren:

Delphi-Quellcode:

procedure FindSection(sIniFile, sSection: String): Integer;
var
  IniFile: TIniFile;
  Sections: TStringList;
begin
  Sections := TStringList.Create;
  IniFile := TIniFile.Create(sIniFile);
  try
    IniFile.ReadSections(Sections);
    Result := Sections.IndexOf(sSection);
  finally
    Sections.Free;
    IniFile.Free;
  end;
end;

sIniFile ist der komplette Pfad zur Ini-Datei, sSection ist die Section die du suchst. Das Ergebnis der Funktion ist die Position (bei 0 beginnend), wobei -1 bedeutet, dass die Section nicht vorhanden ist.

Greetz
alcaeus