Exe Datei hängt beim ausführen ohne IDE

[WM_CLOSE]

:glaskugel::glaskugel::glaskugel:

Vielleicht kannst du uns sagen wo genau das prog hängt, kannst du mal messen wie lang eine Funktion dauert und uns dann mal den Source der kritischen Funktionen oder schleifen geben.So könnte man die Laufzeit einer Prozedur messen:

Delphi-Quellcode:

procedure TForm1.Form1Create(Sender:TObject);
begin
  AllocConsole;
end;
procedure TForm1.Form1Destroy(Sender:TObject);
begin
  FreeConsole;
end;

procedure TForm1.DoSth(Param1:Integer);
const
  KritischerWert=10;
var
  cTime:Cardinal;
  cDifferenz:Cardinal;
begin
  cTime:=GetTickCount

  //hier etwas machen

  cDifferenz:=(GetTickCount-cTime);
  if cDifferenz > KritischerWert then
    WriteLn(Format('Die Funktion DoSth hat %d ms gedauert Parameter: %d',[cDifferenz, Param1]));
end;

[p80286]

Wie wäre es denn, einmal genau zu definieren was "Hängen" bedeutet?
So funktioniert das Repaint bei Labels, die auf Autosize stehen, manchmal nicht. Da bleibt schlicht nicht genug Zeit für eine ordentliche Darstellung.
(Wird das Programm aus der IDE gestartet tritt das natürlich nicht auf)

Gruß
K-H

[xxsasch4xx]

Liegt warscheinlich am PC..
der ist irgentwie voll schlecht der stürzt auch öfter mal ab. ( das ist der von der schule)

[rollstuhlfahrer]

Dann beobachte mal deinen Prozess mit Process Explorer (Task-Manager dürfte wahrscheinlich deaktiviert sein). Ansonsten dürfte es vielleicht noch ein wenig Optimierungspotential beim Laden/Zeichnen geben.

Bernhard

PS: Oder läuft es daheim wesentlich schneller?