Fastreport fiyat yazı fontu

[COMMANDX]

Biraz matematik operatörleri ile halledilebilir veya string parse işleri
Floor, Ceil, Round yuvarlama yapmaktadır.
Alttaki Bu kod Örnekleri Yuvarlama yapmaz, Olduğu gibi geleni verir

USES STRUTILS; Eklemeyi unutmayın

begin
var
a:Extended;
begin
Edit2.Text:=RightStr(Edit1.Text,3); // bu kısım sağdan ondalıklı virgülü alır. Parse işleminin en basit yoludur
a:=strtofloat(edit1.text) - trunc(strtofloat(Edit1.Text)); //örnek 0,63 gibi bir sonuç alır Float virgüllü sayıdan çıkarılır
edit3.Text:=floattostr(a);
Edit4.Text:=IntToStr(Trunc(StrToFloat(Edit1.Text))); // Tam sayıyı yuvarlatmadan verir
end;