ListView添加项目带序列

ListView添加项目带序列

 

 

function AddSelItems(listview1:TListView;ListView2:TListView):Boolean;
var
  s: string;
  I,j: Integer;
begin
  Result :=False;
   if listview1.Selected = nil then  exit;
 
   for i := 0 to listview1.items.count - 1 do
   begin
     j :=ListView2.Items.Count;
     if listview1.items[i].selected then
 
       with ListView2.Items.Add do
       begin
        Caption :=IntToStr(j);
        SubItems.add( listView1.Items[i].Caption );
        SubItems.add( 'FileName2');
       end;
   end;
  Result :=True;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   AddSelItems(ListView1,ListVIew2);
end;

来自为知笔记(Wiz)

附件列表