1:
2:
3:

Erde
  06.07.2004
    19:36:13					

1:
2:
3:
4:

Erde
  06.07.2004
    19:36:13
    19:30:00					

1:
2:
3:
4:
5:
6:
7:

Erde
  06.07.2004
    19:36:13
    19:30:00
  07.07.2004
    19:36:13
    19:30:00					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Erde
  06.07.2004
    19:36:13
    19:30:00
  07.07.2004
    19:36:13
    19:30:00
Mars
  27.07.2004
    21:36:13
    19:21:00					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Erde
  06.07.2004
    19:36:13
    19:30:00
    19:28:13
    19:29:00
  07.07.2004
    (19:28:13) anstatt hier
    (19:29:00) anstatt hier					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

procedure TForm2.AddFiles;
var
  i : Integer;
  IniFile : TIniFile;
  Planet, lastPlanet, Datum, lastDatum, Zeit, lastZeit : String;
  MyTreeNode1,MyTreeNode2 : TTreeNode;
begin
  AllFiles.Sort;
  TreeView1.Items.Clear;  
  for i := 0 to AllFiles.Count -1 do  //Stringliste allen Dateien wie z.B. [Erde]06.07.2004(0,81681712962963).ini
  begin
    IniFile := TIniFile.Create(AllFiles.Strings[i]);
    Planet := IniFile.ReadString('Daten','Planet','Planet'); //Für jeden Bericht gibts ne IniDatei. Ich lese aus dieser den korrekten Planeten aus

    Datum := IniFile.ReadString('Daten','Datum','Datum');
    Datum := Trim(copy(Datum,0,pos(' ',Datum))); //Auslesen des Datums

    Zeit := IniFile.ReadString('Daten','Datum','Datum');
    Zeit := Trim(copy(Zeit,pos(' ',Zeit)+1,length(Zeit))); //Auslesen der Zeit

    with TreeView1.Items do
    begin
      if lastPlanet <> Planet then
      begin
        MyTreeNode1 := Add(MyTreeNode1, Planet);
        if lastDatum <> Datum then
        begin
          AddChild(MyTreeNode1,Datum);
          if lastZeit <> Zeit then
          begin
            MyTreeNode1 := TreeView1.Items[1];
            AddChild(MyTreeNode1,Zeit);
          end;
        end
      end
      else
      begin
        if lastDatum <> Datum then
        begin
          Add(MyTreeNode1, Datum);
          AddChild(MyTreeNode1, Zeit);
        end;
        if lastDatum = Datum then
        begin
          AddChild(MyTreeNode1, Zeit);
        end;
      end;
      lastPlanet := Planet;
      lastDatum := Datum;
    end;
  end;
 end;					

1:
2:
3:

[Daten]
Planet=Erde
Datum=06.07.2004 19:36:13					

1:
2:
3:
4:
5:
6:

<Planeten>
  <Planet Name="Erde" Zeit="19:36:13" Datum="06.07.2004"/>
  <Planet Name="Erde" Zeit="19:30:00" Datum="06.07.2004"/>
  <Planet Name="Erde" Zeit="19:36:13" Datum="07.07.2004"/>
  <Planet Name="Mars" Zeit="21:36:13" Datum="27.07.2004"/>
</Planeten>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

<Planeten>
  <Planet>
    <Name>Erde</Name>
    <Zeit>19:36:13</Zeit>
    <Datum>06.07.2004</Datum>
  </Planet>
  <Planet>
    <Name>Erde</Name>
    <Zeit>19:30:00</Zeit>
    <Datum>06.07.2004</Datum>
  </Planet>
  <!-- mehr Planeten //-->
</Planeten>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:

procedure TForm1.Button1Click(Sender: TObject);

  function GetTreeNode(const TV: TTreeView; Parent: TTreeNode;
    Caption: string): TTreeNode;
  var
    i      : integer;
  begin
    // wenn der Parent "nil" ist, dann alle "Top Level"-Knoten
    // durchsuchen
    if(Parent = nil) then
    begin
      for i := 0 to TV.Items.Count - 1 do
        if(TV.Items[i].Level = 0) and
          (CompareText(TV.Items[i].Text,Caption) = 0) then
        begin
          Result := TV.Items[i];
          exit;
        end;

      // Knoten existiert noch nicht, daher anlegen
      Result := TV.Items.AddFirst(nil,Caption);
    end
    // ansonsten nur die Unterknoten des Parent
    // berücksichtigen
    else begin
      for i := 0 to Parent.Count - 1 do
        if(CompareText(Parent.Item[i].Text,Caption) = 0) then
        begin
          Result := Parent.Item[i];
          exit;
        end;

      // Knoten existiert noch nicht, anlegen
      Result := TV.Items.AddChild(Parent,Caption);
    end;
  end;


const
  // meine Dateinamen; du hast stattdessen deine Stringliste,
  // also beachte bitte die for-Schleife
  FileNames : array[1..4]of string =
    ('erde.ini','mars.ini','erde2.ini','erde3.ini');
var
  i         : integer;
  ini       : TIniFile;
  s1,
  s2        : string;
  Datum,
  Zeit      : string;
  tn,
  sub       : TTreeNode;
begin
  TreeView1.Items.Clear;
  TreeView1.Items.BeginUpdate;

  for i := low(FileNames) to high(FileNames) do
  begin
    s1   := '';
    s2   := '';
    ini  := TIniFile.Create(ExtractFilePath(paramstr(0)) + FileNames[i]);
    try
      s1 := ini.ReadString('Daten','Planet','Planet');
      s2 := ini.ReadString('Daten','Datum','Datum');
    finally

// Du hast vergessen, das TIniFile-Objekt wieder freizugeben.
// Wenn du sehr viele Dateien hast, dann wird bei jedem
// Schleifendurchlauf ein neues Objekt angelegt, und dein
// Speicher (RAM) füllt sich langsam aber sicher.
// Darum, nach getaner Arbeit:

      FreeAndNil(ini);

// Das try/finally ist notwendig, weil du davon ausgehen
// musst/solltest, dass beim Lesen (oder Schreiben) von Werten
// mal etwas schief gehen kann. Mit try/finally kannst du
// auf Exceptions reagieren; hier in dem Fall wird dann zumindest
// noch versucht, dass Objekt freizugeben, wenn innerhalb von
// try/finally was nicht klappt und Fehler verursacht.

    end;

    if(s1 <> '') and (s1 <> 'Planet') and
      (s2 <> '') and (s2 <> 'Datum') then
    begin

// Wenn die Zeit einen eigenen Eintrag in der INI-Datei hätte,
// dann könntest du dir das "Rumgemache" mit dem String hier
// sparen und stattdessen gleich die beiden Variablen oben beim
// Auslesen benutzen

      Datum := Trim(copy(s2,0,pos(' ',s2)));
      Zeit  := Trim(copy(s2,pos(' ',s2) + 1,length(s2)));

// Streng genommen müsste man eigentlich noch prüfen ob die
// beiden Variablen Inhalt haben (also <> '' sind), denn wer
// garantiert, dass der Eintrag in der INI nicht (un)absichtlich
// verändert wurde?


      // Mit der Funktion "GetTreeNode" wird nun überprüft, ob
      // es den Knoten "s1" (= Planetenname) schon gibt. Da als
      // Parent NIL benutzt wird, durchsucht die Funktion nur die
      // Root-Knoten.
      // Existiert der Knoten noch nicht, wird er automatisch
      // angelegt
      tn    := GetTreeNode(TreeView1,nil,s1);
      // Rückgabewert ist der angelegte Knoten, damit du jetzt
      // einen Anhaltspunkt für die Unterknoten hast

      if(tn <> nil) then
      begin

      // Das Prinzip ist das gleiche: Du prüfst, ob es den
      // Knoten für das Datum schon gibt. Diesmal gibst du
      // aber den Parent "tn" an, den du gerade gefunden bzw.
      // neu angelegt hast. Dadurch landet das Datum (wenn es
      // noch nicht existiert) automatisch unter dem eben
      // erstellten/gefundenen Root-Knoten
        sub   := GetTreeNode(TreeView1,tn,Datum);

      // Und das gilt dann natürlich auch für die Zeit, wobei
      // du hier als Parent die Variable "sub" benutzt, weil
      // das ja der Datums-Knoten ist
        if(sub <> nil) then
          GetTreeNode(TreeView1,sub,Zeit);
      end;
    end;
  end;

  TreeView1.Items.EndUpdate;
end;					

1:
2:
3:
4:

tn               := GetTreeNode(TreeView1,nil,s1);
tn.ImageIndex    := 0;
tn.SelectedIndex := 0; // <-- evtl. anderer Index, wenn sich das
                       // Bild bei der Auswahl ändern kann/soll					

1:
2:

        if(sub <> nil) then
          GetTreeNode(TreeView1,sub,Zeit);					

1:
2:
3:
4:
5:
6:

        if(sub <> nil) then
begin
  tn := GetTreeNode(TreeView1,sub,Zeit);
  tn.ImageIndex ...

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  // es muss ein Knoten gewählt sein
  if(tv1.Selected = nil) then exit;

  // der wird zugewiesen, ...
  root  := tv1.Selected;
  // ... & dann wird immer der Parent
  // ermittelt, bis man ganz oben ist
  while(root.Parent <> nil) do
    root := root.Parent;

  // und dann kann man damit irgendwas
  // machen
  self.CallNamespaceMerge(root.Text);					

1:

TreeView1.AlphaSort;