Ich habe das ganze jetzt mal umgebaut, und dazu das Tutorial aus dem DelphiTreff zur Hilfe genommen.
Allerdings, klappt das alles nicht so, wie ich mir das vorstelle.
Delphi-Quellcode:
{VST Initialisieren mit den Daten aus der Datenbank}
procedure TForm1.VSTInitNode(Sender: TBaseVirtualTree; ParentNode,
Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
Daten : TOMB256PLUS;
begin
VST.NodeDataSize := SizeOf(TOMB256PLUS);
VST.NodeHeight[Node] := 35;
while not QryMB256PLUS.Eof do
begin
Daten := TOMB256PLUS.Create;
try
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;
VST.AddChild(nil,Daten);
except
Daten.Free;
end;
end;
end;
Allerdings, habe ich das da auch nicht so ganz verstanden, In einem Video hier in der
DP wird das VST einmal mit einem Record und einmal mit einem Object gefüllt. Im Tutorial ist dem Object irgendwie einRecord zugewiesen.