> var rupiah, dollar : Variant;
BAD IDEA.
...
var rupiah, dollar : currency;
...
> rupiah:=0; dollar:=0;
Kalau anda menggunakan variant diatas, otomatis kedua variable ini
bertipe integer pada point ini.
> if (frmCetakJualPerPeriode.Query1.FieldByName
> ('kurs').AsString='Rupiah') then
> begin
> rupiah:=rupiah + frmCetakJualPerPeriode.Query1.Fields
> ['harga'].AsVariant; //ERROR
...
Rupiah = rupiah + query1.fieldByName('harga').asCurrency;
...
> frmCetakJualPerPeriode.qrlabel10.caption:=VarToStr(rupiah);
...
frm...qrlabel10.caption := FloatToStrF(rupiah, ffNumber, 8, 4);
...
> kok errornya : incompatible types 'Integer' and 'String' ???
> variant kan bisa menampung semua tipe?
Mungkin di VB. Di delphi anda harus lebih 'disiplin' sedikit...:)
Salam,
sugi.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Save on Coral Calcium. Get Better Health and
Stronger Bones. Seen on TV
http://www.challengerone.com/t/l.asp?cid-2805&lp=calcium2.asp
http://us.click.yahoo.com/9gf46B/EfUGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
