如何把上字符串半角转换成全角

Question

里面有半角有全角,现在需要统一为全角,如何办到

Answer 1

function SetHalftoFull(value: string):string;
var
  yiban,i:integer;
  sfen,zongchang,s,temp:string;
  bois:boolean;
begin
  Result := '';
  yiban := FMaxLength;
  zongchang:=trim(value);
  while Length(zongchang)>0 do
  begin
    if  Length(zongchang) <= FMaxLength  then
    begin temp:= Copy(zongchang,1,yiban);
      s := s + temp;
      Delete(zongchang,1,yiban);
    end
    else
    begin
      sfen:=copy(zongchang,1,yiban);
      bois:=false;
    for i:=0 to yiban do
    begin
      if bois then
        bois:=False
      else
      if windows.IsDBCSLeadByte(Byte(sfen[i])) then
        bois:=true;
      end;
      if bois then
      begin Dec(yiban);
        temp := copy(zongchang,1,yiban);
        Delete(zongchang,1,yiban);
        s := s + temp + #13#10;
      end
      else
      begin
        temp:=copy(zongchang,1,yiban) ;
        Delete(zongchang,1,yiban);
        s := s + temp + #13#10;
      end;
    end;
  end;
  Result := s;
end;临时写的函数~~~LZ试试~~~

Answer 2

///////Begin Source
const
  cCharCn: array[#32 .. #126] of string[2] =
(
{ }'　',{!}'！',{"}'＂',{#}'＃',{ }'＄',{%}'％',{&}'＆',{'}'＇',{(}'（',
{)}'）',{*}'＊',{+}'＋',{,}'，',{-}'－',{.}'。',{/}'／',{0}'０',{1}'１',
{2}'２',{3}'３',{4}'４',{5}'５',{6}'６',{7}'７',{8}'８',{9}'９',{:}'：',
{;}'；',{<}'＜',{=}'＝',{>}'＞',{?}'？',{@}'＠',{A}'Ａ',{B}'Ｂ',{C}'Ｃ',
{D}'Ｄ',{E}'Ｅ',{F}'Ｆ',{G}'Ｇ',{H}'Ｈ',{I}'Ｉ',{J}'Ｊ',{K}'Ｋ',{L}'Ｌ',
{M}'Ｍ',{N}'Ｎ',{O}'Ｏ',{P}'Ｐ',{Q}'Ｑ',{R}'Ｒ',{S}'Ｓ',{T}'Ｔ',{U}'Ｕ',
{V}'Ｖ',{W}'Ｗ',{X}'Ｘ',{Y}'Ｙ',{Z}'Ｚ',{[}'［',{\}'＼',{]}'］',{^}'＾',
{_}'＿',{`}'｀',{a}'ａ',{b}'ｂ',{c}'ｃ',{d}'ｄ',{e}'ｅ',{f}'ｆ',{g}'ｇ',
{h}'ｈ',{i}'ｉ',{j}'ｊ',{k}'ｋ',{l}'ｌ',{m}'ｍ',{n}'ｎ',{o}'ｏ',{p}'ｐ',
{q}'ｑ',{r}'ｒ',{s}'ｓ',{t}'ｔ',{u}'ｕ',{v}'ｖ',{w}'ｗ',{x}'ｘ',{y}'ｙ',
{z}'ｚ',{{}'｛',{|}'｜',{ }'｝',{~}'～');function StrToGBText(mStr: string): string; { 返回字符串转换成全角字符串 }
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(mStr) do
    case mStr[I] of
      #32 .. #126: Result := Result + cCharCn[mStr[I]];
    else Result := Result + mStr[I];
    end;
end; { StrToGBText }function GBTextToStr(mText: string): string; { 返回字符串转换成半角字符串 }
var
  I: Integer;
  J: Char;
  S: string;
begin
  Result := '';
  for I := 1 to Length(WideString(mText)) do begin
    S := WideString(mText)[I];
    if Length(S) > 1 then for J := #32 to #126 do
      if cCharCn[J] = S then begin
        S := J;
        Break;
      end;
    Result := Result + S;
  end;
end; { GBTextToStr }
///////End Source///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := StrToGBText(Memo2.Text);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo2.Text := GBTextToStr(Memo1.Text);
end;