Hallooooo semua penggemar delphi.....saya ada masalah pada type data nih....ada yg bisa bantu gaaaa " Saya Punya data seperti ini : Nama Type kode Varchar(5) Nama Varchar(30) Nilai Varchar(9) Data recordnya Kode Nama nilai 0001 budi 0.09 0002 adi 0.05 Nilai saya jumlahkan dan sript yg saya buat seprti ini : procedure Tfrm_perhitungan.Ad_dataCalcFields(DataSet: TDataSet); var hasil: integer; begin edit1.Text:=(intTostr(ds_ad_data.DataSet.RecNo)); hasil :=hasil+ad_datanilai.AsVariant; edit2.Text:=intToStr(hasil); end; Tapi kenapa hasil nya menjadi pembulatan yaaa......saya mau hasilnya "0.14" tolong pencerahannya.....dari semua penggemar delphi....trims yaaaa

Kalo gak mau rubah Type Field-ya. coba: hasil :=hasil+ad_datanilai.AsFloat; ato hasil :=hasil+ad_datanilai.AsCurrency;

Kalau saya melihat dari script yang anda tuliskan terletak pada: edit2.Text:=intToStr(hasil); IntToStr akan mengconvert nilai numerik ke string, nilai numerik merupakan bilangan bulat (dalam hal ini nilai bilangan apapun akan otomatis di konvert terlebih dahulu ke bilangan bulat). jadi solusinya adalah ganti IntToStr menjadi FloatToStr semoga membantu

untuk tipe data di my sql bisa gunakan Decimal sedangkan konversinya pake currency var A,B,C :currency; A:=strtocurr(Edit1.text); B:=strtocurr(Edit2.text); C:=(A+C); edit3.text:=currtostr(C); http://www.esnips.com/web/Maulaku/ http://maulaku.wordpress.com

klo utk tipe image di mysql apa ya..

BLOB

procedure Tfrm_perhitungan.Ad_dataCalcFields(DataSet: TDataSet); var hasil: integer;

sory kelupaan, anda perhatikan juga tipe variable anda itu integer. Solusi, ganti tipe variablenya dengan real.

trims yaaa pencerahan....duh ak coba dari semua solusi.....yg di berikan....cara dan ketemu solusinya....ak menggunakan type datanya pakai..."float" di MYsql dan variablenya "real" :D :D :D