Große Ini-Datei in TreeView einlesen

[Aurelius]

Nein, geht nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Ini : TFIniFile;
    Sections, Werte : TStrings;
    i, j : integer;
    Knoten : TTreeNode;
begin
  Ini := TFIniFile.Create('C:\Test.reg');
  Sections := TStringList.Create;
  Werte := TStringList.Create;
  try
    Ini.ListSections(Sections);
    for i := 0 to Sections.Count - 1 do
    begin
      Knoten := rtv.Items.AddChild(nil,Sections[i]);
      {Ini.ReadSectionValues(Sections[i],Werte);
      for j := 0 to  Werte.Count - 1 do
      begin
        rtv.Items.AddChild(Knoten,Werte[j])
      end;}
    end;
  finally
    Ini.Free;
    Sections.Free;
    Werte.Free;
  end;
end;