16,748
社区成员
发帖
与我相关
我的任务
分享
Function TForm1.test(var varp:integer):Boolean;
var
j:integer;
strlist : TStringList;
begin
Result:=False;
strList := TStringList.Create;
For j:=0 to 10000 do
begin
varp:=j;
strList.add(IntToStr(varp));
application.ProcessMessages;
end;
ListBox1.items := strList;
strList.Free;
Result:=True;
end;
Function TForm1.test(var varp:integer):Boolean;
var
j:integer;
begin
Result:=False;
For j:=0 to 10000 do
begin
varp:=j;
memo1.lines.add(inttostr(varp));
application.ProcessMessages;
end;
Result:=True;
end;