フリーソフト

« [Delphi] 半角と全角を変換する | トップページ | [Delphi] 動的に配列を作成する »

[Delphi] ひらがなとカタカナを変換

//ひらがなからカタカナ
function TForm1.HiraToKata(Str : String) : String;
var
 Buf:array [0 .. 1023] of Char;
begin
 LCMapString(GetUserDefaultLCID, LCMAP_KATAKANA, PChar(Str), Length(Str)+1, Buf, 1024);
 Result:=String(Buf);
end;

//カタカナからひらがな
function TForm1.KataToHira(Str : String) : String;
var
 Buf:array [0 .. 1023] of Char;
begin
 LCMapString(GetUserDefaultLCID, LCMAP_HIRAGANA, PChar(Str), Length(Str)+1, Buf, 1024);
 Result:=String(Buf);
end;

« [Delphi] 半角と全角を変換する | トップページ | [Delphi] 動的に配列を作成する »

Delphi」カテゴリの記事

文字列の処理」カテゴリの記事

コメント

この記事へのコメントは終了しました。