类似DELPHI DFM文件中,ORD可以对单个处理, 想知道有没有现成的?

CHINA和谐中国    转换成右边的    'CHINA'#21644#35856#20013#22269

[ 本帖最后由 wiseinfo 于 2011-3-30 15:59 编辑 ]

从Classes.pas抄了一个

function StringConvert(S: string): string;
var
  L, I, J: Integer;
begin
  Result := EmptyStr;
  L := Length(S);
  if L = 0 then
    Exit;
  I := 1;

  repeat
    if (S[I] >= ' ') and (S[I] <> '''') and (Ord(S) <= 127) then
    begin
      J := I;
      repeat
        Inc(I)
      until (I > L) or (S[I] < ' ') or (S[I] = '''') or (Ord(S) > 127);
      Result := Result + '''';
      while J < I do
      begin
        Result := Result + string(AnsiChar(S[J]));
        Inc(J);
      end;
      Result := Result + '''';
    end
    else
    begin
      Result := Result + '#' + IntToStr(Ord(S[I]));
      Inc(I);
    end;
  until I > L;
end;