把
fp.Write(Str,length(Str));
改成
fp.Write(Str[1],length(Str)); 把
fp.Read(buf, fp.Size);
改成
buf:=StringOfChar('A',fp.size);
fp.Read(buf[1], fp.Size);
fp.Write(Str,length(Str));
改成
fp.Write(Str[1],length(Str)); 把
fp.Read(buf, fp.Size);
改成
buf:=StringOfChar('A',fp.size);
fp.Read(buf[1], fp.Size);
先谢了,不过我按照您的方法无法得到正确的结果:
按您的方法写入到文件中的内容是:
垜Î埌Î垴Î垜Î
而在读出的时候只能显示:
淲
不知道究竟是什么问题,能再帮帮我吗?