하는 방법 델파이에서 클래스 함수의 구현처럼 일반

Question

나는 그 클래스에서 파생 된 기본 클래스와 10 클래스가 있습니다. 기본 클래스는 procedure of object 유형의 매개 변수를 제외한 함수를 포함합니다. 이

mytype = procedure (a : integer) of object; 

baseclass = class 
public 
    procedure myproc(cont handler : mytype) ; 
end; 
procedure baseclass.myproc(cont handler : mytype) ; 
begin 
// do something 
end; 

것처럼 같은 기능을 포함하지만, 다른 파라미터 (: 정수) 오브젝트의 수순 (CONST 핸들러)과 유도 수준 즉 파생 클래스에서이 함수의 과부하를하고있다. 등이

base1mytype = procedure (a : string) of object; 

derivedclass1 = class(baseclass) 
public 
    procedure myproc(cont handler : base1mytype) ;overload; 
end; 

base2mytype = procedure (a : boolean) of object; 
derivedclass1 = class(baseclass) 
public 
    procedure myproc(cont handler : base2mytype) ;overload; 
end; 

및 .........처럼

내가이 기능을 구현하는 제네릭 클래스를 원하는 모든 그리고 난 그 함수의 예에서 내 클래스를 파생

mytype = procedure (a : integer) of object; 
    baseclass<T> = class 
    public 
     procedure myproc(cont handler : T) ; 
    end; 
    procedure baseclass<T>.myproc(cont handler : T) ; 
    begin 
    // do something 
    end; 
    and derive classes are like this 

deriveclass1 = class<baseclass <string>> 
    public 
    procedure myproc(cont handler : T) ; 
    end; 

제네릭 제약 조건 유형의 구속을 지원하지 않습니다

때문에 procedure of object

Answer 1

당신은 내부 타입 정의와 제네릭 클래스가 필요합니다

type 
    TBaseClass<T> = class 
    public 
    type 
     THandler = procedure(Arg: T) of object; 
    public 
    procedure CallHandler(Handler: THandler; Arg: T); 
    end; 

procedure TBaseClass<T>.CallHandler(Handler: THandler; Arg: T); 
begin 
    Handler(Arg); 
end;