Hallo Programmierer,

weiß vielleicht jemand wie ich hier MeinArray korrekt freigeben kann?

Ich habe hier etwas im Forum gesucht aber nichts passendes gefunden...

markieren

Delphi-Quellcode:

var
   MeinArray : array of Variant;
   i : Integer;
begin
   (...)
   SetLength(MeinArray, i); // Zuweisung
   (...)
   ??? // Freigabe

end;

Viele Grüße

PaulJr.

SetLength(MeinArray, 0);

Delphi gibt dynamische Arrays auch selber frei, wenn sie nicht mehr gebraucht werden. Wenn also deine Funktion (inkl. einer lokalen dynamischen Variable) dann sowieso zu Ende ist, ist auch keine Freigabe nötig (es würde die FreigabeRoutine nur eben zweimal aufgerufen).

Hallo MKinzler,

DANKE,

so habe ich auch programmiert... nun wollte ich 100% sicher gehen, dass ich keinen Fehler mache,

da ich mich in einer Schleife befinde, wo ich diese Variable immer neu initialisieren muss, und kriege zur Laufzeit mein Lieblings Fehler:

Zu wenig Arbeitsspeicher für diese Operation

Dies bedeutet also, dass ich an anderen Stellen suchen muss.

Viele Grüße

PaulJr.

P.S.

Danke Sirius, leider befinde ich mich in einer Schleife...

Ständiges Freigeben und Neuanfordern von Speicher sollte man aber Vermeiden. weil er nicht unbedingt den Vorhandenen Speicherbereich erweitert sondern den neuen Speicher woanders allokiert, den Inhalt kopiert und dann den alten speicher freigibt. so kann es also vorkommen, das temorär etwa doppelt so viel Speicher benötigt wird.

Hallo MKinzler,

ich werde über Deine letzte Bemerkung etwas nachdenken bzw. etwas ausprobieren…

Sollte ich eine Lösung finden werde ich mich hier melden…

Viele Grüße

PaulJr.

Hallo Paul,

vielleicht solltest du dir in der Delphi Online-Hilfe mal das Kapitel zu Finalize() durchlesen.
Wieviele Elemente hat denn dein Array maximal?
Ist das Inkrement immer 1?
Welche Variants steckst du da rein?
Hast du Code in deinem Programm vorgesehen, der mit der Windows Speicherverwaltung kommuniziert?

Grüße vom marabu

für mich klingt es auch danach das hier der Speicher zu sehr fragmentiert.

Was ja auch nicht verwundert, wenn er in einer Schleife ständig die Größe eines dynamischen Arrays verändert.

Hallo Marabu, SirThornberry und MKinzler,

ich lese sehr aufmerksam was hier geschrieben wird.

Dieses Konstrukt brauche ich für TDataSet.Locate und genau für VarArrayOf(…)

Sobald ich mein Problem behoben habe werde ich mich hier mit Sicherheit melden…

Viele Grüße

PaulJr.