Question

Delphi有两个button 第一个添加数据到Listview第一和第二列 第二个怎么添加数据到第三列

Delphi有两个button 第一个添加数据到Listview第一和第二列 第二个怎么添加数据到第三列
加入第三列 不要覆盖第一列和第二列的内容





Answer 1

第二个按钮里不能这样写，应改成这样

ListView1.Items[Listview1.Items.count-1].SubItems.add(button2.Caption);

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Listview1.Items.Add do begin
    Caption:='1';
    SubItems.Add(button1.Caption);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Items[Listview1.Items.count-1].SubItems.add(button2.Caption);
end;

追问

你好 要的是在第三列第一行开始添加数据啊 而且是一直能在第三列往下添加

追答

给你修改了下，看看这个行不？我测试是没问题的

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Listview1.Items.Add do begin
    Caption:='1';
    SubItems.Add(button1.Caption);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i,index:integer;
begin
  index:=-1;
  for i:=0 to ListView1.Items.Count-1 do
    if ListView1.Items[i].SubItems.Count<2 then begin
      index:=i;
      break;
    end;
  if index<0 then index:=ListView1.Items.Count-1;
  if index<0 then exit;
  ListView1.Items[index].SubItems.Add(button2.Caption);
end;