Ein Cast mit i := - Integer( w );
sollte funktionieren.
wenn man funktionieren mit "da kommt jetzt keine
Exception mehr" übersetzt dann ja:
Delphi-Quellcode:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var w:LongWord;
i:Integer;
begin
w:= High(LongWord);
i:=-Integer(w);
ShowMessage(IntToStr(w)+' / '+IntToStr(i));
end;
Das dürfte aber nur in bestimmten Fällen kein Problem sein