|
Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
Turbo Delphi für Win32
|
Re: Function für Vorzeichen?
8. Sep 2006, 23:31
Halt, ich hab mir deins nochmal angeschaut - das dürfte tatsächlich noch schneller sein.
Deine Lösung funktioniert bei mir nicht. Little Endian Format? Und ich würde es so machen:
Delphi-Quellcode:
function Sign(e: Extended): Integer;
begin
result:=0-(PByte(Integer(@e)+9)^ shr 7) or 1;
end;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
|