如:
fs1.Write( PChar(IntToStr(Count))^, SizeOf(Int64) );

解决方案 »

  1.   

    改成:
    fs1.Write( PChar(IntToStr(Count)), SizeOf(Int64) );
      

  2.   

    在编译选项中可以设想下。warning错误就不报了,不知道你是不是这个意思!
    我用pchar时候,我老是warning
      

  3.   

    PChar(IntToStr(Count))^这样写本身是错误的么??高手可否解释一下??
      

  4.   

    本身不是错误吧,只是warning 说明可能不安全把
    前面加个 try 看看
      

  5.   

    {$WARNINGS OFF}
    fs1.Write( PChar(IntToStr(Count))^, SizeOf(Int64) );
    {$WARNINGS ON}就ok了!