5,939
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
befree 2004-08-09
- 打赏
- 举报
不用
nyf1220 2004-08-09
- 打赏
- 举报
光record，不用释放吧，，
thiswang 2004-08-09
- 打赏
- 举报
需要释放吗？？没使用指针来使用这个record类型，系统应当是自己释放的吧！我定义成变量，
自己不需释放，使用指针，则需要释放指针
自己不需释放，使用指针，则需要释放指针
jinjazz 2004-08-09
- 打赏
- 举报
type
Prec = ^Trec;
Trec = packed record
X: char;
Y: char;
end;
procedure TForm1.Button1Click(Sender: TObject);
var p:prec;
begin
GetMem(p,100);
p^.X:='1';
p^.Y:='4';
showmessage(p^.X+p^.Y);
freemem(p);
end;
Prec = ^Trec;
Trec = packed record
X: char;
Y: char;
end;
procedure TForm1.Button1Click(Sender: TObject);
var p:prec;
begin
GetMem(p,100);
p^.X:='1';
p^.Y:='4';
showmessage(p^.X+p^.Y);
freemem(p);
end;
