Also nach wie vor sollte dies die richtige Lösung sein:
Delphi-Quellcode:
type
TData = record
...;
end;
PData = ^TDate;
var
Istdaten: PData;
Plandaten: PData;
Prognosedaten: PData;
procedure BildSumme(atree: TVirtualStringTree; var adata: PData)
begin
adata:=atree.GetNodeData(Node);
adata.FBez:='Test';
etc.
end;
begin
BildeSumme(TreeIST, IstDaten);
BildeSumme(TreePLAN, PlanDaten);
BildeSumme(TreePROGNOSE, PrognoseDaten);
end;
Was meinst du denn mit
Zitat von
Igotcha:
Müsste in allen drei Fällen auf die gleichen Inhalte zeigen, wenn ich das richtig sehe.
? Wenn du drei Variablen deklariert hast kannst du diese auch auf drei verschiedene Inhalte zeigen lassen. Das hat nichts damit zu tun, ob die jetzt alle PData heissen oder eben PIstData PPlanData usw.
Und wenn du unterscheiden können willst, aus welchem der drei VTVs ein Record ursprünglich kam, dann brauchst du im record ja nur einen Eintrag hinzufügen, etwa so:
Delphi-Quellcode:
type
TMyRecordOrigin = (roPlan, roIst, roProgrnose);
type
TData = record
...;
Origin : TMyRecordOrigin;
end;