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

delphi ½«100¸öÊý×ÖÆ½¾ù·Ö²¼µ½600¸öÊý×éÀï

100¸öÊý×Ö·Ö²¼µ½Êý×éhm[0..9,0..99]Àï
¾ÍÊÇÊ®Ìõ¼Ç¼
ÿÌõ¼Ç¼Àï60¸öÊý×Ö
ÒªÇóÿ¸öÊý×ÖʹÓÃ6´Î£¨²»ÄܶàÒ²²»ÄÜÉÙ£©
100¸öÊý×ÖÊÇ0µ½99
ÓïÎÄ¿¼ÊÔ²»¼°¸ñ
ÓÐû¿´¶®µÄ¿ÉÒÔÎÊÏÂÎÒ
Êý×éµÄ×Ü´óСΪ1000£¬Ê£ÓàµØ400×öɶ´¦Àí£¿

ʣϵIJ»´¦Àí°¡
±ÈÈçÊý×ÖÊÇ53
ÄÇôhm[i,53]¾ÍµÈÓÚ1
²»È»¾ÍµÈÓÚ0

Ëæ»ú·Ö²¼£¿ÓÐÐò·Ö²¼£¿×ܵÃÓеãËã·¨°É¡£

ÒýÓÃ
ʣϵIJ»´¦Àí°¡
±ÈÈçÊý×ÖÊÇ53
ÄÇôhm[i,53]¾ÍµÈÓÚ1
²»È»¾ÍµÈÓÚ0

Ëæ»ú·Ö²¼

ÒýÓÃ
ʣϵIJ»´¦Àí°¡
±ÈÈçÊý×ÖÊÇ53
ÄÇôhm[i,53]¾ÍµÈÓÚ1
²»È»¾ÍµÈÓÚ0


Ëæ»ú·Ö²¼

1. ¶¨Òå±äÁ¿ÓÃÀ´±£´æÃ¿¸öÊý×ÖµÄʹÓôÎÊý
array[0..99] of integer;
µ±È»Ò²¿ÉÄÜÊÇarray[1..100]£¬¿´ÄãµÄ¡°100¸öÊý×Ö¡±ÊÇ0~99»¹ÊÇ1~100£¬Ê¹ÓÃǰ³õʼ»¯µ½È«0

2. ¶¨Òå±äÁ¿ÓÃÀ´±£´æÃ¿Ìõ¼Ç¼ÄÚµÄÊý×Ö¼ÆÊý
array[0..9] of integer;
ʹÓÃǰ³õʼ»¯µ½È«0

3. ¶¨Òå±äÁ¿À´±£´æÊý×Ö±»ÒýÓõÄ×Ü´ÎÊýÓÃÀ´¿ØÖÆÑ­»·
integer;
ʹÓÃǰ³õʼ»¯µ½0

4. ³õʼ»¯Ëæ»úÊýÖÖ×Ó¡£
Randomize;

5. ÓÃwhile doÑ­»·£¬Ìõ¼þΪÊý×ÖµÄ×ÜÒýÓüÆÊý <600

6. ÔÚÑ­»·ÌåÄÚËæ»úÉú³É
a. Êý×Ö£¨Random(100)»òÕßRandom(100)+1£©
b. ¼Ç¼ÐòºÅ£¨Ramdom(10)£©

7. ¼ì²é¸ÃÊý×ÖÔÚ1Öж¨ÒåµÄÒýÓüÆÊý£¬Ó¦Ð¡ÓÚ6£¬¼ì²é¼Ç¼ָ¶¨Î»ÖÃ״̬£¬Ó¦Îª0£¬Èç2Ìõ¼þÂú×㣬Ôò¸ÃÊý×ÖÒýÓüÆÊý+1£¬×ÜÒýÓüÆÊý+1£¬¼Ç¼µÄÏàӦλÖÃÖÃλΪ1¡£

8. ÖØ¸´Ñ­»·¡£


Delphi(Pasc


Ïà¹ØÎÊ´ð£º

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

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

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

delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢

delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢

Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn

http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html

²å¸ö±ê¼Ç

ÒýÓÃ
Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn
Õ ......

delphi¼òµ¥ÎÊÌâ

IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......

delphi + oracle µÝ¹éµÄÎÊÌâ

´ó¼ÒºÃ£º
  ÎÒĿǰҪ¿ª·¢Ò»¸öERPÖеÄBOM¹¤Ê±»ã×ܳÌÐò£¬ÔÚORACLEÖУ¬BOM±íµÄ½á¹¹ÊÇ´«Í³µÄ ¸¸¼þ ×Ó¼þ ʽµÄ£¬¹¤Ê±ÔÚÁíÒ»¸ö±íÖУ¬¿ÉÒÔÓÃleft outer joinÀ´¹ØÁª£¬¿ÉÒÔÈÏΪ£¬¹ØÁªºóµÄ±í½á¹¹Îª [¸¸¼þ] [ ......

Õâ¸öSQLÓï¾äÓÐʲôÎÊÌâ? - Delphi / ·Ç¼¼ÊõÇø

select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )

¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö

Mark!!!!!!

se ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ