Yuvarlama Sorunu?

[Ahmett-AydiNN]

Arkadaşlar Delphide Bir Stok Otomasyonu Yaptım. Stok Girişinde Ondalıklı Bir Sayı İle(0,75) Tam Sayıyı Sonuç Elde Etmek istiyorum. Fakat Ne Yaptımsa Hep Veri Türü Uyuşmazlıgı Hatası Alıyorum. Dbgridde Bir Türlü Göremiyorum.. Lütfen Yardımcı Olabilecek Varsa Bekliyorum..

Delphideki Kod Satırım:

procedure TForm4.BitBtn2Click(Sender: TObject);
var
b,c,a:Double;
begin
a:=StrToFloat(DBEdit3.Text);
b:=StrToFloat(DBEdit4.Text);
c:=a*b;
DBEdit5.Text:=FloatToStr(c);
DBNavigator1.BtnClick(nbpost);
end;

[Lost Soul]

Arkadaşlar Delphide Bir Stok Otomasyonu Yaptım. Stok Girişinde Ondalıklı Bir Sayı İle(0,75) Tam Sayıyı Sonuç Elde Etmek istiyorum. Fakat Ne Yaptımsa Hep Veri Türü Uyuşmazlıgı Hatası Alıyorum. Dbgridde Bir Türlü Göremiyorum.. Lütfen Yardımcı Olabilecek Varsa Bekliyorum..

Delphideki Kod Satırım:

procedure TForm4.BitBtn2Click(Sender: TObject);
var
b,c,a:Double;
begin
a:=StrToFloat(DBEdit3.Text);
b:=StrToFloat(DBEdit4.Text);
c:=a*b;
DBEdit5.Text:=FloatToStr(c);
DBNavigator1.BtnClick(nbpost);

yuvarlama için de Round, RoundTo veya RoundUp kullanabilirsiniz.
end;

DBEdit5.Text:=FloatToStr(c);
yerine
DBEdit5 in işaret ettiği alanı kullanın.
Örneğin KUllandigimiz_tablo.FieldByName('KAYIT_ADI').Value := c;