Objekt-Eigenschaft mit anderem Objekt verbinden, evtl Zeiger

[mkinzler]

Delphi-Quellcode:

type TInputBlock= class(TObject)
  private
    FData: TCalcData;
    ...
  public
    constructor Create ( AData: TCalcData);
    procedure ShowBox( ...);
    ...
end;
...
constructor TInputBlock.Create ( AData: TCalcData);
begin
    FData := AData;
end;

Delphi-Quellcode:

inpX := TInputBlock.Create( <Datenobjekt>);
inpX.ShowBox(...);