Hatte grad nix zu tun, deshalb hier ein komplettes Beispiel:
Delphi-Quellcode:
program ConsoleRandom;
{$APPTYPE CONSOLE}
uses
Math,
SysUtils;
var
RangeMin, RangeMax: Integer;
begin
Randomize;
try
RangeMin := StrToInt(ParamStr(1));
RangeMax := StrToInt(ParamStr(2));
except
WriteLn('Please pass two integer values separated by a space character as argument!');
exit;
end;
Write(RandomRange(RangeMin, RangeMax));
end.
(Neue Konsolen-Anwendung erstellen und einfügen)
Aufruf z.B. mit
MeinExeName 10 20
für eine Zufallszwahl zwischen 10 und 20.
