delphi中如何对一段pchar空间转换成整型值。

发布网友发布时间：2022-05-30 19:55

共3个回答

热心网友时间：2023-11-08 10:30

delphi 2009以上，PChar指向的是UnicodeChar，大小是2个字节，不再是1个字节，为了保证各个版本的编译效果相同，不应认定Char占1个字节。对于你的问题，可以把PChar的处置赋予Pint后，直接对PInt递增1达到，万全的写法如下：

i : Integer;
P : PChar;
pint : PInteger;
......
pint := PInteger( P );
// 下面的循环终值如在申请内存时得到了，就用它，如果数据长度未定，则用下面的公式计算，但要求数据尾部得有#0
for i := 1 to Length( string( P ) ) * SizeOf( Char ) div 4 do
begin
// 处理pint^，即一个32位整数
......
Inc( pint );
end;

热心网友时间：2023-11-08 10:31

指针大小是4,你的i循环递增是多少?追问i的递增是1,主要是编译都编译不过去。也必须以1递增，依次算出每增加一个字节的地址，其32位值是多少

追答i的递增是4,你就可以得到正确答案了

热心网友时间：2023-11-08 10:31

pint := Pinteger(P)+i