当前位置：文江博客话题详情

哪个 Delphi 数据结构可以保存唯一整数列表？

发布于 2024-09-26 18:49:25 字数 191 浏览 4 评论 0原文

当我处理 Java 问题时，我使用集合模式。然而，在 Delphi 中这样做是一场噩梦，因为没有 Integer 对象来处理事情。

我需要一个保存数字的数据结构。我希望能够添加数字、删除数字以及检查集合的内容，并且每个数字必须是唯一的。

我对需要自己实施和测试错误的解决方案不感兴趣。有没有像Java的HashTable这样现成的对象？

原文

分享到QQ

分享到微博

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

发布评论

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

溺孤伤于心 2024-10-03 18:49:25

uses GpLists;

var
  numberList: TGpIntegerList;
begin
  numberList := TGpIntegerList.Create;
  numberList.Duplicates := dupIgnore;
  numberList.Sorted := true;
  numberList.add(1);
  numberList.add(2);
  numberList.add(3);
  numberList.add(1);

GpLists 附带 BSD 许可证。它还包含一个保存 64 位整数的类 - TGpInt64List - 以及一堆其他东西。

uses GpLists;

var
  numberList: TGpIntegerList;
begin
  numberList := TGpIntegerList.Create;
  numberList.Duplicates := dupIgnore;
  numberList.Sorted := true;
  numberList.add(1);
  numberList.add(2);
  numberList.add(3);
  numberList.add(1);

GpLists comes with a BSD license. It also contains a class holding 64-bit integers - TGpInt64List - and bunch of other stuff.

回复收藏 0 原文

完美的未来在梦里 2024-10-03 18:49:25

Dictionary 或类似的就可以了。

回复收藏 0 原文

你对谁都笑 2024-10-03 18:49:25

我知道它很脏，但您可能会滥用 TStringList （或THashedStringList）。

var
  numberList: TStringList;
begin
  numberList := TStringList.Create;
  numberList.Duplicates := dupIgnore;
  numberList.Sorted := true;
  numberList.add(IntToStr(1));
  numberList.add(IntToStr(2));
  numberList.add(IntToStr(3));
  numberList.add(IntToStr(1));
  // numberList.CommaText = '1,2,3'

I know it's dirty, but you could misuse TStringList (or THashedStringList).

var
  numberList: TStringList;
begin
  numberList := TStringList.Create;
  numberList.Duplicates := dupIgnore;
  numberList.Sorted := true;
  numberList.add(IntToStr(1));
  numberList.add(IntToStr(2));
  numberList.add(IntToStr(3));
  numberList.add(IntToStr(1));
  // numberList.CommaText = '1,2,3'

回复收藏 0 原文

吲‖鸣 2024-10-03 18:49:25

这是带有泛型的 Delphi 版本的简单解决方案：

TUniqueList<T> = class(TList<T>)
public
  function Add(const Value: T): Integer;
end;

{ TUniqueList<T> }

function TUniqueList<T>.Add(const Value: T): Integer;
begin
  if not Contains(Value) then
    Result := inherited Add(Value);
end;

如果大量整数的性能很重要，那么您可以保持列表排序并使用二进制搜索

This is a simple solution for the Delphi version with generics:

TUniqueList<T> = class(TList<T>)
public
  function Add(const Value: T): Integer;
end;

{ TUniqueList<T> }

function TUniqueList<T>.Add(const Value: T): Integer;
begin
  if not Contains(Value) then
    Result := inherited Add(Value);
end;

And if performance with lots of integers is important then you can keep the list sorted and use the binary serch

回复收藏 0 原文

晨与橙与城 2024-10-03 18:49:25

“标准”VCL 库中的 Delphi 容器类很差。这是一个长期存在的问题，在最新版本中仅部分得到纠正。
如果您使用的是 Delphi >= 2009，那么您拥有也可以处理整数数据类型的泛型类，然后您必须编写自己的类、以非标准方式使用 TList 或使用第三方库。
如果你必须存储数字，如果它们最多 32 位长，你可以将它们存储在 TList 中，将它们转换为指针或从指针转换。您必须重写 Add() 方法以确保唯一性。您还可以使用 TBits 并将相应的“槽”设置为 true。
否则，您需要使用第三方库，例如 JCL （免费）或 DIContainers（商业）。

回复收藏 0 原文

昔日梦未散 2024-10-03 18:49:25

您可以使用 TList 来存储一组整数。它应该存储指针，但由于指针只是整数，因此在存储整数时它可以完美地工作。

回复收藏 0 原文

染墨丶若流云 2024-10-03 18:49:25

Delphi有一个单元mxarrays（Decision Cube），有一个类TIntArray，设置它的属性Duplicates为dupIgnore。它还可以对值进行排序。如果您要使用它，请参阅质量中心报告#:2703进行更正该单元中的错误。

回复收藏 0 原文

魔 2024-10-03 18:49:25

就个人而言，我强烈建议开始使用 DeCAL 来存储数据。它有 DMap 容器，可以处理几乎任何数据类型，是自我优化的，因为它使用内部红黑树，并且不允许您添加重复项（如果需要插入重复项，可以使用 DMultiMap）。 DMap 的另一个优点是在列表中查找元素非常快（比在 TStringList 中快得多）。使用 DeCal 与使用其他 Delphi 库有点不同，但是一旦您熟悉了它，您就不会在代码中使用任何 StringList。

编辑：旧版本的 DeCAL 位于 SourceForge 上，但在这里您可以找到很棒的 pdf 手册。

回复收藏 0 原文