フリーソフト

« [Delphi] 文字が全角か半角か調べる | トップページ | [Delphi] ひらがなとカタカナを変換 »

[Delphi] 半角と全角を変換する

//半角から全角
function TForm1.HanToZen(Str : String) : String;
var
 Buf:array [0 .. 1023] of Char;
begin
 LCMapString(GetUserDefaultLCID, LCMAP_FULLWIDTH, PChar(Str), Length(Str)+1, Buf, 1024);
 Result:=String(Buf);
end;

//全角から半角
function TForm1.ZenToHan(Str : String) : String;
var
 Buf:array [0 .. 1023] of Char;
begin
 LCMapString(GetUserDefaultLCID, LCMAP_HALFWIDTH, PChar(Str), Length(Str)+1, Buf, 1024);
 Result:=String(Buf);
end;

« [Delphi] 文字が全角か半角か調べる | トップページ | [Delphi] ひらがなとカタカナを変換 »

Delphi」カテゴリの記事

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

コメント

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