procedure TForm1.Button1Click(Sender: TObject);
var
i:integer ;
j:integer ;
m:integer ;
begin
edit1.Text :='';
i:=0;
while i<10 do
begin
i:=i+1;
for j:=0 to 50000 do
begin
for m:=0 to 50000 do
begin
end;
end;
edit1.Text :=edit1.Text + inttostr(i);
end
end;程序的效果出不来,edit1中循环-等待-添加数字
var
i:integer ;
j:integer ;
m:integer ;
begin
edit1.Text :='';
i:=0;
while i<10 do
begin
i:=i+1;
for j:=0 to 50000 do
begin
for m:=0 to 50000 do
begin
end;
end;
edit1.Text :=edit1.Text + inttostr(i);
end
end;程序的效果出不来,edit1中循环-等待-添加数字
解决方案 »
- 我的组件为什么全部都是和窗体的颜色一样,不能自己设定颜色?
- 这里有一个对richEdit的查询程序,请问怎么改成对memo的查询
- 急,关于DBGIRDEH中怎么用下拉列表啊?
- ics控件包中的问题。急!
- 九局下半(人生就像一场棒球比赛)
- 向各位高手请教,脱拽文件
- PageControl如何控制MDI窗体,关闭mdi子窗体同时删除相应的TabSheet?
- 我用ADO,已设置好adoconnection、adodataset或adoquery,为什么数据存不进后台数据库?
- ^|^ 如何在程序中对INSTER BASE 数据库进行备份,维护?
- 高手请进(关于数据库BLOB字段怎样取出图片'.jpg')
- 我的这个想法如何实现?关于DELPHI+ASP的
- 你认为我们国家有必要为“孝道”这个专题立法吗?
i:integer ;
j:integer ;
m:integer ;
begin
edit1.Text :='';
i:=0;
while i<10 do
begin
i:=i+1;
for j:=0 to 50000 do
begin
for m:=0 to 50000 do
begin
end;
end;
edit1.Text :=edit1.Text + inttostr(i);
application.ProcessMessages;
end
end;
但放错地方了把
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer ;
j:integer ;
m:integer ;
begin
edit1.Text :='';
i:=0;
while i<10 do
begin
i:=i+1;
for j:=0 to 50000 do
begin
for m:=0 to 50000 do
begin
//应该放到这里来
application.ProcessMessages;
end;
end;
edit1.Text :=edit1.Text + inttostr(i);
end
end;