Unicode轉字符

最新推荐文章于 2023-07-04 18:07:09 发布

chelen_jak

最新推荐文章于 2023-07-04 18:07:09 发布

阅读量635

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： integer string function

本文链接：https://blog.youkuaiyun.com/chelen_jak/article/details/6987498

Delphi 专栏收录该内容

59 篇文章

订阅专栏

Unicode轉字符

function UnicodeToStr(strUnicode: string): string;
var
str1, str2: string;
i: integer;
int1: integer;
begin
str1 := '';
Result := '';
for i := 1 to length(strUnicode) do
begin
    if strUnicode[i] in ['0'..'9'] then
    begin
      if str1 <> '' then
        str1 := str1 + strUnicode[i]
      else
        Result := Result + strUnicode[i];
    end else
    begin
      if str1 <> '' then
      begin
         try
           int1 := StrToInt(Copy(str1, 2, length(str1)));
         except
           int1 := 0;
         end;
         if (int1 = 0) or (int1 <= 256) then
           Result := Result + str1
         else
           Result := Result + WideChar(int1);
         str1 := '';
      end;
      if strUnicode[i] = '#' then
        str1 := '#'
      else
        Result := Result + strUnicode[i];
    end;
end;
if str1 <> '' then
begin
     try
       int1 := StrToInt(Copy(str1, 2, length(str1)));
     except
       int1 := 0;
     end;
     if (int1 = 0) or (int1 <= 256) then
       Result := Result + str1
     else
       Result := Result + WideChar(int1);
     str1 := '';
end;
Result := StringReplace(Result, '''', '', [rfReplaceAll, rfIgnoreCase]);
end;