Pointer übergeben

[jbg]

Neben dem, dass object veraltet ist und man besser class einsetzen soll, das dann sowieso nur ein Zeiger ist, kannst du bei einem Parameter keinen Dereferenzier-Operator (^) angeben. Du musst einen neuen Zeiger-Typ deklarieren.

Delphi-Quellcode:

PXObj = ^TXObj;
PYObj = ^TYObj;

TXObj = object
  py := PYObj;
  procedure connectwith(pointer : PYObj);
end;
TYObj = object
end;