자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 20072
공지 유용한 관련 사이트 관리자2 2014.03.20 58977
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102605
2359 [질문]Delphi XE7 Fastreport PDF 한글 깨짐 [1] 라다 2019.01.11 683
2358 RIO 에서 TWebbrowser 문제해결 차선책 [1] 지병철 2019.01.10 277
2357 TLocationSensor 의 중지가 안됩니다. silkroad99 2019.01.11 171
2356 도쿄에서의 문제 RIO에서 해결된 부분과 아닌부분(앱제작 시) [4] 지병철 2018.12.14 572
» RTTI로 집합 타입의 내용을 출력하고 싶어요. [1] 험프리 2019.01.08 350
2354 델파이에서 정규식을 어떻게 사용하나요. [1] devdev 2019.01.07 440
2353 RIS TWebBrowser 버그 [3] 아가머하노 2018.12.17 303
2352 안드로이드 8.0이상 즉 신형 스마트폰에서 form의 SaveState는 왜 안먹을까요? 화이부동 2019.01.06 298
2351 mousedown 에서의 shift상태 [1] 100jk 2018.12.27 204
2350 rio 10.3 에서 프로젝트 file (.dpr) 편집하는 방법 [1] 닉네임없음 2019.01.03 180
2349 [이벤트 당첨자 발표] 개발자 Q&A 게시판을 가장 잘 활용해주신 개발자는?! 관리자 2019.01.03 184
2348 [연말 이벤트] 개발자 Q&A 게시판을 가장 잘 활용해주신 분 상품 증정 관리자 2018.11.12 417
2347 윈도우10 보안 업데이트 이후 FastReport 출력문제 박군80 2018.12.31 300
2346 Uses Permissions Target [3] file 헌터 2018.12.06 254
2345 델파이 RIO Webbrowser size 문의? [2] silkroad99 2018.12.27 359
2344 Delphi 10.3 리오 rest 컴포넌트 오류 [4] 호호 2018.12.22 337
2343 TStringGrid를 스타일 제외하기 [2] 나도몰라 2016.10.05 444
2342 델파이 Style과 Grid [2] file 크림슨킹 2018.12.27 344
2341 Xe10으로 앱개발 배포할때 델파이가 지원하는 안드로이드 , ios 버전 문제? [2] 미스터리 2018.12.26 290
2340 Delphi 10.3 Rio 에서 bpl 프로젝트 설치 문제. [2] 대마왕 2018.12.24 690