Große Ini-Datei in TreeView einlesen

[Aurelius]

Hi DPler :hi:

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;

[taaktaak]

Moin, Moin,

frü solche Datenmengen ist das TreeView vermutlich nicht gedacht. Sicherlich ist das VirtualTreeView da besser geeignet (kenne ich aber persönlich nicht). Weiter Möglichkeit: Konzept überdenken! Möglicherweise ist es ausreichend, zunächst nur die Sections in den Tree einzulesen und für jede Section ein Dummy-Child anzulegen (damit ein Plus vor der Node erscheint). Erst, wenn im Tree eine Section-Node angeklickt wird, die Werte dieser Section in den Tree einfügen. Muss man halt mal ausprobieren...

[Aurelius]

Gut, damit hast du Recht. Allerdings löst das nicht das Problem mit der StringList, da dort ja leider nichta lle Werte eingelesen werden...

[taaktaak]

Ohhh, das habe ich gar nicht beachtet. Die etwa 254 SectionNamen werden nicht in die Stringliste eingelesen? Komisch...

// edit: Sind da Sonderzeichen in der Datei?! Wäre spontan die einzig mögliche Erklärung

[Aurelius]

Es werden nur 254 Sections eingelesen, alle anderen nicht. Sonderzeichen sollten nicht drin sein (sind ja alles Registry-Schlüssel-Namen in der Reg-Datei)

[DeddyH]

Du benutzt TIniFile, oder? AFAIR kann diese nicht mit so großen Dateien umgehen. Such mal nach BigIniFile, damit könnte es gehen, leider weiß ich nicht mehr, wo ich die gefunden habe.

[mkinzler]

Die ersten 254?

[taaktaak]

Alternativ mit TMemIniFile lösen! Wie DeddyH schon bemerkte: TIniFile ist (unterschiedlich) limitiert; bei XP auf 64KB (wenn ich mich recht entsinne).

[Aurelius]

Ich hab das ganze mal fix angehängt. Ihr braucht nur eine große Test-Reg-Datei unter 'C:\Test.reg' (oder ihr ändert das ganze im Code um, habs nur fix hingeschludert.

Ja, es sind immer die ersten x Sections (auf meinem Laptop z.b. 164), wobei der letzte Section-Name nicht vollständig ist.

Dann werd ich mir mal TMemIniFile angucken..

[taaktaak]

Ist kein Aufwand, du musst nur TIniFile in TMemIniFile ändern und an passender Stelle (sofern du die Daten auch speicherst) xxx.UpdateFile ergänzen, damit die Daten auch vom RAM auf die Festplatte kommen.

[Aurelius]

Ich hab das jetzt mal mit TMemIniFile getestet, allerdings ist meine Section-Stringlist dann komplett leer. Ändere ich das aber in TIniFile "funktioniert" es wieder...

edit: Auch TMemIni kann nicht mit diesen großen Inis umgehen, ich habs mal mit einer kleinen getestet --> hat geklappt. Langsam verzwifel ich hier

[bitsetter]

Hast du es nun inzwischen schon mal mit TBigIniFile von Torry.net versucht?

[Aurelius]

Habe es gerade getestet, geht leider auch nicht...

[alzaimar]

Gehts damit?

[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;

[alzaimar]

Kann ich nicht nachvollziehen:

Delphi-Quellcode:

Var
  s : TStringlist;
  i,j : Integer;
  x : String;
  m : TMemIniFile;

begin
  s :=Tstringlist.create;
  For i:=0 to 1000 do begin
    x := Format('Section_%d',[i]);
    s.add('['+x+']');
    For j:=1 to 100 do
    s.add('Value_'+x+'_'+IntToStr(j));
    End;
  s.savetofile ('c:\test.reg');
  s.clear;
  m := TMemIniFile.Create('c:\test.reg');
  m.ReadSections(s);
  Showmessage(IntToStr(s.count));
  m.free;
  s.Free;
end;

Hingerotzt, liefert aber korrekte '1001'.

[Aurelius]

Ich habe die Vermutung dass es WideStrings sein müssen. Dazu habe ich bei TFIniFile.ListSections(Dest: TWStrings); die WStrings aus JclWideStrings hinzugefügt. Jetzt arbeitet er auch, allerdings ist meine Liste immer noch leer...

[Aurelius]

*uff* Thread nach oben schieb *stöhn*

[itashadow]

gibts hier inzwischen ne lösung?:(

ok hat sich glaub ich erledigt...

(hatte ein paar leerzeilen in der ini und da ist er bei readsections rausgesprungen)