我是刚刚学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.
声明:
p2 : TWord;