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

본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------

 

아래와 같이 열거형을 2개 이상 지정후 TypeHelper를 이용해서 각 열거형 별로 String 을 하나의 함수에서 가지고 올수 있나요?

열거형을 2개 지정한다

 

TGeoDirection = (North, East, South, West);

TGeoDirectionType2 = (NorthType2, EastType2, SouthType2, WestType2);

 

TGeoDirectionHelper = record helper for TGeoDirection

    function ToString: string; inline;
  end;
 
function TGeoDirection.ToString: string;
begin
  case Self of
      TGeoDirection.North:  Result := '북쪽 (N)';
      TGeoDirection.East:   Result := '동쪽 (E)';
      TGeoDirection.South:  Result := '남쪽 (S)';
      TGeoDirection.West:   Result := '서쪽 (W)';
    else
      raise Exception.Create('Unknown "TGeoDirection" value');
  end;
end;
 
 
TGeoDirectionType2Helper = record helper for TGeoDirectionType2
    function ToString: string; inline;
  end;
function TGeoDirection.ToString: string;
begin
  case Self of
      TGeoDirection.North:  Result := '북쪽 Type2 (N)';
      TGeoDirection.East:   Result := '동쪽 Type2 (E)';
      TGeoDirection.South:  Result := '남쪽 Type2 (S)';
      TGeoDirection.West:   Result := '서쪽 Type2 (W)';
    else
      raise Exception.Create('Unknown "TGeoDirection" value');
  end;
end;
 
이렇게 열거형및 TypeHelper 지정후 하나의 함수에서 TypeHelper로 지정한 .ToString을 사용할수 있는 방법 문의 드립니다
 
 
 
GetAllEumnString(TGeoDirection);  -> TGeoDirection에 해당하는 열거형의 String 값을 가지고 옴
GetAllEumnString(TGeoDirectionType2);  -> TGeoDirectionType2에 해당하는 열거형의 String 값을 가지고 옴
 
이렇게 할수 잇는 방법 문의 드립니다
 
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20072
공지 유용한 관련 사이트 관리자2 2014.03.20 58977
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102605
1859 RAD Studio XE2 에러 메세지 관련 file 휴먼토크 2017.07.21 144
1858 패키지 포함한 컴파일 방법 문의합니다. riveriron 2017.07.21 172
1857 델파이 시애틀 관련문의 [1] file rrraggg 2017.07.20 430
1856 xe 10.2 에서 Form transparency 기능 문의 vastia 2017.07.20 147
1855 Raize 컴포넌트 사용방법 문의 [1] 이영진 2017.07.19 521
1854 DataSnap, EMS, Multitier가 로드가 안됩니다. [2] file 나즈나 2017.07.18 139
1853 Delphi2009 TWebbrowser와 win10 Creative 업데이트 이후 발생되는 문제 [1] kpic 2017.07.19 395
1852 [공유] FireDAC으로 MySQL과 어떻게 연결하나요? [3] 험프리 2017.07.14 2718
1851 Pagecontrol 커서 위치의 탭 Active 방법에 대해 고수님께 질문드립니다. 빵식 2017.07.19 356
» 열거형 종류별로 TypeHelper를 이용 [1] kspark 2017.07.17 236
1849 스마트폰 앱에서 report 만드는 방법 문의 김하나 2017.07.19 518
1848 RxToolEdit, RxCurrEdit [1] kwy0702 2017.07.17 203
1847 DataSNAP 연결하여 클라이언트에서 업무처리중에 네트웍이 끊기면 [2] 0Erros 2017.07.16 425
1846 CallBack 문의사항 [1] 파란하늘 2017.07.13 180
1845 FireDAC 사용중 프로그램 종료 시 오류 [3] 푸우웅 2017.07.14 284
1844 더버깅 시 실시간 메모리 뷰 나즈나 2017.07.13 191
1843 윈도우 기반에서 원격 디버깅은 어떻게 하나요? 험프리 2017.07.12 408
1842 델파이 도쿄 리눅스 app 개발 관련 질문 사항입니다. [3] 우진우 2017.07.07 189
1841 델파이 도쿄 버전 리눅스 개발 관련 질문 사항입니다. 우진우 2017.07.07 151
1840 Android에서 TImage 의 크기가 왜 변하나요? [2] file 쿠리 2017.07.05 388