Speicher freigeben: Nur wann und wie?

[fkerber]

Hi!

Mein Problem ist folgendes:
Ich habe ein Funktion, die so aussieht:

Delphi-Quellcode:

function Create_Edges(roundtrip: TDynIntArray):TEdge_Array;
var
 i: integer;
begin
setlength(result, length(cities));
for i:=0 to length(result)-1 do
 result[i]:=TEdge.Create; //<-------------

 for i:=0 to high(roundtrip)-2 do
  begin
    result[i].x1:=cities[roundtrip[i]];
    result[i].x2:=cities[roundtrip[i+1]];
  end;
 result[high(result)].x1:=result[high(result)-1].x2;
 result[high(result)].x2:=result[0].x1;
end;

Was sie macht, iss eigentlich egal.
Sie erzeugt jedenfalls Objekte vom Typ TEdge. Nur, wann soll ich die wieder freigeben und wie? In der Funktion geht ja nicht, die werden ja noch gebraucht. Muss ich das dann nach der verwendung meines results machen?
Und wie? Einfach wieder ne schleife mit TEdge.Destroy?

Danke für eure Hilfe.

Ciao Frederic

[Keldorn]

Hallo

ich würde dazu eine Objectlist nehmenund die auch nicht als Funktionsrueckgabe

Delphi-Quellcode:

procedure Create_Edges(roundtrip: TDynIntArray;Edge_Liste:Tobjectlist); 
//oder gleich von einer objectliste ableiten und die proc mit als methode rein
begin
  edge_Liste.clear;
  ...
  edge_liste.add(TEdge.Create);
  ...
  
end;

Procedure irgendetwas;
Var Liste:Tobjectlist;
begin
  Liste:=Tobjectlist.create(true);//Objectliste kümmert sich selbst um das freigeben der Objekte
  try
    Create_Edges(...,Liste);
    mach noch was anderes
  finally
    liste.free;
  end;
end;

Somit hast du das Erstellen und Freigeben der Liste zusammen und nicht über den ganzen code verstreut.
Durch das ownobjects der Liste werden die hinzugefügten beim freigeben der Liste automtisch mit freigegeben, eine extra schleife und alle items mit freee freizugeben ist nicht notwendig.

Mfg Frank