DELPHI结构体的怎么样存一个值然后读出?

来源:百度知道 编辑:UC知道 时间:2024/06/28 19:52:24
我分别输入了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和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);

aa,XX都是临时变量,你又没有给它赋值。
edit3和edit4不会显示随机数才怪。

把aa设置为全局变量就可以了。

你对象搞错了,给aa这个对象赋值,却调用xx对象中的值当然没赋上了.