Er hat ein Pointer auf ein dynamisches Array....
hmm... Ich gebe ja gerne zu, dass ich mit Pointern schon immer so meine Probleme habe. Aber was gibt denn .GetNodeData bitte schön zurück, wenn nicht einen pointer auf einen Speicherbereich in das das array gehört? Den Bereich definiere ich mit NodeDataSize und der VST kümmert sich drum, dass dort ein Pointer mit der Größe angelegt wird. Wie ich den interpretiere ist dann meine Sache - auch wenn ich innerhalb dieses Pointers auf weitere Speicherbereiche zugreife die ich dann zu verwalten habe....
Das hier funktioniert bei mir problemlos:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
FVST.NodeDataSize := sizeof(PsqlData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var sqlData:PsqlData;
node:PVirtualNode;
begin
node := FVST.AddChild(nil);
sqlData := FVST.GetNodeData(node);
SetLength(sqlData^, 2);
sqlData^[0]:='Hallo';
sqlData^[1]:='Welt';
end;
procedure TForm1.FVSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var sqlData:PsqlData;
idx: Integer;
begin
sqlData := FVST.GetNodeData(Node);
CellText := '';
if Assigned(sqlData) then
begin
for idx := 0 to length(sqlData^) - 1 do
begin
CellText := CellText + sqlData^[idx];
end;
end;
end;
Es fehlt noch die Freigabe der dynamischen Arrays bei beenden.
Ich wüsste auch nicht wo genau jetzt der Unterschied zwischen einem dynamischen Array und dem Record von Uwes Beispielcode sein soll. Es sind am Ende Variablen. Ich wäre echt dankbar, wenn mir jemand das erklären kann...