1.ord(s[1])
2.interger转换
3.if hex=$4d then str:='M';

解决方案 »

  1.   

    var
      S:Char;
    begin
      S:='A';
      Label1.Caption := IntToStr(Ord(S));
    end;
      

  2.   

    1、label1.caption 是字符串类型,Ord返回整数类型,不是赋值兼容类型。我觉得编译就报错,不用到运行时。解决方法如 tikkypeng(千两狂死郎) 所说2、用StrToInt就可以了,前面加个$。如StrToInt( '$41' );3、如果是常量,用#$4D;如果是变量,用:
      str := '4D';
      ch := Char(StrToInt('$'+str))
      

  3.   

    我想我漏掉了一个:我需要str从copy()函数截取字符串赋值而得,但是char和string不兼容,能否将string转化成char类型?另外,前个帖子我已经给各位大侠结分了,等上面那个问题解决了,再算本帖子的分,谢谢。