//没有地方调试 :(//如果你的数组下标从0开始就比较简单
var
P: PChar;
C: array[0..9] of Char absolute P; //指向同一地址
begin
//直接使用C
end;//参考CopyMemory()
var
P: PChar;
C: array[1..10] of Char;
begin
CopyMemory(Pointer(C), P, StrLen(P));
end;
var
P: PChar;
C: array[0..9] of Char absolute P; //指向同一地址
begin
//直接使用C
end;//参考CopyMemory()
var
P: PChar;
C: array[1..10] of Char;
begin
CopyMemory(Pointer(C), P, StrLen(P));
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货