objectreferenz austauschen ohne globale variablen!!!!

[sh17]

und warum nicht:

Delphi-Quellcode:

type
  ttestobject = class...

procedure bla1 
begin 
  testobject1:=create(owner ....); 
  bla2(testobject1);
end; 

procedure bla2(_reftestobject: ttestobject);
begin 
  with _reftestobject do 
  begin 

  //mach was zu tun ist 

  end; 
end;

die variable testobject1 musst natürlich irgendwo deklarieren, z.B. in deinem Form oder einem eigenen Variablen-Container