来源 int转PAnsiChar,分两步,先整型转字符,再字符转PAnsiChar var pc:PAnsiChar; num:Integer; begin num :=1; pc :=PAnsiChar(IntToStr(num )); end;