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

ȨÏÞ¹ÜÀíDelphi¶þάÊý×é·½°¸

ȨÏÞ¹ÜÀíDelphiʵÏÖËã·¨
ÔÚÔËÓÃDELPHI±àÖÆÒ»Ð©Ó¦ÓÃϵͳʱ£¬Óкܶàʱºò¶¼ÐèÒª¸ø²»Í¬µÄÓû§¸³Ó費ͬµÄȨÏÞ£¬
¶ø²»Í¬µÄϵͳÓÖÓв»Í¬µÄȨÏÞ·ÖÅ䷽ʽ£¬
Èç¹ûÔÚ³ÌÐòÖÐȥΪÿһλÓû§·ÖÅäȨÏ޵ϰ£¬²»½öʹµÃ³ÌÐòµÄ±àÖÆÊ®·ÖÂé·³£¬¶øÇÒÒ²²»ÀûÓÚ¹ÜÀí£¡
±ÊÕß½üÈÕÏëµÃÒ»×ÔÈÏΪ±È½ÏºÃµÄ·½·¨£¬Ô¸Óë´ó¼Ò¹²Ïí£¬²¢Íû¸÷λ¶àÖ¸½Ì£¡
ÔںܶàµÄϵͳÖУ¬È¨ÏÞͨ³£ÊDZ»·Ö³É¼¸¼¶µÄ¡£
ÿһ¼¶µÄÓû§ËùÄÜʵÏֵIJÙ×÷ÊDz»Í¬µÄ£¬¶øÊµÏÖÕâÒ»¹¦Äܵķ½·¨Ò»°ã¶¼ÊÇÈò»Í¬È¨ÏÞµÄÓû§¼ûµ½²»Í¬µÄ²Ëµ¥¡£
¼òµ¥µÄ˵¾ÍÊǶԲ»¾ßÓÐijһȨÏÞµÄÓû§ÕâÒ»²Ëµ¥¾ÍÊDz»¿É¼ûµÄ£¡
ΪÁËʵÏÖÕâÒ»¿ØÖÆ£¬³ÌÐòÔ±ÃÇÍùÍùµÃ»¨·ÑºÜ¶àµÄʱ¼äÈ¥×öÕâһģ¿é£¬ÀË·ÑÁ˺ܶ౦¹óµÄʱ¼ä£¡
Ïë·¨ÊÇ£ºÈç¹ûÉèÒ»¸ö¶þάÊý×飬µÚһά´ú±íµÚÒ»¼¶²Ëµ¥£¬µÚ¶þά´ú±í×Ӳ˵¥£¬
ÿһ¸öÊý×éÔªËØÖ»´æ´¢0»ò1ÕâÁ½¸öÊý£¬Ä³Ò»È¨ÏÞµÄÓû§¶ÔÓ¦×ÅÒ»¸ö¶þάÊý×飬¶øÕâ¸öÊý×éÓÖ´ú±íÁËÏàÓ¦µÄ²Ëµ¥¡£
¸øÄ³Ò»¼¶±ðµÄÓû§·ÖÅäȨÏÞºó£¬Ëû±ãÓµÓÐÁËÒ»¸öÏàÓ¦µÄÊý×é¡£
µÇ¼ʱ£¬´ÓÊý×éÖÐÈ¡³ö¸÷¸öÔªËØµÄÖµ£¬Èç¹ûΪ1ÔòÏàÓ¦µÄ²Ëµ¥³öÏÖ£¬Îª0Ôò²»³öÏֲ˵¥¡£
ÓÃÕâÖÖ·½Ê½²»µ«¿ÉÒÔ·Ö¼¶£¬»¹ÄÜʵÏÖÔÚ²»Í¬µÄÓû§¼äʵÏÖȨÏÞϸ·Ö£¬Ö»ÒªÄãÐÞ¸ÄÏàÓ¦µÄÊýֵΪ0»ò1¼´¿É£¡
ÉÏÃæÊÇÒ»¸ö¼òµ¥Àý×ÓµÄÔËÐнá¹û¡£
ÏÂÃæÊDz¿·ÖÔ´³ÌÐò£¨Õâ½öÊÇÒ»¸ö½âÊÍÐÔµÄÀý×Ó³ÌÐò£©£¬ÎªÁ˼ò±ã£¬³ÌÐòÖÐÖ»ÓÐÒ»¸ö´°ÌåºÍÒ»¸öÖ÷²Ëµ¥¡£
ÔÚ´´½¨´°Ìåʱ³õʼ»¯Êý×éM£¬ÏÔʾʱ¶Á³öÊý×éÖµ²¢Í¨¹ýÉèÖò˵¥µÄEnabledÊôÐÔ»òÕßVisibleÊôÐÔµÄTrue»òFalseÀ´¿ØÖÆÏÔʾ£¡£¡
var
   Form1: TForm1;
   m:array[0..1,0..4] of integer;//¶¨Òå´æ´¢µÄÊý×é
   i,j:integer;//¶¨ÒåÑ­»·µÄ±äÁ¿
implementation
{$R *.dfm}
//ȨÏÞÊý×éÖ±½ÓÉèÖûòÕß´ÓÊý¾Ý¿â±íÖмÓÔØ
procedure TForm1.FormCreate(Sender: TObject);
begin
    k:=0;
    for i:=Low(m) to High(m) do
       for j:=Low(m[i]) to High(m[i])
 do
          if (j mod 2)=0 then
  m[i][j]:=1
          else
  m[i][j]:=0;
end;
//¶Á³öÊý×é¿ØÖÆ²Ëµ¥µÄÏÔʾ
procedure TForm1.FormShow(Sender: TObject);
begin
    for i:=Low(m) to High(m) do
       for j:=Low(m[i])


Ïà¹ØÎĵµ£º

DELPHIÃæÏò¶ÔÏó²Î¿¼


Ò»¡¢ÀàºÍ¶ÔÏó
ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓÚ¶Ñ¡£
¶þ¡¢ÀàµÄ·½·¨·ÖÀà
1¡¢  ÆÕͨ·½·¨
²»¼ÓÈκÎÐÞÊε ......

DelphiÐ´ÍøÒ³°²È«¿Ø¼þ(dll,ocx)


Unt_Machine_WebDll.pas
BODY {background: #FFFFFF}
A:link { color: #0000FF}
A:visited { color: #0000FF}
A:Active { color: #0000FF}
.bold {font-weight: bold}
.italic {font-style: italic}
.underline {text-decoration: underline}
unit Unt_Machine_WebDll;
{$WARN SYMBOL_PLATFORM OF ......

Delphi³£ÓÿؼþÃüÃû¹æ·¶

 ³£ÓÿؼþÃüÃûǰ׺
¿Ø¼þÀàÃû
ǰ׺
TFormµÈ´°ÌåÀà 
frm
TButton, TSpeedButtonµÈËùÓеİ´Å¥Àà 
btn
TCheckBoxµÈËùÓеļì²é¿ò 
chk
TRadioButtonµ¥Ñ¡°´Å¥Àà
rdo
TListBoxµÈËùÓеÄÁбí¿òÀà 
lst
TPanelµÈËùÓеÄÃæ°åÀà
pnl
TLabel, TStaticTextµÈËùÓÐÓÃÀ´ÏÔʾµÄ±êÇ©Àà 
lbl
TE ......

Delphi Open Tools API dz̽

savetime2k@yahoo.com  2004.1.28
http://savetime.delphibbs.com
½ñÌ쿪ʼѧϰԪ¼þ±à¼­Æ÷£¬¸Ð¾õ±ÈÊôÐԱ༭Æ÷¼òµ¥Ðí¶à£¬µ«»¹ÊÇÓöµ½ÁËһЩÒÉÎÊ¡£Èç¹ûÄãÄܽâ´ðÎÄÖмǼµÄÎÊÌ⣬Çë¸æËßÎҴ𰸣¬Ð»Ð»£¡
Ŀ ¼
===============================================================================
¡Ñ TBaseComponentEdit ......

Ò»¸ödelphi³ÌÐòÔ±µÄ¿ª·¢Ï°¹ß

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