[Delphi] 어떤 클래스가 어떤 프로퍼티를 가지고 있는지 검사

PPropInfo 라는 타입과 GetPropInfo 라는 함수로 검사가 가능하다.

 

예를 들어, 폼 내의 Component 중 TsuiFileTheme 을 프로퍼티로 가지고 있는 Component 의 리스트를 출력한다고 하면 아래와 같이 한다.

 

// uses 에 TypInfo 추가해야 함  

 

procedure Button1Click(Sender: TObject); 

var 

i: Integer; 

PropInfo: PPropInfo; 

begin 

// 폼 내의 Component 를 몽땅 뒤진다 

for i:=0 to ComponentCount-1 do begin 

// 해당 Component 가 FileTheme 이라는 프로퍼티를 가지고 있는지 검사 

PropInfo:=GetPropInfo(Components[i], 'FileTheme'); 

// FileTheme 이라는 프로퍼티를 가지고 있다면 메모장에 출력 

if PropInfo<>nil then Memo1.Lines.Add(Components[i].Name); 

end; 

end;