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:
Ïà¹ØÎÊ´ð£º
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......
ÈçÌ⣺
ÎҵijÌÐò Create µÄʱºò ´´½¨ÁËN ¸öỊ̈߳»ÕâN¸öÏ̲߳»Í£µÄÔÚ ¼àÌýN¸öCOM¿ÚµÄÊý¾Ý£»µ±·ÖÎöÊý¾Ýʱ£¬ÓÐЩʱºòÒªµ¯³öapplication.messagebox ¶Ô»°¿òÅÐ¶Ï ÊÇ·ñ¼ÌÐø Ö´ÐÐỊ̈߳¬»¹ÊÇ¹ÒÆðÏ̡߳£µ±¶à¸öÏß³Ìͬʱ ......