Moin leute !

Ich hab folgendes Probelm :

zusammenfalten · markieren

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!

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.

markieren

Delphi-Quellcode:

PXObj = ^TXObj;
PYObj = ^TYObj;

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