UC知道求助：关于Delphi中Tstrings的操作
来源：百度知道 编辑：UC知道 时间：2024/06/07 01:47:12
str:tstrings;
s:string;
str:=s+' '+#10;
这样写为什么不行？（编译的说类型不匹配）
下面是我写的整个的：
for c:=#0 to #255 do
code[c]:=c;
for c:=#0 to #255 do
v[c]:=random(256);
for i:=#0 to #255 do
for j:=succ(i) to #255 do
if v[i]<v[j] then begin
c:=code[i]; code[i]:=code[j]; code[j]:=c;
t:=v[i]; v[i]:=v[j]; v[j]:=t;
end;
for c:=#0 to #255 do begin
str(ord(c),s);
t1.lines:=t1.lines + s + ' ' + code[c] + #10;
end;
用文件的方法我也想了解一下。
t1--Memo
code是个char数组
似乎可以写成t1.lines[k]:=……
但是又说左边的cannot be assigned
s:string;
str:=s+' '+#10;
这样写为什么不行？（编译的说类型不匹配）
下面是我写的整个的：
for c:=#0 to #255 do
code[c]:=c;
for c:=#0 to #255 do
v[c]:=random(256);
for i:=#0 to #255 do
for j:=succ(i) to #255 do
if v[i]<v[j] then begin
c:=code[i]; code[i]:=code[j]; code[j]:=c;
t:=v[i]; v[i]:=v[j]; v[j]:=t;
end;
for c:=#0 to #255 do begin
str(ord(c),s);
t1.lines:=t1.lines + s + ' ' + code[c] + #10;
end;
用文件的方法我也想了解一下。
t1--Memo
code是个char数组
似乎可以写成t1.lines[k]:=……
但是又说左边的cannot be assigned
Tstrings 是类呀。
str:=Tstringlist.Create;
s:='1';
str.Append(s+''+#10);
t1.Lines:=str;
str.Free;
这样就可以。
TStrings 是一个类 具体用法可查Help
E.g.
var
str:TStrings;
Str:=TStringList.Create; 不能使用 TStrings.Create 因为这玩意是个虚的
Str.Text:=123; 全部复制
或者 Str.Append('123');
使用完了以后记得销毁掉 释放资源.
用free
另外推荐你买本《Delphi精要》
我的blog.
http://www.icesword.net
code应该是个整数或其他什么类型的数组吧，你得转换成String类型才行