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

最近需要将一个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 :=