没有测试过,大致写了个流程 var s:String; i, k: Integer; item: TLIstItem; begin {加入对样式的判断} for i := 0 To listview.items.count - 1 do begin item := listview.Items[i]; S:= item.Caption; {加入CheckBoxs的判断条件,具体看Delphi提示} begin for k := 0 to item.SubItems.Count - 1 do S := S + #10#13 + item.Subitems[k]; ShowMessage(S); end; end; end;
var str1,str2:String; i: Integer;begin for i := 0 To listview.items.count - 1 do begin if listview.items[i].checked then begin str1:=listview.Items[i].Subitems[0];第1列值 str2:=listview.Items[i].Subitems[1];第2列值 end; end; end;
var
s:String;
i, k: Integer;
item: TLIstItem;
begin
{加入对样式的判断}
for i := 0 To listview.items.count - 1 do
begin
item := listview.Items[i];
S:= item.Caption;
{加入CheckBoxs的判断条件,具体看Delphi提示}
begin
for k := 0 to item.SubItems.Count - 1 do
S := S + #10#13 + item.Subitems[k];
ShowMessage(S);
end;
end;
end;
str1,str2:String;
i: Integer;begin for i := 0 To listview.items.count - 1 do
begin
if listview.items[i].checked then
begin
str1:=listview.Items[i].Subitems[0];第1列值
str2:=listview.Items[i].Subitems[1];第2列值
end;
end;
end;