문자열 형식의 클래스 이름을 사용하여 Delphi 6 클래스 객체가 파생 클래스인지 확인하십시오.

Question

로깅 및보고 이유로 인해 예외에 속한 클래스 이름 및 메시지가있는 개체를 만듭니다. 나는 이것을 수행하여 Exception 객체의 수명을 관리 할 필요가 없다. 내가하고 싶은 것은 RTTI 식별의 장점을 되찾아 델파이 6에서 "is"연산자를 사용하여 객체가 주어진 클래스에서 파생되었는지를 알 수 있도록 해줍니다.

문자열에 포함 된 클래스가 다른 클래스에서 파생되었는지 여부를 알기 위해 클래스 이름을 문자열 형식으로 저장 하시겠습니까?

개체의 클래스가 strClassName에 저장되어 있고 해당 클래스가 "derivedClass"라고 가정합니다. 또한 derivedClass는 baseClass에서 파생됩니다. strClassName에있는 문자열 형식의 클래스가 baseClass에서 파생되었는지 여부를 알 수있는 함수를 작성할 수 있습니까? 예 :

// Hypothetical function that returns TRUE if the class in strClassName is 
// derived from the class passed in theBaseClass 
function isDerivedClass(strClassName: string; theBaseClass: TAnyClass): boolean; 

해당 방법의 본문은 어떻게 생깁니 까? 당신은 예외가 이름이 'strClassName'에 의해 클래스를 찾을 수없는 경우, GetClass 대신 FindClass의 사용 제기하지 않으려면

Answer 1

function isDerivedClass(strClassName: string; theBaseClass: TClass): boolean; 
begin 
    Result := FindClass(strClassName).InheritsFrom(theBaseClass); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    RegisterClass(TLabel); // must be registered to be found by FindClass/GetClass 

    if isDerivedClass('TLabel', TWinControl) then 
    .. 

:

function isDerivedClass(strClassName: string; theBaseClass: TClass): boolean; 
var 
    aClass: TClass; 
begin 
    Result := False; 
    aClass := GetClass(strClassName); 
    if Assigned(aClass) then 
    Result := aClass.InheritsFrom(theBaseClass); 
end;