盒子论坛 v2.1

错在哪里？（关于文本与乱码）
type
   PTmysave=^Tmysave;
   Tmysave=record
     memotxt:string;
   end;
var
ssj:string;
sfile :TMemoryStream;
ms:Tmysave ;
pms:PTmysave;
{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  ssj:=Extractfilepath(application.ExeName )+'aa.txt';
  sfile :=TMemoryStream.Create ;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:longint;
begin
ms.memotxt:=trim(memo1.Text) ;
sfile.Seek(0,0);
sfile.WriteBuffer(ms,sizeof(ms));
sfile.Seek(0,2);
j:=sfile.Size;
i:=j +sizeof(i);
sfile.WriteBuffer(i,sizeof(i));
sfile.SaveToFile (ssj);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:longint;
s:string;
sfile2:TMemoryStream;
begin
sfile2:=TMemoryStream.Create;
sfile2.Seek(0,0);
ms.memotxt :=';
memo1.Clear ;
sfile.LoadFromFile(ssj);
sfile.Seek(-sizeof(i),2);
sfile.ReadBuffer(i,sizeof(i));
sfile.Seek(-i,2);
//sfile.ReadBuffer(ms,sizeof(ms));
j:=i-sizeof(i);
sfile2.SetSize(j);
sfile2.CopyFrom(sfile,j);
sfile2.Seek(0,0);
sfile2.ReadBuffer(ms,sizeof(ms));
memo1.Text:=ms.memotxt;
s:=memo1.Text;
end;
我想用TMemoryStream来形成乱码，但是读回来的时候却跟原来的
不一样，请问我错在哪里？
我输入memo控件的是： [我爱delphi] [我喜欢完星际]

----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/8/18 15:23:19

1楼：

http://www.bwkj.net/bios/luanma1.htm

----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/8/19 7:35:24

2楼：

没人回答吗？
----------------------------------------------

信息

登陆以后才能回复