salam para master delphi, bagaimana cara format tampilan rupiah dalam edit box menjadi Rp.###,###,###tetapi ketika disimpan didalam database menjadi#########,databse yg saya pakai mysql 5. terima kasih

masalah ini sudah pernah dibahas sebelumnya. coba anda cari dulu...

saya sudah coba buat coding seperti ini, tapi ketika diklik tombol simpan, hasil messagenya " project1.exe raised exception class eConverterror with message rp.200 (edit1=100 + edit2=100) is not valid floating point, kira2 kesalahannya dimana ya mohon bantuannya. maklum newbie terima kasih; procedure TForm1.Edit2Change(Sender: TObject); var Sjml:string[30]; Tsem:Integer; gaji,t_jabatan,Sjumlah : double; begin val(edit1.Text,gaji,Tsem); val(edit2.Text,t_jabatan,Tsem); Sjumlah:=gaji+t_jabatan; str(Sjumlah:30:0,Sjml); edit3.Text:=Sjml; sjumlah:=strtofloat(edit3.Text); edit3.Text := formatfloat('Rp.##,###,###',sjumlah); end; procedure TForm1.SimpanClick(Sender: TObject); begin ZQuery1.SQL.Clear; ZQuery1.SQL.Add('insert into coba (nilai1,nilai2,nilai3) values (:nilai1,:nilai2,:nilai3)'); ZQuery1.ParamByName('nilai1').AsFloat:=strtofloat(edit1.Text); ZQuery1.ParamByName('nilai2').AsFloat:=strtofloat(edit2.Text); ZQuery1.ParamByName('nilai3').AsFloat:=strtofloat(edit3.Text); ZQuery1.ExecSQL; end; procedure TForm1.Edit1Change(Sender: TObject); var Sjml:string[30]; Tsem:Integer; gaji,t_jabatan,Sjumlah : double; begin val(edit1.Text,gaji,Tsem); val(edit2.Text,t_jabatan,Tsem); Sjumlah:=gaji+t_jabatan; str(Sjumlah:30:0,Sjml); edit3.Text:=Sjml; sjumlah:=strtofloat(edit3.Text); edit3.Text := formatfloat('Rp.##,###,###',sjumlah); end;

coba ini : http://pascal-id.org/dpr/News-article-sid-152.pas semoga membantu dan bermanfaat...

misi cuma mau tanya untuk masalah diatas linknya nggak ada solusinya mungkin bisa diupdate dengan link baru thanks

dah ketemu solusinya mybad sorry