würfelprogramm

[angos]

@Larsi,

Delphi-Quellcode:

function Zufallszahl(Von, Bis: Integer): Integer;
begin
  Result := Random(Succ(Bis - Von)) + Von;
end;

dafür gibts schon eine Funktion in Delphi [Edit] ab Delphi 6, danke Corpsman[/Edit] schau mal nach RandomRange

Gruß
angos