delphiÖÐÔõô¶¨Ò幫¹²±äÁ¿£¿
ÎÒÒÔǰÊÇ×öVB6µÄ£¬ÏÖÔÚ¸ÄѧDELPHI¡£¹ýÈ¥¿ÉÒÔÓÃpublic ±äÁ¿Ãû¶¨ÒåÒ»¸ö¹«¹²±äÁ¿£¬ÔÚDELPHIÖÐÔõôʵÏÖÕâÒ»¹¦ÄÜ£¿ ÐÂÊÖ£¬¸Ð¾õ±È½Ï±¿£¬ÇëÖ¸½Ì£¡
½¨Ò»¸ö¹«¹²µ¥Ôª£¬ÔÚÀïÃæ¶¨Òå±äÁ¿£¬ÆäËüµÄµ¥ÔªÒýÓÃËü¡£ Ò²¿ÉÒÔ½¨Á¢Ò»¸ö¶ÔÏñ£¬ÔÚ¶ÔÏñÖж¨ÒåÊôÐÔ¡£ÒýÓà ½¨Ò»¸ö¹«¹²µ¥Ôª£¬ÔÚÀïÃæ¶¨Òå±äÁ¿£¬ÆäËüµÄµ¥ÔªÒýÓÃËü¡£ Ò²¿ÉÒÔ½¨Á¢Ò»¸ö¶ÔÏñ£¬ÔÚ¶ÔÏñÖж¨ÒåÊôÐÔ¡£ »¹ÓУº var frmCheckPEPB: TfrmCheckPEPB; Param1:Integer;//È«¾Ö£¬ÆäËûuse±¾unitµÄµØ·½Ò²¿ÉÒÔÓà implementation var Param2:Integer;//È«¾Ö£¬½ö±¾unitÈ«¾Ö¡£ VarÇø¿éÀﶨÒåµÄ¾ÍÊÇÈ«¾Ö±äÁ¿ ÔÚ½Ó¿Ú²¿·ÖÏÂµÄÆäËûµ¥ÔªÒýÓúó¿É¼û Ö´ÐÐÇø¿éµÄ½ö±¾µ¥Ôª¿É¼û Ò²¿ÉÒÔÔÚpublic»òÕßprivateÖж¨Ò壬¶¨ÒåÔÚpublicµÄ»°ËùÓеĵ¥Ôª¶¼¿ÉÒÔ·ÃÎÊ£¬privateµÄ»°Ö»Óб¾µ¥Ôª¿ÉÒÔ·ÃÎÊ ÄÜ˵µÃ¾ßÌåÒ»µãÂð£¿ÎÒÊÇÐÂÊÖ£¬²»ÖªµÀÔõôÓᣠ! Delphi(Pascal) code: unit U_Main; interface uses SysUtils, Controls, Forms, Classes, Windows, DB, StdCtrls, ExtCtrls, Messages, ImgList, ToolWin, ComCtrls, Dialogs, ExtDlgs; type TF_Main = class(TForm) btnTest: TButton; btnClose: TButton; edtCount: TEdit; procedure btnCloseClick(Sender: TObject); private public procedure AddMsg(sMsg: string); procedure PrintArray(data:
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº s = unicode("²âÊÔ", "gb2312") s = u'\u6d4b\u8bd5' print s ²âÊÔ ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿ ÕÒµ½¸ö·½·¨ ......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject); var XY : string; begin XY := comboboxxy.Items[comboboxx ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿ ÎÞÈ˻ش𣿠×ö³É×ÊÔ´Î ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b? <p class="text1">1a </p> <p class="text1">2b </p> <p class="text1">3c </p> <p cl ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º var id:=integer; begin id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ; ... ... ... adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......