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:
Ïà¹ØÎÊ´ð£º
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬ ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£ ¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£ ......
procedure RunFunction; type TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä var ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º var id:=integer; begin id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ; ... ... ... adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
Òª°üº¬winsock2 ¶øÇÒÏêϸЩµÄ¡£ ÄÇЩʹÓÿؼþµÄµÄÊé±¾¾Í²»ÒªÁË£¬ Ï£ÍûÂò¹ýÕâÀàÊéµÄÅóÓÑÄÜÍÆ¼öÏÂ×Ô¼º¾õµÃ²»´íµÄ¡£ À´¹Ø×¢Ï¡£ WindowsÍøÂçÓëͨÐųÌÐòÉè¼Æ(µÚ2°æ) À¶Æ¤µÄÊÇаæ,ËäÈ»ÊÇÖйúÈËдµÄµ«ÊǷdz ......