Delphi中从ListBox中删除重复项

发布于 2024-12-11 06:52:56 字数 540 浏览 0 评论 0原文

如何从 Delphi 的 ListBox 中删除重复的项目？我知道这一点：

for i := ListBox1.Items.Count-1 downto 1 do
     for j := 0 to i-1 do
       if ListBox1.Items[i] = ListBox1.Items[j] then
         ListBox1.Items.Delete[i];

但仅当前 10 个字母相同时我才需要删除重复项，所以我尝试了以下操作：

for i := ListBox1.Items.Count-1 downto 1 do
         for j := 0 to i-1 do
           if copy(ListBox1.Items[i],1,11) = copy(ListBox1.Items[j],1,11) then
             ListBox1.Items.Delete[i];

但是当我尝试删除重复项时，我得到了 list out of bond 错误:(

原文

How can I remove duplicate items from ListBox in Delphi? I know this:

for i := ListBox1.Items.Count-1 downto 1 do
     for j := 0 to i-1 do
       if ListBox1.Items[i] = ListBox1.Items[j] then
         ListBox1.Items.Delete[i];

But I need to remove duplicates only if first 10 letters are the same, so I have tried this:

for i := ListBox1.Items.Count-1 downto 1 do
         for j := 0 to i-1 do
           if copy(ListBox1.Items[i],1,11) = copy(ListBox1.Items[j],1,11) then
             ListBox1.Items.Delete[i];

But when I try to remove duplicates, I get list out of bonds error :(

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

过期情话 2024-12-18 06:52:56

您需要在Delete之后添加一个break：（

if Copy(ListBox1.Items[i], 1, 10) = Copy(ListBox1.Items[j], 1, 10) then
begin
  ListBox1.Items.Delete(i); 
  break;
end;

事实上，如果您Delete索引为i的项目，那么下次如何进行比较 if Copy(ListBox1.Items[i], 1, 10) = ... ？）

You need to add a break after the Delete:

if Copy(ListBox1.Items[i], 1, 10) = Copy(ListBox1.Items[j], 1, 10) then
begin
  ListBox1.Items.Delete(i); 
  break;
end;

(Indeed, if you Delete the item with index i, then how can you make the comparison if Copy(ListBox1.Items[i], 1, 10) = ... the next time?)

回复收藏 0 原文

我不在是我 2024-12-18 06:52:56

如果您不介意对 ListBox1 中的项目进行排序，则可以一次性删除重复项。

var
  s: string;
  I: Integer;
begin
  ListBox1.Sorted := True;
  s := '';
  I := 0;
  while I < ListBox1.Count do
  begin
    if s = copy(ListBox1.Items[I], 1, 10) then
    begin
      ListBox1.Items.Delete(I);
    end
    else
    begin
      s := copy(ListBox1.Items[I], 1, 10);
      Inc(I);
    end;
  end;
end;

If you don't mind sorting the items in ListBox1 you can delete the duplicates in one pass.

var
  s: string;
  I: Integer;
begin
  ListBox1.Sorted := True;
  s := '';
  I := 0;
  while I < ListBox1.Count do
  begin
    if s = copy(ListBox1.Items[I], 1, 10) then
    begin
      ListBox1.Items.Delete(I);
    end
    else
    begin
      s := copy(ListBox1.Items[I], 1, 10);
      Inc(I);
    end;
  end;
end;

回复收藏 0 原文

~没有更多了~