ListView控件使用分析和总结.docxVIP

在 LISTVIEW 里设计了三列，我要选出第三列的值，我这样写的 edit3.Text :=ListView1.Selected.SubItems 可这样把第二。三列都选了出来， 我搜索了以前的帖子 SAVE procedure SaveListviewStrings( listview: TLIstview; const filename: String ); var sl: TStringlist; S: String; i, k: Integer; item: TLIstItem; begin Assert( Assigned( listview )); if listview.ViewStyle vsReport then raise Exception.CreateFmt(eInvalidViewstyle, [SaveListviewStrings, ]); sl := TStringlist.Create; try for i := 0 To listview.items.count - 1 do begin item := listview.Items[i]; S:= item.Caption; for k := 0 to item.SubItems.Count - 1 do S := S + #9 + item.Subitems[k]; sl.Add( S ); end; sl.SaveToFile( filename ); finally sl.free end; end; LOAD procedure LoadListviewStrings( listview: TLIstview; const filename: String ); var sl, lineelements: TStringlist; i: Integer; item: TLIstItem; begin Assert( Assigned( listview )); if listview.ViewStyle vsReport then raise Exception.CreateFmt(eInvalidViewstyle, [LoadListviewStrings, ]); sl := TStringlist.Create; try sl.LoadFromFile( filename ); lineelements := Tstringlist.Create; try for i := 0 to sl.count - 1 do begin lineelements.Clear; SplitString( sl[i], #9, lineelements ); if lineelements.Count 0 then begin item := listview.Items.Add; item.Caption := lineelements[0]; lineelements.Delete(0); item.SubItems.Assign( lineelements ); end; end; finally lineelements.free; end; finally sl.free end; end; var I: Integer; Item: TListItem; begin ListView1.Items.Clear; ListView1.Items.BeginUpdate; for I := 0 to 1000 do begin Application.ProcessMessages; Item := ListView1.Items.Add; Item.Caption := 000; Item.SubItems.Add(Well); Item.SubItems.Add(Well); Item.SubItems.Add(Well); ... end; ListView1.Items.EndUpdate; end; 如果要删除全部：listview1.items.clear 如果要删除当前所选行：listview1.selected.delete 如果要删除指定行.listview1.items.item[i].delete 删除 listview 里相同的列 listview 内容如下 name pass 王强 1111 小明 5678 张垒 5845 王强 45455 王异 2521 怎么样可以删除相同的列 以前面 name 的内容为准，删除最下面的那列在这里应该删除的是 王强 45455 这一列 joky1981(2003-04-29 22:45) procedure TForm1.Button1Click(Sende