Programmstart dauert lange

[BadenPower]

Zitat von Drumbo:

Moin
Ja ich habe eine AdoConnection welche sich auch beim Start verbindet. Die Datenbank und die zu Ihr gehörenden Tabellen werden jedoch faktisch in jedem Formular benötigt. Auch schon auf dem Main_form ist eine Dataset in Benutzung.

Dann schalte die Connection zum Testen einfach einmal aus, so dass sie sich nicht automatisch verbindet und schaue dann, wie lange Dein Programm nun benötigt bis die MainForm angezeigt wird.

[mjustin]

Zitat von BadenPower:

Zitat von Drumbo:

Moin
Ja ich habe eine AdoConnection welche sich auch beim Start verbindet. Die Datenbank und die zu Ihr gehörenden Tabellen werden jedoch faktisch in jedem Formular benötigt. Auch schon auf dem Main_form ist eine Dataset in Benutzung.

Dann schalte die Connection zum Testen einfach einmal aus, so dass sie sich nicht automatisch verbindet und schaue dann, wie lange Dein Programm nun benötigt bis die MainForm angezeigt wird.

Und ein Bonustipp: wenn es daran lag, kann man zur Entwurfszeit versehentlich geöffnete Verbindungen über eine GExperts Funktion (Set Component Properties) automatisch korrigieren lassen. GExperts trägt den gewünschten Wert in das Formular ein (z.B. Connect := False), so dass man das Risiko nicht mehr hat eine Anwendung auszuliefern die sich nach dem Start sofort mit dem Server verbinden will.

[Drumbo]

Also an der Connection lag es leider nicht.
Hab die Eigenschaft "Connection" und "KeepConnection" auf "False" gestellt.
Beide waren nach Stoppen der Zeit gleich langsam.
In meinem Projekt standen alle auf automatisch erzeugen. Werde jetzt einmal testen ob es klappt wenn ich sie später erzeuge und mich gleich melden.

Aber vielen Dank schonmal für die vielen Tipps!!

[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 von Drumbo:

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 von Drumbo:

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 Free der Instanz nicht auf nil zu setzen. Ein Prüfen (Instanz da oder nicht) ist dann nicht mehr möglich!