Delphi 指针强制类型转换

2024-04-03 17:26:36

推荐回答（2个）

回答（1）：

我是刚刚学delphi，这种转换还可脊锋旁宏以这样做（也许别人也会用到，能想到强制转换的估计都是做C过来樱启晌的吧）

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
PInteger = ^Integer;

var
pCh: ^AnsiChar;
I: Integer;
pI: ^Integer;

begin
try
{ TODO -oUser -cConsole Main : Insert code here }

I := 257;
pCh := @I;
pI := Pointer(pCh);
WriteLn(Integer(pCh^));
WriteLn(pI^);
ReadLn;

except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

回答（2）：

声明：
p2 : TWord;