DelphiÕýÔò±í´ïʽʹÓ÷½·¨£¨TPerlRegEx£©
DelphiÕýÔò±í´ïʽʹÓ÷½·¨£¨TPerlRegEx£©
Õý ÎÄ£º
ʹÓÃDelphi¿ª·¢Èí¼þÎÞÒÉÊÇÒ»ÖֱȽϸßЧÂʵķ½Ê½£¬ÍêÈ«¶ÔÏóµÄÓïÑÔ£¬Ñϸñ¿ØÖƵÄÓï·¨£¬¿ÉÊÓ»¯¿ª·¢»·¾³µÄÐÔÄÜ£¬±àÒëÆ÷µÄËٶȺÍÒѱàÒë´úÂëµÄЧÂÊ£¬±à³ÌÓïÑԵŦÄܼ°Æä¸´ÔÓÐÔ£¬Êý¾Ý¿â½á¹¹µÄÁé»îÐԺͿÉÀ©Õ¹ÐÔ£¬¿ò¼Ü¶ÔÉè¼ÆºÍʹÓÃģʽµÄÀ©³äÎÞÒɶ¼ÊÇdelphiÉíÉϵĹââ¡£
×î½üÆ®Ò×ʹÓÃDelphi¿ª·¢ÁËÒ»Ì×¹¤¾ß£¬ÓÉÓÚºÍÍøÂçÓ¦ÓÃÏà¹ØµÄ¶«Î÷½Ï¶à£¬ÐèҪʹÓÃÕýÔò±í´ïʽ£¬¶øÄ¿Ç°Ö÷Á÷µÄdelphiϵÄÕýÔò±í´ïʽ£¬Ó¦¸ÃÊÇ PerlRegEx ¡£
¹Ù·½ÍøÕ¾: http://www.regular-expressions.info/delphi.html
Ö±½ÓÏÂÔØ: http://www.regular-expressions.info/download/TPerlRegEx.zip
°²×°·½·¨£¨Æ®Ò×ʹÓõÄdelphi°æ±¾ÊÇ delphi2007£©:
1¡¢ÏȰѽâѹµÄ TPerlRegEx Îļþ¼Ð·ÅÔÚ Delphi µÄ¸ùĿ¼Ï嵀 Imports Ŀ¼ÖС£
2¡¢Ä¿Ç°×îРFor Win32 µÄ°æ±¾ÊÇ¿ÉÒÔÔÚ Delphi7£¬Delphi 2006£¬Delphi 2007£¬Delphi 2009 ÏÂʹÓá£Æ®Ò×ÓõÄÊÇ2007£¬ÓÚÊǾʹò¿ª PerlRegExD2007.dpk £¬ÔÚ Project Manager ´°¿ÚÖÐµÄ PerlRegExD2007.bpl Éϵã»÷ÓÒ¼ü£¬Ö´ÐÐ Install¡£ÕâʱÔÚ Tool Palette µÄÁбíÖÐÒѾÓÐÁË TPerlRegEx£¬ÔÚ JGsoft ×é¡£
3¡¢Tools -> Options -> Environment Options -> Delphi Options -> Library-Win32 -> Library path -> Ìí¼Ó·¾¶£º$(BDS)\Imports\TPerlRegEx £¨×¢£º¾ÍÊǸղŷÅÖõÄ·¾¶£©¡£
4¡¢´ò¿ªdelphi¸ùĿ¼Ï Imports\TPerlRegEx\pcre £¬°Ñ pcre3.dll Îļþ¸´ÖƵ½ C:\WINDOWS\system32 Îļþ¼ÐÏ£¬Õâ¸öÎļþ¼ÐÀïÊÇwindowsϵͳ´æ·Å dll ÎļþµÄ´ó±¾Óª¡£Èç¹û²»¸´ÖÆpcre3.dll£¬ÔÚÓ¦Óà TPerlRegEx ÕýÔòµÄʱºò£¬ÏµÍ³Ìáʾ³ö´í¡£
5¡¢ÓÃdelphi´ò¿ª Imports\TPerlRegEx Ŀ¼Ï嵀 pcre.pas Îļþ£¬ÕÒµ½ //{$DEFINE PCRE_STATICLINK} £¬°Ñ֮ǰµÄ×¢ÊÍ // ɾ³ý£»ÕÒµ½ {$DEFINE PCRE_LINKDLL} £¬°ÑËü×¢Ê͵ô£¬¼´¸ÄΪ&nb
Ïà¹ØÎĵµ£º
½ñÌìÐÄѪÀ´³±ÔÚ×Ô¼ºµÄµçÄÔÉϰ²×°ÁËmysql-5.1.41-win32ºÍmysql-connector-odbc-5.1.6-win32¡£ÒÔǰ£¬ÎÒÔø¾³¢ÊÔʹÓãģţ̣Уȣɣ¶È¥Áª½Ó£Í£Ù£Ó£Ñ£Ìµ«ÊÇÔÚÍøÉÏÕҺܶà×ÊÁ϶¼²»ºÜºÃÓ㻽ñÌìͻȻҲÏëÆðÕâ¸öÎÊÌâ¾Í¸ÉÆð»ØÀ´ÁË¡£
¡¡¡¡£±.¡¡½¨Á¢Êý¾Ý¿â
¡¡¡¡¡¡¡¡use mysql;
¡¡¡¡¡¡¡¡drop database myDB;
¡¡¡¡¡¡¡¡create database ......
//Delphi²¿·Ö
//»Øµ÷º¯Êý¶¨Òå
type TOnMyCallBack = procedure(data:pchar; id:Integer);stdcall;
//DLLÖеĵ¼³öº¯ÊýÉùÃ÷
procedure StartCall(param: TOnMyCallBack(data:pchar; id:Integer);stdcall;
begin
...
...
end;
&n ......
Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ
Round ת»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ
Trunc ת»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö
IntToStr ½«Êýֵת»»Îª×Ö·û´ ......
ÔÚдc++µÄ½Ó¿Úʱ¿ÉÒÔ½«Á½¸öÏ໥ÒýÓõÄÀà·ÅÔÚÁ½¸ö.hÎļþÖУ¬È»ºó½«Õâ¸ö½Ó¿Ú·Òëµ½delphiʱ£¬·ÅÔÚÁ½¸öÎļþÀï¾Í²»¿ÉÄÜÁË¡£Ö»ÄÜ·ÅÔÚͬһ¸öunitÖС£²¢ÇÒÒª½«ÕâÁ½¸öÀà¶¼·ÅÔÚͬһ¸ötypeÏÂÃæ½øÐж¨Ò壬µ±Ç°ÃæÒ»¸öÀàҪʹÓúóÃæÒ»¸öÀàʱ£¬ÐèÒªÔÚÇ°ÃæÒ»¸öÀàµÄÇ°Ãæ·ÅÖÃÒ»¸öǰÖÃÉùÃ÷£¬²¢ÇÒǰÖÃÉùÃ÷Ö»ÄÜÊÇIVariantMap = class;ÕâÖÖ¸ñʽ¶ø² ......
¼¼Êõ½»Á÷,DH½²½â. ֮ǰÕÕ×ÅÌìÊéÒ¹¶Á,ÓÃDelphiÀ´ÅªÁËÏÂÑ»·Ìå,ÏÖÔÚ¾ÍÀ´ÅªÒ»ÏÂÌõ¼þÅжϰÉ.
Ê×Ïȿ϶¨ÊÇÎÒÃǾ³£¿´¼ûµÄIFÓï¾ä¿©. Var
I: Integer;
Begin
I:= 99;
If (I> 0)And (I< 0) Then
Writeln('I>0')
Else
If (I> 10)And (I< 100) Then
Writeln('I>10 and I100');
End.
·´»ã±à³öÀ´»áÊÇ ......