Randomzahl -1 und 1

[idontwantaname]

so vielleicht ?

Delphi-Quellcode:

function GetRandomNumber: Double;
begin
  if Random > 0.5 then
    Result := 0.0001 + Random
  else
    Result := - Random - 0.0001;
end;