[Delphi]유니코드 문자열 표시

function EnKor(const ASrc: string): String; var i: Integer; ASrcUTF8: String; begin ASrcUTF8 := ''; for i := 1 to Length(ASrc) do begin ASrcUTF8 := ASrcUTF8 + '\u' + IntToHex(Ord(ASrc[i])); end; ASrcUTF8 := LowerCase(ASrcUTF8); Result := ASrcUTF8; end; function DeKor(const ASrc: string): String; var AnsiSTr, buStr: String; ArrStr: array of String; SS: TStringList; i: Cardinal; bOK: Boolean; begin if (Trim(ASrc) = '""') OR (Trim(ASrc) = '') then Result := ASrc else begin SS := TStringList.Create;...