字符串转换问题？

Question

Chars:Array[0..255] of char ;
filename:string;
在Chars中前五个字符为Chars[0]+Chars[1]+Chars[2]+Chars[3]+Chars[4]='sfile',后面是某个文件的文件名，请问如何得到文件名并赋值给filename

Answer 1

如果数组是用$00填充的，即文件名有效字符的后面都是$00，可以用如下方法实现
var
  p: pchar;
begin
......
  p:=Chars;
  filename:=copy(p, 6, length(p)-5);
......
end如果不是，就在chars赋初值前fillchar(chars, sizeof(chars), 0)