{-----------------------------------------------------------------------------
作者:2007.06.25
参数:const AInput: Widestring
功能:全角转换成半角(全角空格12288对应半角空格32;其他的字符全角从65280-65375)
对应到半角均是相差65248 [注意这里要UniCode来处理]
-----------------------------------------------------------------------------}
function ToDBC(const AInput: Widestring): Widestring;
var
I: Integer;
nChar: Cardinal;
begin
Result := AInput;
for I := 1 to Length(AInput) do
begin
nChar := Cardinal(WideChar(AInput[I]));
if nChar = 12288 then
begin
Result[I] := WideChar(32);
Continue;
end;
if (nChar > 65280) and (nChar < 65375) then
Result[I] := WideChar(nChar - 65248)
end;
end;
作者:2007.06.25
参数:const AInput: Widestring
功能:全角转换成半角(全角空格12288对应半角空格32;其他的字符全角从65280-65375)
对应到半角均是相差65248 [注意这里要UniCode来处理]
-----------------------------------------------------------------------------}
function ToDBC(const AInput: Widestring): Widestring;
var
I: Integer;
nChar: Cardinal;
begin
Result := AInput;
for I := 1 to Length(AInput) do
begin
nChar := Cardinal(WideChar(AInput[I]));
if nChar = 12288 then
begin
Result[I] := WideChar(32);
Continue;
end;
if (nChar > 65280) and (nChar < 65375) then
Result[I] := WideChar(nChar - 65248)
end;
end;