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

字符串必须用UTF8String防止出现垃圾字符"/>

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);
beginStrPCopy(SourceBuffer,s);Stream.Write(SourceBuffer[0], StrLen(SourceBuffer));
end;

我这样调用：

varSourceBuffer : 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);
varlen: cardinal;oString: UTF8String;
beginoString := UTF8String(data);len := length(oString);self.WriteBuffer(len, 4);if len > 0 thenself.WriteBuffer(oString[1], len);
end;function TStreamEx.readString: string;
varlen: integer;iString: UTF8String;
beginself.readBuffer(len, 4);if len > 0 thenbeginsetLength(iString, len);self.ReadBuffer(iString[1], len);result := string(iString);end;
end;

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

varfs: TFileStream; // TFileStream使应用程序能够从磁盘上读取和写入文件。S:  UTF8String;
constS1 ='ABCDE';S2='123456';
beginfs := 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必须将将字符串编码为UTF8S := UTF8String(S2); // 正确fs.write(S[1], Length(S));