Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¸ÄдÁËÒ»¸ö³£ÓõÄDELPHIµÄ¼Ó½âÃܺ¯Êý

DELPHI
//////////////////////////////////
Function   EncrypKey   (Src:String;   Key:String):string;
  var  
  idx   :integer;  
  KeyLen   :Integer;  
  KeyPos   :Integer;  
  offset   :Integer;  
  dest   :string;  
  SrcPos   :Integer;  
  SrcAsc   :Integer;  
  TmpSrcAsc   :Integer;  
  Range   :Integer;  
   
  begin  
  KeyLen:=Length(Key);  
  if   KeyLen   =   0   then   key:='Think   Space';
  KeyPos:=0;  
  SrcPos:=0;  
  SrcAsc:=0;  
  Range:=256;  
   
  Randomize;  
  offset:=Random(Range);  
  dest:=format('%1.2x',[offset]);  
  for   SrcPos   :=   1   to   Length(Src)   do  
  begin  
  SrcAsc:=(Ord(Src[SrcPos])   +   offset)   MOD   255;  
  if   KeyPos   <   KeyLen   then   KeyPos:=   KeyPos   +   1   else   KeyPos:=1;  
  SrcAsc:=   SrcAsc   xor   Ord(Key[KeyPos]);  
  dest:=dest   +   format('%1.2x',[SrcAsc]);  
  offset:=SrcAsc;  
  end;
  Result:=Dest;  
  end;  
   
  //½âÃܺ¯Êý  
  Function   UncrypKey   (Src:String;   Key:String):string


Ïà¹ØÎĵµ£º

delphi dll ʵÀý Óë dll´°ÌåʵÀý

delphi dll ʵÀý Óë dll´°ÌåʵÀý
±¾¶¯Ì¬Á´½Ó¿â·½·¨ÓÐ
Min,Max,SynAPP,ShowForm,showmyform
dll¹¤³ÌÎļþ
Library Project1;
uses
  dllUnit1 in 'dllUnit1.pas' {Form1};
function Min(X, Y: Integer): Integer; export;
begin
if X < Y then Min := X else Min := Y;
end;
function Max(X, Y: Integer): ......

¡¾×ª¡¿delphi¶ÁдtxtÎļþ

http://meidi152.blog.163.com/blog/static/5423302009610103610744/
 
1. memo¿Ø¼þ¶ÁÈ¡txt
memo1.Lines.LoadfromFile('E:\*\*.txt');
2.
Procedure NewTxt(FileName:String);
Var
F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {¿´ÎļþÊÇ·ñ´æÔÚ,ÔÚ¾Í刪³ý}
AssignFile(F, ......

delphi Format Type

Format
  typeµÄ¿ÉÄÜÖµÓÐÏÂÁÐÕâЩ£º
  (1) d ÓзûºÅÊ®½øÖÆÊý
        Args±ØÐëÊÇÓзûºÅÕûÐÍÊý¡£Èç¹ûÔÚ¸ñʽ»¯×Ö·û´®Öл¹¼ÓÈëÁË["." prec]£¬ÔòÈç¹ûArgs
        µÄ³¤¶ÈÈç¹ûСÓÚ¸ø³öµÄ¾«¶ÈÊýʱ£¬ÔÚǰ±ßÌî²¹0£»Èç¹û´óÓÚ¾«¶ÈÊý£¬°´Êµ¼Ê³¤¶ ......

Delphi¿ç½ø³Ì·ÃÎÊDBGRID

´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
      ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ