안녕 하세요?

BacTeria 박종민 입니다.

전체 소스를 다 올리지 않으셔서 대충 이렇게 하면 된다는 식으로 밖엔...

아래의 소스를 보시죠~

어렵진 않으니 금방 이해 되실 겁니다.

이 방법이 최선은 아닐겁니다.

다만 이런 방법도 있다고 말씀드리는 겁니다.

이만... 메디슨 박종민...

------------------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
const
  O_Code: array[0..13] of String = ('ㄱ', 'ㄴ', 'ㄷ', 'ㄹ', 'ㅁ', 'ㅂ', 'ㅅ',
                                    'ㅇ', 'ㅈ', 'ㅊ', 'ㅋ', 'ㅌ', 'ㅍ', 'ㅎ');
  N_Code: array[0..13] of String = ('00', '01', '02', '03', '04', '05', '06',
                                    '07', '08', '09', '10', '11', '12', '13');
var
  i: Byte;
begin
  for i:=0 to 14 do
  begin
    if i = 14 then Exit;
    if Edit1.Text = O_Code[i] then Break;
  end;

  Caption := N_Code[i];
end;