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-強迫將半型英數字轉換成全型英數字/
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.051640033721924 seconds