kleine Anfängerfrage

[himitsu]

@Coffeecoder: Das +1 ist bestimmt zuviel.

RandomRange

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;