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成全型英?底?/
 

相关阅读 >>

tclientsocket和tserversocket用法

Delphi 自定义产生随机字符串函数

Delphi toolbar按钮添加图标

Delphi程序带参数运行

Delphi 取相同字符串 2种方法

Delphi kbmmemtable的简单应用（增删改查示例）

Delphi通过ip或机器名获取局域网mac地址

Delphi getpublicip 获取公网ip

Delphi xe 7 mediaplayer 在安卓里放不出声音

Delphi10.x dpr文件

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

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