Dynamisches Array verkleinern

[dominikkv]

Hi

ich hab ein dynamisches Array:
var DynArray: Array of Integer; Um Werte reinzuschreiben muss ich erst einmal eine Länge setzen:
SetLength(DynArray, 20); Wenn ich das Array vergrößern will rufe ich einfach nochmal SetLength auf:
SetLength(DynArray, 35); Ich habe bisher, um das Array wieder zu verkleinern, wieder SetLength aufgerufen, mit einem kleineren Wert.
Nun lese ich:

Zitat von Markt&Technik: Jetzt lerne ich Delphi:

Um das Array zu verkleinern, muss jedoch die Copy-Funktion benutzt werden...

Um das Array zu verkleiner müsste ich nun folgendes machen:
DynArray := Copy(DynArray, 0, 10); Und nun zu meiner Frage:
Kann ich das auch mit SetLength machen oder hab ich dann ein Speicher-Leak?
Ich müsste dann nämlich alle bisherigen Projekte umschreiben^^

mfg.Dominik

[marabu]

Hallo Dominik,

du wirst das eventuell untersuchen müssen, denn Borland schreibt zum Thema dynamische Arrays etwas anderes:

... Um ein dynamisches Array abzuschneiden, übergeben Sie es an SetLength oder Copy und weisen das Ergebnis wieder der Array-Variablen zu. Die Prozedur SetLength ist normalerweise schneller. ...

Vergrößern geht nur mit SetLength(), verkleinern auch mit Copy() und automatischer Freigabe des Originals.

Grüße vom marabu

[sirius]

Ist mir auch.

Intern wird Reallocmem aufgerufen und damit dürften keine Speicherprobleme auftreten.
Auch ein Blick ins CPU-Fenster bei einem Test zeigt, dass der Memorymanager eingreift und das Array kürzt.

[pstruh]

Hallo Dominik,
ich verwende in meinen Programmen immer (und ohne Probleme)...
 SetLength(MyArray,High(MyArray)+2) zum vergrößern, und
SetLength(MyArray,High(MyArray) zum verkleinern.

Aber nun auch von mir eine Frage, die meine Unkenntnis der tieferen Vorgänge in Delphi offenbart: Ist es notwendig am Programmende das dynamische Array mit
MyArray:=nil wieder zu dereferenzieren - oder ist das völlig überflüssig, da das Programm mit seiner Beendigung (automatisch) alles aus dem Speicher entfernt?
Gruß

[dominikkv]

Ok, Danke für eure Antworten

Dann ist SetLength ja sogar besser als Copy...
Da kommt mir so manches ein bisschen komisch vor was in diesem Buch steht^^

Zitat von pstruh:

Aber nun auch von mir eine Frage, die meine Unkenntnis der tieferen Vorgänge in Delphi offenbart: Ist es notwendig am Programmende das dynamische Array mit
MyArray:=nil wieder zu dereferenzieren - oder ist das völlig überflüssig, da das Programm mit seiner Beendigung (automatisch) alles aus dem Speicher entfernt?
Gruß

Wenn du das Programm komplett beendest wird eh der ganze Speicher wieder freigegeben...
Und wenn du den Speicher zur Laufzeit freigeben willst einfach (wie wir grad gelernt haben^^) Setlength(MyArray, 0); aufrufen.