delphi edit1ȡֵ ÎÊÌâ
Ö÷´°ÌåForm1£¬ÓÐedit1,ÒªÏÔʾform2²éѯʱʹÓõÄÌõ¼þÖµ£¨from2.edit2). ÏÖÔÚform1ÖÐdbgrid1ÒѾÕý³£ÏÔʾͨ¹ýform2.edit2(select * from A where epo='''+edit2.text+'''and ldate between lpt1 and lpt2)²éѯµÄ½á¹û¡£ ÏÖÔÚÒªÔÚform1Éϵ¥¶ÀÏÔʾform2.edit2.text¸øform1.edit1. ÈçºÎ¸³Öµ£¿
form1 ÉÏuses unit2; form1.edit1.text:=from2.edit2.text;ÒýÓà form1 ÉÏuses unit2; form1.edit1.text:=from2.edit2.text; ¹À¼Æ»¹ÐèÒªÔÚform2.edit2.textµÄÍ˳öʼþÉÏдÉϸ³ÖµÓï¾äÒýÓà form1 ÉÏuses unit2; form1.edit1.text:=from2.edit2.text; ÒòΪform2ÒѾuses unit1(form1). ÎÒÕâÑù×ö£¬ÔÚform1É϶¨ÒåÈ«¾Ö±äÁ¿public a:string; È»ºóÔÚform2ÉϰÑedit2Öµ¸³¸øform1.a:=edit2.text; ¿ÉÊÇÔÚform1ÉÏ£¬edit1.text:=a,²»ÖªµÀΪʲôȡ²»µ½Öµ£¿ ÄÇÒª¿´ÄãÔÚʲôʼþÖд¥·¢µÄÉÏÊö²Ù×÷ È»ºóÄãҪȷ¶¨edit1.text:=aÊǸúÔÚform1.a:=edit2.text;µÄºóÃæÖ´ÐеÄÂð£¿ÒýÓà ÄÇÒª¿´ÄãÔÚʲôʼþÖд¥·¢µÄÉÏÊö²Ù×÷ È»ºóÄãҪȷ¶¨edit1.text:=aÊǸúÔÚform1.a:=edit2.text;µÄºóÃæÖ´ÐеÄÂ𣿠ÊÇÁ½¸ö²»´°ÌåÖС£ from1.a:=form2.edit2.textÊǸúÔÚButton1.clickºóÃæ£» ÔÚfrom1´°ÌåµÄshowʼþÖУ¬edit1.text:=a ÔÚform2.edit2.textµÄÍ˳öʼþÉÏдÉϸ³ÖµÓï¾ä: from1.edit1.text:=form2.edit2.text; {{
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd() ¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book'); ʱÌáʾstradd䶨Òå... Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤! (ÔÚA ......
procedure RunFunction; type TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä var ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿ ´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂ𣿠ÔõÑùʹÓã¿ Ttreeview treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text)); raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ ²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà TTreeView ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£ ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£ Çë¿´´úÂë ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......