Randomzahl -1 und 1

[marabu]

Hallo Matti,

gefällt dir das?

Delphi-Quellcode:

function RandomSign: Integer;
begin
  if Odd(Random(1))
    then Result := 1
    else REsult := -1;
end;

Grüße vom marabu