Zitat von
Kroko1999:
oder du ruft kein
Randomize;
auf
Daran kann es nicht liegen, denn Randomize wäre die Reihenfolge halt bei jedem Programmstart die gleiche.
Bei mir geht es so ohne Probleme:
Delphi-Quellcode:
function RandomRange(min, max: integer): integer;
begin
result := 0;
if min > max then
exit;
result := random(max - min + 1) + min;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(RandomRange(4, 7));
end;
Nachtrag: Bitte den Code mit [delphi]-Tags umschließen.