58问答库 > delphi中把listview中某列的值全部取出，以文本显示，并以逗号隔开

delphi中把listview中某列的值全部取出，以文本显示，并以逗号隔开

如取第3列的所有值，有两行的话，用 ✀列A✀,‘列B’ 显示出来

2024-10-30 08:40:30

推荐回答（1个）

回答（1）：

把listview中某列的值全部取出，以文本显示，并以逗号隔开，试编写代码如下：

//参数 iCol 为listview的列号，从1开始
function TForm1.GetListViewData(iCol:Integer):string;
var
  i: Integer;
begin
  if iCol<2 then
  begin
    for i := 0 to ListView1.Items.Count-1 do
      Result := Result+','+listview1.Items[i].Caption;
  end else
  begin
    for i := 0 to ListView1.Items.Count-1 do
      Result := Result+','+listview1.Items[i].SubItems.Strings[iCol-2];
  end;
  Result := Copy(Result,2,Length(Result)-1);
end;