16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button1Click(Sender: TObject);
var A:array [0..5] of String;
i:integer;
S:string;
begin
A[0]:=' 第一行';
A[1]:=' 第二行';
A[2]:=' 第三行';
A[3]:=' 第四行';
A[4]:=' 第五行';
A[5]:=' 第六行';
for i:=0 to 5 do
S:=S+A[i]+#13#10;
showMessage('错误信息:'+#13#10+S);
end;