Zufälliger Integer-Wert zwischen zwei zahlen

[Stevie]

Zitat von sakura:

Und ab Delphi 6

Delphi-Quellcode:

uses
  Math;

...
// function RandomRange(const AFrom, ATo: Integer): Integer;
Wert := RandomRange(1000, 2000);

......

Und hier die Definition dieser Funktion:

Delphi-Quellcode:

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