[ XGhost @ 26.06.2005. 00:49 ] @
Ako podijelim neki broj dobijem rezultat npr 12,12354686 te mi ne odgovara
duzina brojeva. Kako da dobijem npr 12,12. Konkretan zadatak je slijedeci

procedure TForm1.Iznos;
var
A,B,C: Currency;
begin

A:= StrToCurr(Edit1.Text);
B:= StrToCurr(Edit2.Text);
C:= R / K ;
Edit3.Text:=CurrToStr(C);
end;
[ Nemanja Avramović @ 26.06.2005. 11:09 ] @
round(); ??? (ne znam cak ni da li postoji :) ali mora da ima tako nesto)
[ mzarko @ 26.06.2005. 12:08 ] @
Probaj i ovako

procedure TForm1.Button1Click(Sender: TObject);
var
A,B,C: Currency;
begin
A:= StrToCurr(Edit1.Text);
B:= StrToCurr(Edit2.Text);
C:= A / B ;
Edit3.Text:=format('%0.2f',[(C)]);
end;
[ tamnicar @ 26.06.2005. 14:54 ] @
pogledaj u help-u fju. formatFloat ja nju uvek koristim