delphi / batch kombinieren

[KingIR]

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.