Dynamische Array-Variable freigeben (ARRAY OF BOOLEAN)

[Gast]

Hi, 8)

Delphi (5) F1:

(...)
„
Dynamische Array-Variablen sind implizit Zeiger und werden mit derselben Referenzzählung verwaltet wie lange Strings. Um ein dynamisches Array freizugeben, weisen Sie einer Variablen, die das Array referenziert, den Wert nil zu, oder Sie übergeben die Variable an Finalize. Beide Methoden geben das Array unter der Voraussetzung frei, daß keine weiteren Referenzen darauf vorhanden sind. Wenden Sie auf dynamische Array-Variablen nicht den Derefenzierungsoperator (^) an, und übergeben Sie sie auch nicht an die Prozeduren New oder Dispose.“
(...)

So...

[code:1:8deeee572a]
TYPE

[sakura]

Ich habe mich erst gewundert, ob das vielleicht ein FAQ werden soll, da ich die Herkunft D5 F1 nicht gleich kappiert habe :mrgreen:

mit

Code:

TYPE 
   ArrayOfBoolean  = ARRAY OF Boolean;

hast Du erst einmal einen neuen Variablentyp deklariert. Anschließend musst Du noch eine Variable dieses Types deklarieren

Code:

var
  BooleanArray: ArrayOfBoolean;
begin
  ....
  SetLength(BooleanArray, 5];
  BooleanArray[0] := False;
  BooleanArray[1] := True;
  BooleanArray[2] := False;
  ...
  BooleanArray := nil;
  // oder - ich mache es immer wie folgt
  SetLength(BooleanArray, 0);
end;

[Gast]

Natürlich Sakura,

es sollte heißen:

[code:1:5ab5fd732d]
TYPE

[sakura]

Nutze einfach das

Code:

SetLength(BooleanArray, 0);

Beispiel. Den Rest übernimmt Delphi dann automatisch.

[jbg]

Bei mir funktioniert das aber unter D5 und D6.

Code:

type
  ArrayOfString = array of string;
  ArrayOfBoolean = array of Boolean;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: ArrayOfString;
  b: ArrayOfBoolean;
begin
  a := nil;
  b := nil;
end;

[Gast]

Hi Sakura, 8)

ok... so mache is es...hat mich bloß gewundert das es mit NIL nicht klappt...

Na..ja ... auf Dich ist wie immer Verlaß...

Besten DANK

Paul Jr.

[sakura]

Weisst Du, warum ich nicht die Deutsche Delphi Version nutze? Wegen der schlecht übersetzten Hilfe. Hier das Original

Zitat:

Zitat von Delphi 5 English

Code:

SetLength(MyFlexibleArray, 20);

allocates an array of 20 reals, indexed 0 to 19. Dynamic arrays are always integer-indexed, always starting from 0.
Dynamic-array variables are implicitly pointers and are managed by the same reference-counting technique used for long strings. To deallocate a dynamic array, assign nil to a variable that references the array or pass the variable to Finalize; either of these methods disposes of the array, provided there are no other references to it. Dynamic arrays of length 0 have the value nil. Do not apply the dereference operator (^) to a dynamic-array variable or pass it to the New or Dispose procedure.

Vielleicht hilfts, wie auch immer, am Ende mit SetLength(ArrayName, 0) wieder freigeben.

[Gast]

Ach so... mein Problem aber ist...das ich es später mit

IF a = NIL THEN

dieses Wert abfrage... was schlägst Du jetzt vor...?

Gruß

Paul Jr.

[jbg]

if Length(a) = 0 then ...

[Gast]

Hi Leute,

jetzt sehe ich (in Englisch,he,he)...

Danke jbg ... Danke Sakura

Gruß

Paul Jr.

[sakura]

Zu spät... Siehe jbg

[Bomberbb]

Hatte jetzt auch ein nettes Problem damit.
Ich habe bis jetzt die dynamischen Arrays immer mit setlength(a,0) freigegeben. Dabei war ich mir nicht sicher, ob damit wirklich alles freigegeben wird. Also auch in die Hilfe geschaut und dann mit
finalize(a) freigegeben.
Nun gabs aber bei einigen Projekten den internen Fehler L470!
a:=nil funktioniert.

Jetzt frag ich mich noch ist mit a:=nil wirklich alles freigegeben, oder muss ich vorher doch noch setlength benutzen?

Gruß

BBB

[DeddyH]

Das sollte Dir FastMM verraten können. Ich vermute aber, dass das SetLength() notwendig ist.

[himitsu]

SetLength(X, 0) leitet den Aufruf an DynArrayClear weiter und dieses gibt das Array frei.

Delphi-Quellcode:

procedure DynArraySetLength(var a: Pointer; typeInfo: Pointer; dimCnt: Longint; lengthVec: PLongint);
...
begin
  p := a;

  // Fetch the new length of the array in this dimension, and the old length
  newLength := PLongint(lengthVec)^;
  if newLength <= 0 then
  begin
    if newLength < 0 then
      Error(reRangeError);
    DynArrayClear(a, typeInfo);
    exit;
  end;

  ...

(DynArraySetLength ist die interne Funktion von SetLength bei einem dynamischen Array)

X := nil; ruft bei dynamischen Arrays direkt das DynArrayClear auf, ohne Umweg über SetLength.
(Compiler-Magic ist doch was Tolles :mrgreen: )

PS: sobald ein dyn. Array nicht mehr benötigt wird, gibt Delphi dieses automatisch frei.
(also bei einer lokalen Array-Variable geschieht das in dem Code, welcher sich quasi im end; der Prozedur versteckt)


PS: fehlen eigentlich nur bei mir große Teile von Beitrag #1 und #3?

[Bomberbb]

Ok, also kann man nach eigenem Gusto entscheiden...

Prima, danke!

[himitsu]

Jupp, kann man.

Ich laß es fast immer automatisch freigeben (Delphi kümmert sich schon drum ... ist quasie genauso, wie mit den Stringvariablen),

außer wenn bei Globalen, Klassenvariablen oder innerhalb einer Prozedur dieses einmal, wärend der "Lebenszeit" des Arrays, nötig sein sollte.