delphi bytes类型转string

var
ok:string;
fc,i: Integer;
bytes : array of byte;

begin
写入：
fs := TFileStream.Create('car.dat', fmCreate);
ok:='This is it';
ok:=StrToHex(ok);
fc:=Length(ok); //此时ok值为：54686973206973206974
fs.Write(ok,fc);
fs.Destroy;

读取：
fs := TFileStream.Create('car.dat', fmOpenRead);
fc:=fs.Size;
SetLength(bytes,fc);
fs.Read(bytes[0],fc);
i:=0; //此时bytes的值为：(8, 225, 10, 1, 24, 255, 18, 0, 5, 210, 80, 0, 32, 255, 18, 0, 150, 213, 80, 0)
while i<fc do begin
ok:=ok+PChar(@bytes[i]);
inc(i);
end;
ok:=HexToStr(ok); //此时ok的值为：#8'?'#1#$18#$FF#$12'?'#1#$18#$FF#$12#$A#1#$18#$FF#$12#1#$18#$FF#$12#$18#$FF#$12#$FF#$12#$12#5'襊襊P '#$FF#$12#$FF#$12#$12'栒P誔P'
//并不是54686973206973206974
bytes:=nil;
ok:='';
fs.Destroy;

为什么bytes怎么才能正确转换成string？

看下你的代码

while i<fc do begin
ok:=ok+PChar(@bytes[i]);
inc(i);
end;

没有初始化 OK

也就是应该 OK:=''

如果还是不成功 请看下 你的 hextostr 和 strtohex 是否写正确

你好哦。 很高兴看到你的问题。 但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。 可能是你问的问题有些专业了，没人会。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。 祝你好运~！ 希望我的回答也能够帮到你！ 谢谢

转成指针型pchar或者其他类型再转string看看，有的时候做一个二次转换就可以实现的！