새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 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; 

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.8~2019.12 관리자 2015.01.22 9096
공지 유용한 관련 사이트 관리자2 2014.03.20 46546
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 87565
1597 개발도구 종류들에 대해서 질문드립니다. [2] 베스트훈 2019.07.17 108
1596 Richedit 하아퍼링크 속성 DB 저장에 관하여 [1] 델마당쇠 2019.07.16 70
1595 BDE 10.3 Rio 설치시, oracle client 미인식 문제 [1] file 하히후헤호 2019.07.11 108
1594 Rio 10.3 에서 사용할수 있는 WebSocket 이 있으면 추천좀 해주세요 [1] 이치고 2019.07.12 350
1593 브레이크 포인트 무작동 [3] file 젠틀 2019.05.07 222
1592 BaaS 연동개발 문의 [2] 이치고 2019.07.09 80
1591 Delphi 툴을 활용하여 윈도우프로그램에 광고 붙이기 HEETS 2019.07.04 101
1590 appearance 이용시 datetimepicker 표시 오류 file 파란하늘 2019.07.04 64
1589 10.3 ImageViewer에서 crop 기능문의 [1] file 파란하늘 2019.07.01 81
1588 [RAD Server] REST API 접속자의 IP 알수있는 방법? [1] 1seo77 2019.06.26 105
1587 엑셀 내보내기 버전지 [1] 그몽이 2019.06.12 113
1586 Datasnap(midas) 사용시 조회 자료를 ADOQuery 에 넣고 싶습니다. [1] 블랙 2019.06.13 74
1585 ClientDataSet 사용중입니다. 이미지 또는 파일을 테이블에 넣을시 에러입니다. 어떻게들 하시나요? [1] 블랙 2019.06.14 74
1584 델파이 시애틀 사용자입니다. MariaDB [2] 시리온느 2019.06.25 109
1583 XE5 겔럭시디바이스 연결 [2] file 넓다란세상 2019.06.24 68
1582 Data Explorer의 dbExpress 항목에 누락된 것이 있습니다. 루키 2019.06.24 45
1581 PluginMain.pas(14): E2225 Never-build package 'F8PluginCore' must be recompiled file ucucucu 2019.06.24 49
1580 제브라 프린터 한글 출력 문제 [2] max 2019.06.19 311
1579 쇼핑몰 결제시스템관련 질문 유정 2019.06.24 70
1578 XE5 Firemonkey Mobile 넓다란세상 2019.06.22 42



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..