Jak to zaokrąglić??

0

Witam,
Mam taki programik:

var
i : integer;
suma,suma1,suma2 :single;
z,y,yy:string;
begin
Suma:=0;
for I:=0 to ListView1.Items.Count-1 do Suma:=suma+StrToFloat(ListView1.Items[I].Subitems[6]);
z:=floattostr(suma);
Label27.Caption := z;

zmienna z zwraca liczbe w postaci 123,1234567890

Jak to najprościej zaokrąglić do 2 miejsc po przeciku??

Próbowałem z trunc i round -ale coś mi nie wychodzi ;(

Pozdrawiam,
North :)

0

z := FormatFloat('0.00', Suma);

0

działa, dzięki WIELKIE :)

Pozdrawiam North :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1