delphi中把listview中某列的值全部取出，以文本显示，并以逗号隔开如取第3列的所有值，有两行的话，用'列A',‘列B’显示出来

Question

delphi中把listview中某列的值全部取出，以文本显示，并以逗号隔开
如取第3列的所有值，有两行的话，用 '列A',‘列B’ 显示出来

Answer 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;