Delphi listview使用部分总结代码

procedure TForm1.FormCreate(Sender: TObject);
var
  listitem:TListItem ;
begin
  tlistview(lv1 ).Items.BeginUpdate;
    try
      tlistview(lv1 ).Items.Clear;
      with qry1 do
      begin
      Close;
      SQL.Clear ;
      SQL.Add('select * from student');
      ExecSQL ;
      Open ;
      while not eof do
        begin
//          i := lv1 .Items.Count;
        with lv1 do
        begin
        ListItem:=Items.Add;
        ListItem.Caption:=qry1 .FieldByName('xuehao').AsString;
        ListItem.SubItems.Add(qry1 .FieldByName('name').AsString);
        ListItem.SubItems.Add(qry1 .FieldByName('age').AsString);;
        ListItem.SubItems.Add(qry1 .FieldByName('salary').AsString);
        end;
        next;
        end;
      end;
      finally
      tlistview(lv1 ).Items.EndUpdate;
      end;
      end;
procedure TForm1.btn1Click(Sender: TObject);
var
  listitem:TListItem ;
begin
   tlistview(lv1 ).Items.BeginUpdate;
    try
       with lv1 do
        begin
        ListItem:=Items.Add;
        ListItem.Caption:=Trim(edt1 .Text );
        ListItem.SubItems.Add(Trim(edt2 .Text ));
        ListItem.SubItems.Add(Trim(edt3 .Text ));
        ListItem.SubItems.Add(Trim(edt4 .Text ));
        end;
         finally
      tlistview(lv1 ).Items.EndUpdate;
//  Form2 :=TForm2 .Create(nil);
//  Form2 .ShowModal ;
//  Form2 .Free;
end;
end ;

procedure TForm1.btn2Click(Sender: TObject);
var
    i:Integer ;
begin
For i:=0 to lv1.Items.Count-1 Do
  If lv1.Items[i].Selected then  //i=ListView1.Selected.index
    begin
      lv1.Items.Delete(i);  //删除当前选中行
      ShowMessage('删除成功！');
    end;

end;

procedure TForm1.btn3Click(Sender: TObject);
begin
 if lv1.Selected <> nil then
 begin
  edt1 .Text := lv1 .Selected.Caption;
  edt2 .Text :=lv1 .Selected .SubItems [0];
  edt3 .Text :=lv1 .Selected .SubItems [1] ;
  edt4 .Text :=lv1 .Selected .SubItems [2] ;
  end
  else begin
  ShowMessage('No record is seleceted!');
  end;
end;