한글문자를 초성, 중성, 종성으로 나누기

function DivHan(Han : String) : String;
const
    ChoSung: WideString = 'ㄱㄲㄴㄷㄸㄹㅁㅂㅃㅅㅆㅇㅈㅉㅊㅋㅌㅍㅎ';
    JungSung: WideString = 'ㅏㅐㅑㅒㅓㅔㅕㅖㅗㅘㅙㅚㅛㅜㅝㅞㅟㅠㅡㅢㅣ';
    JongSung: WideString = ' ㄱㄲㄳㄴㄵㄶㄷㄹㄺㄻㄼㄽㄾㄿㅀㅁㅂㅄㅅㅆㅇㅈㅊㅋㅌㅍㅎ';
var
  i : Integer;
  Temp : WideString;
  WC : Integer;
  IntChoSung, IntJungSung, IntJongSung : Integer;

begin
    Temp := Han;
  for i := 1 to Length(Temp) do
  begin
      WC := Ord(Temp[i]) - $AC00;
    IntChoSung := WC div (21 * 28);
    IntJungSung := (WC Mod (21 * 28)) div 28;
    IntJongSung := WC mod (21 * 28) mod 28;
    Result := Result + ChoSung[IntChoSung + 1] + JungSung[IntJungSung + 1] + JongSung[IntJongSung + 1];
  end;
end;

 

 

예제)

 

procedure TAutoManinForm.Button1Click(Sender: TObject);

begin
  EditHanGul2.Text := DivHan(EditHangle.Text);
end;