delphi如何实现自校验呢？
没找到例子可以参考。 是自校验。。不是校验别的。。
请大家告诉我哪里有例子可下。。。。。
谢谢.
我的疑问：
一般是这样写
if CRC32ChecksumOfFile(application.ExeName)=1 then
begin
//do something
end;
那么：CRC32ChecksumOfFile(application.ExeName)=1 后面等号的值改下，不就 CRC32ChecksumOfFile(application.ExeName)得到的值一直会变吗？那怎么知道改后的值是多少呢？？？
楼主用资源字符串看看
然后修改这个资源的值，然后读取
up
Delphi(Pascal) code:
var
cs:string='[<[{[<[000000000000]}]>]}]';
a1:=application.ExeName内容，取copy(cs,1,7)（即'[<[{[<['）之前的内容做checksum
a2:=application.ExeName内容，取copy(cs,length(cs)-6,7)（即']}]>]}]'）之后的内容做checksum
if a1 xor a2=strtointdef(copy(cs,8,length(cs)-14),-1) then
begin
//do something
end;
跟踪a1 xor a2是多少，替换cs里的那些0
折腾的太麻烦了吧，最简单的方式是：另外写一个程度，用来在目标文件的最后附加上额外的校验结果（有的还加上长度），目标程度里得到原始长度做检验，再把结果直接与文件尾的结果做比较
另外，如果非要用什么东西占位的话，别写256以内的数，比如你这个 ***=1 的判断，想直接把编译后的8位的1改成32位的数是不可能的，改汇编的话又非常麻烦
是wooden954 说的意思。
s
相关问答：
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
小弟我用ADO连接SQL server 2000数据库，然后在DBGrid中显示，现在想把在DBGrid中查询到的数据iPlot作图，请问如何实现在DBGrid中的数据读取，读出的数据是STRING类型的，如何有效的转变成数据库中所存储的DOUBLE类� ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
