首页 > 其他 > 详细

ListView添加项目带序列

时间:2014-07-29 21:30:12      阅读:514      评论:0      收藏:0      [点我收藏+]
ListView添加项目带序列
 
bubuko.com,布布扣
 
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;




附件列表

     

    ListView添加项目带序列,布布扣,bubuko.com

    ListView添加项目带序列

    原文:http://www.cnblogs.com/xe2011/p/3876254.html

    (0)
    (0)
       
    举报
    评论 一句话评论(0
    关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
    © 2014 bubuko.com 版权所有
    打开技术之扣,分享程序人生!