procedure TPaperView.BtnAddClick(Sender: TObject);
var
aItem:PQItem;
begin
new(aItem);
.
.
.
TQItem(aItem).free;--->出错
end;
其中,PQItem=^TQItem;
请问怎么样才能释放我用new分配的这个内存?
var
aItem:PQItem;
begin
new(aItem);
.
.
.
TQItem(aItem).free;--->出错
end;
其中,PQItem=^TQItem;
请问怎么样才能释放我用new分配的这个内存?
解决方案 »
- 用户单击Edit时,在Edit的Enter事件中,如何选择Edit的内容。
- delphi 高手请进,小弟有问题请教
- 一个窗体使用前一个窗体中某个组件的属性,怎样做?
- aaa字段为number[20,0],当字段值的位数为18位时,ADOQuery1.Fields('aaa').AsString出错
- 用过TdxTreeList控件的进来看看
- 关于FilterComboBox1和FileListBox1的问题
- 有关TADOTable的问题
- 哪位高手知道Windows底下所谓的系统资源为何物??
- 一个程序可以分为几个project来做吗?
- 非技术问题:各位大虾,去哪里寻找OPGL的资料?
- 祝大家新春快乐
- 广州招D程序员一名
var
aItem:PQItem;
begin
new(aItem);
.
.
.
dispose(aItem);
end;