本文章介绍了Delphi XE5实现通过TMemoryStream将一个UnicodeString写入到一个Unicode文本文件，之前研究了通过TMemoryStream将UnicodeString写入到文本文件，但是打开后，是乱码，是因为文本文件的字符表示为Ansi，所以写进去打开有问题，当然也可以通过TStrings的SaveToFile来保存成Unicode，但是TMemoStream的SaveToFile没有这样的功能，所以需要提前将Unicode标志写入到文本文件中，下面是代码：
procedure SaveUnicodeA(f:string;s:string);
var
Buffer, Preamble: TBytes;
ms:TMemoryStream;
ws:WideString;
hs:array[0..1]of char;
begin
if s='' then exit;
try
ms:=TMemoryStream.Create;
//Buffer := TEncoding.Unicode.GetBytes(s);
Preamble := TEncoding.Unicode.GetPreamble;
if Length(Preamble) > 0 then
ms.WriteBuffer(Preamble, Length(Preamble));
ms.WriteBuffer(PChar(s)^,length(s)*2);
ms.SaveToFile(f);
finally
ms.Free;
end;
end;
关键字词:
