[Delphi] Losowanie liczb ujemnych?

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.

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));
0

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

pozdrawiam.

0

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

X := -Random(10);
0

Perełka?

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