Question

delphi编写一个事件程序实现用Showmessage输出12345678910这个字符串，用While循环

Answer 1

一个窗体，一个按钮，按钮click事件代码如下：
var str:string;
i:integer;
begin
i:=1;
str:='';
while i<=10 do begin
str:=str+inttostr(i);
inc(i);
end;
showmessage(str);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
str:string;
begin
i:=1;
str:='';
while i<11 do
begin
str:=str+inttostr(i);
inc(i);

end;
Showmessage(str);
end;