• 3 odgovora
  • 3.177 pregleda
ogranicenje decimala 26.06.2005. u 00:49 · pre 259 meseci #1
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;
Re: ogranicenje decimala 26.06.2005. u 12:08 · pre 259 meseci #3
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;
Re: ogranicenje decimala 26.06.2005. u 14:54 · pre 259 meseci #4
pogledaj u help-u fju. formatFloat ja nju uvek koristim
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme