Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

TIniFile: "ReadSections" funktioniert nicht

  Alt 3. Aug 2005, 20:02
Moin,

Ich habe eine Ini-Datei die folgendermassen aussieht:

Zitat:
[asdf:12..45]
blah 1 blah2=hi.ho
Und versuche folgendermassen die sektion (asdf:12..45) zu bekommen:

Delphi-Quellcode:
procedure TForm2.FormShow(Sender: TObject);
var
  Ini: TIniFile;
  ServerGroups: TStringList;
begin
  // Server laden
  if FileExists('servers.ini') then
  begin
    ServerGroups := TStringList.Create;
    Ini := TIniFile.Create('servers.ini');
    try
      ini.ReadSections(ServerGroups);
      Showmessage(IntToStr(ServerGroups.Count));
    finally
      Ini.Free;
      ServerGroups.Free;
    end;
  end;
end;
Wieso zeigt mir das ShowMessage 0 an? Ich müsste mit dem Code doch eine Sektion in meiner Stringlist haben oder?
Mario
  Mit Zitat antworten Zitat