| ホーム アプリケーション ライブラリ Tips くだらないTips リンク集 Borland 賛歌 |
 |
 |
|
■半角文字列を全角に変換したい。 半角文字列を全角に変換するには LCMapString API を使用します。 ここでは、以下のような関数を用意します。 全角から半角に変換するには、LCMapString への第二引数を LCMAP_HALFWIDTH に変更します。 引数 pString ： 全角に変換する文字列 返却値 全角に変換された文字列
function HankakuToZenkaku(const pString:string):string;
var
aBuf:PChar;
aLen:Integer;
begin
Result := '';
aLen := Length( pString ) * 2 + 1;
try
GetMem( aBuf, aLen );
try
FillChar( aBuf^, aLen, #0 );
LCMapString(
GetUserDefaultLCID, LCMAP_FULLWIDTH,
PChar( pString ), Length( pString ) + 1 , aBuf, aLen
);
Result := string( aBuf );
finally
FreeMem( aBuf );
end;
except
end;
end;
|
| ホーム アプリケーション ライブラリ Tips くだらないTips リンク集 Borland 賛歌 |