FreeAndNil() auf Array anwenden?

[Mr_G]

Zitat von Balu der Bär:

Zitat von Mr_G:

Das es danach zu Fehlern kommen muss wenn man versucht auf das Objekt (in diesem Fall ja Array) zuzugreifen ist doch logisch, oder?

Naja wenn ich ein Objekt nach FreeAndNil wieder erstelle, kann ich auch wieder damit arbeiten.

Aber es ging wie gesagt nicht um mich, wenn mich jemand solche Sachen fragt die ich selber nicht weiß muss halt die DP ran. Ich werde ihm also raten das Array anders zu leeren, ohne FreeAndNil.

Das habe ich dann falsch verstanden... aber egal, denn die Ursache der Fehler ist ja ausgemacht.
Wenn du dann deinen Rat gibst, ist der beste Weg afaik mit SetLength auf 0 setzen, wie inherited bereits schrieb.

[Balu der Bär]

Ja, habe ich bereits getan.

Übrigens interessant zu sehen was Delphi so alles zulässt...

[Khabarakh]

Zitat von Balu der Bär:

Nein, das eigentliche FreeAndNil(array) geht niemals schief.

Natürlich muss es schiefgehen, oder hast du schon einmal ein Array mit Destruktor gesehen ? Die einzige verbleibende Frage ist zu dem Zeitpunkt, wohin die Runtime springen wird und ob dieser Speicherbereich reserviert ist.
Folgendes Programm düfte beispielsweise Douglas-Adams-Fans erfreuen:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
   SysUtils;

var
   p: PInteger; // Je nach Geschmack auch ein TDynIntegerArray möglich
begin
   New(p);
   p^ := 1111638598;
   try
   FreeAndNil(p);
   except
      Readln;
   end;
   Dispose(p);
end.

Wobei durch Zufall auch hier nichts passieren kann, dann p^ einfach auf 4 setzen. Damit ist jedes Gelingen ausgeschlossen .

[add]
Oh mein Gott, macht der rote Kasten heute Blau ?
@Elivs: Ja wie, gibst du Objekte etwa nicht wie ich frei ?

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
   SysUtils, Types;

   type
      TDependencyObject = class // abhängig von meiner Grausamkeit
      public
         destructor Destroy; override;
      end;

var
   o: TDependencyObject;
   a: TIntegerDynArray;

{ TDependencyObject }

destructor TDependencyObject.Destroy;
begin
   Writeln('Hi, I''m your highly abused destructor!');
   inherited;
end;

begin
   o := TDependencyObject.Create;
   SetLength(a, 2);
   a[0] := PInteger(o)^;
   a[1] := 42;
   FreeAndNil(a);

   Readln;
end.