Pointer übergeben

[braingrenade]

Moin leute !

Ich hab folgendes Probelm :

Delphi-Quellcode:

Type Tx = object
     Py : ^Ty ; 
   procedure connectwith(pointer : ^Ty); 
end;

Type Ty = object
   zahl :integer,
 end;

procedure Tx.connectwith(pointer : ^Ty);
begin
Py := pointer;
end;

procedure programm;
var
  x : Tx;
  y : Ty;
begin
x.connectwith(@y);
end;

Also ich will praktisch mit einer Procedure die adresse von y an x.pointer übergeben , aber leider funzt's so nicht !

vielleicht hat jemand ne idee wie man das Lösen könnte!

[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;