delphi 全角转半角函数
来源:互联网 发布:大数据工程师辛苦吗 编辑:程序博客网 时间:2024/04/29 19:43
从网上搜索很多类似的函数 大都是一个函数 SbctoDbc 测试时确发现很多有问题 比如全角符号 句号 方括号等。
其实知道了 全角编码范围 可以自己着手写一个 测试通过
代码如下:
function TFrm_Main.ToDBC(input: string): WideString;
var
c: WideString;
i: Integer;
begin
c := input;
for i := 1 to Length(Input) do
begin
if (Ord(c[i]) = 12288) then
begin
c[i] := chr(32);
continue;
end;
if (Ord(c[i]) > 65280) and (Ord(c[i]) < 65375) then
c[i] := WideChar(chr(ord(c[i]) - 65248));
end;
result := c;
end;
- delphi 全角转半角函数
- Delphi全角转半角
- 全角转半角函数
- javascript,全角转半角函数
- 转全角,半角的函数
- php全角转半角函数
- 全角转半角函数 齐全
- php全角转半角函数
- MSSQL_全角转半角函数
- PG_全角转半角函数
- 全角转半角函数、全角数字转半角数字
- Delphi中实现全角转半角
- Delphi中实现全角转半角
- 全角半角转换函数
- 全角半角转换函数
- 全角半角转换函数
- 全角半角转换函数
- 全角转换成半角(delphi)
- gdb调试命令
- 360与腾迅 混帐
- Hadoop学习资料地址
- 用 GStreamer 简化 Linux 多媒体开发
- C的内存和字符串比较函数
- delphi 全角转半角函数
- Apache 配置文件的含义(值得收藏)
- delphi 提取字符串中的汉字
- 交叉编译器arm-linux-gcc
- iptables 1.4.3.1 移植到TE2440(arm9)
- Java中负数的二进制表示
- C/C++与汇编的交互
- STM8S的学习-LED(1)
- linux下使用yum安装Apache+php+Mysql+phpMyAdmin