好何将一个ASCII码的字符串分别转换成字符

Question

好何将一个ASCII码的字符串分别转换成字符
例如：
这样的一个ASCII值的字符串：084085065066
084对应的字符为：T
065对应的字符为：A
所以上面的ASCII值的字符串转换后应为：TUAB能否写一个转换函数fun();
请教这个转换函数怎么写呢？？？急

Answer 1

function ASCIIToChar(ASCIIStr: String): String;
var
  Cnt: Integer;
  Str: String;
  Str1: String;
begin
  Result := '';
  for Cnt := 1 to Length(ASCIIStr) do
  begin
    if Cnt mod 3 = 1 then
    begin
      Str := Copy(ASCIIStr, Cnt, 3);
      Result := Result + char((StrToInt(str)));
    end;
  end;
end;