Delphi全角转半角

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; 
---------------------
作者：清风古韵
来源：CSDN
原文：https://blog.csdn.net/ttpage/article/details/9161717
版权声明：本文为博主原创文章，转载请附上博文链接！