Einzelnen Beitrag anzeigen

Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#5

Re: Kein Zugriff auf INI-File

  Alt 2. Mai 2007, 15:45
meinst du eine einfache Anzeige der "normalen" ini-datei (also nur 2 ebenen)?

wenn ja, dann hab ich das mal fix zusammengeschrieben:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  ini:TIniFile;
  sl_s,sl_v:TStringlist;
  i,j: integer;
  tn:TTreenode;
begin
  ini:=TIniFile.create('C:\windows\Win.ini');
  sl_s:=TStringlist.create;
  sl_v:=TStringlist.create;
  ini.ReadSections(sl_s);
  for i:=0 to sl_s.Count-1 do
  begin
    tn:=Treeview1.items.add(nil,sl_s.strings[i]);
    ini.ReadSection(sl_s.strings[i],sl_v);
    for j:=0 to sl_v.Count-1 do
    begin
      Treeview1.Items.AddChild(tn,sl_v.strings[j]+' = '+ini.ReadString(sl_s.strings[i],sl_v.Strings[j],'<undefiniert>'));
    end;
  end;
  sl_v.free;
  sl_s.free;
  ini.free;
end;
wenn du mehr Ebenen brauchst, solltest du xml dem ini-Format vorziehen.

HTH Frank
  Mit Zitat antworten Zitat