델파이에서 일반 typecasting하는 방법?

Question

나는 기본 클래스 테스트

type 
Tinfo = procedure of object; 

Test = class(TObject) 
public 
    procedure Add (const a : Tinfo); reintroduce ; 
end; 


procedure Test.Add(const a: Tinfo); 
begin 
    Writeln('base class add function'); 
    // dosomething more 
end; 

아래 정의하고 난이 기본 클래스

TTesting<T> = class(Test) 
    public 
    procedure Add (const a : T ); reintroduce ; 
    end; 

내가 Tinfo-T를 타입 캐스팅 오전 파생 제네릭 클래스를 가지고 있지만, 그것은 나에게 오류를 제공

procedure TTesting<T>.Add(const a : T); 
begin 
    inherited Add(Tinfo(a)); // gives me error here 
end; 

내가 구현할 수있는 방법이 있습니까?

Answer 1

는 먼저 캐스트가 잘못, 당신은 분명히 당신이 그것을 더하게 어떤 식 으로든 다형성 할 수없는 종류 인 객체의 절차에 캐스팅을 입력하려는 경우에는 a와하지 T.

캐스팅 할 이를 일반 유형으로 변환하는 의미.

T는 무엇이되어야합니까? 그것은 귀하의 코드에서 TInfo 일 수 있습니다.

그러나 T를 이벤트/메소드 유형으로 사용하려면 기본 클래스에 TMethod를 저장 한 다음 일반 클래스의 TMethod와 함께 사용해야합니다. 그러나 T를 이벤트 유형으로 제한하는 제약 조건을 가질 수 없다는 것을 기억하십시오. 그래서 생성자에서 확인할 수 있습니다.

type 
    PMethod = ^TMethod; 

    Test = class(TObject) 
    public 
    procedure Add(const a: TMethod); reintroduce ; 
    end; 

procedure Test.Add(const a: TMethod); 
begin 
    Writeln('base class add function'); 
    // dosomething more 
end; 

type 
    TTesting<T> = class(Test) 
    public 
    constructor Create; 
    procedure Add(const a: T); reintroduce ; 
    end; 

constructor TTesting<T>.Create; 
begin 
    Assert(PTypeInfo(TypeInfo(T)).Kind = tkMethod); 
    inherited Create; 
end; 

procedure TTesting<T>.Add(const a: T); 
begin 
    inherited Add(PMethod(@a)^); 
end;