Bisa pakai thread (telah dibahas rekan yg lain), atau yg lebih
praktis:
var IsAbort : Boolean;
procedure .......
begin
IsAbort:=False;
while not(table1.eof) and not(IsAbort) do
begin
...Proses...
Table1.Next;
Application.ProcessMessages;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IsAbort:=True;
end;
--- In [EMAIL PROTECTED], eri mulyana <[EMAIL PROTECTED]> wrote:
> 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.
>
>
>
> __________________________________________________
> Do you Yahoo!?
> Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your
desktop!
> http://platinum.yahoo.com
------------------------ 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/
