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 写图片格式转换程序大全

Delphi带进度条复制文件函数

windows关机函数exitwindowsex使用大全（适用windows所有操作平台）

Delphi tapplication大全

Delphi 备份恢复剪切板

Delphi windows 编程[6] - 学习窗体生成的过程六: 最终的代码!

Delphi隐藏系统托盘tray图标

Delphi 获取access中的表名

Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试

Delphi实现类似嵌入桌面的效果

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

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