Arsip: Operasi aritmatik pada Edit untuk Form Penjualan...

 
user image
more 13 years ago

ii_irwan

Saya mau tanya.. SAYA punya form yang isinya edit1a,edit1b,edit2a,edit2b, edit1 , edit2, edit3 edit3 adalah hasil dari edit1+edit2 edit1 = hasil jumlah dari edit1a dan edit1b edit2 = hasil jumlah dari edit2a dan edit2b saya memakai operasi ini untuk mengoperasikan penjumlahan .. edit1.text := Inttostr(strtoint(edit1a.text)+strtoint(edit1b.text)); edit2.text := Inttostr(strtoint(edit2a.text)+strtoint(edit2b.text)); Edit3.text := Inttostr(strtoint(edit1.text)+strtoint(edit2.text)); di event formshow saya set edit1a,edit1b,edit2a,edit2b,edit1,edit2,edit3 dengan nilai 0 dengan cara edit1.text := '0'; begitupun jg edit2 dan edit3 yang ingin saya. tampilkan adalah... saat form di tampilkan . edit1a,edit1b,edit2a,edit2b,edit1,edit2,edit3 nilainya langsung terset seperti di event formshow. di edit1a pada event OnChange saya beri perintah. Edit1.text := Inttostr(strtoint(edit1a.text)+strtoint(edit1b.text)); (begitupun juga di edit1b event OnChange) di edit2a pada event OnChange saya beri perintah. Edit2.text := Inttostr(strtoint(edit2a.text)+strtoint(edit2b.text)); (begitupun juga di edit2b event OnChange) _____________ yang jadi masalah saat saya mau menampilkan form ini . saya .mendapatkan error yaitu "edit1.text is not valid integer" saya g tau dimana naruh . perintah Edit3.text := Inttostr(strtoint(edit1.text)+strtoint(edit2.text)); atau cara saya terlalu primitif ya heheh. mohon pencerahannyaa.. (*ini berlaku pada form penjualan dengan 1 no transaksi penjualan dan 2 jenis penjualan (penjualan obat bebas dan penjualan obat resep) asumsi saya . 1 no trans = 2 detil jual yaitu bebas dan resep.) MOHON PENCERAHANNYA.....!
user image
more 13 years ago

ahmad

Mungkin Edit1.Text blm terset 0 jadi masih karakter null.. coba liat lagi programmnya kemudian supaya tidak bingung bnyk skali konversi inttostr atau sebliknya.. sebaiknya gunakan variable.. misal var a,b,c : integer; a := strtoint(edit1.text); b := strtoint(edit2.text) c := a+b; edit3.text := inttostr(c); mungkin error diatas harus dicek sequensial penempatan codingnya.. pastikan inisialisasi nol harus diawal baru kemudian process penjumlahn... untuk memastikan silahkan trace [F8]..
user image
more 13 years ago

purnomo2007

Mungkin pas kamu RUn aplikasinya di komponen edit masih ada tulisan "edit1" dan begitu juga dengan komponen edit lainnya. MEnding kamu delete semua aja property text di tiap komponen edit sehingga properti text nya kosong gak ada isinya.
user image
more 13 years ago

ii_irwan

OK .. saran mas ahmad ma mas purnomo.. tak coba dulu...
user image
more 13 years ago

ulyl86

setuju dengan mas ahmad kemudian sintaknya tulis saja di form show...atau bisa dengan procedure/fungsi!!nanti procedure atau fungsinya di panggil di form show..!!
user image
more 13 years ago

ulyl86

maaf buka form show..tapi form create!!salah keyboard he:p
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com