DelphiÏà¹ØÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ
ÔÚ°²×°Íê³ÉDelphiµÄʱºò£¬´ò¿ªDelphi½øÈë´°¿Ú£¬µãÔËÐеÄʱºòΪʲô×Ô¶¯Í£Ö¹ÔËÐÐÁË¡£
ʲôÒâ˼£¬ÊÇн¨µÄÓ¦ÓÃÔËÐÐÍ£Ö¹£¬»¹ÊdzÌÐòÍ£Ö¹ÁËÄØ¡£ ûÃ÷°×LZÒâ˼~~ÒýÓà ÔÚ°²×°Íê³ÉDelphiµÄʱºò£¬´ò¿ªDelphi½øÈë´°¿Ú£¬µãÔËÐеÄʱºòΪʲô×Ô¶¯Í£Ö¹ÔËÐÐÁË¡£ ÊÇ consonle ÏµĻ¹ÊÇ£¿ ¾ÍÊÇÀýÈçн¨ÁËÒ»¸öform´°Ì壬ÉÏÃæ·½Á˼¸¸ö¿Ø¼þ£¬Õâ¸öʱºòµãÔËÐУ¡~°´ÀíÓ¦¸Ã»á³öÏÖÎÒ½¨µÄ½¨µÄÄǸö´°¿ÚÓë¿Ø¼þ£¬µ«µãÔËÐа´¼þµÄʱºò£¬Ö±½Ó¾ÍÍ£Ö¹ÁËÔËÐС££¨Òâ˼ÊǸù±¾Ã»Óп´µ½ÔËÐнá¹û¾ÍÍ£Ö¹ÁË£© Ìù¹¤³Ì²¿·ÖµÄ´úÂë¿´Ï£®¡¡¿ÉÄÜÊÇ°Ñ Application.CreateForm ¸øÈ«É¾Á˰ɣ® Ä¿標exeÊÇ·ñÒÑ運ÐУ¬ÈôÓУ¬ÏÈ關閉 unit sd1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB; type TF_zct = class(TForm) Edit1: TEdit; Edit2: TEdit; ADOConnection1: TADOConnection; Label1: TLabel; Label2: TLabel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var F_zct: TF_zct; implementation {$R *.dfm} procedure TF_zc
Ïà¹ØÎÊ´ð£º
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b? <p class="text1">1a </p> <p class="text1">2b </p> <p class="text1">3c </p> <p cl ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02 ¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 ) ¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö Mark!!!!!! se ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿ ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿ Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË Ã»ÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
¸÷λºÃ£¡£¡ ¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ Ò»¸öÃû½Ð 1.text ÄÚÈÝ£º I like PC.... ÁíÍâÒ»ÊÇ2.text ÄÚÈÝ: function yk as string endfunction globals endglobals ***********************·Ö½çÏß********** ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë ÎÊÌâ´úÂëΪ Delphi(Pascal) code: if Node.ChildNodes <> nil then begin for i := 0 to Node.ChildNodes.Count - 1 do begin cNode := N ......