For I:=0 to ListView.Items.count do
begin
if ListView.items[I].Selected then
//DO
end;
begin
if ListView.items[I].Selected then
//DO
end;
解决方案 »
- 如何返回当月的最大天数
- [长沙]招聘计算机管理员一员(懂Delphi及SQL)
- 哪位大侠帮我解释一下update users set PASSWORD=:PASSWORD where USERID=:USERID中=后面的值从哪里获得??
- 如何判断计算机CPU空闲呢?
- 请教;怎样让一个下拉框既可以拉出数据库某个字段的所有值,又可以手工录入非数据库中的字段值?
- 使用smtp遇到的问题
- 怎样在第三方控件添加到delphi里面呀
- locate在查找日期字段时有什么特殊吗?
- 动态建立Memo控件为什么老出错?
- 请问VB写的DLL能不能在DELPHI调用呢?
- 急求一ping程序原代码!
- 如何安装paradox数据库应用程序(急用!)
for i:= 0 to ListView.Items.Count-1 do
if ListView.Items[i].Selected then showmessage('test');
var s:string;
begin
if ListView.items[I].Selected then
begin
S:=listView.Items[I].SubItems[0]
listView.Items[I].SubItems[1]
...列数-1
//DO
end;
end;
你自己定义个TListItem
var
MyItem:TListItem;
begin
for i:= 0 to ListView.Items.Count-1 do
if ListView.Items[i].Selected then
begin
MyItem:=ListView.Items[i];
showMessage(MyItem.caption);
for j:=0 to MyItem.SubItems.count-1 do
showMessage(MyItem.SubItems[j]);
end;end;