var
  Tempstr:pchar;
  content:string;
  a:integer;
begin
    for a:=0 to 59 do
    content:=content+'x';
    for a:=0 to 2 do
    begin
    TempStr:=pchar('AA'+'AA'+'AA'+'AA'+'AA'+'AA'+'AA'+'AB'+'AA'+'AA'+'AA'+'AA'+'AA'+'AA'+'AB'+content);   //我想把AA的位置,变成传送ASCII码AA,如何实现?
    socket.SendText(TempStr);
    end;
end;

解决方案 »

  1.   

    function Chr(X: Byte): Char;
      

  2.   

    讲下基本知识!
    ASCII是基于单个字符的统一编码,在DOS时代就奠定了不可动摇的基础!
    每个字符,包括制表符号,特殊符号都有一席之地!以后为了适应国际化,出现了Unicode,但是Unicode也给Ascii留了兼容的地位.
    无论是Ascii,还是unicode,都是针对一个字符(包括多字节字符)编码.