Freigeben von Objekten einer Function

[ScharfeMietze]

Delphi-Quellcode:

function TTGMBot.TGMessagefnd(const Index: Integer): TTGMessage;
begin
  try
    Result:= TTGMessage.Create;

  if Assigned(FTGResults) then
    begin
    if Assigned(FTGResults[Index].TGMessage) then
      begin
        Result:= FTGResults[Index].TGMessage;
        mmo2.Lines.Add('TGMessagefnd' + FTGResults[Index].TGMessage.chat.id);
      end
    else
    if Assigned(FTGResults[Index].edited_message) then
      begin
        Result:= FTGResults[Index].edited_message;
        mmo2.Lines.Add('TGMessagefnd' + FTGResults[Index].edited_message.chat.id);
      end
    else
    if Assigned(FTGResults[Index].channel_post) then
      begin
        Result:= FTGResults[Index].channel_post;
        mmo2.Lines.Add('TGMessagefnd' + FTGResults[Index].channel_post.chat.id);
      end
    else
    if Assigned(FTGResults[Index].edited_channel_post) then
      begin
        Result:= FTGResults[Index].edited_channel_post;
        mmo2.Lines.Add('TGMessagefnd' + FTGResults[I].edited_channel_post.chat.id);
      end;
    end;
  except
     Result.Free;
     raise
  end;
end;

ich habe ein generische OBjektliste vom Typ TTGMessage , in der sich entweder eine Message oder eine edited_message befindet.(alle sind vom Typ TTGMessage)

Aufrufen tu ich sie so

Delphi-Quellcode:

 for I := 0 to FTGResults.Count-1 do
  begin
   mmo2.Lines.Add(TGMessagefnd.chat.id);
  end;

Die Frage ist, was mache ich mit dem erstellten "Result:= TTGMessage.Create;" in TGMessagefnd
muss ich das irgendwann befreien? Oder zerlegt sie sich automatichsch ? Ich hab mir da eigentlich nie drüber gedanken gemacht. Da das Tool aber im Dauereinsatz auf einer "schwachen" Maschine laufen soll würde es mich mal interessieren.


Gruß Mietze

[Olli73]

Du erstellst zuerst eine neue Instanz und weist diese Result zu:

Result:= TTGMessage.Create;
Dann weist du Result eine andere Instanz zu:

z.B.: Result:= FTGResults[Index].TGMessage; wodurch die zuerst erstellte Instanz in der Luft hängt und nie freigegeben wird.

=> Lass einfach das create weg, das du scheinbar hier gar nicht brauchst.

[ScharfeMietze]

Hmmmm Okay damit ist eine Frage beantwortet aber neue Verständnisfragen tauchen auf.

Delphi-Quellcode:

function TTGMBot.TGMessagefnd(const Index: Integer): TTGMessage;
begin
  try

  if Assigned(FTGResults) then
    begin
    if Assigned(FTGResults[Index].TGMessage.chat) then
      begin
        Result:= FTGResults[Index].TGMessage;


end;

Was ist nun in dem Result? ein "copie" ausFTGResults[Index].TGMessage; oder ist es das komplette objekt das dann aus FTGResults[Index] verschwindet??

oder verweist das Result nur auf FTGResults[Index].TGMessage; und wird beim löschen von FTGResults.free aufgeräumt?!?

[Olli73]

Letzteres.

[ScharfeMietze]

Okay thx das erleuchtet mich ^^

[Aviator]

Schreib in deiner DPR-Datei einfach mal ReportMemoryLeaksOnShutdown := True; dazu. Wenn du dein Programm dann beendest, dann bekommst du eine Liste aller nicht freigegebenen Ressourcen. Wenn keine Meldung kommt, dann ist alles sauber.

Ich würde aber einfach mal behaupten, dass die Meldung da sein wird wenn du dir bis jetzt keine Gedanken darum gemacht hast.