Verständnisfrage Assigned vs nil

[p80286]

Zitat von Rollo62:

Also ich habe eine einfache Regel: IMMER Assigned() benutzen ...

Wozu = nil benutzen ? Das bringt doch nur zusätzliche Fehlermöglichkeiten rein.

Ich sehe das ähnlich.

z.B.

Delphi-Quellcode:

var
  MyFileList : Tstringlist;
....

if assigned(Myfilelist) then
  Myfilelist.Clear
else
  MyFilelist.create;
// mach irgendwas

MyFilelist.......// irgendwas oder auch nichts

Würde ich auf NIL testen müßte beim ersten Eintritt sichergestellt sein daß eine Initialisierung mit NIL vorgenommen wurde. Ebenso müßte immer ein .FreeandNil durchgeführt werden, denn ein einfaches .Free ist u.U. zu wenig.

Gruß
K-H

Nachtrag:
Ich weiß daß es einen Beitrag gab der begründete warum FreeandNil nicht optimal ist. Aber bisher hab ich nur die gegenteilige Aussage gefunden und einmal "schon wieder FreeandNil" Augenrollen.

[Fritzew]

Zitat von p80286:

Ich sehe das ähnlich.

z.B.

Delphi-Quellcode:

var
  MyFileList : Tstringlist;
....

if assigned(Myfilelist) then
  Myfilelist.Clear
else
  MyFilelist.create;
// mach irgendwas

MyFilelist.......// irgendwas oder auch nichts

Würde ich auf NIL testen müßte beim ersten Eintritt sichergestellt sein daß eine Initialisierung mit NIL vorgenommen wurde. Ebenso müßte immer ein .FreeandNil durchgeführt werden, denn ein einfaches .Free ist u.U. zu wenig.

Gruß
K-H

Äh das must Du jetzt erläutern.....

Zitat:

Würde ich auf NIL testen

if assigned(Myfilelist) then ist genau das selbe wie
if Myfilelist<>nil then und wie soll assigned helfen bei FreeAndNil und .Free? Das eine hat doch mit dem anderen nichts zu tun?

[Uwe Raabe]

Folgender Code:

Delphi-Quellcode:

var
  instance: TObject;
begin
  if Assigned(instance) then;
  if instance <> nil then;
end;

ergibt compiliert (ohne das Lead-In/Out der Methode):

Delphi-Quellcode:

Unit475.pas.37: if Assigned(instance) then;
005FD1D0 837DF800         cmp dword ptr [ebp-$08],$00

Unit475.pas.38: if instance <> nil then;
005FD1D4 837DF800         cmp dword ptr [ebp-$08],$00

[p80286]

Ich muß Abbitte leisten
nach einem liste.Free ist ein Assigned(liste ) true und ein liste=NIL natürlich false.

Dementsprechend ist ein .FreeandNil (falls anwendbar) einem .Free vorzuziehen falls die Möglichkeit besteht, das das Objekt noch einmal genutzt wird.

Gruß
K-H

[himitsu]

Zitat:

Delphi-Quellcode:

else
  MyFilelist.create;

*peng*

[TiGü]

Zitat von himitsu:

Zitat:

Delphi-Quellcode:

else
  MyFilelist.create;

*peng*

Feuer und Mistgabeln!

[Rollo62]

Ich kanns mir nicht verkneifen dieses alte Thema nochmal hochzuholen.
Weil es dazu hier eine sehr schöne und komplette Beschreibung gibt.