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

1¡¢DelphiÕýÔò±í´ïʽѧϰ

DelphiÕýÔò±í´ïʽѧϰ£¬²Î¿¼CSDNÍòÒ»ÀÏʦµÄBLOG¡¢CSDN¡¢ÍøÂç×ÊÁÏÒÔ¼°´øÔ´ÂëµÄTPerlRegEx£¬ÔÚ´Ë×¢Ã÷£¬ÒÔºó²»ÔÙ˵Ã÷£¬ÔÚЩ¸ÐлGoogleÀÏʦºÍ°Ù¶ÈÀÏʦ
°²×°£º
 ÏÂÔØµØÖ·£ºhttp://download.csdn.net/source/1668436
1¡¢°²×°.dpkÎļþ£¬ÔÚLibaryÖÐÌí¼ÓTPerlRegExµ¥Ôª´æ·Å·¾¶
2¡¢ÔËÐгÌÐòǰ¸´ÖÆpcrelib.dllµ½C:\WINDOWSÏÂ
СÊÔ£º
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TPerlRegEx; //ÉùÃ÷ÕýÔò±í´ïʽ±äÁ¿
begin
reg := TPerlRegEx.Create(nil); //½¨Á¢
reg.Subject := 'GoodBoy is You!'; //ÕâÊÇÒªÌæ»»µÄÔ´×Ö·û´®
reg.RegEx := 'You'; //ÕâÊDZí´ïʽ, ÔÚÕâÀïÊÇ×¼±¸Ìæ»»µôµÄ×Ó´®
reg.Replacement := 'Me'; //ÒªÌæ»»³ÉµÄд®
reg.ReplaceAll; //Ö´ÐÐÈ«²¿Ìæ»»
ShowMessage(reg.Subject); //·µ»ØÌæ»»½á¹û: GoodBoy is Me
FreeAndNil(reg); //»ò reg.Free
end;
//License Version 1.1
//Delphi 7.0
procedure TForm1.btn1Click(Sender: TObject);
var
Reg : TPerlRegEx;
begin
Reg := TPerlRegEx.Create(nil);
with Reg do
begin
Subject := 'ÎÒ°®DELPHI, µ«Delphi²»°®ÎÒ--Delphi!'; //Ä¿±ê×Ö·û´®
RegEx := 'Delphi'; //ÒªÌæ»»µÄ×Ö·û´®
Replacement := 'Ëü'; //Ìæ»»ºóµÄ×Ö·û´®
Options := [preCaseLess]; //²»Çø·Ö´óСд
ReplaceAll; //È«²¿Ìæ»»
ShowMessage(Subject);
FreeAndNil(Reg);
end;
//ÉèÖÃOptions := [preCaseLess];ÖÐÎÄÒ²¿ÉÒÔÌæ»»
end;


Ïà¹ØÎĵµ£º

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......

Delphi IDhttp »ñÈ¡Cookie

»ñÈ¡post£¬»òÕßget·µ»ØµÄcookie£¬³ýÁ˹ýÂË·µ»ØµÄ×Ö·û´®Ö®Í⣬×î¼òµ¥µÄ·½·¨ÊÇʹÓÃidhttpµÄCookieManagerÊôÐÔ
±ÈÈç»ñµÃIDhttp·µ»ØµÄÈ«²¿Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......

delphiÖÐregister, pascal, cdecl, stdcall, safecall

×¢£º ʹÓôíÎ󣬻òÕßÔڸüӵĵط½Ã»Óмӣ¬¿ÉÄÜ»á³öÏÖ"privileged instruction"´íÎ󣬻òÕßµØÖ··ÃÎÊ´íÎó¡£
³£¼ûµÄµ÷ÓùßÀýÓÐregister, pascal, cdecl, stdcall, safecall¡£º¯ÊýµÄµ÷ÓùÜÀí¾ö¶¨Á˲ÎÊýÈçºÎ´«µÝ¸ø×Ó¹ý³Ì£¬²¢´Ó¶ÑÕ»ÖÐÍ˳ö£¬ÒÔ¼°¼Ä´æÆ÷ÔÚ²ÎÊý´«µÝÖеÄʹÓ㬴íÎóºÍÒì³£µÄ´¦Àí¡£DelphiÖÐĬÈϵĵ ......

ÓÃdelphiÖÆ×÷OCX¿âÎļþ£¨Èý£©

¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
view|type library
ÕÒµ½ÒѾ­Éú³ÉµÄtype library,ÆäʵºÍTLBÎļþÊǶÔÓ¦µÄ¡£
ÎÒÃÇ¿ÉÒÔ¿´µ½ÉÏÒ»²½Éú³ÉµÄ¶ÔÏóÒ²º¬ÔÚÀïÃæ¡£
ÎÒ ......

×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»(delphi)

ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
  s:string;
  p:pchar;
  a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
    p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
    s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
    StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ½PChar
   ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ