new(head); p:=head;
Item := ListView1.Selected;
while Item <> nil do
begin new(s);
s^.mylistnode:=item; Item := ListView1.GetNextItem(Item, sdAll,isSelected]);
p^.next:=s;
p:=s;
end;
p^.next:=nil;
head:=head^.next;第一二句写成new(p);head:=p;就不行了,我觉的没什么区别呀!
Item := ListView1.Selected;
while Item <> nil do
begin new(s);
s^.mylistnode:=item; Item := ListView1.GetNextItem(Item, sdAll,isSelected]);
p^.next:=s;
p:=s;
end;
p^.next:=nil;
head:=head^.next;第一二句写成new(p);head:=p;就不行了,我觉的没什么区别呀!
解决方案 »
- 请问如何去掉checkbox上面选中后的虚线框?
- delphi控制excel表格中的边框线可见代码怎么写啊?
- 主 题: string变量下标访问是从0开始还是从1开始的?
- delphi中如何将Outlook Express通讯录的.WAB文件导入和导出数据库?
- 如何在Edit文本框输入中输入的是数字,而且小数点后只保留两位数字!!!!!
- 高分求救,使用delphi7.0的高手进入
- 救急!
- TWebBrowser如何获取其文件内容?
- 有个不知道算不算难的问题想问问各位高手!
- "Exception EOleSysError in module QQ.EXE at 0002B7ED类没有注册"系统错误
- 提问:如何读出文件里整形数字(大家一定知道的)
- 小弟发表在csdn的第一篇文章,水平不高请指教:《打造Delphi中字符串的replace函数》
这样你的指针P,是在head上增加了一个应用计数,相反的话,你就没有给head分配实在的空间