¿Por qué TList.Remove() produce un error EAccessViolation?

Question

¿Por qué se plantea EAccessViolation al ejecutar el código siguiente?

uses 
    Generics.Collections; 
    ... 

var 
    list: TList<TNotifyEvent>; 
    ... 

begin 
    list := TList<TNotifyEvent>.Create(); 
    try 
    list.Add(myNotifyEvent); 
    list.Remove(myNotifyEvent); // EAccessViolation at address... 
    finally 
    FreeAndNil(list); 
    end; 
end; 

procedure myNotifyEvent(Sender: TObject); 
begin 
    OutputDebugString('event'); // nebo cokoliv jineho 
end; 

Answer 1

el código anterior se utiliza en TForm1 ...

uses 
    Generics.Collections; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    list: TList<TNotifyEvent>; 
begin 
    list := TList<TNotifyEvent>.Create(); 
    try 
    list.Add(myNotifyEvent); 
    list.Remove(myNotifyEvent); // EAccessViolation at address... 
    finally 
    FreeAndNil(list); 
    end; 
end; 
procedure TForm1.myNotifyEvent(Sender: TObject); 
begin 
    OutputDebugString('event'); // nebo cokoliv jineho 
end; 

Answer 2

se ve como un error.

Si compila con depuración de dcu (normalmente no lo hace a menos que quiera perder la cordura), verá que una llamada al comparador salió mal. Un tercer valor (posiblemente opcional) de una función de comparación no se establece y causa la violación de acceso.

Así que posiblemente no pueda poner punteros a los métodos en una lista genérica.

Ok las siguientes obras:

uses 
    Generics.Defaults; 

type 
    TForm4 = class(TForm) 
    ... 
    private 
    procedure myNotifyEvent(Sender: TObject); 
    end; 

TComparer<T> = class (TInterfacedObject, IComparer<T>) 
public 
    function Compare(const Left, Right: T): Integer; 
end; 

implementation 

uses 
    Generics.Collections; 

var 
    list: TList<TNotifyEvent>; 
begin 
    list := TList<TNotifyEvent>.Create(TComparer<TNotifyEvent>.Create); 
    try 
    list.Add(myNotifyEvent); 
    list.Remove(myNotifyEvent); 
    finally 
    FreeAndNil(list); 
    end; 
end; 

procedure TForm4.myNotifyEvent(Sender: TObject); 
begin 
    ShowMessage('event'); 
end; 

{ TComparer<T> } 

function TComparer<T>.Compare(const Left, Right: T): Integer; 
begin 
    Result := 0; 
end; 

Usted tiene que definir su propio comparador, con un poco más de inteligencia possiby ;-).

Answer 3

¿Es posible pasar un comparador personalizado al TList<T>? No tengo D2009 delante de mí, así que no puedo intentarlo.

Answer 4

La infracción de acceso es causada por la falta del comparador. Sospecho que esto fue fijada en un parche, pero el problema aún persiste (al menos en Delphi 2009) si se utiliza un TObjectList así que estoy actualizando con la solución más simple:

TList<TNotifyEvent>.Create(TComparer<TNotifyEvent>.Default); 

o en mi caso

TObjectList<TNotifyEvent>.Create(TComparer<TNotifyEvent>.Default);