Delphi XE 10.3.3 TFileStream读read写write字符串必须用UTF8String防止出现垃圾字符

本文介绍了在将Delphi7程序升级到Delphi10.3.3时遇到的字符串兼容性问题。在Delphi2007中有效的字符串写入文件代码在Delphi2010及以上版本产生垃圾字符，原因在于Unicode的引入。解决方法是将字符串编码为UTF8再进行写入。提供的修复代码展示了如何正确地使用UTF8String进行读写操作，从而避免垃圾字符的出现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近需要将一个Delphi 7的古老程序重构升级为Delphi 10.3.3，没想到由于Delphi字符串定义发生了变化，造成写入文件的字符串出现垃圾字符

我有Delphi 2007代码看起来像这样：

procedure WriteString(Stream: TFileStream; var SourceBuffer: PChar; s: string);
begin
  StrPCopy(SourceBuffer,s);
  Stream.Write(SourceBuffer[0], StrLen(SourceBuffer));
end;

我这样调用：

var
  SourceBuffer : PChar;
  MyFile: TFileStream;

....

SourceBuffer := StrAlloc(1024);
MyFile := TFileStream.Create('MyFile.txt',fmCreate);
WriteString(MyFile,SourceBuffer,'Some Text');
....

这在Delphi 2007中有效,但在Delphi 2010中给了我很多垃圾字符.我知道这是由于unicode合规性问题,但我不知道如何解决这个问题.

这是我迄今为止所尝试的：

>更改数据类型
SourceBuffer(也是参数
预期由WideString)到PWideChar

以上都不行

解决方法：您不需要单独的缓冲区来将字符串写入流.可能最简单的方法是将字符串编码为UTF8,如下所示：

procedure TStreamEx.writeString(const data: string);
var
   len: cardinal;
   oString: UTF8String;
begin
   oString := UTF8String(data);
   len := length(oString);
   self.WriteBuffer(len, 4);
   if len > 0 then
      self.WriteBuffer(oString[1], len);
end;

function TStreamEx.readString: string;
var
   len: integer;
   iString: UTF8String;
begin
   self.readBuffer(len, 4);
   if len > 0 then
   begin
      setLength(iString, len);
      self.ReadBuffer(iString[1], len);
      result := string(iString);
   end;
end;

也就是说Delphi2010以上的版本，TFileStream读read写write字符串必须用UTF8String，泰山老父正确代码如下：

var
  fs: TFileStream; // TFileStream使应用程序能够从磁盘上读取和写入文件。
  S:  UTF8String;
const
  S1 ='ABCDE';
  S2='123456';
begin
  fs := TFileStream.Create(Filename, fmCreate or fmOpenWrite);
  try
    //fs.write(S1, Length(S1)); //错误！保存后的文件中出现垃圾字符 将Buffer的Count字节写入资源中的当前位置。
    // fs.write((PChar(S1))^, Length(S1)); //错误！保存后的文件中出现垃圾字符
    fs.write(UTF8String(S1), Length(S1));//正确！XE必须将将字符串编码为UTF8
    S := UTF8String(S2); // 正确
    fs.write(S[1], Length(S));