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

markieren

Code:

			Subject := '';

SendName := ''

SetLength(DynArray,0) gibt den speicher nicht frei

SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

AW: SetLength(DynArray,0) gibt den speicher nicht frei

Forumregeln

Stevie Registriert seit: 12. Aug 2003 Ort: Soest 4.008 Beiträge Delphi 10.1 Berlin Enterprise	#2 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:18 Worauf basiert deine Annahme, dass der Speicher nicht freigegeben wird? Stefan “Simplicity, carried to the extreme, becomes elegance.” Jon Franklin Delphi Sorcery - DSharp - Spring4D - TestInsight
	Zitat

DelTurbo Registriert seit: 12. Dez 2009 Ort: Eifel 1.193 Beiträge Delphi 2007 Architect	#3 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:21 Ich sehe das 1. am Taskmanager und irgendwann ist bekomme ich (Wenn ich es ein einer Schleife laufen lasse) Out of Memory. Alle meine Rechtschreibfehler sind Urheberrechtlich geschützt!!
	Zitat

DieDolly Registriert seit: 22. Jun 2018 2.175 Beiträge	#4 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:21 Den Taskmanager kannst du direkt in die Tonne hauen.
	Zitat

DelTurbo Registriert seit: 12. Dez 2009 Ort: Eifel 1.193 Beiträge Delphi 2007 Architect	#5 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:26 Mit dem Proccess Explorer von Sysinternals sehe ich auch das der Speicher nicht mehr Freigeben wird. Alle meine Rechtschreibfehler sind Urheberrechtlich geschützt!!
	Zitat

DelTurbo Registriert seit: 12. Dez 2009 Ort: Eifel 1.193 Beiträge Delphi 2007 Architect	#6 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:32 Nachtrag: Das gleiche mit Freepascal unter Unix. Überprüft mit htop. Alle meine Rechtschreibfehler sind Urheberrechtlich geschützt!!
	Zitat

DenkDirNix Registriert seit: 13. Dez 2018 66 Beiträge Delphi 11 Alexandria	#7 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:33 Die Strings müssen auch per User-Code freigegeben werden.
	Zitat

DelTurbo Registriert seit: 12. Dez 2009 Ort: Eifel 1.193 Beiträge Delphi 2007 Architect	#8 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:36 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)? Alle meine Rechtschreibfehler sind Urheberrechtlich geschützt!!
	Zitat

DieDolly Registriert seit: 22. Jun 2018 2.175 Beiträge	#9 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:37 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.
	Zitat

DenkDirNix Registriert seit: 13. Dez 2018 66 Beiträge Delphi 11 Alexandria	#10 AW: SetLength(DynArray,0) gibt den speicher nicht frei 6. Mär 2020, 14:38 Nö, ganz billig mit markieren Code: Subject := ''; SendName := ''
	Zitat