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
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
小弟我用ADO连接SQL server 2000数据库，然后在DBGrid中显示，现在想把在DBGrid中查询到的数据iPlot作图，请问如何实现在DBGrid中的数据读取，读出的数据是STRING类型的，如何有效的转变成数据库中所存储的DOUBLE类� ......
