Arbeitsspeicher läuft über - wie leeren

[Ykcim]

@ alfold
Hallo, vielen Dank für Deine Antwort.

Ich habe diesen Code als schlimmstes Beispiel genommen, aber ich habe das Problem auch in anderen, wesentlich einfacheren Proceduren. Dort halt nur nicht so schlimm. Mich stört es nicht, wenn während des Durchlaufens der Procedure der Speicherbedarf bei 2-3MB liegt. Ich wundere mich nur darüber, dass ich den Speicher nicht wieder freigeben kann. Wenn das möglich wäre, hätte ich ja kein Problem.

Könnt Ihr mir ein Beispiel geben, wie ich ein Array of string und ein Array of Array of string wieder aus dem Arbeitsspeicher bekomme?

Vielen Dank

Patrick

[1234567890987654321]

Und was ist daran so schlimm, wenn deine Anwendung mal 10 Mb braucht?
Heutzutage hat doch jeder 1Gb (oder mindestens 512 Mb)

[Ykcim]

Ganz einfach, dieser Speicher wird nicht wieder freigegeben. Bei jedem Aufruf der Procedure werden neue MBs reserviert und der reservierte Speicher für meine Anwendung steigt ganz schnell auf mehrere 100 MB - und das ist ein Problem, da ma Ende ein Speicherüberlauf den User zwingen würde, das Programm zu beenden.

Ich brauche etwas, damit ich den reservierten Speicher wieder freigeben kann...

Bitte um Hilfe!

Patrick

[alfold]

Jo, wenn Du fertig bist mit der Anzeige Deiner Daten, kannst Du alle Arrays mit
setlenght(meinarray, 0) den Arbeitsspeicher wieder Frei geben!(hast Du ja aus geklammert!)
oder spätestens wenn Du dein Prog beenden willst!!!
Auch wenn es Dich nicht stört mal ein paar M(G)B Arbeitsspeicher zu belegen, so wirdes auf anderen Rechner Probleme geben
Für die effiziente Nutzung solltest Du vielleicht vorher noch Prüfen ob es sinn macht die Arrays neu zusetzen und wenn ja, dann die Länge auf 0 setzen, wie oben gezeigt und dann erst die neue Länge festlegen! Schau Dir Deine For Schleifen an, dort kannst Du Dir viel Speicher sparen, wie ich es Dir aufgezeigt habe!

Gruss alfold

[Ykcim]

Hallo alfold,

danke für die Antwort. Ich habe die Passage ausgeklammert, weil ich keinerlei Veränderung dadurch gemerkt habe, ich Euch ab zeigen wollte, was ich schon ausprobiert habe...

Zitat:

Für die effiziente Nutzung solltest Du vielleicht vorher noch Prüfen ob es sinn macht die Arrays neu zusetzen und wenn ja dann die Länge auf 0 setzen, wie oben gezeigt und dann erst die neue Länge festlegen!

Hast Du einen Vorschlag für mich, wie ich das ändern kann. In der Procedure wird nämlich das Array of Array of string um eine Zeile vergrößert, in die dann geschrieben wird. Wenn ich die Länge vorher wieder auf '0' setze, dann sind die vorherigen Einträge ja alle wieder weg.

Warum habe ich den Speicher mit der nachstehenden Anweisung nicht wieder freibekommen?

Delphi-Quellcode:

SetLength(Rows1,0,0);         SetLength(Cols1,0);
  SetLength(Rows2,0,0);         SetLength(Cols2,0);
  SetLength(Rows3,0,0);         SetLength(Cols3,0);
  SetLength(Rows4,0,0);         SetLength(Cols4,0);
  SetLength(Rows5,0,0);         SetLength(Cols5,0);
  SetLength(Rows6,0,0);         SetLength(Cols6,0);
  SetLength(Rows7,0,0);         SetLength(Cols7,0);
  SetLength(Rows8,0,0);         SetLength(Cols8,0);
  SetLength(Rows41,0,0);        SetLength(Cols41,0);
  SetLength(RowsKZ,0,0);        SetLength(ColsKZ,0);
  SetLength(RowsFinal,0,0);     SetLength(ColsFinal,0);

Gruß
Patrick