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.