In nonVCL Fehler / Exceptions abfangen ?

[turboPASCAL]

Hi,

ich schon wieder.

da ich einem undefinierbarem Fehler auf der Spur bin, habe ich mir gedacht
man könne ja Quelltextteile mit try & except erst ein mal eingrenzen.
Leider ist dem anscheint nicht so, except wird ignoriert.

Testapp:

Delphi-Quellcode:

program Blah;

type
  DWORD = Cardinal;

function msgb(hWnd: DWORD; lpText, lpCaption: PChar; uType: DWORD): Integer;
  stdcall; external 'user32.dll' name 'MessageBoxA';

var
  n, i: integer;

BEGIN
  SetLastError(0);

  i := 1;
  dec(i);

  try
    n := 50 div i;
  except
    n := -1;
  end;


  if n <> 0 then msgb(0, 'Huch.', '!', 0);
END.

[Sir Rufo]

Ja und was soll da deiner Meinung nach passieren?

Soll da etwa eine MessageBox aufpoppen?

Die poppt auf, wenn n größer als 0
Im Exception-Fall ist n aber kleiner gleich 0 -> -1

cu

Oliver

[turboPASCAL]

Ja, Tippfehler n<>0.
Das ist eigentlich dazu da, damit die Compilermagic nix weg optimiert.

[Sir Rufo]

Zitat von turboPASCAL:

Ja, Tippfehler n<>0.
Das ist eigentlich dazu da, damit die Compilermagic nix weg optimiert.

Der Tippfehler hilft gegen die Compilermagic sehr interessant

Besteht der Fehler immer noch, oder ist das durch die Korrektur des Tippfehlers behoben?

cu

Oliver

[turboPASCAL]

Es geht darum das der Except-Block ignoriert wird.
Nehmen wir die SysUtils auf funktioniert der Except-Block wie erwartet.

Also kann man bei nonVCL try & except in die Tonne verschieben ?

[thkerkmann]

Ja, kann man.
Sysutils installiert das Exception Handling.

[Wolfgang Mix]

Dank für die Erkenntnis.
Fummele schon 'ne ganze Zeit mit dem Fehler herum,
konnte ihn aber bei automatisch eingebundenen SysUtils nicht reproduzieren.

Gruß

Wolfgang

[DeddyH]

Das kommt ja darauf an, wie man nonVCL definiert. Für mich ist das einfach der Verzicht auf TForm etc., das schließt SysUtils ja nicht aus.

[turboPASCAL]

Zitat von DeddyH:

Das kommt ja darauf an, wie man nonVCL definiert. Für mich ist das einfach der Verzicht auf TForm etc., das schließt SysUtils ja nicht aus.

Ja, das mag stimmen.

Ich habe es halt gern pure API.

[DeddyH]

[OT] Ich hab hier noch irgendwo die CD "TP 1.5 for Windows", wär das nix? [/OT]