类型强转【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;

运行结果：