大家看看下面的代码 为什么buf1的值没有改变 ( 积分: 20 )

procedure TForm1.Button2Click(Sender: TObject);
var
x:TStringStream;
buf,buf1:array[0..3] of char;
begin
buf:='1234';
buf1:='4321';
x:=TStringStream.Create('5678');
x.Write(buf,sizeof(buf));
x.Read(buf1,sizeof(buf1));
showmessage(buf1);
end;
这时buf1的值应该是1234啊 怎么还是4321

procedure TForm1.Button2Click(Sender: TObject);
var
x:TStringStream;
buf,buf1:array[0..3] of char;
begin
buf:='1234';
buf1:='4321';
x:=TStringStream.Create('5678');
x.Write(buf,sizeof(buf));
x.Read(buf1,sizeof(buf1));
showmessage(buf1);
end;
这时buf1的值应该是1234啊 怎么还是4321

x.Write(buf,sizeof(buf));
x.position:=0
//这句
x.Read(buf1,sizeof(buf1));

多人接受答案了。