Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi Åж¨Îı¾¿òÊäÈëÖµÊÇ·ñÔÚ0µ½10Ö®¼ä

Èç±êÌâËùʾ£¬ÈçºÎÅж¨editÊäÈëµÄÖµÔÚ0~10..........

ÎÒÓÃvalÀ´»ñÈ¡ÁËÒ»¸örealµÄÊýÖµ.....µ«²»ÖªµÀÔõô±È½Ï.....·ñ·³ËÀÁË- -£¡

ÎÒÓÃabs£¨x-10£©>0 or abs£¨x-0£©<0 ÅжϱàÒ뱨´í....½â¾ö²»ÁËÎÊÌâ....

ÓÐûÓÐÆäËû¿ÉÐа취À´½â¾ö°¡........
Íü¼ÇÊÇeditµÄkeypress»¹ÊÇkeydownʼþÀÓÐÅжÏÊäÈëµÄcharÊÇʲô¡£¡£

editµÄkeypressÀïÃæ½øÐÐÅжϡ£

ÔÚkeypressÉϰ´F1°ïÖú¾Í³ö¸öÀý×Ó£¬¾ÍÊÇÄã˵µÄÄǹ¦ÄÜ

ASCÂëÅжϻòÕßÓüüÅÌαÂëÅж¨

ÔÚkeypressʼþÖÐ

if not(Key in ['0'..'9',#8]) then Key := #0;

Delphi(Pascal) code:
if (x>0) and (x<10) then
....(


Âß¼­ÔËËãÓÅÏÈÓÚ²»µÈºÅÔËË㣬ËùÒÔÒª¼ÓÀ¨ºÅ

ÎÒÊÇÒѾ­ÔÚonkeypressÀïÅжÏÁ˵¥¸ö¼üÊäÈëµÄºÏ·¨ÐÔµÄÁË£¬ÅжÏÁËKeyÊDz»ÊÇÊý×ÖºÍСÊýµãºÍСÊýµã¸öÊýÁË£¬
ÎÒÏëÒªÖªµÀµÄÊÇÔÚÎÒ»ñÈ¡±à¼­¿òµÄÖµµÄʱºòÅжÏÊýÖµÊÇ·ñÔÚ·¶Î§0~10ÄÚ.....

ÏÖÔÚÎÊÌâÒѾ­½â¾öÁË£¬Ð»Ð»´ó¼Ò¹Ø×¢...

ÔÎ strtoint ¾ÍÐÐÁË

Îʵò»Çå³þ,ºÇºÇ~~


Ïà¹ØÎÊ´ð£º

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

xml´´½¨ºóÈçºÎÏú»Ù? - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......

delphi 數據類ÐÍ

delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:

var
arr:array ['A'..'Z'] of Char;

Óü¯ºÏ¸ã¶¨

Ôõ麼È¥運ËãÄØ£¿inc() ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ