Zitat von
Hawkeye219:
Dax, diesmal muß ich dich enttäuschen - SHR erwartet einen ganzzahligen Operanden.
Oops, sowas hab ich mir schon gedacht
Da hab ich wohl schneller getippt als gedacht.
Gings denn so?
Delphi-Quellcode:
function Sign(e: Extended): Integer;
type
PExtendedRec = ^TExtendedRec;
TExtendedRec = record
case Integer of
0: (e: Extended);
1: (a: Array[0..9] of Byte);
end;
begin
Result := (0 - (PExtendedRec(@e)^.a[0] shr 7)) or 1;
end;