怎样获得listview内行数？

Question

怎样获得listview内行数？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  i:=ListView1.Items.Count;
  Edit1.Text:=IntToStr(i);
end;

Answer 2

function TTreeViewEx.AllChildCount(Node: TTreeNode = nil): Integer;
var
  I, ACount: Integer;
  CurrNode: TTreeNode;
begin
  if Node = nil then
  begin
    Result := Items.Count;
    Exit;
  end;
  ACount := Node.Count;
  for I := 0 to Node.Count-1 do
  begin
    CurrNode := Node[I];
    if CurrNode.HasChildren then Inc(ACount, AllChildCount(CurrNode));
  end;
  Result := ACount;
end;计算选取节点所有子节点数包含子节点的子节点数。递归调用

Answer 3

var
i:integer;
begin
 i:=listview.items.count;
end;

Answer 4

listview.items.count;
有问题请发信息到我的E-mail:[email protected]