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;