$0 in stream and loading as text

[Sir Rufo]

Zitat von WojTec:

Zitat von Sir Rufo:

Which first $0 are you talking about?

I'm talking about stream content (bytes). First 2 bytes are $64 (100d = Ascii(D)) and $00. I'm trying load this stream as text (above code), in sample stream, after load to TStrings I have 'D', so looks they stop decoding text when see $0.

When I save data and load in notepad, I see characters separated with space. I want to decode whole stream as text, even if $0 bytes inside.

TStringStream.Create('', TEncoding.Unicode)
TStringStream.LoadFromStream(Source);
TStrings.LoadFromStream(TStringStream);
// result = samplestream('D')

Oh, you are in a bigger trouble than I thought. You should have seen d and not D.
So maybe yor compiler or compter is broken ... sorry to tell that