RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

delphi 如何将字符串中的半角字符转换为全角字符

作者:admin 来源: 日期:2018/1/2 15:21:01 人气: 标签:

/// 半角转全角的函数
function ToSDB(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 = 32 then
    begin
      Result[I] := WideChar(12288);
      Continue;
    end;
    if (nChar < 127) then
      Result[I] := WideChar(nChar + 65248)
  end;
end;


/// 全角转半角的函数
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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料