[Delphi Tip] 한글 초성만 얻어 내기

예전에 Delphi 로 한글 초성을 알아 내는 방법으로 사용한 델파이 소스 코드 입니다.
간단히 말하자면 , 대한민국 은 초성이 ㄷ,ㅎ,ㅁ,ㄱ 이 됩니다.
원본 소스는 다른분이 만드신 것을 가져 온 것인데 .. 지금 이전 홈페이지가 문을 닫은 상태 이라 소스코드만 기재 합니다.

ChoSungTbl1 : PChar = 'ㄱㄲㄴㄷㄸㄹㅁㅂㅃㅅㅆㅇㅈㅉㅊㅋㅌㅍㅎ'; JungSungTbl1: PChar = 'ㅏㅐㅑㅒㅓㅔㅕㅖㅗㅘㅙㅚㅛㅜㅝㅞㅟㅠㅡㅢㅣ'; JongSungTbl1: PChar = ' ㄱㄲㄳㄴㄵㄶㄷㄹㄺㄻㄼㄽㄾㄿㅀㅁㅂㅄㅅㅆㅇㅈㅊㅋㅌㅍㅎ'; function HanDiv(const Han: PChar; Han3: PChar): Boolean; var UniCode: Word; ChoSung, JungSung, JongSung: Integer; begin Result := False; MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, Han, 2, @UniCode, 1); if (UniCode < UniCodeHangeulBase) or (UniCode > UniCodeHangeulLast) then Exit; UniCode := UniCode - UniCodeHangeulBase; ChoSung := UniCode div (21 * 28); UniCode := UniCode mod (21 * 28); JungSung := UniCode div 28; UniCode := UniCode mod 28; JongSung := UniCode; StrLCopy(Han3, ChoSungTbl1 + ChoSung * 2, 2); StrLCopy(Han3 + 2, JungSungTbl1 + JungSung * 2, 2); StrLCopy(Han3 + 4, JongSungTbl1 + JongSung * 2, 2); Result := True; end; function HanDivPas(const Src: String): String; var Buff: array[0..6] of Char; B,C:String ; i :Integer; begin B:=''; C:=''; For i:=1 To 10 Do Begin B:=Copy(Src,((i-1)*2)+1,2); if Length(Trim(B))=2 then begin if HanDiv(PChar(B), Buff) then begin Buff[6]:=#0; C :=C + Copy(String(Buff),1,2); end; end; End; HanDivPas:=C; end;