Forum: Datenbanken
Delphi
by generic,
10. Mär 2009
Sieht ganz gut aus, aber einen müssen wir abziehen, hätten die bei Rosental gesagt.
Du hast ein
VST.NodeDataSize := SizeOf(TOMB256PLUS);
doppelt.
Eigentlich reicht der eine im CreateForm.
Forum: Datenbanken
Delphi
by generic,
9. Mär 2009
procedure TForm1.VSTfüllen;
var
Daten : TOMB256PLUS;
begin
if not QRYMB256PLUS.Active then
QRYMB256PLUS.Open;
QRYMB256PLUS.filtered := false;
QRYMB256PLUS.filter := '';
VST.BeginUpdate;
VST.Clear;
Forum: Datenbanken
Delphi
by generic,
8. Mär 2009
VST.AddChild(nil,Daten);
ist an der Stelle auch falsch.
mit addChild fügst du einen neuen Knoten hinzu (Würde auch generell gehen, wäre dein Projekt etwas anders aufgebaut).
Da du das NodeCount setzt, sind die Knoten schon im Baum. Du brauchst also nur noch den Zeiger zeigen lassen ;-)
Also hat du nun 2 Möglichkeiten.
a) du nimmst den code aus dem letzten post und löscht aus deinem...
Forum: Datenbanken
Delphi
by generic,
8. Mär 2009
Objekt erzeugen
nun den Zeiger wieder überschreiben und die Referenz verlieren.
Somit ist die gerade zuvor erzeugte Instanz von die nicht mehr zu benutzen.
Kurz: Die .Create Zeile ist zuviel und das im ganzen Code.
Es reicht ein mal das Objekt pro Datensatz zu erstellen.
Das machst du ja bereits bei der Init Routine.