delphi에서 RTTI 사용을 단순화 할 수 있습니까?

Question

는 델파이 XE3에서 RTTI와 몇 가지 작업을하고있어 지금까지 다음과 같이이 프로 시저를 호출 결과는 :

procedure MyProc(ARecordInstance : pointer; ARecordType : PTypeInfo); 

을 다음과 같이 나는이 루틴을 호출 :

MyProc(@MyRec TypeInfo(TMyRec)); 

이 모든 것이 정상적으로 작동합니다.

내가 내 절차를 간소화 할 수있을 것을 나에게 발생

procedure MyProc(var ARecord); or procedure MyProc(ARecord : pointer); 

내 프로 시저 내 ARecord에서 유형 정보를 얻을 수 있습니다 ..if. 하지만 'ARecord'와 같은 '인스턴스'로 작업하면 TypeInfo는 '유형 식별자가 필요합니다'라는 오류를 표시합니다. 내 레코드에 단일 포인터 참조를 전달하고 그 형식을 추출 할 수있는 방법이 있습니까?

감사

Answer 1

여러 유형을 지원해야하는 경우, 당신은 일반 매개 변수, 다음 절차가 작업되는 데이터가 입력 알 수있다 클래스, 예를 들면 내부에 프로 시저를 래핑 할 수 있습니다

type 
    MyClass<T> = class 
    public 
    class procedure MyProc(var AInstance : T); 
    end; 

class procedure MyClass<T>.MyProc(var AInstance : T); 
var 
    InstanceType: PTypeInfo; 
begin 
    InstanceType := TypeInfo(T); 
    //... 
end; 

.

MyClass<TMyRec>.MyProc(MyRec); 

Answer 2

왜 않은 입력 VAR 매개 변수뿐만 아니라 코드 :

procedure MyProc(var ARecordInstance; ARecordType : PTypeInfo); 
begin 
    ... 

당신은 전화를 할 수있을 것입니다 :

MyProc(MyRec,TypeInfo(TMyRec)); 

그래서 @MyRec를 입력하지 마십시오. 그러나 당신은 또한 강력한 타입 검사를하지 않을 것입니다.

레미가 제안한 제네릭을 사용하면 강력한 입력이 가능하지만 좀 더 많은 코드가 생성됩니다.