Arbeitsspeicher läuft über - wie leeren

**xZise**

Moin,

Delphi-Quellcode:

			setlength(Cols4,15);//<----???? wird speicehr belegt

Cols4:=Cols41;

setlength(Cols4,15);//<---- wird neuer belegt

Genau das ist das Problem.
Wenn du ein SetLength mit exakt der gleichen Größe machst, wird einfach nur neuer Speicher reserviert und der Alte nicht freigegeben → Voilà! Unser Speicherleck!

http://www.delphipraxis.net/153654-s...ml#post1041224

Ich wäre mir da nicht sicher. Oder habe ich da was übersehen?

MfG
Fabian

**alfold**

Zitat von xZise:

Moin,....Ich wäre mir da nicht sicher. Oder habe ich da was übersehen?

MfG
Fabian

Nein hast Du nicht

. Aber er verwendet doch das erste array nicht. Sollte also nur der Hinweis sein das er ein Array erstellt und es nicht benutzt. Hatt er selber schon korrigiert

@Ykcim, mach mal nach

zusammenfalten · markieren

Delphi-Quellcode:

			Function......

var

   .....

begin

 SetLength(Cols, 0);

 .....

 .....

if Assigned(MySQLRes) then

begin

    // zurückgelieferte Anzahl der Spalten

    ColCount := mysql_num_fields(MySQLRes);

    SetLength(Cols, ColCount);

    SetLength(Rows, ColCount, 0);

Gruss alfold

**Teekeks**

Warum ist den das hier Auskommentiert?

markieren

Delphi-Quellcode:

			         // gespeicherte Abfrage wieder freigeben

         {mysql_free_result(MySQLRes);} //←Das da

Da wird doch der Speicher wieder freigegeben!

**Ykcim**

Leider keinerlei Veränderungen. Habe es mit dem Taschenrechner bei mehrfacher Wiederholung getstet. Immer das gleiche Muster... seufz

**Ykcim**

@Teekeks
Danke, danke, danke, danke!!!!

Ich habe keine Ahnung, warum das auskommentiert war!

Aber das war die Lösung. Jetzt komme ich nicht mehr über 10MB -
auch nach x-maligen Ausführen!!!!

Nocheinmal DANKE - das Ihr drangeblieben bist!!!

**Teekeks**

Zitat von Ykcim:

@Teekeks
Danke, danke, danke, danke!!!!

Ich habe keine Ahnung, warum das auskommentiert war!

Aber das war die Lösung. Jetzt komme ich nicht mehr über 10MB -
auch nach x-maligen Ausführen!!!!

Nocheinmal DANKE - das Ihr drangeblieben bist!!!

Bitte, Bitte.
Gern geschehen

Manchmal sieht man den Wald vor lauter Bäumen nicht

Arbeitsspeicher läuft über - wie leeren

AW: Arbeitsspeicher läuft über - wie leeren

AW: Arbeitsspeicher läuft über - wie leeren

AW: Arbeitsspeicher läuft über - wie leeren

AW: Arbeitsspeicher läuft über - wie leeren

AW: Arbeitsspeicher läuft über - wie leeren

AW: Arbeitsspeicher läuft über - wie leeren

Forumregeln

Teekeks Registriert seit: 19. Okt 2008 Ort: Dresden 765 Beiträge FreePascal / Lazarus	#3 AW: Arbeitsspeicher läuft über - wie leeren 19. Aug 2010, 13:48 Warum ist den das hier Auskommentiert? markieren Delphi-Quellcode: // gespeicherte Abfrage wieder freigeben {mysql_free_result(MySQLRes);} //←Das da Da wird doch der Speicher wieder freigegeben! Peter "Div by zero Error" oder auch: "Es geht auch ohne Signatur!".
	Zitat

Ykcim Registriert seit: 29. Dez 2006 Ort: NRW 856 Beiträge Delphi 12 Athens	#4 AW: Arbeitsspeicher läuft über - wie leeren 19. Aug 2010, 13:55 Leider keinerlei Veränderungen. Habe es mit dem Taschenrechner bei mehrfacher Wiederholung getstet. Immer das gleiche Muster... seufz Patrick
	Zitat

Ykcim Registriert seit: 29. Dez 2006 Ort: NRW 856 Beiträge Delphi 12 Athens	#5 AW: Arbeitsspeicher läuft über - wie leeren 19. Aug 2010, 14:37 @Teekeks Danke, danke, danke, danke!!!! Ich habe keine Ahnung, warum das auskommentiert war! Aber das war die Lösung. Jetzt komme ich nicht mehr über 10MB - auch nach x-maligen Ausführen!!!! Nocheinmal DANKE - das Ihr drangeblieben bist!!! Patrick Geändert von Ykcim (19. Aug 2010 um 14:46 Uhr)
	Zitat