重新格式化发一下。fillchar(f,sizeof(f),0);//全部填0
fillword(f,sizeof(f) div 2,maxint);//全部填上maxint,div 2等效于shr 1
filldword(f,sizeof(f) div 4,maxlongint);//全部填上maxlongint,div 4等效于shr 2
警告,警告!!!以下语句在新的FPC帮助文档中发现(起码2.4.0的还是能用的吧),但是并没有在FPC2.0.4的帮助文档中发现,也无法编译,比赛时谨慎使用!(tyvj还是可以用的)
const maxint64=9223372036854775807;
fillqword(f,sizeof(f) div 8,maxint64);//全部填上int64的最大值。能不能用来填qword数组有待验证。
顺带说一句:FPC自带的RTL(Runtime Library,运行时库)的帮助文档是个神奇的东西。