SetLength(DynArray,0) gibt den speicher nicht frei

[DelTurbo]

Hi,
ich habe ein Problem. Ich habe einen Record der wie folgt aussieht.

Delphi-Quellcode:

type
  tEmailData = record
    InUse     :Boolean;
    ID        :Integer;
    HTML      :TStringList;
    TXT       :TStringList;
    Subject   :String;
    SendName  :String;
end;
var
  EMailData     :array of tEmailData;

Ich setze die länge mir z.b. SetLength(EMailData,100). Wenn ich den nicht mehr brauche möchte ich den Speicher wieder frei haben. Ich durchlaufe dann erst eine Schleife und gebe die TStringList mit .Free wieder frei. Danach mache ich ein SetLength(EMailData,0).

Leider bleibt der speicher belegt. Auch ein EMailDatat:=nil hilft nicht weiter. Belege ich mit z.b. SetLength(EMailData,50) wird neuer Speicher genommen.

Was mache ich falsch. Ich suche schon im Netz 2 Tage lange. Ebenfalls hier im Forum. Ich bekomme es nicht hin das der Speicher wieder freigeben wird.

Vielen Dank im voraus

[Stevie]

Worauf basiert deine Annahme, dass der Speicher nicht freigegeben wird?

[DelTurbo]

Ich sehe das 1. am Taskmanager und irgendwann ist bekomme ich (Wenn ich es ein einer Schleife laufen lasse) Out of Memory.

[DieDolly]

Den Taskmanager kannst du direkt in die Tonne hauen.

[DelTurbo]

Mit dem Proccess Explorer von Sysinternals sehe ich auch das der Speicher nicht mehr Freigeben wird.

[DelTurbo]

Nachtrag: Das gleiche mit Freepascal unter Unix. Überprüft mit htop.

[DenkDirNix]

Die Strings müssen auch per User-Code freigegeben werden.

[DelTurbo]

Zitat von DenkDirNix:

Die Strings müssen auch per User-Code freigegeben werden.

Wie gebe ich die Frei? Auch mit z.b. SetLength(EMailData[i].Subject,0)?

[DieDolly]

Versuch die Dinger mal mit Dispose vorher freizugeben.

Ich habe auch sowas wie du irgendwo und ich nutze nur Dispose. Danach noch SetLength. Das mit den Strings halte ich für Unsinn.

[DenkDirNix]

Nö, ganz billig mit

Code:

Subject := '';
SendName := ''