Zufallszahl mit Kommerstellen

[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;