delphi把文本写入二进制文件
就是程序在保存的时候会把一些中文文本存到本地
但是通过其他程序打不开，就算打开也是一堆乱码

然后程序再次运行的时候把本地的乱码又恢复成中文文本

怎么实现啊

[解决办法]
以内存流方式写入即可
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
mstrean:TMemoryStream;
SS:TStringStream;
begin
mstrean:=TMemoryStream.Create;
SS:=TStringStream.Create('');
mstrean.LoadFromFile('D:\cst-Desktop\1.txt'); //加载文本的流
EncodeStream(mstrean,SS); //将文本流转换成字符串
memo1.Text:=SS.DataString; //我这里暂时输出到Memo1中
end;

procedure TForm1.Button2Click(Sender: TObject);
var
mstrean:TMemoryStream;
SS:TStringStream;
begin
mstrean:=TMemoryStream.Create;
SS:=TStringStream.Create(Memo1.Text); //加载Memo1中转换过的流
DecodeStream(SS,mstrean); //将Memo1中的流字符串转换成流
mstrean.SaveToFile('D:\cst-Desktop\2.txt'); //最后流输出，和原来的文件对比，是一样的。
end;
[解决办法]