{ -----------------------------------
メソッドリスト
履歴
2009/11/28(土)
・作成
2010/06/10(木)
・ThinkKeyExの一部として作成したものをライブラリに登録
//----------------------------------- }
unit MethodList;

interface

uses
//  Classes,    //TList
  ListClone,    //TListClone
  Types;        //TPoint

type
  TProcedure = procedure of object;
  TRecord = TProcedure;

////////////////////////////////////////////////////////////
{$include RecordList.inc.pas}
////////////////////////////////////////////////////////////

  TMethodList = TRecordList;

implementation

function RecordEqual(const Value1, Value2: TRecord): Boolean; forward;

////////////////////////////////////////////////////////////
{$include RecordList.inc.pas}
////////////////////////////////////////////////////////////

//-------------------------------
//メソッドが一致するかどうか調べる関数
function SameMethod(const A, B: TMethod): Boolean;
begin
  if (A.Code = B.Code) and (A.Data = B.Data) then
    Result := True
  else
    Result := False;
end;

function RecordEqual(const Value1, Value2: TRecord): Boolean;
begin
  if SameMethod(TMethod(Value1), TMethod(Value2)) then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;
end;


initialization
finalization
end.