Gleitkommafehler bei MessageDlg

[FBrust]

Hallo,

beim Ausführen des Codes

Delphi-Quellcode:

procedure TfrmOP_New.PrintUMB(intUMBID: integer);
var strMsg  : string;
begin
    strMsg := 'Möchten Sie das zugeordnete Unfallmerkblatt drucken?';
    if MessageDlg(strMsg, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      with dmUMB.tblSD_UMB do begin
        Open;
        .....

bleibt das Programm mit der Exception "EInvalidOP" und der Meldung "Ungültige Gleitkommaoperation" stehen. Die Zeilenmarkierung steht auf der MessageDlg-Zeile.

Weiss zufällig jemand, wie das zustandekommt, ich seh nämlich keine Gleitkommawerte oder hab ich da was komplett verpeilt?

Grüße
Frank

[Christian Seehase]

Moin Frank,

irgendwie möchte ich behaupten, dass der Fehler von einer anderen Stelle herrührt.
Hast Du schon mal versucht das Projekt neu zu erzeugen, und dann zu testen?

[FBrust]

Hallo Christian,

danke für Deine Antwort.

Ich bin das Projekt mal im Einzelschritt durchgegangen, aber das war auch nicht sehr hilfreich, nach der letzten Programmzeile, unmittelbar vor dem Sprung auf die MessageDlg-Anweisung, kam der Fehler.

Das Programm kam dabei aus der MDIWallpaper-Komponente von Robert Rossmair. Teilweise wurde auch eine Zugriffsverletzung im Modul "qrpt50.bpl" angezeigt. Wenn ich die MessageDlg-Zeile auskommentiert habe, hat alles einwandfrei funktioniert.

Ich habe nun statt der Abfrage "Möchten Sie..." eine Checkbox ins Formular eingebaut, damit läufts.

Grüße
Frank