Delphi全角转半角
来源:互联网 发布:mac os 磁盘清理工具 编辑:程序博客网 时间:2024/05/15 23:19
function ToDBC( input :String):WideString;
var
c:WideString;
i:Integer;
begin
c := input;
for i:=1 to Length(Input) do
begin
if (Ord(c) = 12288) then
begin
c := chr(32);
continue;
end;
if (Ord(c) > 65280) and(Ord(c)<65375) then
c := WideChar( chr (ord(c) - 65248));
end;
result:=c;
end;
var
c:WideString;
i:Integer;
begin
c := input;
for i:=1 to Length(Input) do
begin
if (Ord(c) = 12288) then
begin
c := chr(32);
continue;
end;
if (Ord(c) > 65280) and(Ord(c)<65375) then
c := WideChar( chr (ord(c) - 65248));
end;
result:=c;
end;
- Delphi全角转半角
- delphi 全角转半角函数
- Delphi中实现全角转半角
- Delphi中实现全角转半角
- 全角转换成半角(delphi)
- 全角转半角 半角转全角
- 全角转半角与半角转全角
- 半角转全角、全角转半角
- 转全角半角
- 半角转全角
- 全角转半角
- 全角转半角函数
- VBA 全角转半角
- php 全角转半角
- 全角转半角
- 半角全角互转
- 日文全角转半角
- SQL 全角转半角
- SDK module 文件中应注意的
- 拼音首字符序列来实现检索功能
- delphi判断字符是否是汉字
- “千千静听”滚动标题栏,非常简单!
- delphi判断一个字符是否为汉字的最佳方法
- Delphi全角转半角
- IsNumeric 判断字符串是否为数字
- Delphi 7 中DBGrid的排序
- StyleBook皮肤控件的使用
- DBGRIDEH 组件,速达2000中应用了该组件
- delphi 限制文本框中只接受数字
- Edit控件的外观只有一条下划线
- dbgird中导出到excel函数
- Java字节序