Datum hierarisch darstellen

[Andreas Arnold]

Halli, hallo
und diesmal ein Problem wo ich noch nicht mal einen <i>richtigen <BR> Ansatz habe. <BR>
In einer Abgangstabelle eines Medikamentenbestandes ist unter anderen <BR> wie kann es anders sein ein Feld mit dem Abgangsdatum (dd.mm.yyyy). <BR> Nun wollte ich in ein TreeView folgendes darstellen TreeNote1 stellt <BR>
die Jahre vierstellig dar, TreeNote2 die dazugehörigen Monate (mmmm). <BR>
Die Jahre und Monate in den bestimmten Format zu extrahieren und in <BR>
einer extra Spalte zu schreiben ist kein Problem. Problematisch <BR>
für mich ist die Darstellung im TreeView. Das TreeView soll <BR>
letztlich nur ein Filter für das nebenstehende DBGrid sein. <BR>
Schon mal im voraus vielen Dank. <BR>
MfG Andreas

Hallo Andreas,

Hier ein Beispiel aus der Delphi-Hilfe zum Erstellen des Trees:

procedure TForm1.Button1Click(Sender: TObject);

var <br>
MyTreeNode1, MyTreeNode2: TTreeNode; <br>
begin <br>
with TreeView1.Items do <br>
begin <br>
Clear; { vorhandene Knoten entfernen } <br>
MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Hauptknoten hinzufügen <br>}
{ Untergeordneter Knoten wurde gerade hinzugefügt } <br>
AddChild(MyTreeNode1,'ChildNode1');

{Weiteren Hauptknoten hinzufügen} <br>
MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2'); <br>
{MyTreeNode2 an untergeordnetes Objekt übergeben }

AddChild(MyTreeNode2,'ChildNode2');

{Change MyTreeNode2 to ChildNode2 } <br>
{ und untergeordneten Knoten hinzufügen} <br>
MyTreeNode2 := TreeView1.Items[3]; <br>
AddChild(MyTreeNode2,'ChildNode2a');

{Untergeordneten Knoten zu ChildNode2, nach ChildNode2a hinzufügen} <br>
Add(MyTreeNode2,'ChildNode2b');

{Weiteren Hauptknoten hinzufügen} <br>
Add(MyTreeNode1, 'RootTreeNode3'); <br>
end; <br>
end;

Das Verknüpfen mit den Griddaten (bzw. dem Key des Grids und einem Locate in der Datenmenge) erfolgt dann über das Setzen der Eigenschaft TTreeNode.Data. Auch hierzu kannst Du in der Delphi-Hilfe ein umfangreiches Beispiel finden.

Gruß,
Heike Sa&#223

[Andreas Arnold]

Jo Danke Heike,
werde mich mal eingehent damit befassen.
MfG Andrea