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

Delphi Enum

ö¾ÙÀàÐÍ
¡¡¡¡Pascal³ÌÐò²»½öÓÃÓÚÊýÖµ´¦Àí£¬»¹¸ü¹ã·ºµØÓÃÓÚ´¦Àí·ÇÊýÖµµÄÊý¾Ý¡£ÀýÈ磬ÐÔ±ð¡¢Ô·ݡ¢ÐÇÆÚ¼¸¡¢ÑÕÉ«¡¢µ¥Î»Ãû¡¢Ñ§Àú¡¢Ö°ÒµµÈ¡£
1¡¢Ã¶¾ÙÀàÐ͵Ķ¨Òå
¸ñʽ:¡¡type ö¾ÙÀàÐͱêʶ·û=(±êʶ·û1,±êʶ·û2,¡­,±êʶ·ûn)
2¡¢Ã¶¾ÙÀàÐÍÊý¾ÝÌصã
¢Ù ö¾ÙÔªËØÖ»ÄÜÊDZêʶ·û£»
ÀýÈ磬ÏÂÁÐÀàÐͶ¨ÒåÊǺϷ¨µÄ£º
¡¡¡¡ type days=(sun,mon,tue,wed,thu,fri,sat);
¡¡¡¡ colors=(red,yellow,blue,white,black,green);
¡¡¡¡ ¶øÏÂÁÐÀàÐͶ¨ÒåÊÇ´íÎóµÄ:
¡¡¡¡ type colortype=('red','yellow','blue','white');
¡¡¡¡ numbers=(1,3,5,7,9);
¶¨Òåö¾ÙÀàÐÍʱÁгöµÄËùÓÐö¾ÙÔªËع¹³ÉÁËÕâÖÖö¾ÙÀàÐ͵ÄÖµÓò£¨È¡Öµ·¶Î§£©¡£

¢Ú ö¾ÙÀàÐÍÊôÓÚ˳ÐòÀàÐÍ
¡¡ ¸ù¾Ý¶¨ÒåÀàÐÍʱ¸÷ö¾ÙÔªËصÄÅÅÁÐ˳ÐòÈ·¶¨ËüÃǵÄÐòºÅ£¬ÇÒÐòºÅ´Ó0¿ªÊ¼¡£
ÀýÈ磬¶¨Òåtype days=(sun,mon,tue,wed,thu,fri,sat);
Ôò£¬ ord(sun)=0,ord(mon)=1,¡­¡­£¬ÒÔ´ËÀàÍÆ¡£
ö¾ÙÀàÐÍÖеĵÚÒ»¸öÔªËØÎÞÇ°Ç÷£¬×îºóÒ»¸öÔªËØÎÞºó¼Ì¡£
pred(sat)=fri; succ(sun)=mon; ord(sat)=6;

¢Û ͬһ¸öö¾ÙÔªËز»ÄܳöÏÖÔÚÁ½¸ö»òÁ½¸öÒÔÉϵÄö¾ÙÀàÐͶ¨ÒåÖС£ÈçÏÂÁж¨ÒåÊÇ´íÎóµÄ:
¡¡¡¡ type color1=(red,yellow,white);
¡¡¡¡¡¡¡¡ color2=(blue,red,black);¡¡
ÒòΪredÊôÓÚö¾ÙÀàÐÍcolor1ºÍ color2
¢Ü ö¾ÙÀàÐͱäÁ¿Ö»ÄܽøÐи³ÖµÔËËãºÍ¹ØϵÔËË㣬²»ÄܽøÐÐËãÊõÔËËãºÍÂß¼­ÔËËã¡£
¡¡¡¡ÔÚö¾ÙÔªËرȽÏʱ£¬Êµ¼ÊÉÏÊǶÔÆäÐòºÅµÄ±È½Ï¡£
¡¡ÀýÈ綨ÒåÈçÏ£º
¡¡¡¡ type days=(sun,mon,tue,wed,thu,fri,sat);
¡¡¡¡¡¡¡¡ colors=(red,yellow,blue,white,black,green);
¡¡¡¡ var color:colors;
¡¡¡¡¡¡ ¡¡weekday:days;
¡¡ÔòÏÂÃæÓï¾äÊǺϷ¨µÄ: weekday:=mon;
¡¡¡¡ if weekday=sun then write('rest');
¡¡¶øÏÂÃæÓï¾äÊDz»ºÏ·¨µÄ:
mon:=1; ´í°Ñö¾ÙÖµµ±³É±äÁ¿Ãû£»
weekday:=blue£» ö¾ÙÖµblue²»ÊôÓÚö¾Ù±äÁ¿weekdayµÄÖµÓò£»
read(color); ö¾ÙÀàÐͱäÁ¿ ²»ÄÜÓöÁÓï¾ä½øÐи³Öµ£»
write(weekday); writeln(blue);²»ÄÜͨ¹ýдÓï¾äÊä³öö¾ÙÀàÐ͵ıäÁ¿ÖµºÍö¾ÙÖµ¡£

¢Ý ¿ÉÒ԰ѱäÁ¿µÄ˵Ã÷ÓëÀàÐ͵Ķ¨ÒåºÏ²¢ÔÚÒ»Æð£¬Èç:
¡¡¡¡var holiday,workday:(sun,mon,tue,wed,thu,fri,sat);
¡¡¡¡¡¡ color:(red,yellow,blue,white,black,green);
¶Ôö¾ÙÊý¾ÝµÄÊäÈëÓëÊä³ö¿Éͨ¹ý¼ä½Ó·½Ê½½øÐС£ÊäÈëʱ£¬Ò»°ã¿ÉÊäÈëÒ»¸ö´úÂ룬ͨ¹ý³ÌÐò½øÐÐת»»£¬Êä³öʱ£¬Ò²Ö»ÊÇ´ò


Ïà¹ØÎĵµ£º

delphiÖÐapplication.processmessagesµÄ×÷ÓÃ


delphiÖÐapplication.processmessagesµÄ×÷ÓÃ

procedure TForm1.Button2Click(Sender: TObject);
var
   I, J, X, Y: Word;
begin
   I := 0;
   J := 0;
   while I < 64000 do
   begin
     Randomize;
   & ......

Delphi Öд®¿ÚͨѶµÄʵÏÖ

  Delphi ÊÇÐÂÒ»´ú¿ÉÊÓ»¯¿ª·¢¹¤¾ß£¬Ëü¾ßÓй¦ÄÜÇ¿´ó¡¢¼ò±ãÒ×ÓúʹúÂëÖ´ÐÐËٶȿìµÈÌص㣬ÊÇÈ«Çò¹«ÈϵĿìËÙÓ¦Óÿª·¢¹¤¾ß¼¼ÊõµÄÏÈÇýÕߣ¬ËüÔ½À´Ô½ÔÚ¹¹¼ÜÆóÒµÐÅϢϵͳ·½Ãæ·¢»Ó×ÅÖØÒª×÷Óá£ÓÉÓÚDelphi ÕâЩÏÔÖøÌص㣬Ðí¶à³ÌÐòԱѡÔñDelphi×÷Ϊ¿ª·¢¹¤¾ß±àÖƸ÷ÖÖÓ¦ÓóÌÐò¡£µ«ÊÇ£¬ÁîÈËÍïϧµÄÊÇDelphiûÓÐ×Ô´ø´®¿Ú ......

DelphiÎļþÖеĺó׺Ãû½éÉÜ

ÓÃDelphi×÷µÄ³ÌÐòµÄÔ´´úÂëÖг£¼ûµÄÎļþÀ©Õ¹Ãû£¬²¢¸ø³öÁËÕâЩÎļþÀ©Õ¹ÃûµÄÒâÒ壬ÒÔ±ãÔ´´úÂë¹ÜÀíʱ×÷Ϊ²ÎÕÕ£¬À©Õ¹ÃûÒÔ×ÖĸΪÐò£¨²»ÐèÒª½øÔ´´úÂë¿â²»±íʾ²»ÐèÒª½ø¿â£©¡£
¡¡¡¡~*
¡¡¡¡DelphiÉú³ÉµÄ±¸·ÝÎļþ£¬ÔÚ°æ±¾¿ØÖÆ¿â¼°·¢²¼´úÂëÖв»Ó¦¸Ã³öÏÖÕâЩÎļþ£¬Èç¹ûÐÞ¸ÄÁËij¸öÎļþÈ´ÒòijЩԭÒòûÓб£´æµÄ»°£¬¿ÉÒÔ³¢ÊÔʹÓÃÕâЩÎļþ» ......

DELPHI ÎļþѹËõ¼ÓÃÜ

1¡¢  ÏµÍ³¹¦ÄÜ
1£©¡¢Êý¾ÝѹËõ
ʹÓÃDELPHIÌṩµÄÁ½¸öÁ÷ÀࣨTCompressionStreamºÍTDecompressionStream£©À´Íê³ÉÊý¾ÝµÄѹËõºÍ½âѹËõ¡£
2£©¡¢Êý¾Ý¼ÓÃÜѹËõ
ͨ¹ýDelphi±à³ÌÖГÁ÷”µÄÓ¦ÓÃʵÏÖÊý¾Ý¼ÓÃÜ£¬Ö÷Òª²ÉÓÃTstreamµÄÁ½¸öÅÉÉúÀàTfilestream¡¢Tmemorystream À´Íê³ÉµÄ£»ÆäÖÐÊý¾ÝѹËõ²¿·Ö²ÉÓÃ1£©µÄʵÏÖ· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ