8

以下のコードを実行すると EAccessViolation が発生するのはなぜですか?

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;
4

4 に答える 4

5

バグのようです。

デバッグ DCU を使用してコンパイルすると (正気を失いたくない場合は、通常はそうしないでください)、比較子の呼び出しが間違っていることがわかります。比較関数の 3 番目の値 (場合によってはオプション) が設定されていないため、アクセス違反が発生します。

そのため、メソッド ポインターをジェネリック リストに入れることはできない可能性があります。

次の作品をOK：

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;

独自の比較子を定義する必要がありますが、もう少し知性がある可能性があります;-)。

于 2008-11-14T11:59:02.710 に答える
3

アクセス違反は、コンペアラーの欠落が原因です。これはパッチで修正されたのではないかと思いますが、TObjectList を使用している場合、問題は解決していません (少なくとも Delphi 2009 では)。

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

または私の場合

TObjectList<TNotifyEvent>.Create(TComparer<TNotifyEvent>.Default);
于 2010-01-14T19:13:32.123 に答える
1

カスタム比較子をに渡すことは可能TList<T>ですか? 目の前にD2009がないので試せません。

于 2008-11-14T12:19:27.757 に答える
0

上記のコードは 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;
于 2008-11-14T11:50:04.260 に答える