probleme beim prozeduraufrufen

[Muetze1]

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.