Freigeben von Objekten einer Function

[ScharfeMietze]

Gut, das ist ja planbar. Da Telegramm max 100 Updates ausspuckt kann es mit einer Referenzzählung versehen werden pro Aufgabe zähle hoch, ist die Aufgabe erledigt ziehe 1 ab ist der Referenzzähler 0 lösche es aus der Hauptliste.
die restlichen listen bekommen ownsobject false.....
dann muss auch nur die Hauptliste permanent bestehen ..

[himitsu]

Außerdem:

Warum ignorierst du böswillig die Fehlermeldungen deines Compilers?

Create, bzw. irgendeine Initialisierung gehört IMMER vor das Try, denn sonst ist diese Variable im Except/Finally nicht initialisiert, welches dir der Compiler auch gesagt hat.

Delphi-Quellcode:

Result := TTGMessage.Create;
try
  ...
except // ebenso bei finally
  Result.Free;
  raise;
end;

Delphi-Quellcode:

Result := nil;
try
  Result := TTGMessage.Create;
  ...
except // ebenso bei finally
  Result.Free;
  raise;
end;

[ScharfeMietze]

Hmpf... Da bin/war ich beim markieren und "umgeben mit" schlicht zu hoch gerutscht.
natürlich danke für den Hinweis