[델파이/Delphi] 열거형(Enum) 사용 예시

델파이의 열거 타입(Enumerated type) 의 사용 방법에 대한 예제 코드

---

 

※ 선언 방법

type TMyColor = (mcRed, mcBlue, mcYellow = 5, mcBlack = mcBlue + mcYellow);

- "TMyColor" 라는 이름의 열거 타입(Enumerated type)을 정의한다.

- 숫자 0부터 증가하는 index type과 동일하게 참조하여 사용할 수 있다.

- 필요에 따라 index 값을 특정 값으로 지정해놓을 수 있다.

 

---

※ 사용 예시

- 숫자 0부터 증가하는 인덱스 타입이므로, 다음과 같이 참조할 수 있다.

var eColor : TMyColor;
begin
  eColor := TMyColor(1);  //mcBlue
end;

 

- Enum 타입을 활용할 때는 case문으로 작성하면 if문보다 간결하다.

function getColorName(mcColor: TMyColor): string;
begin
  case mcColor of
    mcRed: Result := 'Red';
    mcBlue: Result := 'Blue';
    mcYellow: Result := 'Yellow';
    mcBlack: Result := 'Black';
  end;
end;

 

- 부분범위 조건문을 활용할 수 있다.

if eColor in [mcRed..mcBlue] then
begin
  ...
  ...