Zufälliger Integer-Wert zwischen zwei zahlen

[Jens Schumann]

Zitat von Pseudemys Nelsoni:

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;

kannste dann aufrufen mit:

Var := Rand(minimum, maximum);

Das ist völlig unbrauchbar. 1. viel zu viel Code 2. viel zu langsam. 3. Randomize sollte nur einmal im Programm aufgerufen werden. z.B. beim Programmstart