delphi - AnsiString 转流

Question

我创建了以下代码:

Function AnsiStringToStream(Const AString: AnsiString): TStream;
Begin
  Result := TStringStream.Create(AString, TEncoding.ANSI);
End;

但我是“W1057 隐式字符串从 'AnsiString' 转换为 'string'”

他有什么问题吗？

谢谢。

Answer 1

TStringStream 构造函数需要一个字符串 作为其参数。当您给它一个 AnsiString 时，编译器必须插入转换代码，并且您指定 TEncoding.ANSI 的事实不会改变这一点。

尝试像这样:

Function AnsiStringToStream(Const AString: AnsiString): TStream;
Begin
  Result := TStringStream.Create(string(AString));
End;

这使用显式转换，并将与编码相关的工作留给编译器，编译器已经知道如何处理它。