On Thursday, December 26, 2002 1:43 PM Hasanul Arifin wrote: >> >> No := 1 >> while No < 10000 do >> begin >> ... >> ProgressBar1.position := i; >> inc(i); >> ... >> end; >> > > OK, ternyata sudah berhasil dipecahkan.. saya mesti menambahkan > application.processmessage agar value progressbar selalu terupdate. >
Sebagai tambahan, sebaiknya processmessage tersebut dieksekusi setiap kelipatan tertentu dalam loop, sehingga tidak mempengaruhi kecepatan proses secara keseluruhan. Salam, -Jaimy. ------------------------ Yahoo! Groups Sponsor ---------------------~--> Get 128 Bit SSL Encryption! http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/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/
