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