加了SL.Duplicates := dupIgnore;还是没有去重啊。
本帖最后由 冥界3大法王 于 2024-11-22 10:19 编辑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.SubItems);
end;
剪贴板.AsText := SL.Text;
finally
SL.Free;
end;
finally
剪贴板.Free;
end;
end;
https://static.52pojie.cn/static/image/hrline/2.gif
加了SL.Duplicates := dupIgnore;还是没有去重啊。
非得加上这句SL.Sorted := True; 才行
但是我不希望打乱原有的顺序啊。{:301_974:} SL.Add(ListView1.Items.SubItems); 在这之前自己判断一下有没有重复，有重复就不执行，应该能达到效果吧 roker520 发表于 2024-11-22 10:26
SL.Add(ListView1.Items.SubItems); 在这之前自己判断一下有没有重复，有重复就不执行，应该能达到效果 ...
我就纳闷儿这两句
SL.Duplicates := dupIgnore;
// SL.Sorted := True;
你不是说忽略重复项啊。
为啥我非得排序才能落实到位呢？ 如您所愿,加了一句： if pos(ListView1.Items.SubItems, SL.text) = 0 then
这次达标了。
页:
[1]