RetainObject()

RetainObject() – Objekt im Speicher halten

Normalerweise werden alle Objekte automatisch freigegeben, die innerhalb eines Codeblocks ohne Owner erzeugt wurden. Die Freigabe erfolgt, wenn die Ausführung des Codeblocks endet.
Die Funktion RetainObject() nimmt aObject aus der internen Liste der Objekte, die automatisch gelöscht werden sollen. Damit ergibt sich die Möglichkeit, dass ein Codeblockprogramm als Rückgabewert eine gültige Objektreferenz liefert, die im aufrufenden Block weiter verwendet werden kann. Außerdem kann ein Objekt einer globalen Variablen zugewiesen werden, die auch nach Beendigung des Blocks gültig bleibt.

Rückgabewert

keiner

Beispiel

| G_File:_U |

if File('C:\temp\xxx.sql') then
   G_File := FOpen('C:\temp\xxx.sql'),
   RetainObject(G_File),
endif