哪位大哥帮忙把下面的C++代码翻译成Delphi的相应代码？

Question

小弟对C++了解很少，
char JidTp[800]; 
strcpy(JidTp,strTemp);
Func_b(0, (short*)JidTp);
在Delphi里对应short的类型是smallint，不明白怎么可以将字符串转成整型？

Answer 1

var
  s:string;
  a:samllint;
  b:psamllint;
begin
  a:=strtoint(s);
  b:=psamllint(a);
end;

Answer 2

var
  JidTp: array[0..799] of char;
begin
  StrPCopy(JidTp,strTemp);
  Func_b(0,@JidTp[0]);以上代码可能还会有问题，决定于你的Func_b的第二个参数是怎么定义。

Answer 3

第二个参数是smallint型，楼上还不对

Answer 4

第二个参数是一个指向smallint数组的指针，即smallint数组。
参数怎么传，要看你数组怎么定义。你把Func_b的定义也发出来。

Answer 5

第二个参数是一个指向smallint数组的指针，即smallint数组。
参数怎么传，要看你数组怎么定义。你把Func_b的定义也发出来。