如题目
解决方案 »
- 请教一个小问题 delphi+mysql sql语句问题
- rave中如何设置页边距
- 刚接了一个Delphi项目,2个月内要求搞定,以前未接触过Delphi,特来请教前辈几个紧急的问题!!!
- 寻求这样的控件 http://www.queenball.com/hm/a1.gif
- 谁能告诉我这个软件用的什么组件,http://www.rolesoft.com/chinese/softwebbee.htm,拜谢!
- 我刚建立的网站!www.hdongsoft.com
- 如何在Delphi中新立Oracle表
- fastreport,如何打印超市标价签,谢谢
- 字符和Ascii之间的转换用什末函数?谢谢
- 如何使用进程条?
- 如何对StringGrid表格中的单元进行编辑?
- 无法为更新定位行。一些值可能已在最后一次读取后已更改 ...
i:Integer;
List:TList;
begin
List:=TList.Create;
for i:=0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[i].Selected then
begin
List.Add(ListView1.Items[i]); //添加到list里
end;
end;
List.Free;
end;
i:Integer;
begin
for i:=0 to TreeView1.SelectionCount-1 do
begin
showmessage(TreeView1.Selections[i].Text); //在这里把值添加到list里
end;
end;