Zitat von
Corpsman:
Das Problem ist das Trunc
es schneidet den Nachkommateil ab
deswegen kommt immer 0 raus, so dürfte es besser sein.
Delphi-Quellcode:
procedure Form1.Zufallszahl_bilden();
var
Zufallszahl: extended;
Wert: string;
begin
Zufallszahl:= (random(1));
randomize;
Wert:= FormatFloat('0.00', Zufallszahl);
showmessage(floattostr(Wert);
end;
meinst du nicht, dass der Vorschlag s.o. einfacher ist?
p.s: habe vergessen, dass randomize noch aufgerufen werden muss, bevor man ne zahl generiert...
p.p.s:Komm
A schreibt man nicht mir "er"
