Zitat von
uwewo:
Hi,
versuche es mal so
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var Form: TForm;
begin
if Form = nil then Form := TForm.Create(Application);
Form.Show;
end;
Dies ist nicht nutzbar. Einfacher Grund: Die lokale Variable Form wird nicht initialisiert und enthält damit immer einen Zufallswert und kann damit mit einer sehr hohen Wahrscheinlichkeit ungleich Nil sein. Daher würde er ohne Erstellung der Form im Datennirvana eine Methode Show aufrufen -> es kracht im besten Falle. Auch wäre die Abfrage in diesem Falle hinfällig, da lokale Variablen bei verlassen der Methode/Procedure ihre Gültigkeit verlieren und damit ihren Inhalt. Wenn du die Methode/Procedure erneut aufrufst, steht nicht mehr das damalige drinne sondern ein zufälliger Inhalt.