a:array[0..9] of Char;
b:string;
for i:=0 to length(b)-1 do
begin
a[i]:=b[i+1];
end;
可以给数组赋值,但是:
for i:=0 to length(a)-1 do
begin
b[i+1]:=a[i];
end;
就会报错啊!
b:string;
for i:=0 to length(b)-1 do
begin
a[i]:=b[i+1];
end;
可以给数组赋值,但是:
for i:=0 to length(a)-1 do
begin
b[i+1]:=a[i];
end;
就会报错啊!
解决方案 »
- Delphi COM 如何在 type Library editor 中插入自己的接口?
- 简单而又难达到要求的求交集的问题,请高手帮忙!
- 新手提问,关于输入1个数字后直接转到下一个输入框问题.
- 数据库中图片转出后不能打开,谁遇到过?附源码
- 耍了三年的女朋友今天给我提出分手,欲哭无泪,只有散分了。
- 如何把TFileStream类型转换为OleVariant类型???
- 请各位加密高手帮小弟加加密,Thanks!!!
- 将Query的RequestLive为True后,CanModify仍然为false
- 数据库--新手
- 你简直就是在抢我的可用分!!!555555555555555
- 散分顺便问一下ODBC、ADO和BDE访问数据库的区别
- 请教有关IntraWeb的表格问题!
SetLength(b,High(a)-Low(a)+1);
或
b:=StringOfChar(' ',High(a)-Low(a)+1);或用楼上的方法
for i:=0 to length(a)-1 do
begin
//b[i]:=a[i];
b:=b+a[i];
end;
showmessage(b);
显然,编译器无法把char写入string,因此给你修改一下,这样就可以按位代替了。