[VST] Hinzugefügte Nodes sind nicht zu sehen

[Hansa]

Hi,

vorab : Titel geht nicht aussagekräftiger, weil Problem zu kompliziert zu beschreiben.

Also : in einem VST müssen zusammengesuchte Daten aus 5 Tabellen angezeigt werden. Jetzt habe ich hierfür ein relativ umfangreiches SelectSQL zusammengebaut. Aber sieh an : es geht zu langsam. Der sucht sich ca. 500.000 Datensätze zusammen. Erstens dauert das schon und zweitens braucht so viel auf einmal niemand. Um den Einfluss des VST auzuschliessen habe ich das mit IBExpert getestet. Geht zwar schneller, aber bei DAUs besteht immer noch die Gefahr, dass die wegen 30 Sek. und mehr den Netzstecker ziehen.

Im FormShow befülle ich nun zuallererst NodeLevel 0. Sonst nichts. Um das + zu erzwingen, obwohl noch gar keine Unterknoten da
sind steht da noch folgendes drin :

vstZeig.HasChildren [NodeBez] := true; Im OnExpanding steht das :

Delphi-Quellcode:

DS.Close;
DS.SelectSQL.Text := ...
DS.Open;
while not DS.Eof do begin
  NodeKopf := vstZeig.AddChild(NodeBez);
  Data := vstZeig.GetNodeData(NodeKopf);
  vstZeig.ValidateNode (NodeKopf, False);
  KopfVar := TKopf.Create;
  KopfVar.Nr := LeseIntFeld (DS,'NR');
  Data^.Table := KopfVar;
  DS.Next;
end;

Unterknoten werden keine angezeigt. Lediglich das + verschwindet. Steht derselbe Quelltext aber im OnShow, dann wird alles richtig angezeigt. Woran kann das liegen ? Ich bin per F8 die While-Schleife durchgehüpft. Das geht alles schon so wie es soll.

[sirius]

Sieht soweit alles richtig aus. Ich benutze diese Vorgehensweise auch sehr oft.
Bist du dir sicher, dass Data auf die Richtige Stelle zeigt und dass NodeSize ausreichend groß ist?

[Dale]

Hallo Hansa,
bist du dir sicher, dass "NodeBez" der Knoten ist, der in "OnExpanding" übergeben wird?

Gruß Dale

[Hansa]

Thx, das war zumindest die halbe Miete. Habe den Parameter Node übersehen. Und der muss an AddChild übergeben werden, nicht NodeBez. Im FormShow wärs andersrum richtig und hat ja auch so geklappt. Jetzt klappen die Dinger jedenfalls auf. Zwar überall mit denselben Unterknoten, aber immerhin.

[Hansa]

Moin,

jetzt gibts noch eine Kleinigkeit : sofern das + mehrmals angeklickt wird, also ausklappen/einklappen, dann wird die Liste der Unterknoten immer länger. Wie unterbinde ich das ?

Ich finde weder eine Abfrage, ob der Knoten bereits mit Daten gefüllt ist, noch wie man alle Nodes ab einem bestimmten Hauptknoten löscht. 8)

[Dale]

Hallo Hansa,

nun, das ist klar: du fügst ja jedesmal in "OnExpanding" die gleichen Knoten wieder ein. Das brauchst du natürlich nur einmal zu machen. Du könntest dir für jedes Rootnode merken, ob du die Unterknoten schon eingefügt hast. Dann brauchst du beim zweiten aufklappen nichts mehr zu tun.

Gruß
Dale

[Hansa]

Zu dem Schluss bin ich auch gekommen.

Delphi-Quellcode:

TNodeObject = class
  gefuellt : Boolean;
end;

TTBezData = class(TNodeObject)
  BezID : Integer;
  Name  : string;
end;

Beim ersten expanding dann noch das machen :

TBezData(Data^.Table).gefuellt := true; Und beim nächsten mal eben auswerten. Allerdings : bei so einem komplexen Ding wie dem VST wundert mich schon, dass der das nicht bereits so ähnlich eingebaut haben sollte.