Hallo Delphi-Praxis-Team,
mein Programm stürzt ab, wenn ich die exeDatei benutze.
Aber in der
IDE-Umgebung läuft das Programm ohne Probleme. Ich habe mit Hilfe einer Showmessage Anweisung die Stelle herausgefunden, an der das Programm abstürzt.
Jetzt läuft die ausführbare Datei mit dem "Stop", also einer Showmessage Anweisung durch, aber halt mit einer ungewollten Meldung als Showmessage Anweisung. Folgend der Quellecode an der besagten Stelle:
Code:
Function TFormStart.LoescheObjektListe(ohneWarnmeldung:Boolean):Boolean;
Var geloescht,weiter:Boolean;
begin
geloescht:=False;
if ohneWarnmeldung then begin
weiter:=True;
end else begin
if Objekte.Count>0 then begin
if messageDLG('wollen Sie die vorhandenen "'+inttostr(Objekte.Count)+'" Objekte überschreiben',mtConfirmation,[mbYes,mbNo],0) = mrno then weiter:=False;
end;
end;
if weiter then begin
while Objekte.Count>0 do begin
OB:=Objekte[0];
OB.loeschen;
Objekte.Delete(0);
end;
Objekte.Clear;
geloescht:=True;
end;
Result:=weiter;
//showmessage ('Result= '+boolToStr(Result)+' weiter '+BoolToStr(weiter));
end;
Es ist natürlich eigentlich nicht möglich, auf diese Art einen Fehler zu erkennen. Aber vielleicht weis jemand, wo ich meine Aufmerksamkeit hin lenken muss, da ich so nicht weiter weis.
Also, Klammere ich am Schluss der Funktion dass showmessage aus, stürzt es an der Stelle ab. Mit der Unterbrechung durch eine Meldung, läuft das Programm nach der Meldung problemlos durch.
Die Funktion wird nach dem laden einer Filestream-Datei aufgerufen.
Danke einfach schon mal, für das Durchlesen.
Grüße aus dem Saarland,
der Eisenmann