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²Ù×÷INIÎļþ²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓiniFileµ¥Ôª£»
2£©ÉùÃ÷TiniFile¶ÔÏó£»
3£©´´½¨TiniFile¶ÔÏó£»
----------------try------------------
4£©INIÎļþ¶Áд²Ù×÷£»
--------------finally----------------
5£©ÊÍ·ÅTiniFile¶ÔÏó£»
---------------end--------------- ......
Ï̵߳Ļù´¡ÖªÊ¶
Ï̵߳Ä×é³É¡£Ïß³ÌÓÐÁ½²¿·Ö×é³É¡£
1¡¢Ò»¸öÊÇÏ̵߳ÄÄں˶ÔÏ󣬲Ù×÷ϵͳÓÃËüÀ´¶ÔÏß³Ìʵʩ¹ÜÀí¡£Äں˶ÔÏóÒ²ÊÇϵͳÓÃÀ´´æ·ÅÏß³Ìͳ¼ÆÐÅÏ¢µÄµØ·½¡£
2¡¢ÁíÒ»¸öÊÇÏ̶߳ÑÕ»£¬ËüÓÃÓÚά»¤Ïß³ÌÔÚÖ´ÐдúÂëʱÐèÒªµÄËùÓк¯Êý²ÎÊýºÍ¾Ö² ......
Client:TSocketConnection ºÍServer: Scktsrvr¹ØÏµ----ѹËõÊý¾Ý´«Êä
Ò»Ö±ÓÃSocketConnectionºÍ·þÎñ¶ËµÄ´«ÊäÊý¾ÝÔÚÈý²ãÊý¾Ý¿âÖУ¬´ÓÀ´Ã»ÓÐ×¢Òâµ½ËüÃÇÖ®¼äµÄÊý¾Ý´«Ê䣬ֻÊÇÏë×Å£¬¹ÜËüÁË£¬ÍøÂçµÄÊ£¬Ç°¶Îʱ¼äÔÚDelphiÖеÄDemosÖз¢ÏÖDemos\Midas\Intrcpt.dprÀý×Ó£¬ºÇºÇ£¬ÔÙ¿´Á˰ëÌìµÄVCL·¢ÏÖ¿ÉÒÔ½«Client¶Ë·¢Ë͵ĸøServerµÄÊ ......
·ÖÀà
ÔËËã·û
²Ù×÷
²Ù×÷Êý
½á¹ûÀàÐÍ
·¶Àý
ËãÊõÔËËã·û
+
¼Ó
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
X + Y
-
¼õ
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
Result - 1
*
³Ë
ÕûÊý£¬ÊµÊý
ÕûÊý£¬ÊµÊý
P * InterestRate
/
ʵÊý³ý
ÕûÊý£¬ÊµÊý
ʵÊý
X / 2
div
ÕûÊý³ý
ÕûÊý
ÕûÊý
Total div UnitSize
mod
ȡģ
ÕûÊý
ÕûÊý
Y mod 6
......