DELPHI结构的存一个值然后读出,高手指点一下!

userchm

我分别输入了1和2.两个数.
为什么我取出来的数是别的啊??
高手指点一下!!要怎么把1 和 2 在结构里保存
然后取出来啊??????????
//-----------
type
TT = Packed Record
a:single;
b:single;
end;
PP = ^TT;

procedure TForm1.Button1Click(Sender: TObject);
var
aa:TT;
begin
  aa.a:=1;
  aa.b:=2;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
XX:PP;
begin
Edit3.Text:=intToStr(XX^.a);
Edit4.Text:=intToStr(XX^.b);
end;

雨夜

晕死！！  
1.你定义的是浮点型，怎能用inttostr转换！？要用FloatToStr转换
2.你那是两个函数各种的变量是局部变量，函数1的变量怎么能在函数2里显示呢