哪位好心人帮我把这句VC代码转成 DELPH的

Question

int lRslt[];LPCSTR str = W2A( (unsigned short*) &lRslt[ i ] );

Answer 1

//大概是这样
var
  lRslt: array[0..100] of Integer;
  i: Integer;
  str: PChar;
begin
  i := 0;
  str := W2A(PWord(@lRslt[i]));
end;

Answer 2

W2A 是VC里的一个宏啊，DELPHI里没有

Answer 3

var
  lRslt: array[0..100] of Integer;
  i: Integer;
  str: PChar;
begin
  i := 0;
  str := @lRslt[i]; // 可以这样
end;