Elemente einer Ini-Datei in einem TreeView darstellen

[Klabautermann]

Hallo,

diese procedure, stellt in meinem Mail Programm das Adessbuch (INI-Datei) als Baum da:

Code:

procedure TdlgAdressator.LoadAdressbuch;
  VAR
    Sections, Adresses : TstringList;
    SectNode, AdrNode : tTreeNode;
    i, j : Integer;
begin
  TRY
    Sections := tStringList.Create;
    Adresses := tStringList.Create;
    Tree.Items.Clear;
    Config.ini_Adress.ReadSections(Sections);
    Sections.Sort;
    FOR i := 0 TO Sections.Count - 1 DO BEGIN
      Config.ini_Adress.ReadSection(Sections[i], Adresses);
      Adresses.Sort;
      SectNode := Tree.Items.AddChild(NIL, Sections[i]);
      SectNode.ImageIndex := 2;
      SectNode.SelectedIndex := 2;
      FOR j := 0 TO Adresses.Count - 1 DO BEGIN
        AdrNode := Tree.Items.AddChild(SectNode, Adresses[j] + ' <' +
                         Config.ini_Adress.ReadString(Sections[i], Adresses[j], '') + '>');
        AdrNode.ImageIndex := 1;
        AdrNode.SelectedIndex := 1;
      END; // Mit allen Adressen dieser Sektion
    END; // Mit Allen Sektionen
  EXCEPT
    ShowMessage('Fehler beim erzeugen des Adressbaums!');
  END; // TRY EXCEPT
  Sections.Free;
  Adresses.Free;
end; // load Adressbuch

Ich hoffe das hilft.

Gruß
Klabautermann