Delphi ´¦ÀíËÙ¶È - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ
¸÷λ´ó¸ç´ó½ã£¬Ð¡µÜÊÇDelphi ¿ª·¢µÄ£¬ÏÖÓöµ½Ï൱Âé·³µÄÎÊÌ⣬¾ÍÊÇDelphi¿Ø¼þ´¦ÀíËٶȵÄÎÊÌâ¡£¡£ ÎÒÓõÄÊÇListView ¿Ø¼þ£¬£¬ÏÖÔÚÓÐÊý¾ÝÁ¿20000-50000Ìõ×óÓÒ£¬Ò»µ©È«²¿¼Óµ½ListViewÀ³ÌÐò¾ÍºÜ¿¨£¬¶øÇÒ¼ÓÔØÊý¾ÝµÄʱºòËÙ¶È»¹ºÜÂý£¬£¬ ÇëÎÊÓÐʲôÓÐЧµÄ°ì·¨¿ÉÒÔ½â¾öÕâ¸öÎÊÌ⣡£¡£¡
ListView1.Items.BeginUpdate; //Öмäд´úÂë ListView1.Items.EndUpdate; ÏÔʾ¶àÉپͼÓÔØ¶àÉÙ£¬Ö»Òª¼ÆËãºÃÆðʼÌõÒýÓà ListView1.Items.BeginUpdate; //Öмäд´úÂë ListView1.Items.EndUpdate; ÍÆ¼ö µ«ListView1±íÏÖ×îºÃÒ²¾ÍÔÚÒ»ÍòÌõ×óÓÒ£¬Êý¾ÝÁ¿Ì«´óÒ²»áºÜ¿¨¡£ ½¨ÒéÖ»ÏÔʾÓû§ÐèÒªµÄÊý¾Ý£¬Ã¿¸öÈËÒ²²»¿ÉÄÜÒ»´Î¿´2ÍòÌõÊý¾Ý°¡£¡ »»¸ö¿Ø¼þ£¬ÓÃVirtualTreeView£¬Õâ¸ö¿Ø¼þ×î´óµÄÌØµã¾ÍÊǿ죬֧³Ö´óÈÝÁ¿Êý¾ÝÒýÓà ÏÔʾ¶àÉپͼÓÔØ¶àÉÙ£¬Ö»Òª¼ÆËãºÃÆðʼÌõ Ö§³Ö£¬ÒµÎñÂß¼ÔÊÐíµÄ»°£¬½¨Òé·ÖÒ³£¡ ListView1.Items.BeginUpdate; //Öмäд´úÂë ListView1.Items.EndUpdate; ûЧ¹û ¸ÄÓÃVirtualTreeView£¬ÎÒ¼ÓÔØÁË6WÌõ¶¼Ã»ÎÊÌâ¡£ ·ÖÒ³Ó¦¸ÃÔõô´¦ÀíÄØÒýÓà ListView1.Items.BeginUpdate; //Öмäд´úÂë ListView1.Items.EndUpdate; ûЧ¹û ¼¸ÍòÌõÊý¾Ý¶ÔÓÚListViewÒѾ³¬¸ººÉÁË£¬»¹ÊÇ·ÖÆÁÏÔʾÿ´ÎÖ»ÏÔʾһ²¿·Ö VirtualTreeViewµÄ»úÖÆÊÇΪ¼ÓÔØËÙ¶ÈרÃÅʵÏÖµÄ ÓеãÀàËÆÏÔʾ²Å¼ÓÔØ£¬ËùÒÔËÙ¶ÈÌØ±ð¿ì Äã¿ÉÒÔÊÔÊÔListView µÄOnDataʼþ£¬ÐèÒªÏȶ¨ÒåÒ»¸ö½á¹¹Ì
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿ ÎÞÈ˻ش𣿠×ö³É×ÊÔ´Î ......
xml := CreateOleObject('Microsoft.XMLHTTP'); xml.Open('GET','http://www.google.com', False); xml.Send; xml.responseText; ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
//DLL ·ÅÔÚEXEÖÐûÎÊÌâ function SkinForm(var skfrm:TForm):Integer;stdcall; var skf:TbsBusinessSkinForm; nskfrm:TForm; begin frmUUMain:=skfrm; skf:=TbsBus ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë ÎÊÌâ´úÂëΪ Delphi(Pascal) code: if Node.ChildNodes <> nil then begin for i := 0 to Node.ChildNodes.Count - 1 do begin cNode := N ......
´ó¼ÒºÃ,ÎÒ²ÉÓÃ: import Activex Acrobat Control for ActiveX µ¼ÈëacrobatÍê³É¿Ø¼þ°²×°£¬ÔÚ³ÌÐòÀïдÈçÏ´úÂë¾Í¿ÉÒÔÁË£º Pdf1.src := 'ÄãµÄÎļþ ......