Assigned(MyObject) gibt falsches Ergebnis zurück?

[Brainshock]

Moin,

ich habe bei heute morgen eine Sache die ich ganz und gar nicht verstehe. Folgendes:

Delphi-Quellcode:

procedure TMyForm.MeineProzedur;
var
  MyObject: TMyObject;
begin
  ShowMessage('is assigned: ' + BoolToStr(Assigned(MyObject), True));
  MyObject:= TMyObject.Create;
  ...
end;

Die Antwort in meinem Programm auf das Assigned ist True, sollte es aber nicht False sein?
Das Objekt, lokale Variable, ist doch noch gar nicht erzeugt.

Das Programm kann auch nicht ausversehen ein globales Objekt genommen haben, lösche ich MyObjetct, so findet er die Variable nicht.

[himitsu]

es gibt schon das richtige Ergebnis zurück.

Assigned prüft nur ob MyObject <> nil
und da eine Objektinstanzvariable nicht selber initialisiert wird, mußt du es machen!
Und der lokale Variablenspeicher wird auch nicht geNullt ... sowas gibt es nur bei den Globalen und dem Objektvariable (denen im Objekt).

Delphi-Quellcode:

MyObject := nil;
ShowMessage('is assigned: ' + BoolToStr(Assigned(MyObject), True));
MyObject:= TMyObject.Create;

[Brainshock]

Danke.

Schräg nur, dass die Funktion mit der Überprüfung bis heute funktioniert hat.

[himitsu]

ja, wenn du Glück hast, dann wurde die Variable vorher von anderen Dingen (z.B. einem Constructor) initialisiert und es klappt.

wenn Delphi jetzt alle Variablen selber nochmal initialisieren (auf 0 setzen) würde, dann täte die Performance stark drunter leiden.