[Delphi] Losowanie liczb ujemnych?

Norbi
2010-12-18 18:29
Norbi
0

Witam wszystkich ;)

Otóż mam problem z pewnym kodem i bardzo bym prosił o pomoc :D

Jest to procedura na losowanie Liczb w delphi, w tym przypadku do komponentu Tlabel:

var
X : Integer;
begin
Randomize;

X := Random(5);
if X = 0 then X := Random(3);
Label1.Caption := IntToStr(X);

I moje pytanie brzmi:

W jaki sposób mogę losować liczby ujemne?? -5, -2, -3 itp...??

Proszę o pomoc ;)

Pozdrawiam.

Pozostało 580 znaków

2010-12-18 18:34
Moderator

Rejestracja: 11 lat temu

Ostatnio: 2 miesiące temu

Lokalizacja: Szczecin

0

Najprościej chyba tak:

function RandomRange(const AFrom, ATo : Integer) : Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;

Wywołanie:

  Randomize; // <- Tylko raz na początku
  Caption := IntToStr(RandomRange(-10, 0));

Pozostało 580 znaków

Norbi
2010-12-18 18:50
Norbi
0

Dziekuje za pomoc, wszystko w jak najlepszym porządku :D

pozdrawiam.

Pozostało 580 znaków

2010-12-18 19:37
Moderator

Rejestracja: 12 lat temu

Ostatnio: 8 godzin temu

Lokalizacja: Wrocław

0

No weź olesio, jest prostszy sposób, niż pisanie własnej procedury ;)

X := -Random(10);

Pozostało 580 znaków

2010-12-19 02:40
Moderator

Rejestracja: 11 lat temu

Ostatnio: 2 godziny temu

Lokalizacja: Wrocław

0

Perełka?


"HUMAN BEINGS MAKE LIFE SO INTERESTING. DO YOU KNOW, THAT IN A UNIVERSE SO FULL OF WONDERS, THEY HAVE MANAGED TO INVENT BOREDOM."

Pozostało 580 znaków

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0