摘要：方法一： 在WebBrowser的OnDocumentComplete事件书写代码。 方法二： 阅读全文

摘要：在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。示例代码procedure TForm1.Button1Click(Sender: TObject);varMyMD5: TIdHashMessageDigest5;Digest: T4x4LongWordRecord;beginMyMD5 := TIdHashMessageDigest5.Creat 阅读全文

摘要：如何有效刷新当前记录ADO的Recordset对象有一个Resync方法, 可以刷新不同范围的数据. 如果想刷新当前记录可以用如下的语句:var Rst: _Recordset;begin ... Rst.Resync(adAffectCurrent, adResyncAllValues); ...end;可惜delphi的TADODataSet没有封装这个功能. 如果要在TADODataSet刷新当前记录, 只有使用Requery方法重新执行SQL语句, 或使用Refresh方法. Requery重新执行, 记录指针放在第一条, 而不是当前记录. Refresh方法其... 阅读全文

摘要：//方法1：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9']) then Key := Chr(0);end;//方法2：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Byte(Key) in [48..57]) then // 0的 Ascii 是 48 Key := Chr(0);end;//方法3:procedu 阅读全文