Delphi 强迫将半型英数字转换成全型英数字

本文整理自网络，侵删。

 
var
Chr : array [0..255] of char;
begin
// use Windows
LCMapString(
GetUserDefaultLCID(),
LCMAP_FULLWIDTH, // 转换全型 LCMAP_HALFWIDTH 半型
PChar(Edit2.Text), // 传入文字
Length(Edit2.Text) + 1,
chr, // 转换后字串
Sizeof(chr) // 转换后字串
);
Edit1.Text := Chr;
end;

来源：http://superlevin.ifengyuan.tw/delphi-??迫??半型英?底洲D?Q成全型英?底?/
 

相关阅读 >>

Delphi android实例-录音与回放(播放mp3)(xe8+小米2)

Delphi free和freeandnil之间的区别

Delphi图片增加文字水印

Delphi 不管什么日期格式转换都不会错了

Delphi types of actual and formal var parameters must be identical

Delphi 图像自动调整显示

Delphi 的链式代码

Delphi获取进程快照(snapshot)

Delphi2009 使用 png 图片

vclzip控件的简单使用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 强迫将半型英数字转换成全型英数字