类型强转【Delphi版】

var
arrForInteger:array[1..4] of Char;//也可以是 arrForInteger:array[0..3] of Char
begin
ShowMessage('测试类型强转！');
PInteger(@arrForInteger)^:=1234567; //以整型格式存入
ShowMessage('字节数组强转成整型格式：'+IntToStr(PInteger(@arrForInteger)^)); //强转成整型
end;

var
arrForInteger:array[1..4] of Char;//也可以是 arrForInteger:array[0..3] of Char
begin
ShowMessage('测试类型强转！');
PInteger(@arrForInteger)^:=1234567; //以整型格式存入
ShowMessage('字节数组强转成字符数组格式：'+string(PChar(@arrForInteger))); //强转成字符数组型
end;