5,388
社区成员
发帖
与我相关
我的任务
分享这样为什么会出错？
type
Tx = record
GameName : string ;
lid : integer ;
end;
Px = ^Tx;
然后在使用的时候
procedure TmyForm.Get2Click(Sender: TObject);
var
sx: Px;
begin
sx.GameName := 'xxxxx';
sx.lid := 880;
showmessage(sx.GameName);
end;
出现错误，请问如何解决？
Tx = record
GameName : string ;
lid : integer ;
end;
Px = ^Tx;
然后在使用的时候
procedure TmyForm.Get2Click(Sender: TObject);
var
sx: Px;
begin
sx.GameName := 'xxxxx';
sx.lid := 880;
showmessage(sx.GameName);
end;
出现错误，请问如何解决？
...全文
请发表友善的回复…
发表回复
今晚打老虎2010 2005-03-23
- 打赏
- 举报
非常感谢
liujidong 2005-03-23
- 打赏
- 举报
同意，你需要先申明 tx的变量，然后把地址给sx
chinaandys 2005-03-23
- 打赏
- 举报
sx是一个指针，先要对其分配空间.
begin
new(sx);
sx^.GameName := 'xxxxx';
sx^.lid := 880;
showmessage(sx.GameName);
dispose(sx);
end;
begin
new(sx);
sx^.GameName := 'xxxxx';
sx^.lid := 880;
showmessage(sx.GameName);
dispose(sx);
end;
fireflyxx 2005-03-23
- 打赏
- 举报
sx 是指针 还没空间呢
