클래스 매개 변수를 프로 시저 매개 변수로 전달할 수 있습니까?

Question

특정 클래스의 모든 이름을 문자열 목록으로 반환하는 함수를 만들고 싶습니다. 내가 TRttiContent.GetType() 예상하는 어쨌든에 성공하지

function GetClassElementNames (TObject) : TStringlist ; 
var 
    LCtx : TRttiContext; 
    LMethod : TRttiMethod; 
begin 
    try 
    LCtx:=TRttiContext.Create; 
    try 
     // list the methods for the any class class 
     for LMethod in LCtx.GetType(TObject).GetMethods do 
     result.add(LMethod.Name); 
    finally 
     LCtx.Free; 
    end; 
    except 
    on E: Exception do 
     result.add (E.ClassName + ': ' + E.Message); 
    end; 
end; 

Answer 1

사용 TClass,이 코드에 시도 이전 솔루션/질문 기준으로합니다.

결과를 채우기 전에 결과를 할당하지 않습니다.

이 시도 :

function GetClassElementNames(Cls: TClass) : TStringlist ; 
var 
    LCtx : TRttiContext; 
    LMethod : TRttiMethod; 
begin 
    Result := TStringList.Create; 
    try 
    LCtx := TRttiContext.Create; 
    try 
     for LMethod in LCtx.GetType(Cls).GetMethods do 
     Result.Add(LMethod.Name); 
    finally 
     LCtx.Free; 
    end; 
    except 
    on E: Exception do 
     Result.Add(E.ClassName + ': ' + E.Message); 
    end; 
end; 

var 
    Methods: TStringList; 
begin 
    Methods := GetClassElementNames(TSomeClass); 
    try 
    ... 
    finally 
    Methods.Free; 
    end; 
end; 

대신 클래스 타입의 객체 인스턴스에 전달하려는 경우이 같은 GetClassElementNames()을 포장 할 수 있습니다

function GetObjectElementNames(Object: TObject): TStringList; 
begin 
    Result := GetClassElementNames(Object.ClassType); 
end; 

그런데 새로운 TStringList 객체를 반환하는 것은 좋지 않습니다.

procedure GetClassElementNames(Cls: TClass; AMethods: TStrings); 
var 
    LCtx : TRttiContext; 
    LMethod : TRttiMethod; 
begin 
    try 
    LCtx := TRttiContext.Create; 
    try 
     for LMethod in LCtx.GetType(Cls).GetMethods do 
     AMethods.Add(LMethod.Name); 
    finally 
     LCtx.Free; 
    end; 
    except 
    on E: Exception do 
     AMethods.Add(E.ClassName + ': ' + E.Message); 
    end; 
end; 

{ 
procedure GetObjectElementNames(Object: TObject; AMethods: TStrings); 
begin 
    GetClassElementNames(Object.ClassType, AMethods); 
end; 
} 

var 
    Methods: TStringList; 
begin 
    Methods := TStringList.Create; 
    try 
    GetClassElementNames(TSomeClass, Methods); 
    ... 
    finally 
    Methods.Free; 
    end; 
end;