Programmstart dauert lange

[Drumbo]

Soo:

Lag an den automatischen Erstellungen. Danke dafür.

Jetzt noch zwei kurze Fragen zum Erzeugen der einzelnen Formulare:

1. Geh ich richtig in der Annahme, dass ich immer erst überprüfen muss ob die Unit bereits erzeugt wurde?
2. Wie mach ich das?

[DeddyH]

Per Standard legt Delphi in jeder Formularunit eine globale Variable vom Typ des Formulars an. Die kannst Du auf Assigned prüfen.

Delphi-Quellcode:

uses ..., ZweiteFormularunit;

...
if not Assigned(ZweitesFormular) then
  Application.CreateForm(TZweitesFormular, ZweitesFormular);
ZweitesFormular.Show;

[Drumbo]

Danke
Hab jetzt einiges zu ändern :)

[QuickAndDirty]

Zitat:

Zitat von Drumbo (Beitrag 1287422)

1. Geh ich richtig in der Annahme, dass ich immer erst überprüfen muss ob die Unit bereits erzeugt wurde?

Nicht zwingend.
Du kannst es ja auch mehrfach erzeugen und Anzeigen wenn du das möchtest.
Du Könntest alle Formulare mit namen bei ihrem Owner registrieren. Dann kannst du doppelte vermeiden.

Das Problem mit der Globalen Variable in der Unit des Formulars ist das sie nicht auf nil gesetzt wird wenn das Formular geschlossen wird.
Und es ist eine Globale Variable...das will man ja in richtigen Anwendungen die längere Zeit gepflegt werden vermeiden.

[Sir Rufo]

Zitat:

Zitat von Drumbo (Beitrag 1287422)

1. Geh ich richtig in der Annahme, dass ich immer erst überprüfen muss ob die Unit bereits erzeugt wurde?
2. Wie mach ich das?

1. Falsch, eine UNIT wird eingebunden aber nicht erzeugt. In der Unt befinden sich Klassenbeschreibungen aus denen man dann Instanzen erzeugen kann.
2. s.o. gar nicht - :)

Ja und diese globalen Variablen sind einfach ein Kreuz, womit man (meistens Anfänger auf dem Weg zum Fortgeschrittenen) immer wieder gerne auf die Nase fällt, weil jetzt erkannt wird, dass man von einer Klasse mehrere Instanzen erzeugen kann - aber es funktioniert nicht so richtig.

Delphi-Quellcode:

TForm1 = class( TForm )
procedure Foo;
procedure Bar;
end;

var
  Form1 : TForm1;

implementation

procedure TForm1.Foo;
begin
  Form1.Bar; // <- das wird jetzt lustig, von Zugriffsfehlern bis zum es funktioniert gar nichts oder an der falschen Stelle ist alles dabei

  // DARUM

  Self.Bar; // wir meinen DIESE Instanz

  // ODER EINFACH NUR

  Bar;
end;

Sehr beliebt ist auch, diese globalen Variablen beim

Delphi-Quellcode:

Free

der Instanz nicht auf

Delphi-Quellcode:

nil

zu setzen. Ein Prüfen (Instanz da oder nicht) ist dann nicht mehr möglich!