Float ~ Currency ?

[lom]

Merhabalar. Veritabanımda ADET , BİRİMFİYAT ve TOPLAM alanım var. Firebird kullanıyorum. Toplam alanına Miktar ve aBirim Fİyatın çarpımını koymak istiyorum ama beceremiyorum.

Kod: Tümünü seç

dm.tblkasa.Edit;
dm.tblkasaTOPLAM.AsFloat:=StrToFloat(birimfiyat.Text)*StrToFloat(Adet.Text);

ADET : Numeric
Birim_Fiyat : Currency
Toplam : Currency (veritabanında float ama ben delphide currency özelliğini true yaptım).
Teşekkürler

[lom]

Arkadaşlar yardımınıza ihtiyacım var :
Sorunumu şu şekilde düzelttim :

Kod: Tümünü seç

procedure Tfrmkasa.HesaplaClick(Sender: TObject);
var
toplam,birimfiyat: Currency;
adet: integer;
begin
dm.tblkasa.Edit;
  Birimfiyat:= dm.tblkasaBIRIM_FIYAT.AsCurrency;
  Adet:= StrToInt(Adet.Text);
  toplam=birimfiyat * adet ;
  dm.tblkasaTOPLAM.AsCurrency:=Toplam;
  dm.tblkasa.Post;
  dm.tblkasa.Append;
  
dm.qtoplam.Close;
dm.qtoplam.Open;
Geneltoplam.Text:=dm.qtoplamSUM.AsString;  
end;

Ancak query sonucu gönderdiğinde virgüllü gönderiyo. Bunu yuvarlama yaparak sonucu elde edebilirim ama hesaplama da bi yanlışlık yaptığımı düşünüyorum. Yardımcı olursanız sevinirim . Kolay Gelsin