자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Q. 

안녕하세요. 리오 10.3 사용중 해결 못하고 있는 부분이 있어서 부탁 드려요. ㅠㅠ 

열거형 타입 
  TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp); 

set 타입 
  TBorderIcons = set of TBorderIcon; 


set 타입인 TBorderIcons 을 파라미터로 주었을 때 
biSystemMenu, biMinimize, biMaximize, biHelp 을 프린트 하려고하는데요 

열거형은 처리했는데 set 타입은 어떻게 프린트해야 할지 아무리 구글링해봐도 
해결방법이 보이지 않습니다.  ㅠㅠ 

procedure PrintSetType(TypeInfo: PTypeInfo); 
begin 
    // 이걸 못 만들겠어요 ㅠㅠ 
end; 


그러니까 

  TMyEnum = (etOne, etTwo, etThree, etFour, etFive); 
  TMySets = set of TMyEnum; 

이 있을 때 

procedure Form1.Button1Click(Sender: TObject); 
begin 
   PrintSetType(System.TypeInfo(TMySets)); 
end; 

set 타입인 TMySets 를  파라미터로 주면  
etOne, etTwo, etThree, etFour, etFive 을 메모장에 프린트 하는 거에요 

델파이 고수분 좀 도와주세요 ㅠㅠ 

http://delphi.borlandforum.com/impboard/impboard.dll?action=read&db=del_qna&no=15999

 

A. 

TMySets 즉, 집합의 열거형 타입(TMyEnum) 정보만 알아오면 되네요? 

TypeInfo.TypeData.CompType^; 으로 집합의 열거형 타입 정보를 알아올 수 있습니다. 
System.TypInfo.pas 소스코드의 TTypeData 선언부를 보면 아래와 같은 코드가 있습니다. 
... 
      tkSet: ( 
        SetTypeOrSize: UInt8; 
        CompType: PPTypeInfo; 
        {SetAttrData: TAttrData; 
         SetLoByte: UInt8; 
         SetSize: UInt8}); 
... 
TTypeData는 tkSet(집합)인 경우 CompType을 제공합니다. 
여기에 열거형의 타입정보가 담겨져 있습니다. 

전체적인 코드는 다음과 같이 작성하면 되겠네요. 
procedure TForm1.PrintSetType(TypeInfo: PTypeInfo); 
var 
  I, Min, Max: Integer; 
  SetName: string; 
  EnumType: PTypeInfo; 
begin 
  if TypeInfo.Kind = tkSet then 
  begin 
    // 기본 값 
    Min := 0; 
    Max := 255; 
    // 집합(set of)의 타입(열거형) 정보 
      // 열거형의 갯수 파악 
    EnumType := TypeInfo.TypeData.CompType^; 
    if EnumType.Kind = tkEnumeration then 
    begin 
      Min := EnumType.TypeData.MinValue; 
      Max := EnumType.TypeData.MaxValue; 
    end; 

    for I := Min to Max do 
    begin 
      SetName := GetSetElementName(TypeInfo.TypeData.CompType^, I); 
      Memo1.Lines.Add(SetName); 
    end; 
  end; 
end; 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
3159 델파이 도면편집 컴포넌트 문의 file 오바라미 2021.02.26 214
3158 질문] 코드사이트 중국어 표기 [1] 날개의꿈 2021.02.26 158
3157 linux console에서 webbrowser에러 100jk 2021.02.23 107
3156 Android SDK 관련 문의 [2] file 신우 2021.02.16 251
3155 [문의] C++builder 10.4 에서 Troubleshooting: Cannot Run on an Android Device 오류입니다. [1] file 구석 2021.01.31 215
3154 Xe5 DB 원견 접속 쿼리 실행 오류 문의 합니다. ㅠㅠ [2] 조은놈 2021.02.02 172
3153 ExportGridToXLSX 한글 & 특수 문자 사용시 오류 가나다 2021.02.10 387
3152 10.3 Rio 버젼에서 Code Insight 기능 오류현상 [1] sihwan 2018.12.14 390
3151 RAD Studio 10.3.2 Code Insight의 지속적인 문제 [2] 포비 2019.10.02 395
3150 Xe7 datasnap 안드로이드11 업그레이드후 실행이 안됨 [1] 천년바우 2021.02.08 203
3149 TStreamReader 한글깨짐 문제 [6] file IslamsWine 2020.02.29 2920
3148 초보적인 문의 드립니다. [4] BD 2021.02.04 194
3147 CodeSite 질문입니다. [2] BD 2021.01.27 211
3146 IOS 배포 에러 질문드립니다. [PAClient Error] Error: E0776 [1] syc 2021.01.28 353
3145 CodeSite 질문 입니다. [3] 늦바람 2015.03.27 650
3144 안드로이드11에서 실행이 멈추는 원인 해결 방법 부탁 [1] hms123 2021.01.29 312
3143 모바일에서 이미지 로딩시, 사진 방향이 바뀌는 이유 [3] delphiman 2021.01.26 334
3142 [문의] C++ Builder 10.x.x 로 개발된 프로그램 재배포는 어떻게합니까? [2] file inhi 2021.01.14 272
3141 FireDac 쿼리 실행시 가끔 발생되는 Access Violation을 못잡겠습니다.. [1] 육식육식 2021.01.20 244
3140 VCL어플리케이션 개발 중 GridPanel 질문드립니다! [2] file 육식육식 2020.04.10 509