Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

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

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

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

ѧϰѧϰ¡£

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

delphiµÄdll×Ó´°ÌåÎÊÌâµÄ½â¾ö - Delphi / ·Ç¼¼ÊõÇø

Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾­³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......

delphi UDPÎÊÌâ

(¼±)ÎÒÏëÓÃUDPʵÏÖ¿Í»§¶ËÓë·þÎñÆ÷Ö®¼äµÄÐÅÏ¢·¢ËÍ¡£¼´£¬¿Í»§¶Ë·¢ÐÅÏ¢¸ø·þÎñÆ÷¶Ë£¬·þÎñÆ÷ÄÜÕý³£µÄ½ÓÊÜ£¬²¢ÇÒÊǰ´Ë³Ðò½ÓÊܵġ£Èç¿Í»§¶Ë·¢ËÍEdit1,Edit2,Edit3,Edit4....ºó£¬ÔÚ·þÎñÆ÷µÄEdit1,Edit2,Edit3,Edit4....ÒÀ´Î¶ ......

¹Ø±ÕµçÄÔʱ,Delphi³ÌÐò»á³ö·¢Ê²Ã´Ê¼þ?

RT
ÎÒÔڹرÕDelphi³ÌÐòµÄʱºòÐèÒªÏòINIÎļþÖÐдµã¶«Î÷.
ÏÂ´ÎÆô¶¯Delphi³ÌÐòµÄʱºòÐèÒª¶Á,ÔÚDelphi³ÌÐòµÄOnCloseʼþÖÐдÁËûÎÊÌâ,µ«ÎÒ·¢ÏÖÈç¹û³ÌÐò¿ª×Å,È»ºó½«»úÆ÷:¿ªÊ¼->¹Ø±Õ¼ÆËã»ú->¹Ø±Õ»òÕßÖØÐÂÆô¶¯µÄʱº ......

delphi 2010 dbgrideh EhLib5.0.13 µ¼³öÎļþ³ö´í

Delphi(Pascal) code:

function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='µ¼³öµÄÎļþ'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ