Random

[sakura]

Erstell mal schnell ein neues Projekt, packe einen Button auf das Formular und schreibe folgenden Code in das OnClick Ereignis des Buttons

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dblZufallszahl: Double;
begin
  dblZufallszahl := Random * 100;
  ShowMessage(FloatToStr(dblZufallszahl));
end;

......