±`¼Æ(Constants) ±z¥i¥H±q¥»¤å¤¤±oª¾¦³Ãö±`¼Æ(constant)ªº»yªk¡A¥H¤Î¨Ï¥Îªº®É¾÷¡C ±`¼Æ«Å§i(constant declaration) ¤@Ó©T©w¤£ÅܪºÈ¡A§Ú̺٤§¬° "±`¼Æ"¡C¤@¯ë§Ú̦bµ{¦¡¤¤·|¥Î¨ì¤@¨Ç©T©wªº¤å¦r©Î¼Æ¦r¡A´N¬O¹³ 100¡B'a'¡B3.1415926 ¡K¡A¦b³oùاÚÌn±´°Qªº¡A´N¬O¦p¦ó¥ÎÃѧO¦r¡A¨Ó¨ú¥N³o¨Ç¯u¥¿ªº¼ÆÈ¡C ¦b¨Ï¥Î±`¼Æ«e¡A¥²»Ý¥ý¦bµ{¦¡ªº¶}ÀY«Å§i¡A§i¶DDelphi³o¨ÇÃѧO¦r¥Nªí±`¼Æ¡C±`¼Æ¦b«Å§i¤§«á¡A´N¤£¥i¥H¦A§ïÅܳoÓȤF¡C Åý§ÚÌ¥ý¬Ý¬Ý±`¼Æ«Å§iªº¨Ò¤l: const PI=3.1415926 ; Digit=['0'..'9'] ; OneDay=60 * 60 * 24 ; HalfDay=OneDay / 2 ; IntSize=sizeof(integer) ; DiskFullMessage='ºÏºÐªÅ¶¡¤wº¡!' ; ChangeDiskMessage='½Ð´«·sªººÏ¤ù' ; WarningMessage=DiskFullMessage+' '+ChangeDiskMessage ; ¦b¤@¶}©lªº¦a¤è¡A§ÚÌ¥Hconst³oÓ«O¯d¦rªí¥Ü¤§«á¬O±`¼Æªº«Å§i¡CÃѧO¦r©MȤÀ§O©ñ¦bµ¥¸¹ªº¥ª¥k¨âÃä¡A¨Ã¥H¤À¸¹§@¬°µ²§À¡C§Ṳ́]¥i¥H¦P®É«Å§i¦hÓ±`¼Æ(¦p¤W¨Ò)¡C ¦]¬°±`¼Æ¬O¦b½sĶ®É¡A´N¤w¸gºâ¥X©T©wªºÈ¡A©Ò¥H¦b±`¼Æªº©w¸q¤¤¤£¥i¥H¦³ÅܼƩάO¦ì§}ªº¹Bºâ¡C¦Ó°£¤F¤U±©Ò¦Cªº¼Ð·Ç¨ç¼Æ¥~¡A¤]¤£¤¹³\¨Ï¥Î¨ç¼Æ©I¥s¡C ¦b±`¼Æ«Å§i¤¤¥i¥Îªº¼Ð·Ç¨ç¼Æ: abs addr chr hi high length lo low odd ord pred round sizeof succ swap trunc °£¤F¤Wzªº¨î¥~¡A±`¼Æ¤¤ªº¹Bºâ¦¡©M¤@¯ë¹Bºâ¦¡ªº»yªk³W«h¬Û¦P¡A¸Ô±¡½Ð°Ñ¦Ò Obiect Pascal Language Guide ¤¤²Ä¤³¹ Expressionsªº»¡©ú¡C °£¤F³oùؤ¶²Ðªº±`¼Æ¥~¡AÁÙ¦³¤@ºØºÙ¬°«¬ºA±`¼Æ(Typed Constants)¡AÁöµM¤@¼Ë¬O¦bconst¤¤«Å§i¡A¦ý¬O¨Ï¥Î¤W¦³ÂI¤£¦P¡A§Ú̱N¦b¥t¤@½g¤å³¹(Type.doc)¤¤¤¶²Ð¡C ¨Ï¥Î®É¾÷ ¾A·íªº¨Ï¥Î±`¼Æ¡A¥i¥H²¤Æµ{¦¡ªº¾\Ū¤Î¼W¥[ºûÅ@¤Wªº¤è«K¡C¨Ò¦ppºâ¶ê©P®Éªº¤½¦¡: Circumference := 2 * radius * 3.1415926 ; Circumference := 2 * radius * pi ; ¤W±³o¨âÓ¦¡¤l¡A¨Ï¥Î±`¼Æ¥i¥H«Ü©úÅ㪺¬Ý¥X³oÓ¦¡¤lªº·N¸q¡A¦Ó¥B§ó«nªº¡A¦pªG±N¨Ó¥´ºâקïµ{¦¡¼W¥[ºë±K«×¡A¥un¦b±`¼Æ«Å§iªº³¡¥÷§ó§ïpiªºÈ pi=3.141592654 ; «·s½sĶ«á¡A´N¥i¥H±N¶ê©Pªººë½T«×¦A´£°ª¨â¦ì¡C§_«h¨ìµ{¦¡¤¤¤@¤@קï©Ò¦³¬ÛÃöªº¹Bºâ¦¡¡A¤£¦ý®e©ö¥X¿ù¤]¨S¦³®Ä²v¡C ¦bµ{¦¡¤¤¤d¸U¤£n¦³ªº¦a¤è¥Î±`¼Æ¡A¤S¦³ªº¦a¤èª½±µ¨Ï¥Î¼Æ¦r¡A¦]¬°³o¼Ë®e©ö¾ÉP¿ù»~¡C§Ų́ϥα`¼Æªº¥Øªº´N¬O¬°¤F´£°ªµ{¦¡ªº¥iŪ©Ê¤ÎºûÅ@¤Wªº¤è«K¡A¤£¤@Pªº¥Îªk¥u·|³y¦¨²V²c¡C |