objectreferenz austauschen ohne globale variablen!!!!

[richard_boderich]

moin zusammen,

ich hab mal eine frage. es geht darum wie ich objectreferenzen uebertragen kann.

das problem ist. ich erhalte in einer procedure die objectreferenz, muss sie aber in einer anderen procedure verarbeiten. momentan mach ich das mit einer globalen
variablen von typ object. und zwar so. hab der einfachheit halber ein paar cast weggelassen.

Delphi-Quellcode:

var   //global
reftestobject: ttestobject;



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

procedure bla2
begin
  with reftestobject do
  begin

  //mach was zu tun ist

  end;
end;

so jetz meine fragen. globale variablen sind ja eine schlechte loesung, weil sie zu langwierigen und schwierigen debugging prozessen fuehren koennen.
meine frage jetzt wie kann ich das besser machen? ich dachte das ich da einen pointer verwenden koennte, aber der muss doch dann auch global definiert sein oder?


eventuell so?

Delphi-Quellcode:

var   //global
reftestobject: pointer


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

procedure bla2
begin
  with @reftestobject do
  begin

  //mach was zu tun ist

  end;
end;

hoffe mir kann jemand ein paar tipps geben

Gruß euer Richard

[edit=alcaeus]Delphi-Tags korrigiert. Mfg, alcaeus[/edit]