delphi Ƥ·ôÎÊÌâ - Delphi / Êý¾Ý¿âÏà¹Ø
´ÓÍøÉÏÏÂÔØÁ˸ö skn.ini µÄƤ·ôÎļþ ¿ÉÊDz»»áÓÃ
ÎÒÏëÓÃÒ»¸öSpeedButton6 À´¿ØÖÆ °´ÏÂÈ¥ ¾Í»á»»Æ¤·ô ÐÖµÜÃǰï¸öæ
È¥www.2ccc.comÏÂÔØ¸öVclSkinÀ´Óðɣ¬ºÜ¶àƤ·ôµÄ¡£Ò²ÓÐÀý³Ì½ÌÄãÔõôÓá£
ÐÖµÜÃÇ »áµÄ°ïÏÂæ Õâ¸ö Ƥ·ô³¬ºÃ¿´
°ÑÄãµÄƤ·ô·¢¹ýÀ´ÎÒÓÃÓÿ´
ÄãÓÃʲôƤ·ô¿Ø¼þ
iniÊÇÆ¤·ôÎļþÂð£¿Ò»°ãvclskinµÄƤ·ôÎļþ¶¼ÊÇÒÔsknΪºó׺ÃûµÄ
hongssÐÖ˵µÃ¶Ô¡¢È¥ÍøÉÏÏÂÔØ¸övclskin °²×°¾ÍºÃÁË¡¢
VCLSkin Õâ¸öƤ·ô¿Ø¼þ²»´í.
Ïà¹ØÎÊ´ð£º
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )
¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö
Mark!!!!!!
se ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......