Ich habe ein großes Problem mit meinem kleine Projekt !
Wenn ich das Programm verlassen möchte, habe ich eine CPU Auslastung von 100 % im TaskManager Egal ob ich es mit Delphi oder ohne Starte.
Leider finde ich den Fehler nicht, und ich weis auch nicht wie ich jetzt noch Testen könnte wo der Fehler liegt.
hier mal der Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TFilmFact.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
check: integer;
begin
check := application.MessageBox('FilmFact Beenden ?', 'FilmFact Beenden ?', 1
+ 32);
if check = IDCANCEL then
CanClose := False
else
begin
DM.IBData.Connected := False;
DM.IBTransData.Active := False;
DM.IBFilme.Active := False;
CanClose := True;
end;
end; |
Gibt es eine möglichkeit zu testen wo der Fehler ist ? im Quellcode sehe ich keinen !
Irgend wo bleibt das Prgramm hängen !
