Function für Vorzeichen?

[3_of_8]

Das geht schneller:

Delphi-Quellcode:

function signmultiply(const a, b: Extended): Extended;
begin
  result:=a;
  PByte(Integer(@result)+9)^:=PByte(Integer(@result)+9)^ xor
    (PByte(Integer(@b)+9)^ and (1 shl 7));
end;

c:=signmultiply(a, b) macht in etwa das: if b<0 then c:=-a else c:=a;