Speicher Freigeben

[stiftII]

Hallo,

ich habe folgende Funktion:

Delphi-Quellcode:

function ExtraColumsStringsDB(firma:string):TStringlist;
var
  Temp: Array Of TColumn;
  i: integer;
begin
     Result := TStringList.Create;
     Temp := GetExtraFields(firma);
     for i:=0 to high(Temp) do
     begin
       result.Add(Temp[i].FieldName );
     end;
end;

Aufgerufen wird diese zB so:
ExtraColumsStringsDB('name').count Allerdings ist mir aufgefallen, dass bei dieser Vorgehensweise der verwendete Speicher der Funktion niemals freigegeben werden kann. (FPC hat ja keinen Garbage Collector)

Wenn man den Speicher in der Funktion freigeben würde, könnte man den Rückgabewert (TStringlist) ja niemals benutzen.

Gibt es irgendeine Möglichkeit diese nicht mehr verwendeten Variablen nach Ausführung der Funktion wieder freizugeben ?

Grüße
stiftII

[Luckie]

So was löst man in der Regel, in dem der Aufrufer das Objekt zur Verfügung stellt und es der Routine übergibt.

[Alaitoc]

Mach es doch so, dass eine StringList der Methode übergeben werden muss.
Dann noch überprüfen ob die überhaupt existiert, sie vll. clearen und mit Werten füllen.

MfG Alaitoc

Edith sagt: "Luckie war schneller".

[Bernhard Geyer]

oder den Funktionsnamen so wählen das klar ist das der Aufrufer aufräumen muss. z.B. CreateExtraColumsStrings

[angos]

Hi,

ich würde das Ganze ein wenig anders angehen (auch wenn schon Antworten da sind, hier die mögliche Lösung):

Delphi-Quellcode:

function ExtraColumsStringsDB(firma:string; const ASL: TStringlist): Boolean;
var
  Temp: Array Of TColumn;
  i: integer;
begin
  try
    Result := True;

    Temp := GetExtraFields(firma);
    for i:=0 to high(Temp) do
    begin
      ASL.Add(Temp[i].FieldName );
    end;
  except
    Result := False;
  end;
end; 

procedure dosomething;
var
  SL:TStringList;
begin
  SL := TStringList.Create;
  try
    ExtraColumsStringsDB('EINEFIRMA', SL);
  finally
    SL.Free;
  end;
end;

[DeddyH]

Die Liste als Parameter zu übergeben ist trotzdem die bessere Option, da sonst bei mehrfachem Aufruf der Funktion auch mehrere Instanzen erzeugt werden. Wenn man dann nicht jede in einer Variablen speichert und freigibt hat man die schönsten Speicherlecks produziert.

[p80286]

Zitat von DeddyH:

Wenn man dann nicht jede in einer Variablen speichert und freigibt hat man die schönsten Speicherlecks produziert.

Das würde ich als selbsverständlich vorraussetzen.

Gruß
K-H

[Luckie]

Zitat von angos:

ich würde das Ganze ein wenig anders angehen (auch wenn schon Antworten da sind, hier die mögliche Lösung):

Und wo ist das jetzt anders, als zu den bisherigen Vorschlägen: Aufrufer erzeugt Objekt und übergibt es als Parameter an die Routine.

[DeddyH]

Zitat von p80286:

Zitat von DeddyH:

Wenn man dann nicht jede in einer Variablen speichert und freigibt hat man die schönsten Speicherlecks produziert.

Das würde ich als selbsverständlich vorraussetzen.

Gruß
K-H

Negativbeispiel: http://www.delphipraxis.net/1099023-post9.html (Handler.GetAllDataSets liefert eine Stringliste)

[r2c2]

Und wenn man den Parameter noch als TStrings (statt TStringList) deklariert, kann man sogar so Spielchen machen wie Memo.Lines übergeben...

mfg

Christian