AnsiString To Stream

delphi stream delphi-xe2 ansistring
Jhonjhon_123 picture Jhonjhon_123 · May 10, 2012 · Viewed 7.7k times · Source

I created the following code:

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

But I'm "W1057 Implicit string cast from 'AnsiString' to 'string'"

There is something wrong with him?

Thank you.

Answer

Mason Wheeler picture Mason Wheeler · May 10, 2012

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;

This uses an explicit conversion, and leaves the encoding-related work up to the compiler, which already knows how to take care of it.

Related questions

Writing strings to TMemoryStream

I have read alot of discussions on here regarding writing strings to a TMemoryStream and saving to file and reading the strings back in to TMemoryStream I dont know what I have done wrong here, but either my SaveData or …

Read More
How to load an arbitrary image from a BLOB stream into a TImage?

If I understand it correctly, TImage.LoadFromFile determines the type of picture from the file extension. Is there any way to detect the image type automatically from a TBlobStream with a raw image in it? My current code: procedure LoadImageFromStream(…

Read More
Buffered files (for faster disk access)

I am working with large files and writing directly to disk is slow. Because the file is large I cannot load it in a TMemoryStream. TFileStream is not buffered so I want to know if there is a custom library …

Read More