How to use Unicode text in streams?

[himitsu]

Zitat:

S.Encoding.Unicode;

Falsch, da man den Wert ja setzen und nicht ein Property davon auslesen will,
also theoretisch wäre es so richtig
S.Encoding := TEncoding.Unicode; .


Aber leider ist .Encoding readonly, also geht es nur im Contructor.

Delphi-Quellcode:

S := TStringStream.Create('象', TEncoding.UTF8);

// oder 

S := TStringStream.Create('', TEncoding.UTF8); 
S.WriteString('象');