SetLength(DynArray,0) gibt den speicher nicht frei

[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)?

[DenkDirNix]

Nö, ganz billig mit

Code:

Subject := '';
SendName := ''

[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.

[Stevie]

Zitat von DenkDirNix:

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

Was? Unfug, managed Types in Records werden implizit finalisiert, wenn das Array resized wird.

Zitat von DelTurbo:

Ich durchlaufe dann erst eine Schleife und gebe die TStringList mit .Free wieder frei.

Nur, damit es am Ende nicht an einem kleinen fehlenden s liegt - da sind 2mal TStringList in deinem Record, die gibst du beide frei, ja?

[DieDolly]

Zitat:

Was? Unfug

Meine Rede. So einen Quatsch habe ich auch noch nirgendwo gelesen.

Einfach die Record-Einträge mit Dispose vernichten und dann die Liste freigeben oder wenn du ein Array hast das auf 0 setzen.

[DelTurbo]

Klappt auch nicht. Es wird auch wesentlich mehr speicher belegt als in den zwei Strings ist.

[DieDolly]

Kommentier mal alles bis auf einen einzigen String in deinem Record und lass dann alles laufen.
Kommentier vorher aber auch alle Vorkommen der vorher kommentieren Datentypen überall.

Ich habe langsam den Eindruck, dass das Problem woanders ist.