function InSet(const Values: array of Variant;Value: Variant): Boolean;
var
  i: integer;
Begin
  Result := False;
  for I := 0 to High(Values) do
  IF Values= Value Then Result := True;;
End;
 
调用实例:
IF InSet([’12’,’22’,’32’,’24’,’52’,’62’,’27’,’28’,’90’],'90') Then Showmessage('True');

dmdes.pas

unit dmdes; {*********************************************************} {* DELPHI、PHP、C#通用DES编码解码单元 *} {* 由TurboPower LockBox...

阅读全文

Delphi import unit per OpenSSL DLL RSA+MD5 signature

A nice contribute by Dim (Russia) Require libeay32.pas, v. >= 0.7 // Equivalent to: // openssl dgst -md5 -sign private.pem -hex -out ...

阅读全文

Hash a file with MD5

This tutorial continues from Encrypt a file. Setup Put another button on the main form and caption it "Hash". Add a THash compon...

阅读全文

Comments are closed, but trackbacks and pingbacks are open.