99%的人不知道Pascal原生支持CRC32校验！
pascal吧
全部回复
仅看楼主
level 4
电脑爱好者48 楼主
program crctest;
{$mode objfpc}
{$h+}
uses
sysutils,
crc;
var
crc2:longword;
s:string;
begin
readln(s);
crc2:= crc32(crc2,@s[1],length(s));
writeln(crc2);//输出为十进制的CRC32校验值。十进制、十进制、十进制，重要的事情说三遍！！！
//（转为16进制后就为如图）
end.
2018年02月24日 10点02分 1
level 15
炎▫龙
楼主你这些都是从FP说明文档看来的吗[疑问]
2018年03月17日 12点03分 2
电脑爱好者48
这几天在看FP的源码，无意中找到了一些未公开的库文件
2018年03月31日 00点03分
炎▫龙
@电脑爱好者48 强
2018年04月06日 13点04分
level 10
__Say__Say__
早就知道了。。。
不过我最开始是把这个单元里面的u128当做c++的bitset用的(只支持位运算)
2018年04月08日 07点04分 3
1