Große Ini-Datei in TreeView einlesen

[Aurelius]

Hi DPler

Mit folgendem Code möchte ich alle Sections und Werte einer Ini-Datei in eine TreeView einlesen. Da es sich dabei aber um eine Reg-Datei (im Test ca. 75 MB) handelt sind entsprechend viele Einträge vorhanden. Leider bekomme ich hier bei weitem nicht alle Sections eingelesen (Sections.Count sagt ~254), außerdem dauert das Ganze ewig lange. Sowas wie Ini.getNextSection gibt es ja leider auch nicht. Ich hoffe ihr könnt mir bei beiden Problemen helfen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Ini : TIniFile;
    Sections, Werte : TStrings;
    i, j : integer;
    Knoten : TTreeNode;
begin
  Ini := TIniFile.Create('C:\Test.reg');
  Sections := TStringList.Create;
  Werte := TStringList.Create;
  try
    Ini.ReadSections(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;