Case문으로 문자 비교하기

Case문으로 문자 비교하기

728x90

 

 

uses

  System.TypInfo type

 

 

TSameText = (ChrMove, MapLoad, MapLoad2, FadeOut, FadeIn, SetNPC, NPCMove); ....

 

 

 

implementation

 

....

 

procedure TForm1.Button1Click(Sender: TObject);

var

  strTemp : string;

begin

  strTemp := 'FadeIn';

  case GetEnumValue(TypeInfo(TSameText), strTemp) of

    0: ShowMessage('0');

    1: ShowMessage('1');

    2: ShowMessage('2');

    3: ShowMessage('3');

    4: ShowMessage('4');

    5: ShowMessage('5');

    6: ShowMessage('6');

end;

end;