一、按整型格式存储，强转成整型格式显示

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;

运行结果：