利用TSimpleDataSet 執行大量資料的Select 動作,  想提供一個TButtom的功能,供使用者,若不想再繼續執行, 可以放棄離開, 現在想請問有何種方式,可以達到此目的?    謝謝! 

將TSimpleDataSet的PacketRecords設為大於1的整數， 來定義一次取的PacketRecords有多少筆 用GetNextPacket來取得下一個Packet，當GetNextPacket >0 則繼續取Packet 用Application.ProcessMessages來處理USER的操作 加入一個停止繼續取Packet迴圈的判斷就行了 下面sample有二個Button，一個OpenBtn來open dataset， 一個StopBtn來停止繼續取Packet procedure TForm1.OpenBtnClick(Sender: TObject); begin SimpleDataSet1.PacketRecords := 50; SimpleDataSet1.Open; StopBtn.Enabled := True; while SimpleDataSet1.GetNextPacket > 0 do begin if not StopBtn.Enabled then break; SimpleDataSet1.GetNextPacket; Application.ProcessMessages; end; end; procedure TForm1.StopBtnClick(Sender: TObject); begin StopBtn.Enabled := False; end;