如何让程序等待一个事件的触发
procedure TForm1.FormCreate(Sender: TObject);
var
i,j,k:Integer;
ar:array of Integer;
begin
memo1.Text:='请输入开辟空间大小';
//********************这里等待按下button在继续运行接下来的程序
i:=StrToInt(edit1.Text);
SetLength(ar,i);
end;


应该如何做呢？

[解决办法]

Delphi(Pascal) code

var  NewString : string;//接收值...  ...begin   ...  if InputQuery('Input Box', '请输入开辟空间大小', NewString) then    ...
[解决办法]
要是我,我就这么做
我设一变量,a:boolean

把   继续运行接下来的程序  做成一个 procedure  

程序在按钮部分给 逻辑变量赋值,是否按下 决定 a 的真假


按照真或假的情况再运行 procedure 里的部分

这样CPU的效率也高一些,不知是否可行