objectreferenz austauschen ohne globale variablen!!!!

[richard_boderich]

@woki hab mir grade den code angeschaut und ihn nicht verstanden. außerdem ist es viel zu viel code und viel zu viel definitiongeschreibsel. nochmal ich will bloß
eine objectreferenz von einer procedure an eine andere uebergeben. das problem ist das die zweite procedure eine standard onclick procedure eines vcl controls ist.
und ich nicht weis wie ich dieser den zusaetzlichen parameter (die objectreferenz) uebergeben kann. ich moecht das schnell haben und mit moeglichst wenig code.

eventuell ginge es auch mit einem hilfobject. //bitte vezeiht mir syntaxfehler. es geht um prizipelle konzept

z.b

Delphi-Quellcode:

type 

       objectreferenz=class;
         param: tobject; // klassenvariable fuer objectreferenz


procedure  1
begin
...
objectreferenz.create;
objectreferenz.param:=create(owner,..);
...
end;


procedure 2
begin
with objectreferenz.param do // mach was zu tun ist
..

objectreferenz.free
end;

der voretil bei dier methode ist,das das übergabe obecjt nur solange existiert wie es wirklich gebraucht wird. und so spaeter beim debugging keine seiteneffekte bringt. was haltet ihr davon?


Gruß richadr