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
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
解决方案 »
- DELPHI 下拉菜单的查询问题
- 为什么我的qq总是登陆失败的啊,同事的就可以上去,我就是上不去
- Qrreport打印问题
- 请问线程与外界的变量的同步可否用synchronize?如果不行,该怎么同步?谢谢!
- 关于变量使用问题
- 用代码怎样控制数据库中的触发器失效,生效?
- 请教在成都的朋友.
- Project Peoject1.exe raised exception class EvatiantError with message'Invalid variant type conversion'.Process stopped.
- c++程序员的薪水高还是dephi的高?
- 求pHash算法的DELPHI版本。
- 最简单的输入数据后dbgrid列值自动变化,报错?
- 如何對一類的對象屬性賦值
象这些inttostr(i)+inttostr(i)+inttostr(i)+inttostr(i)+inttostr(i)最好用Format实现,Format('format str', [...])这样速度会快些
对于字符串,使用+号直接运算就可以了
关于:StrECopy;StrCat看Help就知道了