首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

Delphi 2009中的Generic TList <>在IndexOf上崩溃

在Delphi 2009中,TList<>是一个泛型类,用于存储对象。IndexOf方法用于查找指定对象在列表中的索引。如果在列表中找不到指定对象,则返回-1。

在某些情况下,使用IndexOf方法可能会导致程序崩溃。这通常是由于比较对象时出现问题。为了解决这个问题,您可以:

  1. 重写对象的Equals方法。Equals方法用于比较两个对象是否相等。在IndexOf方法中,它将使用Equals方法来比较列表中的对象和指定对象。
代码语言:delphi
复制
TMyObject = class
  // ...
  public
    function Equals(Obj: TObject): Boolean; override;
  // ...
end;

function TMyObject.Equals(Obj: TObject): Boolean;
begin
  Result := (Obj is TMyObject) and (Self.SomeProperty = TMyObject(Obj).SomeProperty);
end;
  1. 使用自定义比较器。如果您不能重写对象的Equals方法,或者希望使用不同的比较方式,可以使用自定义比较器。自定义比较器是一个实现IComparer<T>接口的类。
代码语言:delphi
复制
TMyComparer = class(TInterfacedObject, IComparer<TMyObject>)
  // ...
  public
    function Compare(const Left, Right: TMyObject): Integer;
  // ...
end;

function TMyComparer.Compare(const Left, Right: TMyObject): Integer;
begin
  if Left.SomeProperty< Right.SomeProperty then
    Result := -1
  else if Left.SomeProperty > Right.SomeProperty then
    Result := 1
  else
    Result := 0;
end;

然后,在调用IndexOf方法时,传递自定义比较器。

代码语言:delphi
复制
var
  MyList: TList<TMyObject>;
  MyObject: TMyObject;
  Comparer: IComparer<TMyObject>;
  Index: Integer;
begin
  MyList := TList<TMyObject>.Create;
  try
    // ...
    MyObject := TMyObject.Create;
    // ...
    Comparer := TMyComparer.Create;
    Index := MyList.IndexOf(MyObject, Comparer);
    // ...
  finally
    MyList.Free;
  end;
end;

这样,您就可以避免IndexOf方法中的崩溃问题。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

截取程序的网络封包(Delphi Hook API)

有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的**头进行分析,得到请求的地址等.这次我们可以用一些例如WPE, Sniffer之类的工具来达到目的.但是工具功能有限,要想实现更强大的功能,还是我们自己动手来DIY吧. 拦截网络数据封包的方法有三种,一是将网卡设为混杂模式,这次就可以监视到局域网上所有的数据包,二是HOOK目标进程的发送和接收的API函数,第三种方法是自己实现一个代理的DLL.在这里我们使用HOOK API的方法,这样易于实现,而且也不会得到大量的无用数据(如第一种方法就会监视到所有的网络数据). 下面是一个尽量简化了的API HOOK的模版,原理是利用消息钩子将DLL中的代码注入到目标进程中,再用GetProcAddress得到API函数入口地址,将函数入口址改为自己定义的函数入口,这样就得到了API函数的相应参数,处理完后,再改回真实API函数入口地址,并调用它. HOOK.DLL的代码:

05

浅谈泛型

我们在写一些通用库的时候,经常需要写一个算法,比如交换,搜索,比较,排序,转换等算法,但是需要支持int,string等多种类型。通常我们可能会把代码复制多遍分别处理不同类型的数据。有没有一种办法,让我们只写一遍算法的实现,就可以支持所有类型的数据?泛型(generic)是C#提供的一种机制,它可以提供这种形式的代码重用,即“算法重用”。简单来说,开发人员在定义算法的时候并不设定算法操作的数据类型,而是在使用这个算法的时候再指定具体的数据类型。大多数算法都封装在一个类型中,CLR允许创建泛型引用类型和泛型值类型,以及泛型接口和泛型委托。所以CLR允许在类或接口中定义泛型方法。来看一个简单例子,Framework类库定义了一个泛型列表算法,它知道如何管理对象集合。泛型算法没有设定数据的类型。要在使用这个泛型列表算法时指定具体的数据类型。封装了泛型列表算法的FCL类称为List<T>。这个类是System.Collections.Generic命名空间中定义的。下面展示了类的定义:

03

四种简单的排序算法

我觉得如果想成为一名优秀的开发者,不仅要积极学习时下流行的新技术,比如WCF、Asp.Net MVC、AJAX等,熟练应用一些已经比较成熟的技术,比如Asp.Net、WinForm。还应该有着牢固的计算机基础知识,比如数据结构、操作系统、编译原理、网络与数据通信等。有的朋友可能觉得这方面的东西过于艰深和理论化,望而却步,但我觉得假日里花上一个下午的时间,研究一种算法或者一种数据结构,然后写写心得,难道不是一件乐事么?所以,我打算将一些常见的数据结构和算法总结一下,不一定要集中一段时间花费很大精力,只是在比较空闲的时间用一种很放松的心态去完成。我最不愿意的,就是将写博客或者是学习技术变为一项工作或者负担,应该将它们视为生活中的一种消遣。人们总是说坚持不易,实际上当你提到“坚持”两个字之时,说明你已经将这件事视为了一种痛苦,你的内心深处并不愿意做这件事,所以才需要坚持。你从不曾听人说“我坚持玩了十年的电子游戏”,或者“坚持看了十年动漫、电影”、“坚持和心爱的女友相处了十年”吧?我从来不曾坚持,因为我将其视为一个爱好和消遣,就像许多人玩网络游戏一样。

02
领券