ÔÚDelphiÖÐʹÓÃÕýÔò±í´ïʽ
//²Î¿¼µØÖ·£ºhttp://www.wangchao.net.cn/bbsdetail_41190.html
Ò»¡¢Î¢ÈíRegExp
1. ÏÂÔز¢°²×°×îаæµÄ"Microsoft(r) Windows(r) Script"
¡¡¡¡2. RegExp°üº¬ÔÚvbscript.dllÖÐËùÒÔÎÒÃDZØÐëÏÈ×¢²áregsvr32 vbscript.dll
¡¡¡¡×¢(°²×°ÁËIe5ºóĬÈÏÒѾ°üº¬¸Ã¿Ø¼þ)
¡¡¡¡3.ÔÚDelphiÖÐÒýÈë"Microsoft VBScript Regular Expressions"
¡¡¡¡Ö÷²Ëµ¥->Project->Import type library->ÔÚÁбíÖÐÑ¡Ôñ"Microsoft VBScript Regular Expressions"
¡¡¡¡Éú³ÉTRegExp¿Ø¼þ
¡¡¡¡4.ʹÓÃÒÔÏ´úÂëµ÷ÓÃTRegExp¿Ø¼þ
¶þ¡¢´úÂ룺
procedure TForm1.Button1Click(Sender: TObject);
¡¡¡¡var
¡¡¡¡machs: IMatchCollection;
¡¡¡¡Matchs: Match;
¡¡¡¡submatch: ISubMatches;
¡¡¡¡i, j: integer;
¡¡¡¡begin
¡¡¡¡RegExp1.Global := true;
¡¡¡¡RegExp1.Pattern := '\w+\.\w+(?!.)';
¡¡¡¡RegExp1.IgnoreCase := true;
¡¡¡¡machs := RegExp1.Execute('http://www.xcolor.cn/dd/page1.htm') as
¡¡¡¡IMatchCollection;
¡¡¡¡for i := 0 to machs.Count - 1 do
¡¡¡¡begin
¡¡¡¡Matchs := machs.Item[i] as Match;
¡¡¡¡submatch := Matchs.SubMatches as ISubMatches;
¡¡¡¡memo1.Lines.Add(matchs.Value);
¡¡¡¡//for j:=0 to submatch.Count -1 do
¡¡¡¡// memo1.Lines.Add(submatch.Item[j])
¡¡¡¡end;
¡¡¡¡end;
Ïà¹ØÎĵµ£º
¸ñʽ£º²Ù×÷Êý Shl/Shr Òƶ¯Î»Êý
˵Ã÷£º²Ù×÷ÊýÓë·µ»ØÖµ¶¼ÊÇÕûÊý
Àý×Ó£º16(10) = 10000(2)
16(10) Shr 1 = 10000(2) Shr 1 = 1000(2) = 8(10)
16(10) Shr 2 = 10000(2) Shr 2 = 100(2) = 4(10)
˵Ã÷£ºÒ»¸öÕûÊý(I)°´Î»×óÒÆһ룬Ï൱ÓÚ°ÑËü³ËÒÔ2£¬¼´ I * 2
&n ......
ÔÀ´ÊÇÒªÔÚFormCreateÖмÓÈëÒÔÏ´úÂë:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
//Õâ¾äºÜ¹Ø¼ü.¶ÔÓÚƽ̨µÄÖ§³Ö.
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
......
unit Servicescontrol;
interface
uses Windows,Messages,SysUtils,Winsvc,Dialogs;
function StartServices(Const SvrName:String):Boolean;
function StopServices(Const SvrName:String):Boolean;
function QueryServiceStatu(Const SvrName:  ......
ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý
Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb Serviceµ ......
Ctrl+PageUp ½«¹â±êÒÆÖÁ±¾ÆÁµÄµÚÒ»ÐУ¬ÆÁÄ»²»¹ö¶¯¡£
Ctrl+PageDown ½«¹â±êÒÆÖÁ±¾ÆÁµÄ×îºóÒ»ÐУ¬ÆÁÄ»²»¹ö¶¯¡£
Ctrl+↓ ÏòϹö¶¯ÆÁÄ»£¬¹â±ê¸úËæ¹ö¶¯²»³ö±¾ÆÁ¡£
Ctrl+↑ &nb ......