Hmmm, leider geht es offensichtlich so nicht
Delphi-Quellcode:
type
PPrognoseData = ^TData;
PIstData = ^TData;
PPlanData = ^TData;
TData = record
FGBez: String;
FMonat: Array [0..1] of double;
end;
...
public
{ Public declarations }
procedure BuildTree(atree: TVirtualStringTree; var adata: TData);
end;
...
procedure TForm1.BuildTree(atree: TVirtualStringTree; var adata: TData);
var
myNode : PVirtualNode;
begin
aTree.Clear;
aTree.NodeDataSize:=sizeof(adata);
myNode:=atree.AddChild(nil);
adata:=atree.GetNodeData(myNode); // hier kommt der Fehler
end;
Ergibt beim Compilieren:
[Error] Unit1.pas(55): Incompatible types: 'TData' and 'Pointer'
Die Variante
procedure BuildTree(atree: TVirtualStringTree; var adata: ^TData);
Ergibt ein:
[Error] Unit1.pas(35): Identifier expected but '^' found
Nicht gut
Gruß Igotcha