Forum: Programmieren allgemein
by himitsu,
6. Apr 2009
arg ... Min *geändert hab*
Forum: Programmieren allgemein
by himitsu,
6. Apr 2009
Random = Float
Random(x) = Integer
also Random liefert schon einen Integer :zwinker:
(da muß der Integer nicht erst nach Float konvertiert werden und dann zurück ... Trunc ist ja nicht für Integer da und verlangt einen Float ... ergibt also erstmal eine Implizite Typumwandlung :angel2: )
function TForm1.ZufallszahlErstellen(): Integer;
begin
Result := Random(52) + 1;
end;
Forum: Programmieren allgemein
by himitsu,
6. Apr 2009
Da Math.Min Inline-Code erzeugen sollte, ergitbt das wohl auch fast das selbe Ergebnis.
Wert := Min(Zufallszahl mod 13, 10);