델파이 다른 제네릭 클래스

Question

내가 다른 일반 클래스에서 상속 일반적인 클래스 TB를 구현하려는

에서 제네릭 클래스를 상속, TA는

base = class(Tobject) 
public 
procedure test1(x : integer); virtual; 
end; 


generic TA<T>= class (base) 
public 
procedure test1(x : T); overload; 
end; 

generic TB< T, Y >= class (TA<T>) 
public 
procedure test1(addParameter1 : T ; addParameter2 : Y); overload; 
end; 

아래와 같이 그러나 그것은 작동하지 않습니다! 어떻게 내가 그걸 할 수 있는지 어떤 생각.

Answer 1

당신은 올바른 길을 가고 있습니다 만, 일반적인 매개 변수를 사용하지 않고 일반 매개 변수로 Base 클래스를 정의 할 수 없습니다 (test1 프로 시저에 대한 매개 변수는이 컨텍스트에서 알 수없는 "T"유형입니다). 이후 변경되었습니다 - 수정 수정 참조). 클래스는 자체 포함 100 %이어야하며 모든 하위 클래스에 의존하지 않고 구문 적으로 구문 분석되고 구성 될 수 있어야합니다.

따라서 Base를 제네릭 클래스로 만들거나 T 유형의 의존 관계를 제거해야합니다.

"일반"단어를 삭제하는 경우 코드가 컴파일되어야하며 Delphi에는 해당 키워드가 없으므로 전체 코드 스 니펫에 "유형"이 붙습니다.