objectreferenz austauschen ohne globale variablen!!!!

[richard_boderich]

ok jens jetz weis ich was du meinst

ich wuerd noch folgendes ergaenzen?

Delphi-Quellcode:

Type 

  TMyForm = class(TForm) 
  private 
    FRefObject : TObject; 
  ... 
  end; 

procedure TMyForm.CreateRefObject; 
begin 
  If Not Assinged(FRefObject) then 
    FRefObject:=TOBject.Create; 
end; 

procedure TMyForm.DoSomething(aRefObject : TObject); 
begin 
  If Assinged(FRefObject) then 
    MachWas 
end; 

procedure TMyForm.XYZClick(Sender : TObject); 
begin 
  CreateRefObject; 
  DoSomething(FRefObject );
  frefobject.free                     // um das übergabe object wieder nach benutzung freizugeben?? oder macht er das automatisch?
end;