Problem mit Zufallspreis ermitteln

[SirThornberry]

Zitat von Corpsman:

Probiers mal mit

Delphi-Quellcode:

Var
  og, ug: Integer;
  aktuellerPreis: integer;
Begin
  OG := StrToInt(FloatToStr(StrToFloat(edit1.Text) * 10));
  UG := StrToInt(FloatToStr(StrToFloat(edit2.Text) * 10));
  aktuellerPreis := Random(OG - ug + 1) + ug;
  Label2.Caption := FloatToStr(aktuellerPreis / 10);
End;

also das ganze erst in einen String zu wandeln um dann doch wieder zurück zu Integer zu wandeln ist überflüssig. Einfach gleich den Float in einen String convertieren.

Delphi-Quellcode:

Var
  og, ug: Integer;
  aktuellerPreis: integer;
Begin
  OG := Trunc(StrToFloat(edit1.Text) * 10);
  UG := Trunc(StrToFloat(edit2.Text) * 10);
  aktuellerPreis := Random(OG - ug + 1) + ug;
  Label2.Caption := FloatToStr(aktuellerPreis / 10);
End;