var
  Form1: TForm1;
  arr:array[0..99999] of string;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to 99999 do
    arr[i]:=inttostr(i)+inttostr(i)+inttostr(i)+inttostr(i)+inttostr(i);
end;我已经用以上代码生成了一个字符串数组,现打算把各数组元素用用#13+#10按顺序连接起来得到一个长字符串,即str:=arr[0]+#13+#10+arr[1]+#13+#10+......+arr[99999]+#13+#10,为了加快速度,我想用StrECopy和StrCat来实现,因小弟初学Delphi,搞不懂PChar是怎么回事,因此不知道怎么用以上两个函数。希望大家帮忙给出代码和注释。谢了。这个问题是有我的另一个问题引申出来的,请大家顺便看看
http://expert.csdn.net/Expert/topic/1141/1141505.xml?temp=.1309778