Delphi-Quellcode:
procedure TForm1.VSTfüllen;
var
Daten : TOMB256PLUS;
begin
if not QRYMB256PLUS.Active then
QRYMB256PLUS.Open;
QRYMB256PLUS.filtered := false;
QRYMB256PLUS.filter := '';
VST.BeginUpdate;
VST.Clear;
VST.NodeDataSize := Sizeof(TOMB256PLUS);
Daten := TOMB256PLUS.Create;
QRYMB256PLUS.First;
VST.RootNodeCount := QRYMB256PLUS.RecordCount;
VST.SortTree(0,sdAscending,true);
VST.EndUpdate;
end;
Wofür brauchst du da ein neues Daten Objekt? Was passiert damit?
Delphi-Quellcode:
procedure TForm1.VSTInitNode(Sender: TBaseVirtualTree; ParentNode,
Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
Daten : TOMB256PLUS;
begin
Daten.ID := QRYMB256PLUS.FieldByName('ID').AsInteger;
Daten.LfdNr := QRYMB256PLUS.FieldByName('LfdNr').AsInteger;
Daten.Datum := QRYMB256PLUS.FieldByName('Datum').AsString;
Daten.Uhrzeit := QRYMB256PLUS.FieldByName('Uhrzeit').AsString;
Daten.Ereignis := QRYMB256PLUS.FieldByName('Ereignis').AsString;
Daten.Teilnehmer := QRYMB256PLUS.FieldByName('Teilnehmer').AsString;
Daten.Bereich := QRYMB256PLUS.FieldByName('Bereich').AsString;
end;
So jetzt weisst du hier einen nicht initialisierten Objekt dazu zu.
Müsste sogar in der
IDE eine Warnung stehen.
Wie wäre es HIER das Datenobjekt zu erzeugen (.Create) und anschließend den Zeiger zu dem Objekt an den Node-Datenzeiger hängen bzw. zuweisen.
Wobei ich persönlich das arbeiten über InitNode vermeide, da etwas komplizierter und die Knotenanzahl fest stehen muss.
InitNode ist aber performanter als eine iteratives vorgehen.
Der Rest deines Codes sieht ganz gut aus. Aber ich habe den Eindruck das du noch nicht viel mit Objekten und Zeiger gearbeitet hast.