자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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
2033 FastReport 관련 문의 [1] 쿤이 2021.07.12 285
2032 class EOleSysError 문제 file 김준수 2021.06.23 465
2031 C++ DLL 동적 배열을 어떻게 받아야 하나요? [1] 까막 2021.06.17 421
2030 엑셀 매크로 질문입니다. [2] 희망나라 2020.05.15 559
2029 ios 앱 빌드 관련 문의 [2] 초보개발자 2021.05.03 515
2028 iOS에서 Android에서처럼 사용되는 Toast 질문입니다. [1] 랩실전기 2021.05.11 508
2027 10.4 시드니에서 새로운 프로젝트 시작 오류 [2] file midas 2021.05.25 502
2026 퀵리포트 -> PDF 변환 시 한글 깨짐 현상 질문입니다. [3] 으아앙 2021.06.03 802
2025 Delphi 10.4 버전 맥용으로 컴파일시 오류 발생하는 이유가 궁금합니다. [2] 델포이 2021.06.04 344
2024 mac os 개발 환결 세팅 관련 문의. [2] 델포이 2021.06.03 344
2023 Runtime error 216 at 5005F106 [2] 김동현 2021.05.28 471
2022 Delphi XE10.3의 TLabel이 Transparent가 안되는 문제 질문 [1] DevCK 2021.05.25 4984
2021 firedac 질문입니다 [2] 희망나라 2021.05.19 352
2020 10.4 시드니에서 QuickReport Pro 6 이 설치되나요? [23] 왕초보 2020.10.06 2906
2019 Delphi 7 REST Client 개발 문의 [2] DevCK 2021.05.12 814
2018 본사 mypage [1] DHP 2021.05.17 2603
2017 XE7에서 bpl 컴포넌트 설치가 안됩니다. [1] 김동현 2021.05.13 448
2016 [마이그레이션] del7 소스를 10.2.3 tokyo prof. 에서 compile 도중 생긴 에러입니다. [2] darwin4078 2021.05.12 317
2015 [BRCC32 Error] "brcc32" exited with code 27. [3] file Dev_기어 2021.05.07 614
2014 Android 컴파일 오류 [2] file 초보개발자 2021.04.07 409