我用一個stop按鈕中斷for語句如何做。
好像用goto語句可以實現。請做過的給個例子。
好像用goto語句可以實現。請做過的給個例子。
解决方案 »
- delphi控件edit透明?
- access中更新数据的sql代码写法
- 请问大家用的大富翁离线数据都是截至到什么时候的?
- 做了一个软件,需要取当前时间,但是要精确到“毫秒”以后的“微秒”,请问该如何做??
- 很长时间没csdn了.很想念大家!祝福大家身体健康!
- 假如客户端ClientDataSet为空!数据插入的问题??想了很久,没有什么好的答案。
- 请问怎么使query的查询结果和table的指向统一?
- 请大家帮忙参谋一下,本人是MCSE、MCDBA、OCP,如果到北京找工作,月薪大概多少钱???
- 请问在COM的接口函数中如何传递一个对象?如test(abutton:Tbutton):int ??
- 请问:如何在delphi中显示使用帮助文件(.chm)?
- 紧急求助!!DevExpress的TcxDBLookupComboBox使用方法及问题
- 哪有Delphi4下载
bStop : Boolean;procedure TForm1.btnStartClick(Sender: TObject);
var
iLoop : Integer;
begin
bStop := False;
for iLoop := 1 to 1000000000 do
begin
Application.ProcessMessages;
if bStop then
begin
ShowMessage (Format('Stop at %d!', [iLoop]));
break;
end;
end;
end;procedure TForm1.btnStopClick(Sender: TObject);
begin
bStop := True;
end;
給個例子。
謝謝。