Dik
p.s.: potrebujem to hned, zajtra na obed to uz nebude aktualne
Dopredu vdaka za vsetku pomoc, kazdy bude odmenny k+
Kód: Vybrať všetko
Str(cislo:10:2, text);Kód: Vybrať všetko
text := FloatToStrF(cislo, ffNumber, 10, 2);
Kód: Vybrať všetko
X:=RoundTo(X,-2);Kód: Vybrať všetko
FormatFloat("0.00",X);