急急急急!如何根据字符在字符窜中的位置取得字符?谢谢 (有个问题!)

Question

function Copy(S; Index, Count: Integer): string
返回的是string类型,我想要char类型怎么办?

Answer 1

string不能转换成char类型,会报类型转换错误

Answer 2

这样得到的也不是char,还是string.我想得到char请问该怎么弄,强制类型转换我试了没用

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s : char;
  tt: string;
begin
  tt:='111111';
  s:=char(strtoint(copy(tt,1,3)));
  showmessage(s);
end

Answer 4

楼上的朋友,这样转换数字是没问题了,但是涉及到加密解密的时候肯定会有字母存在,
遇上字母strtoint就不管用了,还有啥高招没?

Answer 5

看一下,十六进制与十进制转换   val

Answer 6

s:=char(strtoint(copy(tt,1,3)));
这都用上了

Answer 7

string不能转换成char类型,会报类型转换错误
------------------------------------------
怎么会呢？
用lstrcpy函数
lstrcpy(数组,pchar(字符串));