[array of char string]求助：字符串转换成定长字符数组

[Radar2006]

定义:str_bh: array[0..49] of Char;

这个不能得到定长字符数组：StrPCopy(aa.str_bh, '0001');

怎样才能得到定长的字符数组，就是'0001'后用空格填充?

[D_Q]

其实你需要了解 StrLen 和 lstrcpy 这两个函数

var
  str_bh: array[0..49] of Char;
begin
  FillChar(str_bh,Length(str_bh),#$20);//初始化数组
  lstrcpy(str_bh, '0001');//赋值
  ShowMessage(Format('长度:%d 内容:%s',[StrLen(str_bh),StrPas(str_bh)]));
end;

[Radar2006]

谢谢上面两位的热心帮助，经测试
D_Q 的长度是4
ideation_shang 通过

[Radar2006]

下午结贴给分:D

[D_Q]

StrLen 是忽略空格的哟 检测有效位数的：（

[D_Q]

汗就1个字

ShowMessage(Format('长度:%d 内容:%s',[Length(str_bh),str_bh]));

[fangsp]

解决就好
再帮楼主顶一帖
凑个人气

[Radar2006]

[Quote=引用 7 楼 D_Q 的回复:]
汗就1个字
ShowMessage(Format('长度:%d 内容:%s',[Length(str_bh),str_bh]));
[/Quote]
----------------------------------------------------------------
谢谢关注！这句换成ShowMessage(str_bh)还是四位?

[Radar2006]

ShowMessage(Format('长度:%d 内容:%s',[Length(str_bh),str_bh]));
换成
ShowMessage(str_bh)
还是四位

[panrongzeng]

setlength();

[ideation_shang]

var
  str_bh: array[0..49] of Char;
  str_tmp:string;
begin
  str_tmp:='0001';
  FillChar(str_bh, Length(str_bh), Ord(' '));
  Move(str_tmp[1],str_bh,Length(str_tmp));
  ShowMessage(str_bh)
end;

[D_Q]

是啊 中间有个 #0