var GoGoGo : Boolean;
begin
GoGoGo := true;
while not (table1.eof and GoGoGo) do
begin
Proses2
Table1.Next;
ProcessMessages;
end;
end;
Lalu di event OnButtonClick :
begin
GoGoGo := false;
end;
HTH,
Sintar.
============
----- Original Message -----
From: "eri mulyana" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, March 24, 2003 4:36 PM
Subject: [Delphindo] Cancel Prosses
> Kepada rekan2 milis, saya ingin menanyakan bagaimana
> caranya membatalkan proses saat program dalam keadaan
> looping dengan mengklik tombol(button)(sebelum proses
> selesai).
> Ex: while not (table1.eof)do
> begin
> Proses2
> Table1.Next;
> end;
> Mohon Penjelasannya.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/hdqFAA/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/
