加了SL.Duplicates := dupIgnore;还是没有去重啊。

冥界3大法王

procedure TForm1.复制第一列内容到剪贴板ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var
  剪贴板: TClipboard;
  SL: TStringList;
  I: Integer;
begin
  剪贴板 := TClipboard.Create;
  try
    SL := TStringList.Create;
    SL.Duplicates := dupIgnore;
//    SL.Sorted := True;
    try
      for I := 0 to ListView1.Items.Count - 1 do
      begin
        SL.Add(ListView1.Items[I].SubItems[0]);
      end;
      剪贴板.AsText := SL.Text;
    finally
      SL.Free;
    end;
  finally
    剪贴板.Free;
  end;
end;


加了SL.Duplicates := dupIgnore;还是没有去重啊。

非得加上这句  SL.Sorted := True; 才行
但是我不希望打乱原有的顺序啊。

roker520

SL.Add(ListView1.Items[I].SubItems[0]); 在这之前自己判断一下有没有重复，有重复就不执行，应该能达到效果吧

冥界3大法王

roker520 发表于 2024-11-22 10:26
SL.Add(ListView1.Items.SubItems[0]); 在这之前自己判断一下有没有重复，有重复就不执行，应该能达到效果 ...

我就纳闷儿这两句
  SL.Duplicates := dupIgnore;
//    SL.Sorted := True;
你不是说忽略重复项啊。
为啥我非得排序才能落实到位呢？

冥界3大法王

如您所愿,加了一句： if pos(ListView1.Items[I].SubItems[0], SL.text) = 0 then
这次达标了。