Random zwischen zwei Zahlen

[Pseudemys Nelsoni]

ich wusste nichtmal das delphi ne eigene funktion hat....ich hatte sie mir damals so geschrieben:

Delphi-Quellcode:

function Rand(RandFrom, RandTo: integer): integer;
begin
  if RandTo > RandFrom then
  begin
    Randomize;
    Repeat
      Result := Random(RandTo);
    until Result > RandFrom-1;
  end
  else Result := 0;
end;