Question

I created the following code:

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

但I m “W1057 强行从AnsiString引向“扼杀”

他有什么错误?

谢谢。

Answer 1

在D2009+,TStringStream 预计UnicodeString/code>,而不是AnsiString。如果你只想写<条码>AnsiString的内容,就不必将数据转换为Unicode,然后回给Ansi,则使用<条码>TMemoryStream:

function AnsiStringToStream(const AString: AnsiString): TStream; 
begin 
  Result := TMemoryStream.Create;
  Result.Write(PAnsiChar(AString)^, Length(AString));
  Result.Position := 0; 
end;

由于AnsiString是D2009+的编码网页-aware,被传至您职务的ANY string将被迫服从于本组织违约的Ansi encoding。如果您希望能通过任何8个轨道型号,例如UTF8String,而不将数据作任何改动,则使用<代码>RawByteString而不是AnsiString:

function AnsiStringToStream(const AString: RawByteString): TStream; 
begin 
  Result := TMemoryStream.Create;
  Result.Write(PAnsiChar(AString)^, Length(AString));
  Result.Position := 0; 
end;

Answer 2

The TStringStream constructor expects a string as its parameter. When you give it an an AnsiString instead, the compiler has to insert conversion code, and the fact that you ve specified the TEncoding.ANSI doesn t change that.

Try it like this instead:

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

这需要明确的转换,使汇编者了解如何照顾到与编码相关的工作。

友情链接