For Beginners & Professional Hackers

home *** CD-ROM | disk | FTP | other *** search

/ For Beginners & Professional Hackers / cd.iso / docum / bp70-lr.doc / lr.doc

Wrap

Text File | 1993-12-15 | 1013.5 KB | 20,527 lines

Éπ¬«ó«ñßΓó« »« ∩ºδ¬π ═════════════════════════════════════════════════════════════════════════ B.Pascal 7 & Objects/LR - 1 - éóÑñÑ¡¿Ñ.......................................................10 Ä τÑ¼ αáßß¬áºδóáÑΓß∩ ó ñá¡¡«¼ απ¬«ó«ñßΓóÑ......................11 ùáßΓ∞ I. ƒºδ¬ Borland Pascal...................................12 â½áóá 1. ùΓ« Γá¬«Ñ »α«úαá¼¼á Borland Pascal?...................12 Åα«úαá¼¼á Borland Pascal.......................................13 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿............................................13 Ä»ÑαáΓ«αδ......................................................15 éδαáªÑ¡¿∩......................................................16 ïÑ¬ßÑ¼δ........................................................17 Æ¿»δ, »ÑαÑ¼Ñ¡¡δÑ, ¬«¡ßΓá¡Γδ ¿ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ.........17 è«¼»«¡«ó¬á τáßΓÑ⌐..............................................19 î«ñπ½¿.........................................................20 æ¿¡Γá¬ß¿τÑß¬¿Ñ ñ¿áúαá¼¼δ.......................................21 â½áóá 2. ïÑ¬ßÑ¼δ...............................................22 æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ............................................22 çáαÑºÑαó¿α«óá¡¡δÑ ß½«óá ¿ ßΓá¡ñáαΓ¡δÑ ñ¿αÑ¬Γ¿óδ Borland Pascal........................................................24 êñÑ¡Γ¿Σ¿¬áΓ«αδ.................................................25 ù¿ß½á..........................................................27 îÑΓ¬¿..........................................................29 æΓα«¬¿ ß¿¼ó«½«ó................................................29 è«¼¼Ñ¡Γáα¿¿....................................................31 æΓα«¬¿ »α«úαá¼¼δ...............................................31 â½áóá 3. è«¡ßΓá¡Γδ.............................................32 â½áóá 4. Æ¿»δ..................................................34 Åα«ßΓδÑ Γ¿»δ...................................................35 Å«α∩ñ¬«óδÑ Γ¿»δ................................................35 ûÑ½«τ¿ß½Ñ¡¡δÑ Γ¿»δ.............................................37 üπ½Ñóß¬¿Ñ Γ¿»δ.................................................39 æ¿¼ó«½∞¡δ⌐ Γ¿» (char)..........................................40 ÅÑαÑτ¿ß½¿¼δÑ Γ¿»δ..............................................40 ÄΓαÑº¬¿ Γ¿»á...................................................41 éÑΘÑßΓóÑ¡¡δÑ Γ¿»δ..............................................42 Åα«úαá¼¼¡á∩ »«ññÑαª¬á τ¿ßÑ½ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐.................43 Ç»»áαáΓ¡á∩ »«ññÑαª¬á τ¿ßÑ½ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐..................43 æΓα«¬«óδÑ Γ¿»δ.................................................44 æΓαπ¬Γπα¡δÑ Γ¿»δ...............................................45 Æ¿»δ ¼áßß¿ó....................................................46 Æ¿»δ ºá»¿ß∞....................................................48 ÄíΩÑ¬Γ¡δÑ Γ¿»δ.................................................50 è«¼»«¡Ñ¡Γδ ¿ «í½áßΓ∞ ñÑ⌐ßΓó¿∩..................................54 îÑΓ«ñδ.........................................................54 é¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ.............................................54 ä¿¡á¼¿τÑß¬¿Ñ ¼ÑΓ«ñδ............................................56 æ«ºñá¡¿Ñ φ¬ºÑ¼»½∩α«ó «íΩÑ¬Γ«ó..................................57 Ç¬Γ¿ó¿ºáµ¿∩ ¼ÑΓ«ñ«ó............................................59 Ç¬Γ¿ó¿ºáµ¿∩ πΓ«τ¡Ñ¡¡δσ ¼ÑΓ«ñ«ó.................................60 î¡«ªÑßΓóÑ¡¡δÑ Γ¿»δ.............................................61 öá⌐½«óδÑ Γ¿»δ..................................................62 æßδ½«τ¡δÑ Γ¿»δ.................................................63 Æ¿» Pointer....................................................64 Æ¿» PChar......................................................64 Åα«µÑñπα¡δÑ Γ¿»δ...............................................65 B.Pascal 7 & Objects/LR - 2 - Åα«µÑñπα¡δÑ º¡áτÑ¡¿∩...........................................65 æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó............................................67 Æ«ªñÑßΓóÑ¡¡δÑ ¿ ß«ó¼ÑßΓ¿¼δÑ Γ¿»δ...............................67 Æ«ªñÑßΓóÑ¡¡«ßΓ∞ Γ¿»«ó..........................................67 æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó............................................68 æ«ó¼ÑßΓ¿¼«ßΓ∞ »« »α¿ßóá¿óá¡¿ε..................................69 ÉáºñÑ½ «»¿ßá¡¿∩ Γ¿»«ó..........................................70 â½áóá 5. ÅÑαÑ¼Ñ¡¡δÑ ¿ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ.................72 Ä»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡δσ............................................72 æÑú¼Ñ¡Γ ñá¡¡δσ.................................................73 æÑú¼Ñ¡Γ ßΓÑ¬á..................................................73 Çíß«½εΓ¡δÑ »ÑαÑ¼Ñ¡¡δÑ..........................................74 æßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡δÑ...........................................76 èóá½¿Σ¿¬áΓ«αδ..................................................77 îáßß¿óδ, ßΓα«¬¿ ¿ ¿¡ñÑ¬ßδ......................................78 çá»¿ß¿ ¿ ñÑß¿ú¡áΓ«αδ »«½Ñ⌐.....................................79 äÑß¿ú¡áΓ«αδ ¬«¼»«¡Ñ¡Γ«ó «íΩÑ¬Γá................................79 ÅÑαÑ¼Ñ¡¡δÑ-π¬áºáΓÑ½¿ ¿ ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ.................79 Åα¿óÑñÑ¡¿Ñ Γ¿»«ó »ÑαÑ¼Ñ¡¡δσ....................................81 Æ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ.......................................83 è«¡ßΓá¡Γδ »α«ßΓ«ú« Γ¿»á........................................84 è«¡ßΓá¡Γδ ßΓα«¬«ó«ú« Γ¿»á......................................84 è«¡ßΓá¡Γδ ßΓαπ¬Γπα¡«ú« Γ¿»á....................................85 è«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó..........................................86 è«¡ßΓá¡Γδ Γ¿»á ºá»¿ß∞..........................................88 è«¡ßΓá¡Γδ «íΩÑ¬Γ¡«ú« Γ¿»á......................................89 è«¡ßΓá¡Γδ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á..................................90 è«¡ßΓá¡Γδ ßßδ½«τ¡«ú« Γ¿»á......................................91 è«¡ßΓá¡Γδ »α«µÑñπα¡«ú« Γ¿»á....................................92 â½áóá 6. éδαáªÑ¡¿∩.............................................93 æ¿¡Γá¬ß¿ß óδαáªÑ¡¿⌐............................................94 Ä»Ñαáµ¿¿.......................................................99 Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿........................................99 ô¡áα¡δÑ áα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿...............................100 ï«ú¿τÑß¬¿Ñ «»Ñαáµ¿¿...........................................101 üπ½Ñóß¬¿Ñ «»Ñαáµ¿¿............................................101 Ä»Ñαáµ¿∩ ß« ßΓα«¬á¼¿..........................................103 Ä»Ñαáµ¿¿ ¡áñ ß¿¼ó«½∞¡δ¼¿ π¬áºáΓÑ½∩¼¿..........................104 Ä»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓóá¼¿......................................105 Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩............................................106 æαáó¡Ñ¡¿Ñ »α«ßΓδσ Γ¿»«ó.......................................107 æαáó¡Ñ¡¿Ñ ßΓα«¬...............................................107 æαáó¡Ñ¡¿Ñ π»á¬«óá¡¡δσ ßΓα«¬...................................107 æαáó¡Ñ¡¿Ñ π¬áºáΓÑ½Ñ⌐..........................................107 æαáó¡Ñ¡¿Ñ ß¿¼ó«½∞¡δσ π¬áºáΓÑ½Ñ⌐...............................108 æαáó¡Ñ¡¿Ñ ¼¡«ªÑßΓó............................................108 Åα«óÑα¬á ¡á »α¿¡áñ½Ñª¡«ßΓ∞ ¬ ¼¡«ªÑßΓóπ........................108 Ä»Ñαáµ¿∩ @....................................................109 êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ »ÑαÑ¼Ñ¡¡«⌐.......................110 êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¿½¿ ¼ÑΓ«ñá.......................................................111 éδº«óδ Σπ¡¬µ¿¿................................................111 Ä»¿ßáΓÑ½¿ ¼¡«ªÑßΓóá...........................................113 B.Pascal 7 & Objects/LR - 3 - Åα¿óÑñÑ¡¿Ñ Γ¿»á º¡áτÑ¡¿⌐......................................114 Åα«µÑñπα¡δÑ Γ¿»δ ó óδαáªÑ¡¿∩σ.................................115 â½áóá 7. Ä»ÑαáΓ«αδ............................................117 Åα«ßΓδÑ «»ÑαáΓ«αδ.............................................117 Ä»ÑαáΓ«α »α¿ßóá¿óá¡¿∩.........................................118 Ä»ÑαáΓ«αδ »α«µÑñπαδ...........................................119 Ä»ÑαáΓ«αδ »ÑαÑσ«ñá............................................120 æΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ.........................................120 æ«ßΓáó¡δÑ «»ÑαáΓ«αδ...........................................121 ôß½«ó¡δÑ «»ÑαáΓ«αδ............................................121 Ä»ÑαáΓ«α πß½«ó¿∩ (if).........................................122 Ä»ÑαáΓ«α óáα¿á¡Γá (case)......................................123 Ä»ÑαáΓ«α µ¿¬½á................................................125 Ä»ÑαáΓ«α µ¿¬½á ß »«ßΓπß½«ó¿Ñ¼ (repeat)........................125 Ä»ÑαáΓ«αδ µ¿¬½á ß »αÑñπß½«ó¿Ñ¼ (while)........................127 Ä»ÑαáΓ«αδ µ¿¬½á ß »áαá¼ÑΓα«¼ (for)............................128 Ä»ÑαáΓ«α with.................................................131 â½áóá 8. ü½«¬¿, ½«¬á½∞¡«ßΓ∞ ¿ «í½áßΓ∞ ñÑ⌐ßΓó¿∩................133 æ¿¡Γá¬ß¿ß.....................................................133 Åαáó¿½á ñ½∩ «í½áßΓ¿ ñÑ⌐ßΓó¿∩..................................136 Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ñ½∩ í½«¬á....................................136 Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ºá»¿ß¿.......................................137 Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ «íΩÑ¬Γá......................................137 Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¼«ñπ½∩.......................................137 â½áóá 9. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿..................................139 Ä»¿ßá¡¿∩ near ¿ far...........................................141 Ä»¿ßá¡¿∩ export...............................................142 Ä»¿ßá¡¿∩ interrupt............................................143 Ä»¿ßá¡¿Ñ forward..............................................143 Ä»¿ßá¡¿∩ external.............................................145 Ä»¿ßá¡¿∩ assembler............................................147 Ä»¿ßá¡¿∩ inline...............................................147 Ä»¿ßá¡¿∩ Σπ¡¬µ¿⌐..............................................148 Ä»¿ßá¡¿∩ ¼ÑΓ«ñ«ó..............................................150 è«¡ßΓαπ¬Γ«αδ ¿ ñÑßΓαπ¬Γ«αδ....................................151 é«ßßΓá¡«ó½Ñ¡¿Ñ «Φ¿í«¬ ¬«¡ßΓαπ¬Γ«αá............................154 Åáαá¼ÑΓαδ.....................................................156 Åáαá¼ÑΓαδ-º¡áτÑ¡¿∩............................................157 Åáαá¼ÑΓαδ-¬«¡ßΓá¡Γδ...........................................157 Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ..........................................157 ìÑΓ¿»¿º¿α«óá¡¡δÑ »áαá¼ÑΓαδ....................................158 ÄΓ¬αδΓδÑ »áαá¼ÑΓαδ............................................160 ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ..................................160 ÄΓ¬αδΓδÑ »áαá¼ÑΓαδ-¼áßß¿óδ....................................162 ä¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ «íΩÑ¬Γ¡«ú« Γ¿»á.......................163 Åα«µÑñπα¡δÑ »ÑαÑ¼Ñ¡¡δÑ........................................165 Åáαá¼ÑΓαδ »α«µÑñπα¡«ú« Γ¿»á...................................168 â½áóá 10. Åα«úαá¼¼δ ¿ ¼«ñπ½¿..................................170 æ¿¡Γá¬ß¿ß »α«úαá¼¼............................................170 çáú«½«ó«¬ »α«úαá¼¼δ...........................................170 Ä»ÑαáΓ«α uses.................................................171 æ¿¡Γá¬ß¿ß ¼«ñπ½Ñ⌐.............................................172 çáú«½«ó«¬ ¼«ñπ½∩..............................................172 B.Pascal 7 & Objects/LR - 4 - ê¡ΓÑαΣÑ⌐ß¡á∩ ßÑ¬µ¿∩...........................................173 æÑ¬µ¿∩ αÑá½¿ºáµ¿¿.............................................174 æÑ¬µ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿..........................................175 è«ßóÑ¡¡δÑ ßßδ½¬¿ ¡á ¼«ñπ½¿....................................175 ÅÑαÑ¬αÑßΓ¡δÑ ßßδ½¬¿ ¡á ¼«ñπ½¿.................................177 æ«ó¼ÑßΓ¡«Ñ ¿ß»«½∞º«óá¡¿Ñ «»¿ßá¡¿⌐.............................179 â½áóá 11. ä¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δÑ í¿í½¿«ΓÑ¬¿..................180 ùΓ« Γá¬«Ñ DLL?................................................180 êß»«½∞º«óá¡¿Ñ DLL.............................................180 î«ñπ½¿ ¿¼»«αΓá................................................182 æΓáΓ¿τÑß¬¿⌐ ¿ ñ¿¡á¼¿τÑß¬¿⌐ ¿¼»«αΓ.............................184 ìá»¿ßá¡¿Ñ DLL.................................................185 ä¿αÑ¬Γ¿óá »α«µÑñπαδ export....................................187 Ä»ÑαáΓ«α exports..............................................187 è«ñ ¿¡¿µ¿á½¿ºáµ¿¿ í¿í½¿«ΓÑ¬¿..................................189 çá¼Ñτá¡¿∩ »« »α«úαá¼¼¿α«óá¡¿ε í¿í½¿«ΓÑ¬.......................191 â½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ ó DLL...................................191 â½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ ¿ Σá⌐½δ ó DLL...........................191 DLL ¿ ¼«ñπ½∞ System...........................................191 ÄΦ¿í¬¿ φΓá»á óδ»«½¡Ñ¡¿∩ ó DLL.................................192 DLL ¿ ßÑú¼Ñ¡Γδ ßΓÑ¬á..........................................192 æ«ºñá¡¿Ñ ß«ó¼ÑßΓ¡« ¿ß»«½∞ºπÑ¼δσ DLL...........................193 â½áóá 12. ü¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ......................194 î«ñπ½¿ Borland Pascal.........................................194 î«ñπ½∞ System.................................................195 î«ñπ½∞ Dos ¿ WinDos...........................................195 î«ñπ½∞ Crt....................................................195 î«ñπ½∞ WinCrt.................................................196 î«ñπ½∞ Printer................................................196 î«ñπ½∞ WinPrn.................................................196 î«ñπ½∞ Overlay................................................196 î«ñπ½∞ Strings................................................197 î«ñπ½∞ Graph..................................................197 î«ñπ½¿ Turbo3 ¿ Graph3........................................197 î«ñπ½¿ WinTypes ¿ WinProcs....................................197 î«ñπ½∞ Win31..................................................198 î«ñπ½∞ WinAPI.................................................198 î«ñπ½¿, »«ññÑαª¿óáεΘ¿Ñ Windows 3.1............................198 â½áóá 13. æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿.....................199 Åα«µÑñπαδ π»αáó½Ñ¡¿∩ αáí«Γ«⌐ »α«úαá¼¼δ........................200 öπ¡¬µ¿¿ »αÑ«íαáº«óá¡¿∩........................................200 Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ Σπ¡¬µ¿¿........................................201 Å«α∩ñ¬«óδÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿................................202 æΓα«¬«óδÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿.................................202 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿........203 öπ¡¬µ¿¿ ñ½∩ αáí«Γδ ß π¬áºáΓÑ½∩¼¿ ¿ áñαÑßá¼¿...................204 Åα«τ¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿....................................205 ÅαÑñ«»¿ßá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ......................................206 â½áóá 14. éó«ñ ¿ óδó«ñ........................................215 öá⌐½«óδ⌐ óó«ñ-óδó«ñ...........................................217 ÆÑ¬ßΓ«óδÑ Σá⌐½δ...............................................219 ìÑΓ¿»¿º¿α«óá¡¡δÑ Σá⌐½δ........................................221 ÅÑαÑ¼Ñ¡¡á∩ FileMode...........................................221 B.Pascal 7 & Objects/LR - 5 - ôßΓα«⌐ßΓóá ó Borland Pascal...................................222 ôßΓα«⌐ßΓóá DOS................................................223 ôßΓα«⌐ßΓó« CÄN................................................224 ôßΓα«⌐ßΓóá LÉT1, LÉT2 ¿ LÉT3..................................224 ôßΓα«⌐ßΓóá CÄî1 ¿ CÄî2........................................225 ôßΓα«⌐ßΓó« NUL................................................225 ôßΓα«⌐ßΓóá, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó..............225 éó«ñ ¿ óδó«ñ ß »«¼«Θ∞ε ¼«ñπ½∩ Crt.............................226 êß»«½∞º«óá¡¿Ñ ¼«ñπ½∩ CRT......................................227 Ä¬¡á CRT......................................................227 æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ...........................................228 éó«ñ ßΓα«¬....................................................228 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Crt................................230 è«¡ßΓá¡Γδ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Crt.............................232 éó«ñ ¿ óδó«ñ ß »«¼«Θ∞ε ¼«ñπ½∩ WinCrt..........................233 êß»«½∞º«óá¡¿Ñ ¼«ñπ½∩ WinCrt...................................234 æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ...........................................236 éó«ñ ßΓα«¬....................................................236 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿...........................................237 ÅÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ WinCrt......................................239 ÅÑτáΓ∞ ¿º »α«úαá¼¼δ Windows...................................241 êº¼Ñ¡Ñ¡¿Ñ ºáú«½«ó¬«ó..........................................241 êº¼Ñ¡Ñ¡¿Ñ Φα¿ΣΓ«ó.............................................242 ÄßΓá¡«ó¬á ºáñá¡¿∩ »ÑτáΓ¿......................................243 æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ...........................................243 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ WinPrn.............................244 öπ¡¬µ¿∩ Open..................................................246 öπ¡¬µ¿∩ InOut.................................................246 öπ¡¬µ¿∩ Flush.................................................247 öπ¡¬µ¿∩ Cl«sÑ.................................................247 â½áóá 15. êß»«½∞º«óá¡¿Ñ ß«»α«µÑßß«αá 80x87....................248 Æ¿»δ ñá¡¡δσ »α«µÑßß«αá 80x87..................................251 Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε................252 æαáó¡Ñ¡¿Ñ óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½..................................253 æΓÑ¬ óδτ¿ß½Ñ¡¿⌐ ß«»α«µÑßß«αá 80x87............................253 çá»¿ß∞ óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½ »α¿ ¿ß»«½∞º«óá¡¿¿ ß«»α«µÑßß«αá 80x87........................................................255 î«ñπ½¿, ó ¬«Γ«αδσ ¿ß»«½∞ºπÑΓß∩ ß«»α«µÑßß«α 80x87..............255 Éáß»«º¡áóá¡¿Ñ ß«»α«µÑßß«αá 80σ87 ó »α«úαá¼¼áσ DOS.............256 Éáß»«º¡áóá¡¿Ñ ß«»α«µÑßß«αá 80x87 ó »α«úαá¼¼Ñ Windows..........257 êß»«½∞º«óá¡¿Ñ φ¼π½∩µ¿¿ ß«»α«µÑßß«αá 80x87 ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá...................................................258 â½áóá 16. î«ñπ½∞ D«s..........................................259 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Dos................................260 è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Dos.......................263 Æ¿»δ..........................................................263 ÅÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Dos.........................................264 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ WinDos.............................265 è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ WinDos....................268 Æ¿»δ..........................................................269 ÅÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ WinDos......................................269 â½áóá 17. Åα«úαá¼¼¿α«óá¡¿Ñ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS............270 ùΓ« Γá¬«Ñ ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼?...................................270 B.Pascal 7 & Objects/LR - 6 - ÉáßΦ¿αÑ¡¿∩ Borland ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS.....................274 DPMI-ßÑαóÑα...................................................274 Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩................................274 Éáºαáí«Γ¬á »α¿¬½áñ¡δσ »α«úαá¼¼ DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á.........276 ìáñÑª¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ.................276 çáúαπº¬á ó ßÑú¼Ñ¡Γ¡δÑ αÑú¿ßΓαδ ¡Ññ«»πßΓ¿¼δσ º¡áτÑ¡¿⌐..........277 öπ¡¬µ¿∩ Ptr ¿ ¼áßß¿óδ Mem.....................................277 Çíß«½εΓ¡δÑ »ÑαÑ¼Ñ¡¡δÑ.........................................277 Ä»Ñαáµ¿¿ ß ßÑú¼Ñ¡Γá¼¿.........................................278 êß»«½∞º«óá¡¿Ñ ßÑú¼Ñ¡Γ¡δσ......................................278 ä«ßΓπ» ¬ »á¼∩Γ¿ ó¡Ñ úαá¡¿µ ßÑú¼Ñ¡Γá...........................278 çá»¿ß∞ ó ßÑú¼Ñ¡Γ ¬«ñá.........................................279 Éáºδ¼Ñ¡«óá¡¿Ñ π¬áºáΓÑ½Ñ⌐ nil..................................279 æÑú¼Ñ¡Γδ ¬«ñá ¿ ñá¡¡δσ........................................279 ô»αáó½Ñ¡¿Ñ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ∞ε.................280 ÅαÑñ«»αÑñÑ½Ñ¡¡δÑ ßÑ½Ñ¬Γ«αδ....................................280 ÅÑαÑ¼Ñ¡¡á∩ SelectorInc........................................281 î«ñπ½∞ WinAPI.................................................284 ô»αáó½Ñ¡¿Ñ »á¼∩Γ∞ε............................................284 Å«ñ»α«úαá¼¼δ π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε API...........................285 ô»αáó½Ñ¡¿Ñ ¼«ñπ½Ñ¼............................................289 ô»αáó½Ñ¡¿Ñ αÑßπαßá¼¿..........................................290 ô»αáó½Ñ¡¿Ñ ßÑ½Ñ¬Γ«α«¼.........................................291 äαπú¿Ñ »«ñ»α«úαá¼¼δ API.......................................292 Åα∩¼«⌐ ñ«ßΓπ» ¬ DPMI-ßÑαóÑαπ..................................293 è«¼»¿½∩µ¿∩ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á............293 éδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS...................294 ô»αáó½Ñ¡¿Ñ «íΩÑ¼«¼ ¿ß»«½∞ºπÑ¼«⌐ RTM »á¼∩Γ¿....................295 â½áóá 18. æΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼..........................297 ùΓ« Γá¬«Ñ ßΓα«¬á ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼?.........................297 öπ¡¬µ¿¿ ¼«ñπ½∩ Strings........................................297 öπ¡¬µ¿¿ ¼«ñπ½∩ Strings........................................298 êß»«½∞º«óá¡¿Ñ ßΓα«¬ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼.......................299 æ¿¼ó«½∞¡δÑ π¬áºáΓÑ½¿ ¿ ßΓα«¬«óδÑ ½¿ΓÑαá½δ.....................301 æ¿¼ó«½∞¡δÑ π¬áºáΓÑ½¿ ¿ ß¿¼ó«½∞¡δÑ ¼áßß¿óδ.....................302 ê¡ñÑ¬ß¿α«óá¡¿Ñ ß¿¼ó«½∞¡«ú« π¬áºáΓÑ½∩..........................303 Ä»Ñαáµ¿¿ ß ß¿¼ó«½∞¡δ¼¿ π¬áºáΓÑ½∩¼¿............................304 æΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ¿ ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ............305 Åα¿¼Ñα ¿ß»«½∞º«óá¡¿∩ Σπ¡¬µ¿⌐ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼..............306 â½áóá 19. êß»«½∞º«óá¡¿Ñ úαáΣ¿τÑß¬«ú« ¿¡ΓÑαΣÑ⌐ßá Borland.......308 äαá⌐óÑαδ......................................................308 Å«ññÑαª¬á πßΓα«⌐ßΓóá IBM 8514.................................310 æ¿ßΓÑ¼á ¬««αñ¿¡áΓ.............................................311 ÆÑ¬πΘ¿⌐ π¬áºáΓÑ½∞.............................................311 ÆÑ¬ßΓ.........................................................313 âαáΣ¿τÑß¬¿Ñ ¿º«íαáªÑ¡¿∩ ¿ ¿σ ó¿ñδ.............................314 Äí½áßΓ¿ »α«ß¼«Γαá ¿ ñó«¿τ¡δÑ «íαáºδ...........................314 Å«ññÑαª¬á ßΓαá¡¿µ ¿ µóÑΓ«ó....................................315 Äíαáí«Γ¬á «Φ¿í«¬..............................................315 ìáτá½« αáí«Γδ.................................................316 Å«½∞º«óáΓÑ½∞ß¬¿Ñ »α«úαá¼¼δ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ∞ε.......................................318 Åα«µÑñπαδ ¼«ñπ½∩ Graph........................................321 B.Pascal 7 & Objects/LR - 7 - è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Graph.....................326 è«¡ßΓá¡Γδ.....................................................326 Æ¿»δ..........................................................328 ÅÑαÑ¼Ñ¡¡δÑ....................................................328 â½áóá 20. êß»«½∞º«óá¡¿Ñ «óÑα½ÑÑó..............................329 Çñ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó........................................330 ô»αáó½Ñ¡¿Ñ «óÑα½Ñ⌐¡δ¼ íπΣÑα«¼.................................331 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Overlay............................334 è«ñδ αÑºπ½∞ΓáΓá...............................................335 Éáºαáí«Γ¬á »α«úαá¼¼ ß «óÑα½Ñ∩¼¿...............................335 âÑ¡Ñαáµ¿∩ «óÑα½Ñ⌐¡«ú« ¬«ñá....................................336 ÆαÑí«óá¡¿Ñ ¿ß»«½∞º«óá¡¿∩ ñá½∞¡Ñú« Γ¿»á óδº«ó«ó................337 ê¡¿µ¿á½¿ºáµ¿∩ áñ¼¿¡¿ßΓαáΓ«αá «óÑα½ÑÑó.........................338 ÉáºñÑ½δ ¿¡¿µ¿á½¿ºáµ¿¿ ó «óÑα½Ñ⌐¡δσ ¼«ñπ½∩σ....................341 ùΓ« ¡Ñ ñ«½ª¡« ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ «óÑα½ÑÑó..............342 ÄΓ½áñ¬á «óÑα½ÑÑó..............................................343 é¡ÑΦ¡¿Ñ »α«úαá¼¼δ ó «óÑα½Ñ∩σ..................................343 çáñá¡¿Ñ Σπ¡¬µ¿¿ τΓÑ¡¿∩ «óÑα½Ñ∩................................345 ÄóÑα½Ñ¿ ó Σá⌐½áσ .EXE.........................................347 ùáßΓ∞ III. é ßαÑñÑ Borland Pascal.............................348 â½áóá 21. êß»«½∞º«óá¡¿Ñ »á¼∩Γ¿................................348 êß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ »α«úαá¼¼á¼¿ αÑá½∞¡«ú« αÑª¿¼á DOS.........348 Çñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ DOS...350 îÑΓ«ñδ «ßó«í«ªñÑ¡¿∩ «í½áßΓÑ⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ¿.......................................................352 æ»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó.......................................355 ÅÑαÑ¼Ñ¡¡á∩ HeapError..........................................356 êß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ ó »α«úαá¼¼áσ DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á......359 æÑú¼Ñ¡Γδ ¬«ñá.................................................359 ÇΓα¿íπΓδ ßÑú¼Ñ¡Γá.............................................359 ÇΓα¿íπΓδ MOVEABLE ¿½¿ FIXED...................................359 ÇΓα¿íπΓδ PRELOAD ¿½¿ DEMANDLOAD...............................359 ÇΓα¿íπΓδ DISCARDABLE ¿½¿ PERMAMENT............................359 æÑú¼Ñ¡Γδ ñá¡¡δσ ¿ ßΓÑ¬á.......................................361 êº¼Ñ¡Ñ¡¿Ñ áΓα¿íπΓ«ó...........................................361 Çñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ DOS...362 ÅÑαÑ¼Ñ¡¡á∩ HeapError..........................................363 êß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ ó »α«úαá¼¼áσ Windows.....................365 ÇΓα¿íπΓδ ßÑú¼Ñ¡Γ«ó............................................365 ÇΓα¿íπΓδ MOVEABLE ¿½¿ FIXED...................................365 ÇΓα¿íπΓδ PRELOAD ¿½¿ DEMANDLOAD...............................365 ÇΓα¿íπΓδ DISCARDABLE ¿½¿ PERMANENT............................365 êº¼Ñ¡Ñ¡¿Ñ áΓα¿íπΓ«ó...........................................365 æÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ.........................367 Çñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿.......368 ÅÑαÑ¼Ñ¡¡á∩ HeapError..........................................370 ö«α¼áΓδ ó¡πΓαÑ¡¡Ñú« »αÑñßΓáó½Ñ¡¿∩ ñá¡¡δσ......................372 ûÑ½«τ¿ß½Ñ¡¡δÑ Γ¿»δ............................................372 æ¿¼ó«½∞¡δ⌐ Γ¿»................................................372 üπ½Ñóß¬¿⌐ Γ¿».................................................372 ÅÑαÑτ¿ß½¿¼δ⌐ Γ¿»..............................................372 Æ¿»δ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐.......................................373 éÑΘÑßΓóÑ¡¡δ⌐ Γ¿»..............................................373 B.Pascal 7 & Objects/LR - 8 - Æ¿» τ¿ß½á ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε...............................374 Æ¿» τ¿ß½á ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε.................................374 Æ¿» τ¿ß½á ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε..............................375 æ½«ª¡δ⌐ Γ¿»...................................................375 ç¡áτÑ¡¿∩ Γ¿»á π¬áºáΓÑ½∞.......................................375 ç¡áτÑ¡¿∩ ßΓα«¬«ó«ú« Γ¿»á......................................376 ç¡áτÑ¡¿∩ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á..................................376 ç¡áτÑ¡¿∩ Γ¿»á ¼áßß¿ó..........................................376 ç¡áτÑ¡¿∩ Γ¿»á ºá»¿ß∞..........................................376 ÄíΩÑ¬Γ¡δÑ Γ¿»δ................................................377 Æáí½¿µá ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó...................................378 Æáí½¿µá ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó..................................381 ç¡áτÑ¡¿∩ Σá⌐½«ó«ú« Γ¿»á.......................................385 Åα«µÑñπα¡δÑ Γ¿»δ..............................................387 Åα∩¼«⌐ ñ«ßΓπ» ¬ »á¼∩Γ¿........................................387 Åα∩¼«⌐ ñ«ßΓπ» ¬ »«αΓá¼........................................387 â½áóá 22. é«»α«ßδ π»αáó½Ñ¡¿∩..................................388 æ«ú½áΦÑ¡¿∩ »« óδº«óá¼.........................................388 Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ..........................................388 Åáαá¼ÑΓαδ-º¡áτÑ¡¿∩............................................388 ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ..................................389 ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿⌐............................................390 ü½¿ª¡¿Ñ ¿ ñá½∞¡¿Ñ Γ¿»δ óδº«ó«ó................................391 é½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿.................................391 æ«ú½áΦÑ¡¿∩ « óδº«óáσ ¼ÑΓ«ñ«ó..................................392 éδº«óδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó....................................394 éδº«óδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó...................................395 è«¡ßΓαπ¬Γ«αδ ¿ ñÑßΓαπ¬Γ«αδ....................................396 æΓá¡ñáαΓ¡δ⌐ ¬«ñ óσ«ñá ¿ óδσ«ñá................................396 æ«ú½áΦÑ¡¿∩ »« ß«σαá¡Ñ¡¿ε αÑú¿ßΓα«ó............................400 Åα«µÑñπαδ óδσ«ñá..............................................400 Äíαáí«Γ¬á »αÑαδóá¡¿⌐..........................................403 Éáºαáí«Γ¬á »α«µÑñπα «íαáí«Γ¬¿ »αÑαδóá¡¿⌐......................403 â½áóá 23. ÇóΓ«¼áΓ¿τÑß¬á∩ «»Γ¿¼¿ºáµ¿∩..........................405 æóÑαΓδóá¡¿Ñ ¬«¡ßΓá¡Γ..........................................405 æ½¿∩¡¿Ñ ¬«¡ßΓá¡Γ..............................................405 éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ..................................405 Åáαá¼ÑΓαδ-¬«¡ßΓá¡Γδ...........................................406 ôßΓαá¡Ñ¡¿Ñ ¿ºíδΓ«τ¡«⌐ ºáúαπº¬¿ π¬áºáΓÑ½Ñ⌐.....................406 Å«ñßΓá¡«ó¬á ¬«¡ßΓá¡Γ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á......................406 îá½δÑ ¼¡«ªÑßΓóá...............................................407 Å«α∩ñ«¬ óδτ¿ß½Ñ¡¿∩............................................407 Åα«óÑα¬á ¡á ñ«»πßΓ¿¼«ßΓ∞ úαá¡¿µ...............................408 êß»«½∞º«óá¡¿Ñ ßñó¿úá ó¼ÑßΓ« π¼¡«ªÑ¡¿∩.........................408 ÇóΓ«¼áΓ¿τÑß¬«Ñ óδαáó¡¿óá¡¿Ñ ¡á úαá¡¿µπ ß½«óá..................408 ôñá½Ñ¡¿Ñ ¡Ñ¿ß»«½∞ºπÑ¼«ú« ¬«ñá.................................409 ¥ΣΣÑ¬Γ¿ó¡á∩ ¬«¼»«¡«ó¬á........................................409 ùáßΓ∞ IV. êß»«½∞º«óá¡¿Ñ Borland Pascal ß ∩ºδ¬«¼ áßßÑ¼í½Ñαá....411 â½áóá 24. éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα................................411 Ä»ÑαáΓ«α asm..................................................411 êß»«½∞º«óá¡¿Ñ αÑú¿ßΓα«ó.......................................412 æ¿¡Γá¬ß¿ß «»ÑαáΓ«αa áßßÑ¼í½Ñαá................................412 îÑΓ¬¿.........................................................413 B.Pascal 7 & Objects/LR - 9 - Éáº¼Ñα ¿¡ßΓαπ¬µ¿¿ RET.........................................413 ÇóΓ«¼áΓ¿τÑß¬«Ñ «»αÑñÑ½Ñ¡¿Ñ αáº¼Ñαá »ÑαÑσ«ñá...................414 ä¿αÑ¬Γ¿óδ áßßÑ¼í½Ñαá..........................................415 Ä»Ñαá¡ñδ......................................................417 éδαáªÑ¡¿∩.....................................................417 Éáº½¿τ¿∩ ¼Ñªñπ óδαáªÑ¡¿∩¼¿ Åáß¬á½∩ ¿ áßßÑ¼í½Ñαá...............418 ¥½Ñ¼Ñ¡Γδ óδαáªÑ¡¿⌐............................................419 è«¡ßΓá¡Γδ.....................................................420 ù¿ß½«óδÑ ¬«¡ßΓá¡Γδ............................................420 æΓα«¬«óδÑ ¬«¡ßΓá¡Γδ...........................................420 ÉÑú¿ßΓαδ......................................................422 êñÑ¡Γ¿Σ¿¬áΓ«αδ................................................422 è½áßßδ óδαáªÑ¡¿⌐..............................................426 Æ¿»δ óδαáªÑ¡¿⌐................................................427 Ä»Ñαáµ¿¿ ó óδαáªÑ¡¿∩σ.........................................430 Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ áßßÑ¼í½Ñαá................................434 â½áóá 25. è«¼»«¡«ó¬á ß »α«úαá¼¼á¼¿ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá........437 Æπαí« ÇßßÑ¼í½Ñα ¿ Borland Pascal..............................438 Åα¿¼Ñαδ »α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá..........................440 îÑΓ«ñδ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá....................................441 é¬½ετáÑ¼δ⌐ ¼áΦ¿¡¡δ⌐ ¬«ñ.......................................442 Ä»ÑαáΓ«αδ Inline..............................................442 ä¿αÑ¬Γ¿óδ inline..............................................444 B.Pascal 7 & Objects/LR - 10 - éóÑñÑ¡¿Ñ ───────────────────────────────────────────────────────────────── äá¡¡«Ñ απ¬«ó«ñßΓó« »«ßó∩ΘÑ¡« ¿ß»«½∞ºπÑ¼«¼π ó Borland Pascal with Objects ∩ºδ¬π Åáß¬á½∞. Ä¡« * äáÑΓ Σ«α¼á½∞¡«Ñ «»αÑñÑ½Ñ¡¿Ñ ∩ºδ¬á Borland Pascal. * Å«∩ß¡∩ÑΓ, ¬á¬ ¿ß»«½∞º«óáΓ∞ ¿ »¿ßáΓ∞ ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ- ¼δÑ í¿í½¿«ΓÑ¬¿. * ç¡á¬«¼¿Γ óáß ß í¿í½¿«ΓÑ¬«⌐ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ. * Å«∩ß¡∩ÑΓ, ¬á¬ »¿ßáΓ∞ »α«úαá¼¼δ ñ½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS. * ÄßóÑΘáÑΓ Γá¬¿Ñ ó«»α«ßδ Borland Pascal, ¬á¬ ¿ß»«½∞º«óá¡¿Ñ »á¼∩Γ¿, Σ«α¼áΓδ ñá¡¡δσ, ß«ú½áΦÑ¡¿∩ »« óδº«óπ, óó«ñ ¿ óδó«ñ ¿ áóΓ«¼áΓ¿τÑß¬á∩ «»Γ¿¼¿ºáµ¿∩. * Ä»¿ßδóáÑΓ, ¬á¬ ¿ß»«½∞º«óáΓ∞ Borland Pascal ß ∩ºδ¬«¼ áß- ßÑ¼í½Ñαá. Åα¿¼Ñτá¡¿∩: Äíº«α óßÑú« ¡áí«αá ñ«¬π¼Ñ¡Γáµ¿¿ »« Borland Pascal óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó« óóÑñÑ¡¿¿ ¬ "Éπ¬«ó«ñßΓóπ »«½∞º«óá- ΓÑ½∩". àß½¿ óδ - σ«Γ¿ΓÑ πº¡áΓ∞, ¬á¬ πßΓá¡«ó¿Γ∞ Borland Pascal ó ß¿ßΓÑ¼Ñ; - ¿ß»«½∞º«óá½¿ Turbo Pascal ¿½¿ Turbo Pascal for Windows αá- ¡ÑÑ ¿ σ«Γ¿ΓÑ πº¡áΓ∞, τΓ« ¡«ó«ú« ó φΓ«⌐ óÑαß¿¿; - ¡Ñ º¡á¬«¼δ ß ¿¡ΓÑαá¬Γ¿ó¡«⌐ ¿¡ΓÑúα¿α«óá¡¡«⌐ ßαÑñ«⌐ αáºαá- í«Γ¬¿ »α«úαá¼¼ (IDE) Σ¿α¼δ Borland; - σ«Γ¿ΓÑ »«º¡á¬«¼¿Γ∞ß∩ ß óóÑñÑ¡¿Ñ¼ ó «íΩÑ¬Γ¡«-«α¿Ñ¡Γ¿α«óá¡- ¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ; - ¡Ñ ¿¼ÑÑΓÑ «»δΓá »α«úαá¼¼¿α«óá¡¿Ñ ¡á Åáß¬á½Ñ ó Windows; - σ«Γ¿ΓÑ »«º¡á¬«¼¿Γ∞ß∩ ß ObjectWindows; Γ« »α«τ¿Γá⌐ΓÑ "Éπ¬«ó«ñßΓó« »«½∞º«óáΓÑ½∩". ùΓ«íδ ¡á⌐Γ¿ ß»αáó«τ¡δÑ ¼áΓÑα¿á½δ »« ß½ÑñπεΘ¿¼ ΓÑ¼á¼: - í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ; - ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá; - ß««íΘÑ¡¿∩ «í «Φ¿í¬áσ; B.Pascal 7 & Objects/LR - 11 - - αáí«Γá ß αÑñá¬Γ«α«¼; »α«τΓ¿ΓÑ "æ»αáó«τ¡«Ñ απ¬«ó«ñßΓó« »α«úαá¼¼¿ßΓá". Ä τÑ¼ αáßß¬áºδóáÑΓß∩ ó ñá¡¡«¼ απ¬«ó«ñßΓóÑ ───────────────────────────────────────────────────────────────── äá¡¡«Ñ απ¬«ó«ñßΓó« αáºí¿Γ« ¡á τÑΓδαÑ τáßΓ¿: úαá¼¼áΓ¿¬á ∩ºδ- ¬á, í¿í½¿«ΓÑ¬¿, ó«»α«ßδ »α«ñó¿¡πΓ«ú« »α«úαá¼¼¿α«óá¡¿∩ ¿ ¿ß»«½∞º«- óá¡¿Ñ ß Borland Pascal ∩ºδ¬á áßßÑ¼í½Ñαá. é ùáßΓ¿ I "ƒºδ¬ Borland Pascal" «»αÑñÑ½∩ÑΓß∩ ∩ºδ¬ Borland Pascal. æ¡áτá½á óδ »«º¡á¬«¼¿ΓÑß∞ ß «íΘÑ⌐ ßΓαπ¬Γπα«⌐ »α«úαá¼¼δ Borland Pascal; ºáΓÑ¼ « ¬áªñ«¼ φ½Ñ¼Ñ¡ΓÑ »α«úαá¼¼δ íπñÑΓ αáßß¬áºá- ¡« í«½ÑÑ »«ñα«í¡«. ùáßΓ∞ II "ü¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ" ß«ñÑαª¿Γ ¿¡Σ«α¼á- µ¿ε « ßΓá¡ñáαΓ¡δσ ¼«ñπ½∩σ, «íαáºπεΘ¿σ í¿í½¿«ΓÑ¬π ¿ß»«½¡∩εΘÑ⌐ ß¿ß- ΓÑ¼δ, ¿ « Γ«¼, ¬á¬ ¿σ ¿ß»«½∞º«óáΓ∞. çñÑß∞ αáßß¬áºδóáÑΓß∩ Γá¬ªÑ, ¬á¬ »¿ßáΓ∞ »α«úαá¼¼δ ñ½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS. é ùáßΓ¿ III "é ßαÑñÑ Borland Pascal" ñáÑΓß∩ ΓÑσ¡¿τÑß¬á∩ ¿¡- Σ«α¼áµ¿∩ ñ½∩ »α«ñó¿¡πΓδσ »«½∞º«óáΓÑ½Ñ⌐. çñÑß∞ αáßß¬áºδóáÑΓß∩: - «í ¿ß»«½∞º«óá¡¿¿ »á¼∩Γ¿ ó Borland Pascal; - « Γ«¼, ¬á¬ ó Borland Pascal αÑá½¿º«óá¡« π»αáó½Ñ¡¿Ñ »α«ú- αá¼¼«⌐; - « ñÑΓá½∩σ »« óó«ñπ ¿ óδó«ñπ; - «í «»Γ¿¼¿ºáµ¿¿ óáΦÑú« ¬«ñá. é ùáßΓ¿ IV "êß»«½∞º«óá¡¿Ñ Borland Pascal ß ∩ºδ¬«¼ áßßÑ¼í½Ñ- αá" »«∩ß¡∩ÑΓß∩, ¬á¬ ¿ß»«½∞º«óáΓ∞ óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα ¿ ¬á¬ ¬«¼- »«¡«óáΓ∞ óáΦ¿ »α«úαá¼¼δ Åáß¬á½∩ ß ¬«ñ«¼ Æπαí« ÇßßÑ¼í½Ñαá. B.Pascal 7 & Objects/LR - 12 - ─────────────────────────────────────────────────────────────────────── ùáßΓ∞ I. ƒºδ¬ Borland Pascal ───────────────────────────────────────────────────────────────── â½áóá 1. ùΓ« Γá¬«Ñ »α«úαá¼¼á Borland Pascal? ───────────────────────────────────────────────────────────────── æ½ÑñπεΘ¿Ñ ¡Ñß¬«½∞¬« ú½áó »«ßó∩ΘÑ¡δ Σ«α¼á½∞¡«¼π «»αÑñÑ½Ñ¡¿ε ∩ºδ¬á Borland Pascal. é ¬áªñ«⌐ ú½áóÑ «íßπªñáÑΓß∩ «ñ¿¡ ¿º φ½Ñ¼Ñ¡- Γ«ó Borland Pascal. æ«ó¼ÑßΓ¡« φΓ¿ φ½Ñ¼Ñ¡Γδ «íαáºπεΓ »α«úαá¼¼π Borland Pascal. Äñ¡á¬«, ¿ºπτá∩ τáßΓ¿, Γαπñ¡« »«¡∩Γ∞ µÑ½«Ñ. é ñá¡¡«⌐ ú½áóÑ ñáÑΓß∩ «íΘ¿⌐ «íº«α »α«úαá¼¼δ Borland Pascal, «»πß¬á∩ ñÑΓá½¿. çñÑß∞ »α¿ó«ñ¿Γß∩ ¬αáΓ¬«Ñ «»¿ßá¡¿Ñ ¬áªñ«ú« φ½Ñ¼Ñ¡Γá »α«úαá¼¼δ, á ºáΓÑ¼ »«¬áºδóáÑΓß∩, ¬á¬ óßÑ φΓ« ¬«¼»«¡πÑΓß∩ ó¼ÑßΓÑ. Å«ñα«í¡«ßΓ¿ φ½Ñ¼Ñ¡Γ«ó ∩ºδ¬á «ßóÑΘáεΓß∩ ú½áóáσ 2 - 11. B.Pascal 7 & Objects/LR - 13 - Åα«úαá¼¼á Borland Pascal ───────────────────────────────────────────────────────────────── é ßó«Ñ⌐ »α«ßΓÑ⌐ΦÑ⌐ Σ«α¼Ñ »α«úαá¼¼á Borland Pascal ß«ßΓ«¿Γ ¿º ºáú«½«ó¬á »α«úαá¼¼δ, ¬«Γ«αδ⌐ ¿¼Ñ¡πÑΓ »α«úαá¼¼π, ¿ «ß¡«ó¡«ú« »α«ú- αá¼¼¡«ú« í½«¬á, óδ»«½¡∩εΘÑú« ¡áº¡áτÑ¡¿Ñ »α«úαá¼¼δ. é «ß¡«ó¡«¼ »α«úαá¼¼¡«¼ í½«¬Ñ ¡áσ«ñ¿Γß∩ ßÑ¬µ¿∩ ¬«ñá, ºá¬½ετÑ¡¡á∩ ¼Ñªñπ ¬½ετÑ- óδ¼¿ ß½«óá¼¿ begin ¿ end. Åα¿óÑñÑ¼ »α«ßΓÑ⌐Φπε »α«úαá¼¼π, ¿½½εßΓ- α¿απεΘπε φΓ¿ »α¿¡µ¿»δ: program Privet; begin Writeln('ä«íα« »«ªá½«óáΓ∞ ó Borland Pascal'); end. ÅÑαóá∩ ßΓα«¬á - φΓ« ºáú«½«ó«¬ »α«úαá¼¼δ, ¬«Γ«αδ⌐ ¿¼Ñ¡πÑΓ ñá¡¡πε »α«úαá¼¼π. ÄßΓá½∞¡á∩ τáßΓ∞ »α«úαá¼¼δ - φΓ« ¿ßσ«ñ¡δ⌐ ¬«ñ, ¬«Γ«αδ⌐ ¡áτ¿¡áÑΓß∩ ¬½ετÑóδ¼ ß½«ó«¼ begin ¿ ºá¬á¡τ¿óáÑΓß∩ end. ò«- Γ∩ ñá¡¡á∩ ¬«¡¬αÑΓ¡á∩ »α«úαá¼¼á ß«ñÑαª¿Γ Γ«½∞¬« «ñ¡π ßΓα«¬π, ¿σ ¼«ªÑΓ íδΓ∞ ¼¡«ú«. é ½εí«⌐ »α«úαá¼¼Ñ Borland Pascal óßÑ ñÑ⌐ßΓó¿∩ óδ»«½¡∩εΓß∩ ¼Ñªñπ begin ¿ end. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── è«ñ ¼Ñªñπ »«ß½Ññ¡¿¼¿ «»ÑαáΓ«αá¼¿ begin ¿ end »α«úαá¼¼δ π»- αáó½∩ÑΓ ½«ú¿¬«⌐ »α«úαá¼¼δ. é «τÑ¡∞ »α«ßΓ«⌐ »α«úαá¼¼Ñ ó φΓ«⌐ ßÑ¬- µ¿¿ ¬«ñá ¼«ªÑΓ ß«ñÑαªáΓ∞ß∩ óßÑ, τΓ« óá¼ ¡πª¡«. é í«½ÑÑ ¬απ»¡δσ ¿ ß½«ª¡δσ »α«úαá¼¼áσ αáº¼ÑΘÑ¡¿Ñ ó φΓ«⌐ ßÑ¬µ¿¿ óßÑú« »α«úαá¼¼¡«ú« ¬«ñá ¼«ªÑΓ ºáΓαπñ¡¿Γ∞ τΓÑ¡¿Ñ ¿ »«¡¿¼á¡¿Ñ »α«úαá¼¼δ. è Γ«¼π ªÑ ÑÑ íπñÑΓ Γαπñ¡ÑÑ αáºαáíáΓδóáΓ∞. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ »«ºó«½∩εΓ αáºñÑ½¿Γ∞ ½«ú¿¬π »α«úαá¼¼δ ¡á í«½ÑÑ ¼Ñ½¬¿Ñ ¿ π»αáó½∩Ñ¼δÑ Σαáú¼Ñ¡Γδ ¿ á¡á½«ú¿τ¡δ »«ñ»α«úαá¼¼á¼ ó ñαπú¿σ ∩ºδ¬áσ. èá¬ ¿ ó «ß¡«ó¡«¼ í½«¬Ñ »α«úαá¼¼δ, óßÑ ñÑ⌐ßΓó¿∩ ó »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ ºá¬½ετáεΓß∩ ó begin ¿ end. èáªñδ⌐ ¿º φΓ¿σ ßÑú¼Ñ¡Γ«ó ¬«ñá óδ»«½¡∩ÑΓ ¬«¡¬αÑΓ¡πε ºáñáτπ. ┌──────────────────────────────────────────────────────────┐ │ Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ │ │┌────────────────────────────────────────────────────────┐│ ││ çáú«½«ó«¬ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ││ │└────────────────────────────────────────────────────────┘│ │┌────────────────────────────────────────────────────────┐│ ││ ü½«¬ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿∩¼¿ ││ ││ begin ││ ││┌──────────────────────────────────────────────────────┐││ │││ ï«ú¿¬á │││ ││└──────────────────────────────────────────────────────┘││ ││ end; ││ │└────────────────────────────────────────────────────────┘│ └──────────────────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 14 - É¿ß. 1.1 ä¿áúαá¼¼á »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. àß½¿ óδ «í¡áαπª¿ΓÑ, τΓ« ó óáΦÑ⌐ ñ¿áúαá¼¼Ñ «ñ¡¿ ¿ ΓÑ ªÑ ñÑ⌐ß- Γó¿∩ óδ»«½¡∩εΓß∩ ¼¡«ú«¬αáΓ¡«, Γá¬πε ½«ú¿¬π ªÑ½áΓÑ½∞¡« óδñÑ½¿Γ∞ ó »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε. éδ ¼«ªÑΓÑ «ñ¿¡ αáº ºá»¿ßáΓ∞ φΓ«Γ ¬«ñ ó »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿, á ºáΓÑ¼ ¼¡«ú«¬αáΓ¡« óδºδóáΓ∞ Ñú« ó »α«ú- αá¼¼Ñ. Åα¿óÑñÑ¼ »α¿¼Ñα Σπ¡¬µ¿¿. æ½ÑñπεΘá∩ Σπ¡¬µ¿∩ GetNumber »«½πτá- ÑΓ τ¿ß½« «Γ »«½∞º«óáΓÑ½∩: function GetNumber: Real; var Responce: Real; begin Write('éóÑñ¿ΓÑ τ¿ß½«: '); Readln(Response); GetNumber := Response; end; Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ñ«½ª¡á ß«ñÑαªáΓ∞ß∩ ó »α«úαá¼¼Ñ »ÑαÑñ ßÑ¬µ¿Ñ⌐ «ß¡«ó¡«ú« ¬«ñá. é «ß¡«ó¡«¼ ¬«ñÑ «¡á ¼«ªÑΓ ºáΓÑ¼ ¿ß»«½∞º«- óáΓ∞ß∩ (óδºδóáΓ∞ß∩). ┌──────────────────────────────────────────────────────────┐ │ Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ │ │┌────────────────────────────────────────────────────────┐│ ││ çáú«½«ó«¬ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ││ │└────────────────────────────────────────────────────────┘│ │┌────────────────────────────────────────────────────────┐│ ││ ü½«¬ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿∩¼¿ ││ ││┌──────────────────────────────────────────────────────┐││ │││ Åα«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ (0 ¿½¿ í«½ÑÑ) │││ ││└──────────────────────────────────────────────────────┘││ ││ begin ││ ││┌──────────────────────────────────────────────────────┐││ │││ ï«ú¿¬á │││ ││└──────────────────────────────────────────────────────┘││ ││ end; ││ │└────────────────────────────────────────────────────────┘│ └──────────────────────────────────────────────────────────┘ É¿ß. 1.2 Åα«ßΓá∩ »α«úαá¼¼á ¡á Åáß¬á½Ñ. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ ñáÑΓß∩ ¡áíα«ß«¬ »α«úαá¼¼δ, ó ¬«Γ«α«⌐ ¿ß- »«½∞ºπÑΓß∩ Σπ¡¬µ¿∩ GetNumber. Åα«úαá¼¼¿ßΓ αáºñÑ½¿½ ½«ú¿¬π »α«ú- αá¼¼δ ¡á Γα¿ ºáñáτ¿: 1. Å«½πτÑ¡¿Ñ τ¿ß½á «Γ »«½∞º«óáΓÑ½∩. 2. éδ»«½¡Ñ¡¿Ñ ß φΓ¿¼ τ¿ß½«¼ ¡Ñ«íσ«ñ¿¼δσ óδτ¿ß½Ñ¡¿⌐. 3. ÅÑτáΓ∞ «ΓτÑΓá. B.Pascal 7 & Objects/LR - 15 - Äß¡«ó¡á∩ ½«ú¿¬á »α«úαá¼¼δ ºá¬½ετÑ¡á ó »«ß½Ññ¡Ñ¼ í½«¬Ñ begin..end. Program Report; var A: Real; { ñαπú¿Ñ «»¿ßá¡¿∩ } . . . function GetNumber: Real; var Responce: Real; begin Write('éóÑñ¿ΓÑ τ¿ß½«: '); Readln(Response); GetNumber := Response; end; procedure Calculate(X: Real); . . . procedure PrintReport; . . . begin A: = GetNumber; Calculate(A); PrintReport; end. Äß¡«ó¡á∩ ½«ú¿¬á »α«úαá¼¼δ ñ«ßΓáΓ«τ¡« »α«ßΓá ñ½∩ »«¡¿¼á¡¿∩. éßÑ ñÑΓá½¿ πíαá¡δ ó ΓÑ½á »α«µÑñπα ¿ Σπ¡¬µ¿⌐. êß»«½∞º«óá¡¿Ñ »α«µÑ- ñπα ¿ Σπ¡¬µ¿⌐ »«ºó«½∩ÑΓ óá¼ αáßß¼áΓα¿óáΓ∞ »α«úαá¼¼π í«½ÑÑ πñ«í¡δ¼ ¿ ¼«ñπ½∞¡δ¼ ß»«ß«í«¼. Ä»ÑαáΓ«αδ ───────────────────────────────────────────────────────────────── êßσ«ñ¡δ⌐ ¬«ñ ¼Ñªñπ begin ¿ end ß«ñÑαª¿Γ «»ÑαáΓ«αδ, ¬«Γ«αδÑ «»¿ßδóáεΓ óδ»«½¡∩Ñ¼δÑ »α«úαá¼¼«⌐ ñÑ⌐ßΓó¿∩. ¥Γ« ¡áºδóáεΓß∩ «»Ñαá- Γ«α¡«⌐ τáßΓ∞ε »α«úαá¼¼δ. Åα¿óÑñÑ¼ »α¿¼Ñαδ «»ÑαáΓ«α«ó: A := B + C; { »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ } Calculate(Length, Height); { á¬Γ¿ó¿º¿α«óáΓ∞ »α«µÑñπαπ } if X < 2 then { «»ÑαáΓ«α πß½«ó¿∩ } Answer := X * Y; B.Pascal 7 & Objects/LR - 16 - begin { ß«ßΓáó¡«⌐ «»ÑαáΓ«α } X := 3; Y := 4; Z := 5; end; while not EOF(InFile) do { «»ÑαáΓ«α µ¿¬½á } begin ReadLn(InFile, Line); Process(Line); end; é »α«ßΓδσ «»ÑαáΓ«αáσ ¼«ª¡« »α¿ßóá¿óáΓ∞ º¡áτÑ¡¿Ñ, á¬Γ¿ó¿º¿α«- óáΓ∞ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ¿½¿ »ÑαÑñáóáΓ∞ π»αáó½Ñ¡¿Ñ ¡á ñαπúπε τáßΓ∞ ¬«ñá. æΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ ¼«úπΓ íδΓ∞ ß«ßΓáó¡δ¼¿ ¿ ß«ñÑα- ªáΓ∞ ¡Ñß¬«½∞¬« «»ÑαáΓ«α«ó, «»ÑαáΓ«α µ¿¬½á ¿½¿ «»ÑαáΓ«α πß½«ó¿∩, π»αáó½∩εΘ¿⌐ ½«ú¿¬«⌐ »α«úαá¼¼δ, á Γá¬ªÑ «»ÑαáΓ«αδ with, π»α«ΘáεΘ¿Ñ ñ«ßΓπ» ¬ ñá¡¡δ¼ ó ºá»¿ß¿. éδαáªÑ¡¿∩ ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α Åáß¬á½∩ ß«ßΓ«¿Γ ¿º óδαáªÑ¡¿⌐. éδαáªÑ¡¿∩ «»ÑαáΓ«αá ¼«úπΓ ß«ßΓ«∩Γ∞ ¿º «»Ñαá¡ñ«ó ¿ «»Ñαáµ¿⌐. Äíδτ¡« ó óδαáªÑ¡¿∩σ óδ- »«½¡∩ÑΓß∩ ßαáó¡Ñ¡¿Ñ ½¿í« áα¿Σ¼ÑΓ¿τÑß¬¿Ñ, ½«ú¿τÑß¬¿Ñ ¿½¿ íπ½Ñóß¬¿Ñ «»Ñαáµ¿¿. éδαáªÑ¡¿∩ Åáß¬á½∩ ¼«úπΓ ß«ßΓ«∩Γ∞ ¿º í«½ÑÑ »α«ßΓδσ óδαáªÑ¡¿⌐. Ä ¬«¼í¿¡áµ¿¿ «»Ñαá¡ñ«ó ¿ «»Ñαáµ¿⌐ óδ ¼«ªÑΓÑ »α«τ¿ΓáΓ∞ ó â½áóÑ 6. Ä¡¿ ¼«úπΓ íδΓ∞ ñ«ßΓáΓ«τ¡« ß½«ª¡δ¼¿. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ óδαáªÑ¡¿⌐: X + Y Done <> Error I <= Length -X B.Pascal 7 & Objects/LR - 17 - ïÑ¬ßÑ¼δ ───────────────────────────────────────────────────────────────── ïÑ¬ßÑ¼δ - φΓ« ¡á¿¼Ñ¡∞Φ¿Ñ º¡áτáΘ¿Ñ φ½Ñ¼Ñ¡Γδ ó »α«úαá¼¼Ñ Åáß- ¬á½∩. Ä¡¿ «íαáºπεΓß∩ «»Ñαá¡ñá¼¿ ¿ «»Ñαáµ¿∩¼¿ óδαáªÑ¡¿⌐. ïÑ¬ßÑ¼δ - φΓ« ß»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ, ºáαÑºÑαó¿α«óá¡¡δÑ ß½«óá, ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, ¼ÑΓ¬¿ ¿ ßΓα«¬«óδÑ ¬«¡ßΓá¡Γδ. Åα¿óÑñÑ¼ »α¿¼Ñαδ ½Ñ¬ßÑ¼ Åáß¬á½∩: function { ºáαÑºÑαó¿α«óá¡¡«Ñ ß½«ó« } ( { ß»Ñµ¿á½∞¡δ⌐ ß¿¼ó«½ } := { ß»Ñµ¿á½∞¡δ⌐ ß¿¼ó«½ } Calculate { ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ } 9 { τ¿ß½« } Åα¿óÑñÑ¼ »α¿¼Ñα, ¿º ¬«Γ«α«ú« óδ ¼«ªÑΓÑ ó¿ñÑΓ∞, τΓ« «»ÑαáΓ«αδ ß«ßΓ«∩Γ ¿º óδαáªÑ¡¿⌐, ¬«Γ«αδÑ ó ßó«ε «τÑαÑñ∞ ß«ßΓ«∩Γ ¿º ½Ñ¬ßÑ¼. ┌──────────────────────────────────────────────────────────┐ │ Ä»ÑαáΓ«αδ (1 ¿½¿ í«½ÑÑ) │ │┌────────────────────────────────────────────────────────┐│ ││ éδαáªÑ¡¿∩ (1 ¿½¿ í«½ÑÑ) ││ ││┌──────────────────────────────────────────────────────┐││ │││ ïÑ¬ßÑ¼δ (1 ¿½¿ í«½ÑÑ) │││ ││└──────────────────────────────────────────────────────┘││ │└────────────────────────────────────────────────────────┘│ └──────────────────────────────────────────────────────────┘ É¿ß. 1.3 ä¿áúαá¼¼á «»ÑαáΓ«αá. Æ¿»δ, »ÑαÑ¼Ñ¡¡δÑ, ¬«¡ßΓá¡Γδ ¿ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡á∩ ¼«ªÑΓ ß«ñÑαªáΓ∞ ¿º¼Ñ¡∩Ñ¼«Ñ º¡áτÑ¡¿Ñ. èáªñá∩ »ÑαÑ- ¼Ñ¡¡á∩ ñ«½ª¡á ¿¼ÑΓ∞ Γ¿». Æ¿» »ÑαÑ¼Ñ¡¡«⌐ «»αÑñÑ½∩ÑΓ ¼¡«ªÑßΓó« º¡á- τÑ¡¿⌐, ¬«Γ«αδÑ ¼«ªÑΓ ¿¼ÑΓ∞ »ÑαÑ¼Ñ¡¡á∩. ìá»α¿¼Ñα, ó ß½ÑñπεΘÑ⌐ »α«úαá¼¼Ñ «»¿ßδóáεΓß∩ »ÑαÑ¼Ñ¡¡δÑ X ¿ Y, ¿¼ÑεΘ¿Ñ Γ¿» Integer. Æá¬¿¼ «íαáº«¼, X ¿ Y ¼«úπΓ ß«ñÑαªáΓ∞ Γ«½∞¬« µÑ½δÑ º¡áτÑ¡¿∩ (τ¿ß½á). àß½¿ ó óáΦÑ⌐ »α«úαá¼¼Ñ »αÑñ»α¿¡¿- ¼áÑΓß∩ »«»δΓ¬á »α¿ßó«¿Γ∞ φΓ¿¼ »ÑαÑ¼Ñ¡¡δ¼ º¡áτÑ¡¿∩ ñαπú«ú« Γ¿»á, Borland Pascal ß««íΘáÑΓ «í «Φ¿í¬Ñ. program Example; const A = 12; { ¬«¡ßΓá¡Γá A ¡Ñ ¿º¼Ñ¡∩ÑΓ º¡áτÑ¡¿∩ } B: Integer = 23; { Γ¿»¿º¿α«óá¡¡á∩ ¬«¡ßΓá¡Γá B »«½πτáÑΓ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ } var X, Y: Integer; { »ÑαÑ¼Ñ¡¡δÑ X ¿ Y ¿¼ÑεΓ Γ¿» Integer } J: Real; { »ÑαÑ¼Ñ¡¡á∩ J ¿¼ÑÑΓ Γ¿» Real } B.Pascal 7 & Objects/LR - 18 - begin X := 7; { »ÑαÑ¼Ñ¡¡«⌐ X »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ } Y := 7; { »ÑαÑ¼Ñ¡¡«⌐ Y »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ } X := Y + Y; { º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ X ¿º¼Ñ¡∩ÑΓß∩ } J := 0.075; { »ÑαÑ¼Ñ¡¡«⌐ J »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ } end. é φΓ«⌐ »α«ßΓ«⌐ ¿ ¡Ñ «τÑ¡∞ »«½Ñº¡«⌐ »α«úαá¼¼Ñ X »Ñαó«¡áτá½∞¡« »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ 7; ñóπ¼∩ «»ÑαáΓ«αá¼¿ ¡¿ªÑ Ñ⌐ »α¿ßóá¿óáÑΓß∩ ¡«ó«Ñ º¡áτÑ¡¿Ñ: Y + Y. èá¬ ¼«ª¡« ó¿ñÑΓ∞, º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ ¼«- ªÑΓ ¿º¼Ñ¡∩Γ∞ß∩. A - φΓ« ¬«¡ßΓá¡Γá. Åα«úαá¼¼á ¡áº¡áτáÑΓ Ñ⌐ º¡áτÑ¡¿Ñ 12, ¿ φΓ« º¡áτÑ¡¿Ñ ¿º¼Ñ¡∩Γ∞ß∩ ¡Ñ ¼«ªÑΓ - ó σ«ñÑ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ «¡« «ßΓáÑΓß∩ »«ßΓ«∩¡¡δ¼. B »αÑñßΓáó½∩ÑΓ ß«í«⌐ Γ¿»¿º¿α«óá¡¡πε ¬«¡ßΓá¡Γπ. à⌐ »α¿ßóá¿óá- ÑΓß∩ º¡áτÑ¡¿Ñ »α¿ «»¿ßá¡¿¿, ¡« ñáÑΓß∩ Γá¬ªÑ Γ¿» Integer. Æ¿»¿º¿- α«óá¡πε ¬«¡ßΓá¡Γπ ¼«ª¡« αáßß¼áΓα¿óáΓ∞ ¬á¬ »ÑαÑ¼Ñ¡¡πε ß ¡áτá½∞¡δ¼ º¡áτÑ¡¿Ñ¼. Å«ºñ¡ÑÑ »α«úαá¼¼á ¼«ªÑΓ ¿º¼Ñ¡¿Γ∞ »Ñαó«¡áτá½∞¡«Ñ º¡áτÑ- ¡¿Ñ B ¡á ¬á¬«Ñ-Γ« ñαπú«Ñ º¡áτÑ¡¿Ñ. àß½¿ óδ óÑα¡ÑΓÑß∞ «íαáΓ¡« ¬ »α¿óÑñÑ¡¡«¼π ó ¡áτá½Ñ ú½áóδ »α¿- ¼Ñαπ ¬«ñá, Γ« πó¿ñ¿ΓÑ, τΓ« Σπ¡¬µ¿∩ GetNumber ¿¼ÑÑΓ αáºñÑ½ «»¿ßá- ¡¿⌐, ó ¬«Γ«α«¼ «»¿ßδóáÑΓß∩ »ÑαÑ¼Ñ¡¡á∩. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«úπΓ ß«ñÑαªáΓ∞ αáºñÑ½δ «»¿ßá¡¿⌐ Γá¬ªÑ ¬á¬ »α«úαá¼¼δ ¿ ¼«ñπ½¿. B.Pascal 7 & Objects/LR - 19 - è«¼»«¡«ó¬á τáßΓÑ⌐ ───────────────────────────────────────────────────────────────── ÆÑ»Ñα∞, ¬«úñá óδ »«º¡á¬«¼¿½¿ß∞ ß «ß¡«ó¡δ¼¿ ¬«¼»«¡Ñ¡Γá¼¿ »α«úαá¼¼δ Borland Pascal, ñáóá⌐ΓÑ »«ß¼«Γα¿¼, ¬á¬ óßÑ φΓ« αáí«ΓáÑΓ ó¼ÑßΓÑ. Åα¿óÑñÑ¼ ñ¿áúαá¼¼π »α«úαá¼¼δ Borland Pascal: ┌──────────────────────────────────────────────────────────┐ │ Åα«úαá¼¼á ¡á Åáß¬á½Ñ │ │┌────────────────────────────────────────────────────────┐│ ││ çáú«½«ó«¬ »α«úαá¼¼δ ││ │└────────────────────────────────────────────────────────┘│ │┌────────────────────────────────────────────────────────┐│ ││ ìÑ«í∩ºáΓÑ½∞¡δÑ «»ÑαáΓ«αδ uses ││ │└────────────────────────────────────────────────────────┘│ │┌────────────────────────────────────────────────────────┐│ ││ Äß¡«ó¡«⌐ í½«¬ »α«úαá¼¼δ ││ ││┌──────────────────────────────────────────────────────┐││ │││ Ä»¿ßá¡¿∩ │││ ││└──────────────────────────────────────────────────────┘││ ││┌──────────────────────────────────────────────────────┐││ │││ Åα«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ (0 ¿½¿ í«½ÑÑ) │││ │││┌────────────────────────────────────────────────────┐│││ ││││ Ä»¿ßá¡¿∩ ││││ │││└────────────────────────────────────────────────────┘│││ │││ begin │││ │││ ┌────────────────────────────────────────────────┐│││ │││ │ Ä»ÑαáΓ«αδ (1 ¿½¿ í«½ÑÑ) ││││ │││ └────────────────────────────────────────────────┘│││ │││ end; │││ ││└──────────────────────────────────────────────────────┘││ ││ begin ││ ││ ┌────────────────────────────────────────────────────┐││ ││ │ Ä»ÑαáΓ«αδ (1 ¿½¿ í«½ÑÑ) │││ ││ │┌──────────────────────────────────────────────────┐│││ ││ ││ éδαáªÑ¡¿∩ (1 ¿½¿ í«½ÑÑ) ││││ ││ ││┌────────────────────────────────────────────────┐││││ ││ │││ ïÑ¬ßÑ¼δ (1 ¿½¿ í«½ÑÑ) │││││ ││ ││└────────────────────────────────────────────────┘││││ ││ │└──────────────────────────────────────────────────┘│││ ││ └────────────────────────────────────────────────────┘││ ││ end. ││ │└────────────────────────────────────────────────────────┘│ └──────────────────────────────────────────────────────────┘ É¿ß. 1.4 ÉáßΦ¿αÑ¡¡á∩ ñ¿áúαá¼¼á »α«úαá¼¼δ ¡á Åáß¬á½Ñ. Åα«úαá¼¼π ¡á Åáß¬á½Ñ ß«ßΓáó½∩εΓ ºáú«½«ó«¬ »α«úαá¼¼δ, ¡Ñ«í∩- ºáΓÑ½∞¡δ⌐ «»ÑαáΓ«α uses (« ¡Ñ¼ íπñÑΓ αáßß¬áºá¡« »«ºñ¡ÑÑ) ¿ «ß¡«ó- ¡«⌐ í½«¬ »α«úαá¼¼δ. é «ß¡«ó¡«¼ í½«¬Ñ ¼«úπΓ »α¿ßπΓßΓó«óáΓ∞ í«½ÑÑ ¼Ñ½¬¿Ñ í½«¬¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. ò«Γ∩ ¡á ñ¿áúαá¼¼Ñ φΓ« ¡Ñ »«¬á- ºá¡«, »α«µÑñπαδ ¿¼ Σπ¡¬µ¿¿ ¼«úπΓ íδΓ∞ ó½«ªÑ¡¡δ¼¿ ó ñαπú¿Ñ »α«µÑ- ñπαδ ¿½¿ Σπ¡¬µ¿¿. äαπú¿¼¿ ß½«óá¼¿, í½«¬¿ ¼«úπΓ ß«ñÑαªáΓ∞ ñαπú¿Ñ B.Pascal 7 & Objects/LR - 20 - í½«¬¿. é ß«τÑΓá¡¿¿ ß ñαπú¿¼¿ ½Ñ¬ßÑ¼á¼¿ ¿ »α«íÑ½á¼¿ ½Ñ¬ßÑ¼δ ¼«úπΓ «íαáº«óδóáΓ∞ óδαáªÑ¡¿∩, Σ«α¼¿απεΘ¿Ñ «»ÑαáΓ«α. Ä»ÑαáΓ«αδ, ó ßó«ε «τÑαÑñ∞, ó ß«τÑΓá¡¿¿ ß αáºñÑ½«¼ «»¿ßá¡¿⌐ «íαáºπεΓ í½«¬¿ «ß¡«ó¡«⌐ »α«úαá¼¼δ ¿½¿ í½«¬ ó »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿. î«ñπ½¿ ───────────────────────────────────────────────────────────────── Åα«úαá¼¼á Borland Pascal ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ í½«¬¿ ¬«ñá ó »α«úαá¼¼¡δσ ¼«ñπ½∩σ. î«ñπ½∞ (unit) ¼«ª¡« αáßß¼áΓα¿óáΓ∞ ¬á¬ ¼¿- ¡¿-»α«úαá¼¼π, ¬«Γ«απε ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ óáΦá »α¿¬½áñ¡á∩ »α«úαá¼- ¼á. èá¬ ¿ »α«úαá¼¼á, «¡ ¿¼ÑÑΓ ºáú«½«ó«¬ (¬«Γ«αδ⌐ ¡áºδóáÑΓß∩ ºáú«- ½«ó¬«¼ ¼«ñπ½∩) ¿ «ß¡«ó¡«⌐ í½«¬, «úαá¡¿τÑ¡¡δ⌐ begin ¿ end. Äß¡«ó¡«⌐ í½«¬ ½εí«⌐ »α«úαá¼¼δ Borland Pascal ¼«ªÑΓ ó¬½ετáΓ∞ ó ßÑí∩ ßΓα«¬π, »«ºó«½∩εΘπε »α«úαá¼¼Ñ ¿ß»«½∞º«óáΓ∞ «ñ¿¡ ¿½¿ í«½ÑÑ ¼«ñπ½Ñ⌐. ìá»α¿¼Ñα, Ñß½¿ óδ »¿ΦÑΓÑ »α«úαá¼¼π DOS ß ¿¼Ñ¡Ñ¼ Colors ¿ σ«Γ¿ΓÑ ¿º¼Ñ¡∩Γ∞ µóÑΓá óδó«ñ¿¼«ú« ¡á φ¬αá¡ ΓÑ¬ßΓá, Γ« óáΦá »α«ú- αá¼¼á ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ ßΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞ Crt, ∩ó½∩εΘ¿⌐ß∩ τáßΓ∞ε í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ Borland Pascal: program Colors; uses Crt; begin . . . end. æΓα«¬á uses Crt ß««íΘáÑΓ Borland Pascal, τΓ« ¡πª¡« ó¬½ετ¿Γ∞ ¼«ñπ½∞ Crt ó óδ»«½¡∩Ñ¼πε »α«úαá¼¼π. èα«¼Ñ óßÑú« »α«τÑú«, ¼«ñπ½∞ Crt ß«ñÑαª¿Γ óÑß∞ ¡Ñ«íσ«ñ¿¼δ⌐ ¬«ñ ñ½∩ ¿º¼Ñ¡Ñ¡¿∩ µóÑΓá ó óáΦÑ⌐ »α«úαá¼¼Ñ. ÅπΓÑ¼ »α«ßΓ«ú« ó¬½ετÑ¡¿∩ uses Crt óáΦá »α«úαá¼¼á ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ óÑß∞ ¬«ñ, ß«ñÑαªáΘ¿⌐ß∩ ó ¼«ñπ½Ñ Crt. Å«φΓ«¼π «»Ñαá- Γ«α uses ¡áºδóáεΓ Γá¬ªÑ «»ÑαáΓ«α«¼ ¿ß»«½∞º«óá¡¿∩. àß½¿ íδ óδ »«- ¼ÑßΓ¿½¿ óÑß∞ ¬«ñ, ¡Ñ«íσ«ñ¿¼δ⌐ ñ½∩ αÑá½¿ºáµ¿¿ Σπ¡¬µ¿«¡á½∞¡δσ ó«º- ¼«ª¡«ßΓÑ⌐ Crt, ó ßó«ε »α«úαá¼¼π, φΓ« »«ΓαÑí«óá½« íδ «úα«¼¡δσ πß¿- ½¿⌐ ¿ «Γó½Ñ¬½« íδ óáß «Γ «ß¡«ó¡«⌐ µÑ½¿ »α«úαá¼¼δ. ü¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ Borland Pascal ó¬½ετáεΓ ó ßÑ- í∩ ¡Ñß¬«½∞¬« ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ óδ ¡á⌐ñÑΓÑ óÑß∞¼á »«½Ñº¡δ¼¿. ìá»α¿- ¼Ñα, í½áú«ñáα∩ ¿ß»«½∞º«óá¡¿ε ¼«ñπ½Ñ⌐ Dos ¿½¿ WinDos, óáΦá »α«ú- αá¼¼á ¼«ªÑΓ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ¡Ñß¬«½∞¬¿¼ »«ñ»α«úαá¼¼á¼ «»Ñαáµ¿«¡- ¡«⌐ ß¿ßΓÑ¼δ ¿ »«ñ»α«úαá¼¼á¼ αáí«Γδ ß Σá⌐½á¼¿. éδ ¼«ªÑΓÑ Γá¬ªÑ »¿ßáΓ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ ¼«ñπ½¿. Åα¿¼Ñ¡∩⌐ΓÑ ¿σ ñ½∩ αáºñÑ½Ñ¡¿∩ í«½∞Φ¿σ »α«úαá¼¼ ¡á ½«ú¿τÑß¬¿Ñ ßó∩ºá¡¡δÑ Σαáú- ¼Ñ¡Γδ. Åα«úαá¼¼¡δ⌐ ¬«ñ, ¬«Γ«αδ⌐ óδ »«¼ÑΘáÑΓÑ ó ¼«ñπ½∞, ¼«ªÑΓ ¿ß- »«½∞º«óáΓ∞ß∩ ½εí«⌐ »α«úαá¼¼«⌐. éá¼ ¡πª¡« ¡á»¿ßáΓ∞ ¿ßσ«ñ¡δ⌐ ¬«ñ Γ«½∞¬« «ñ¿¡ αáº, á ºáΓÑ¼ óδ ß¼«ªÑΓÑ ¼¡«ú« αáº Ñú« ¿ß»«½∞º«óáΓ∞. B.Pascal 7 & Objects/LR - 21 - æ¿¡Γá¬ß¿τÑß¬¿Ñ ñ¿áúαá¼¼δ ───────────────────────────────────────────────────────────────── Åα¿ ¿ºπτÑ¡¿¿ ú½áó 2 - 11, úñÑ «»αÑñÑ½∩ÑΓß∩ ∩ºδ¬ Borland Pascal, óδ óßΓαÑΓ¿ΓÑ ß¿¡Γá¬ß¿τÑß¬¿Ñ ñ¿áúαá¼¼δ, ¡á»α¿¼Ñα: ┌───┐ ┌──────────────┐ ┌───┐ ¬«¡ßΓá¡Γá-¼áßß¿ó ───>│ ( ├────>│Γ¿»¿º¿α«óá¡¡á∩├──┬─>│ ) ├──> └───┘ ^ │ ¬«¡ßΓá¡Γá │ │ └───┘ │ └──────────────┘ │ │ ┌───┐ │ └──────┤ , │<────────┘ └───┘ ùΓ«íδ »α«τ¿ΓáΓ∞ ñ¿áúαá¼¼π, ß½Ññπ⌐ΓÑ »« ßΓαÑ½¬á¼. ùáßΓ« óßΓαÑτáεΓß∩ á½∞ΓÑα¡áΓ¿ó¡δÑ »πΓ¿: »πΓ∞, ¡áτ¿¡áεΘ¿⌐ß∩ ß½Ñóá ¿ ºá- ¬á¡τ¿óáεΘ¿⌐ß∩ ßΓαÑ½¬«⌐ ß»αáóá, ∩ó½∩ÑΓß∩ ñ«»πßΓ¿¼δ¼. ÅπΓ∞ »ÑαÑßÑ- ¬áÑΓ í½«¬¿, ß«ñÑαªáΘ¿Ñ ¿¼Ñ¡á φ½Ñ¼Ñ¡Γ«ó, ¿ß»«½∞ºπÑ¼δσ ñ½∩ »«ßΓα«Ñ- ¡¿∩ φΓ«⌐ τáßΓ¿ ß¿¡Γá¬ß¿ßá. ê¼Ñ¡á ó »α∩¼«πú«½∞¡δσ αá¼¬áσ ß ΓÑ¬ßΓ«¼ ñ«½ª¡δ íδΓ∞ ºá¼Ñ¡Ñ¡δ ñÑ⌐ßΓó¿ΓÑ½∞¡δ¼¿ ¬«¡ßΓαπ¬µ¿∩¼¿. ìÑ¬«Γ«αδÑ αá¼¬¿ ß«ñÑαªáΓ ºáαÑºÑα- ó¿α«óá¡¡δÑ ß½«óá, º¡á¬¿ «»Ñαáµ¿⌐ ¿ º¡á¬¿ »π¡¬Γπáµ¿¿, Γ« ÑßΓ∞ Σá¬- Γ¿τÑß¬¿Ñ ΓÑα¼δ, ¿ß»«½∞ºπÑ¼δÑ ó »α«úαá¼¼Ñ. ê¼Ñ¡á ó í½«¬áσ - φΓ« ¬«¡ßΓαπ¬µ¿¿ ∩ºδ¬á. ê¼Ñ¡á, ¡á»¿ßá¡¡δÑ »«-á¡ú½¿⌐ß¬¿ (¡á»α¿¼Ñα, procedure), »αÑñßΓáó½∩ε ß«í«⌐ ºáαÑºÑαó¿α«óá¡¡δÑ ß½«óá ¿ «»Ñαáµ¿¿ Borland Pascal. B.Pascal 7 & Objects/LR - 22 - ─────────────────────────────────────────────────────────────────────── â½áóá 2. ïÑ¬ßÑ¼δ ───────────────────────────────────────────────────────────────── ïÑ¬ßÑ¼δ - φΓ« ¼¿¡¿¼á½∞¡δÑ º¡áτ¿¼δÑ Ññ¿¡¿µδ ΓÑ¬ßΓá ó »α«úαá¼- ¼Ñ, ¡á»¿ßá¡¡«⌐ ¡á Åáß¬á½Ñ. Ä¡¿ »αÑñßΓáó½Ñ¡δ Γá¬¿¼¿ ¬áΓÑú«α¿∩¼¿ ¬á¬ ß»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ, ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, ¼ÑΓ¬¿, τ¿ß½á ¿ ßΓα«¬«óδÑ ¬«¡ßΓá¡Γδ. Åα«úαá¼¼á, ¡á»¿ßá¡¡á∩ ¡á Åáß¬á½Ñ, ß«ßΓ«¿Γ ¿º ½Ñ¬ßÑ¼ ¿ αáºñÑ- ½¿ΓÑ½Ñ⌐, »α¿τÑ¼ αáºñÑ½¿ΓÑ½∞ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«íÑ½ ¿½¿ ¬«¼¼Ñ¡- Γáα¿⌐. äóÑ ß«ßÑñ¡¿Ñ ½Ñ¬ßÑ¼δ, Ñß½¿ «¡¿ »αÑñßΓáó½∩εΓ ß«í«⌐ ºáαÑºÑα- ó¿α«óá¡¡«Ñ ß½«ó«, ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¼ÑΓ¬π ¿½¿ τ¿ß½«, ñ«½ª¡δ íδΓ∞ «ΓñÑ½Ñ¡δ ñαπú «Γ ñαπúá «ñ¡¿¼ ¿ ¡Ñß¬«½∞¬¿¼¿ αáºñÑ½¿ΓÑ½∩¼¿. Åα¿¼Ñτá¡¿Ñ: ÉáºñÑ½¿ΓÑ½¿ ¡Ñ ¼«úπΓ íδΓ∞ τáßΓ∞ε ½Ñ¬ßÑ¼, ºá ¿ß¬½ετÑ¡¿Ñ¼ ßΓα«¬«óδσ ¬«¡ßΓá¡Γ. æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ ───────────────────────────────────────────────────────────────── Borland Pascal ¿ß»«½∞ºπÑΓ ß½ÑñπεΘ¿Ñ »«ñ¼¡«ªÑßΓóá ¡áí«αá ß¿¼- ó«½«ó ¬«ñá ASCII: * üπ¬óδ - íπ¬óδ á¡ú½¿⌐ß¬«ú« á½Σáó¿Γá «Γ A ñ« Z ¿ «Γ a ñ« z. * û¿Σαδ - áαáíß¬¿Ñ µ¿Σαδ «Γ 0 ñ« 9. * ÿÑßΓ¡áñµáΓ¿α¿τ¡δÑ µ¿Σαδ - áαáíß¬¿Ñ µ¿Σαδ «Γ 0 ñ« 9, íπ¬óδ «Γ A ñ« F ¿ íπ¬óδ «Γ a ñ« f. * ÉáºñÑ½¿ΓÑ½¿ - ß¿¼ó«½ »α«íÑ½á (ASCII 32) ¿ óßÑ π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ ¬«ñá ASCII (ASCII 0-31), ó¬½ετá∩ ß¿¼ó«½ ¬«¡µá ßΓα«¬¿ ¿½¿ ß¿¼ó«½ ó«ºóαáΓá (ASCII 13). íπ¬óá │ └─────────┬──────────────┬──────────────┬──────────────┐ │ │ │ │ v v v v ┌───┐ ┌───┐ ┌───┐ ┌───┐ │ A │ ... │ Z │ │ a │ ... │ z │ └─┬─┘ └─┬─┘ └─┬─┘ └─┬─┘ │ │ │ │ └──────────────┴──────────────┴──────────────┴────> B.Pascal 7 & Objects/LR - 23 - µ¿Σαá │ └──────┬───────────┐ │ │ v v ┌───┐ ┌───┐ │ 0 │ ... │ 9 │ └─┬─┘ └─┬─┘ │ │ └───────────┴───────> ΦÑßΓ¡áñµáΓ¿α¿τ¡á∩ µ¿Σαá │ ┌───────────┐ └────────>│ µ¿Σαá │─────────────────────────┐ │ └───────────┘ │ │ │ └───┬─────────┬─────────┬─────────┐ │ │ │ │ │ │ v v v v │ ┌───┐ ┌───┐ ┌───┐ ┌───┐ │ │ A │ .. │ F │ │ a │ ... │ f │ │ └─┬─┘ └─┬─┘ └─┬─┘ └─┬─┘ │ │ │ │ │ │ └─────────┴─────────┴─────────┴─────────┴─────────> æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ ¿ ºáαÑºÑαó¿α«óá¡¡δÑ ß½«óá »αÑñßΓáó½∩εΓ ß«í«⌐ ß¿¼ó«½δ, ¿¼ÑεΘ¿Ñ «ñ¡« ¿½¿ ¡Ñß¬«½∞¬« Σ¿¬ß¿α«óá¡¡δσ º¡áτÑ¡¿⌐. æ»Ñµ¿á½∞¡δ¼¿ ß¿¼ó«½á¼¿ ∩ó½∩εΓß∩ ß½ÑñπεΘ¿Ñ «ñ¿¡«τ¡δÑ ß¿¼ó«½δ: + - * / = < > [ ] . , ( ) : ; ^ @ { } $ # æ½ÑñπεΘ¿Ñ »áαδ ß¿¼ó«½«ó Γá¬ªÑ »αÑñßΓáó½∩εΓ ß«í«⌐ ß»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ: <= >= := .. (* *) (. .) èα«¼Ñ Γ«ú«, ¡Ñ¬«Γ«αδÑ ß»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ ∩ó½∩εΓß∩ º¡á¬á¼¿ «»Ñαáµ¿⌐. ïÑóá∩ ¬óáñαáΓ¡á∩ ß¬«í¬á ([) φ¬ó¿óá½Ñ¡Γ¡á »áαÑ ß¿¼ó«½«ó, ß«ßΓ«∩ΘÑ⌐ ¿º ½Ñó«⌐ ¬απú½«⌐ ß¬«í¬¿ ¿ Γ«τ¬¿ ((.). Ç¡á½«ú¿τ¡« »αáóá∩ ¬óáñαáΓ¡á∩ ß¬«í¬á (]) φ¬ó¿óá½Ñ¡Γ¡á »áαÑ ß¿¼ó«½«ó, ß«ßΓ«∩ΘÑ⌐ ¿º Γ«τ¬¿ ¿ »αáó«⌐ ¬απú½«⌐ ß¬«í¬¿ (.)). B.Pascal 7 & Objects/LR - 24 - çáαÑºÑαó¿α«óá¡¡δÑ ß½«óá ¿ ßΓá¡ñáαΓ¡δÑ ñ¿αÑ¬Γ¿óδ Borland Pascal ───────────────────────────────────────────────────────────────── æ½ÑñπεΘ¿Ñ ß½«óá ∩ó½∩εΓß∩ ºáαÑºÑαó¿α«óá¡¡δ¼¿ ó Borland Pascal: çáαÑºÑαó¿α«óá¡¡δÑ ß½«óá Borland Pascal Æáí½¿µá 1.1 ───────────────────────────────────────────────────────────────── and exports mod shr array file nil string asm for not then begin function object to case goto of type const if or unit consatructor implementation packed until destructor in procedure uses div inherited program var do inline record while downto interface repeat with else label set xor end library shl ───────────────────────────────────────────────────────────────── é ¡áßΓ«∩ΘÑ¼ απ¬«ó«ñßΓóÑ ºáαÑºÑαó¿α«óá¡¡δÑ ß½«óá ºá»¿ßá¡δ ßΓα«τ¡δ¼¿ íπ¬óá¼¿. Äñ¡á¬«, ñ½∩ Borland Pascal íÑºαáº½¿τÑ¡ αÑú¿ßΓα ¬½áó¿áΓπαδ, »«φΓ«¼π óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ó ßó«Ñ⌐ »α«úαá¼¼Ñ íπ¬- óδ ¬á¬ ¡¿ª¡Ñú«, Γá¬ ¿ óÑασ¡Ñú« αÑú¿ßΓαá. äá½ÑÑ »α¿óÑñÑ¡δ ßΓá¡ñáαΓ¡δÑ ñ¿αÑ¬Γ¿óδ Borland Pascal. é «Γ- ½¿τ¿Ñ «Γ ºáαÑºÑαó¿α«óá¡¡δσ ß½«ó »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ¿σ »ÑαÑ«»αÑñÑ- ½¿Γ∞. Äñ¡á¬« ñÑ½áΓ∞ φΓ« ¡Ñ αÑ¬«¼Ñ¡ñπÑΓß∩. æΓá¡ñáαΓ¡δÑ ñ¿αÑ¬Γ¿óδ Borland Pascal Æáí½¿µá 1.2 ───────────────────────────────────────────────────────────────── absolute far name resident assembler forward near virtual export index private external interrupt public ───────────────────────────────────────────────────────────────── B.Pascal 7 & Objects/LR - 25 - êñÑ¡Γ¿Σ¿¬áΓ«αδ ───────────────────────────────────────────────────────────────── êñÑ¡Γ¿Σ¿¬áΓ«αδ óδßΓπ»áεΓ ó ¬áτÑßΓóÑ ¿¼Ñ¡ ¬«¡ßΓá¡Γ, Γ¿»«ó, »ÑαÑ¼Ñ¡¡δσ, »α«µÑñπα, ¼«ñπ½Ñ⌐, »α«úαá¼¼ ¿ »«½Ñ⌐ ó ºá»¿ß∩σ. êñÑ¡Γ¿Σ¿¬áΓ«α ¼«ªÑΓ ¿¼ÑΓ∞ ½εíπε ñ½¿¡π, «ñ¡á¬« Γ«½∞¬« »ÑαóδÑ Ñú« 63 ß¿¼ó«½á ∩ó½∩εΓß∩ º¡áτ¿¼δ¼¿. êñÑ¡Γ¿Σ¿¬áΓ«α ñ«½ªÑ¡ ¡áτ¿¡áΓ∞- ß∩ ß íπ¬óδ ¿ ¡Ñ ¼«ªÑΓ ß«ñÑαªáΓ∞ »α«íÑ½«ó. Å«ß½Ñ »Ñαó«ú« ß¿¼ó«½á ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¼«ª¡« ¿ß»«½∞º«óáΓ∞ íπ¬óδ, µ¿Σαδ ¿ ß¿¼ó«½δ »«ñτÑα- ¬¿óá¡¿∩ (º¡áτÑ¡¿Ñ ASCII $5F). èá¬ ¿ ó ºáαÑºÑαó¿α«óá¡¡δσ ß½«óáσ, ó ¿ñÑ¡Γ¿Σ¿¬áΓ«αáσ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¬á¬ ßΓα«τ¡δÑ, Γá¬ ¿ »α«»¿ß¡δÑ íπ¬óδ (¬«¼»¿½∩Γ«α ¿σ ¡Ñ αáº½¿τáÑΓ). êñÑ¡Γ¿Σ¿¬áΓ«α ñ«½ªÑ¡ ¡áτ¿¡áΓ∞ß∩ ß íπ¬óδ ¿ ¡Ñ ñ«½ªÑ¡ ß«ñÑα- ªáΓ∞ »α«íÑ½«ó. Å«ß½Ñ »Ñαó«ú« ß¿¼ó«½á ñ«»πß¬áεΓß∩ íπ¬óδ, µ¿Σαδ ¿ ß¿¼ó«½ »«ñτÑα¬¿óá¡¿∩ (ASCII $5F). èá¬ ¿ ºáαÑºÑαó¿α«óá¡¡δÑ ß½«óá, ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ íÑºαáº½¿τ¡δ ¬ αÑú¿ßΓαπ ¬½áó¿áΓπαδ. è«úñá ¿¼ÑÑΓß∩ ¡Ñß¬«½∞¬« ¼ÑßΓ ß π¬áºá¡¿Ñ¼ «ñ¡«ú« ¿ Γ«ú« ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá, ñ½∩ ºáñá¡¿∩ ¡πª¡«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¡Ñ«íσ«ñ¿¼« πΓ«τ¡¿Γ∞ φΓ«Γ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¼«ñπ½∩. ìá»- α¿¼Ñα, ñ½∩ πΓ«τ¡Ñ¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Ident ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«- αá ¼«ñπ½∩ UnitName ß½ÑñπÑΓ ºá»¿ßáΓ∞ UnitNamt.Ident. Æá¬«⌐ ¬«¼í¿- ¡¿α«óá¡¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¡áºδóáÑΓß∩ πΓ«τ¡Ñ¡¡δ¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼. Åα¿¼Ñτá¡¿Ñ: î«ñπ½¿ «»¿ßδóáεΓß∩ ó â½áóÑ 7 "Éπ¬«ó«ñßΓóá »«½∞º«óáΓÑ½∩" ¿ ó â½áóÑ 10 ñá¡¡«ú« απ¬«ó«ñßΓóá. ┌───────────┐ êñÑ¡Γ¿Σ¿¬áΓ«α ──┬───>│ íπ¬óá │─────────────────────────┬─> │ └───────────┘ ^ ^ │ │ ┌─────────────┐ │ │ │ └─>│ ß¿¼ó«½ ├─┘ │ ┌─────────────┐ │ │»«ñτÑα¬¿óá¡¿∩│ ├───┤ íπ¬óá │<──┤ └─────────────┘ │ └─────────────┘ │ │ ┌─────────────┐ │ ├───┤ µ¿Σαá │<──┤ │ └─────────────┘ │ │ ┌─────────────┐ │ └───┤ ß¿¼ó«½ │<──┘ │»«ñτÑα¬¿óá¡¿∩│ └─────────────┘ B.Pascal 7 & Objects/LR - 26 - ┌───┐ ß¿¼ó«½ »«ñτÑα¬¿óá¡¿∩─────>│ _ │─────> └───┘ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«úαá¼¼δ ┌─────────────┐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼«ñπ½∩ ─────>│¿ñÑ¡Γ¿Σ¿¬áΓ«α│────> ¿ñÑ¡Γ¿Σ¿¬áΓ«α »«½∩ └─────────────┘ ┌───────────────┐ πΓ«τ¡Ñ¡¡δ⌐ ──┬───────────────────────────┤ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├──> ¿ñÑ¡Γ¿Σ¿¬áΓ«α │ ^ └───────────────┘ │ ┌─────────────┐ ┌───┐ │ └─>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─>│ . ├─┘ │ ¼«ñπ½∩ │ └───┘ └─────────────┘ Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó: Writeln Exit Real2String System.MemAvail Dos.Exec WinCrt.Windows B.Pascal 7 & Objects/LR - 27 - ù¿ß½á ───────────────────────────────────────────────────────────────── ä½∩ τ¿ßÑ½, »αÑñßΓáó½∩εΘ¿σ ß«í«⌐ ¬«¡ßΓá¡Γδ µÑ½«ú« ¿ óÑΘÑßΓ- óÑ¡¡«ú« Γ¿»á, ¿ß»«½∞ºπÑΓß∩ «íδτ¡á∩ ñÑß∩Γ¿τ¡á∩ ºá»¿ß∞. ûÑ½á∩ ¬«¡ß- Γá¡Γá ó ΦÑßΓ¡áñµáΓ¿α¿τ¡«¼ Σ«α¼áΓÑ ¿¼ÑÑΓ ó ¬áτÑßΓóÑ »αÑΣ¿¬ßá º¡á¬ ñ«½½áαá ($). ÆÑσ¡¿τÑß¬«Ñ «í«º¡áτÑ¡¿Ñ (E ¿½¿ Ñ ß »«¬áºáΓÑ½Ñ¼ ßΓÑ- »Ñ¡¿) ó óÑΘÑßΓóÑ¡¡δσ Γ¿»áσ τ¿ΓáÑΓß∩, ¬á¬ "¡á ñÑß∩Γ∞ ó ßΓÑ»Ñ¡¿". ìá»α¿¼Ñα, 7E-2 «º¡áτáÑΓ 7σ10^-2, á 12.25E+6 ¿½¿ 12.25E6 «íá «í«º¡áτáεΓ 12.25σ10^+6. æ¿¡Γá¬ß¿τÑß¬¿Ñ ñ¿áúαá¼¼δ ñ½∩ ºá»¿ß¿ τ¿ßÑ½ »α¿óÑñÑ¡δ ¡¿ªÑ. ┌─────────────────┐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ────────>│ΦÑßΓ¡áñµáΓ¿α¿τ¡á∩├───────┬──> ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ ^ │ µ¿Σαá │ │ µ¿Σα │ └─────────────────┘ │ └───────────────────────────────┘ ┌─────────────────┐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ────────>│ µ¿Σαá ├───────┬───> µ¿Σα ^ └─────────────────┘ │ │ │ └───────────────────────────────┘ ┌──────────────────┐ µÑ½δÑ íÑº º¡á¬á ────┬────>│»«ß½Ññ«óáΓÑ½∞¡«ßΓ∞├───────────> │ │ µ¿Σα │ ^ │ └──────────────────┘ │ │ │ │ ┌───┐ ┌──────────────┴───┐ └────>│ $ │────>│»«ß½Ññ«óáΓÑ½∞¡«ßΓ∞│ └───┘ │ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ │ │ µ¿Σα │ └──────────────────┘ ┌───┐ º¡á¬ ─┬───>│ + ├───────> │ └───┘ ^ │ ┌───┐ │ └───>│ - ├───┘ └───┘ B.Pascal 7 & Objects/LR - 28 - óÑΘÑßΓóÑ¡¡«Ñ íÑº º¡á¬á │ ┌──────────┐ ┌───┐ ┌──────────┐ └──>│Å«ß½Ññ«óá-├─┬─>│ . ├─>│»«ß½Ññ«óá-├──┬──────────────────> │ΓÑ½∞¡«ßΓ∞ │ │ └───┘ │ΓÑ½∞¡«ßΓ∞ │ │ ^ │ µ¿Σα │ │ │ µ¿Σα │ │ │ └──────────┘ │ └──────────┘ │ │ │ v ┌──────────┐ │ └─────────────────────────>│¼áßΦΓáí¡δ⌐├─┘ │ ¼¡«ª¿ΓÑ½∞│ └──────────┘ ¼áßΦΓáí¡δ⌐ ¼¡«ª¿ΓÑ½∞ │ ┌───┐ ┌──────────────────┐ └───────┬─>│ E ├─────┬────────────>│»«ß½Ññ«óáΓÑ½∞¡«ßΓ∞├──> │ └───┘ ^ │ ^ │ µ¿Σα │ │ ┌───┐ │ │ ┌────┐ │ └──────────────────┘ └─>│ Ñ ├─┘ └─>│º¡á¬├──┘ └───┘ └────┘ τ¿ß½« íÑº º¡á¬á │ ┌───────────────┐ └───────────┬─>│µÑ½«Ñ íÑº º¡á¬á├────────> │ └───────────────┘ ^ │ ┌────────────┐ │ └─>│óÑΘÑßΓóÑ¡¡«Ñ├───────┘ │íÑº º¡á¬á │ └────────────┘ τ¿ß½« ß« º¡á¬«¼ │ ┌───────────────┐ └────────┬────────────────>│τ¿ß½« íÑº º¡á¬á├────> │ ^ └───────────────┘ │ ┌────┐ │ └─>│º¡á¬├─────┘ └────┘ ù¿ß½á ß ñÑß∩Γ¿τ¡δ¼¿ Γ«τ¬á¼¿ ¿½¿ »«¬áºáΓÑ½∩¼¿ ßΓÑ»Ñ¡¿ »αÑñß- Γáó½∩εΓ ß«í«⌐ ¬«¡ßΓá¡Γδ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á. ÄßΓá½∞¡δÑ ñÑß∩Γ¿τ¡δÑ τ¿ß½á «í«º¡áτáεΓ ¬«¡ßΓá¡Γδ µÑ½«ú« Γ¿»á. Ä¡¿ ñ«½ª¡δ »α¿¡¿¼áΓ∞ º¡á- τÑ¡¿∩ ó ñ¿á»áº«¡Ñ «Γ -2147483648 ñ« 2147483647. ÿÑßΓ¡áñµáΓ¿α¿τ¡δÑ τ¿ß½á «í«º¡áτáεΓ ¬«¡ßΓá¡Γδ µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á. Ä¡¿ ñ«½ª¡δ ¡áσ«ñ¿Γ∞ß∩ ó ñ¿á»áº«¡Ñ «Γ $00000000 ñ« $FFFFFFFF. Ä¬«¡τáΓÑ½∞¡δ⌐ º¡á¬ º¡áτÑ¡¿∩ «»αÑñÑ½∩ÑΓß∩ ΦÑßΓ¡áñµáΓ¿- α¿τ¡«⌐ ºá»¿ß∞ε. B.Pascal 7 & Objects/LR - 29 - îÑΓ¬¿ ───────────────────────────────────────────────────────────────── îÑΓ¬«⌐ ∩ó½∩ÑΓß∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ µ¿Σα ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 9999. ìáτá½∞¡δÑ ¡π½¿ ¡Ñ ∩ó½∩εΓß∩ º¡áτáΘ¿¼¿. îÑΓ¬¿ ¿ß»«½∞ºπεΓß∩ ß «»ÑαáΓ«αá¼¿ »ÑαÑσ«ñá goto. ┌──────────────────────┐ îÑΓ¬á ───────┬────────>│ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ├──────────> │ │ µ¿Σα │ ^ │ └──────────────────────┘ │ │ │ │ ┌─────────────┐ │ └───────────>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────────┘ └─────────────┘ èá¬ αáßΦ¿αÑ¡¿Ñ ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩, Borland Pascal »«ºó«½∩- ÑΓ ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ ¼ÑΓ«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ Σπ¡¬µ¿⌐. æΓα«¬¿ ß¿¼ó«½«ó ───────────────────────────────────────────────────────────────── æΓα«¬á ß¿¼ó«½«ó »αÑñßΓáó½∩ÑΓ ß«í«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞, ß«- ñÑαªáΘπε ¡«½∞ ¿ í«½ÑÑ ß¿¼ó«½«ó ¿º αáßΦ¿αÑ¡¡«ú« ¡áí«αá ß¿¼ó«½«ó ¬«ñá ASCII, ºá»¿ßá¡¡πε ó «ñ¡«⌐ ßΓα«¬Ñ »α«úαá¼¼δ ¿ ºá¬½ετÑ¡¡πε ó «ñ¿¡«τ¡δÑ ¬áóδτ¬¿ (á»«ßΓα«Σδ). æΓα«¬á ß¿¼ó«½«ó, ¡¿τÑú« ¡Ñ ß«ñÑα- ªáΘá∩ ¼Ñªñπ á»«ßΓα«Σá¼¿, ¡áºδóáÑΓß∩ ¡π½Ñó«⌐ ßΓα«¬«⌐. äóá »«ß½Ññ«- óáΓÑ½∞¡δσ á»«ßΓα«Σá ó ßΓα«¬Ñ ß¿¼ó«½«ó «í«º¡áτáεΓ «ñ¿¡ ß¿¼ó«½ - á»«ßΓα«Σ. ÇΓα¿íπΓ ñ½¿¡δ ßΓα«¬¿ ß¿¼ó«½«ó óδαáªáÑΓß∩ ñÑ⌐ßΓó¿ΓÑ½∞¡δ¼ ¬«½¿τÑßΓó«¼ ß¿¼ó«½«ó ¼Ñªñπ á»«ßΓα«Σá¼¿, ¡á»α¿¼Ñα: 'Borland' 'You'll see' '''' ';' ' ' '' { »πßΓá∩ ßΓα«¬á } ' ' { »α«íÑ½ } é ¬áτÑßΓóÑ αáßΦ¿αÑ¡¿∩ ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩, Borland Pascal αáºαÑΦáÑΓ óßΓáó½∩Γ∞ ó ßΓα«¬π ß¿¼ó«½«ó π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ. æ¿¼ó«½ # ß µÑ½«⌐ ¬«¡ßΓá¡Γ«⌐ íÑº º¡á¬á ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 255 «í«º¡áτáÑΓ ß««ΓóÑΓßΓóπεΘ¿⌐ φΓ«¼π º¡áτÑ¡¿ε ß¿¼ó«½ ó ¬«ñÑ ASCII. îÑªñπ ß¿¼ó«- ½«¼ # ¿ µÑ½«⌐ ¬«¡ßΓá¡Γ«⌐ ¡Ñ ñ«½ª¡« íδΓ∞ ¡¿¬á¬¿σ αáºñÑ½¿ΓÑ½Ñ⌐. Ç¡á½«ú¿τ¡«, Ñß½¿ ¡Ñß¬«½∞¬« π»αáó½∩εΘ¿σ ß¿¼ó«½«ó óσ«ñ¿Γ ßΓα«¬π ß¿¼ó«½«ó, Γ« ¼Ñªñπ ¡¿¼¿ ¡Ñ ñ«½ª¡« íδΓ∞ αáºñÑ½¿ΓÑ½Ñ⌐. Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ßΓα«¬ ß¿¼ó«½«ó: #13#10 'Line 1'#13'Line2' #7#7'Make up!'#7#7 B.Pascal 7 & Objects/LR - 30 - ┌──────────────────────┐ ßΓα«¬á ß¿¼ó«½«ó ────┬──>│ ßΓα«¬á ó ¬áóδτ¬áσ ├───┬─┬> ^ │ └──────────────────────┘ │ │ │ │ ┌──────────────────────┐ │ │ │ └──>│ π»αáó½∩εΘá∩ ßΓα«¬á ├───┘ │ │ └──────────────────────┘ │ └──────────────────────────────────┘ ┌───┐ ┌───┐ ßΓα«¬á ──────>│ ' ├──────────────┬────>│ ' ├────> ó ¬áóδτ¬áσ └───┘ ^ ┌──────┐ │ └───┘ └──┤ß¿¼ó«½│<─┘ │ßΓα«¬¿│ └──────┘ ┌──────────────────────┐ ß¿¼ó«½ ßΓα«¬¿ ───┬──>│½εí«⌐ ß¿¼ó«½, ¬α«¼Ñ ' ├───────> │ │ ¿½¿ CR │ ^ │ └──────────────────────┘ │ │ ┌───┐ ┌───┐ │ └───────>│ ' ├──────>│ ' ├─────┘ └───┘ └───┘ ┌───┐ ┌───────────────────┐ ß¿¼ó«½ ßΓα«¬¿ ──────>│ # ├─>│ íÑºº¡á¬«ó«Ñ µÑ½«Ñ ├─┬──> ^ └───┘ └───────────────────┘ │ │ │ └──────────────────────────────────┘ Åα¿¼Ñτá¡¿Ñ: CR - ß¿¼ó«½ ó«ºóαáΓá ¬áαÑΓ¬¿. ä½¿¡á ß¿¼ó«½∞¡«⌐ ßΓα«¬¿ - φΓ« Σá¬Γ¿τÑß¬«Ñ τ¿ß½« ß¿¼ó«½«ó ó ßΓα«¬Ñ. æΓα«¬á ß¿¼ó«½«ó ½εí«⌐ ñ½¿¡δ ß«ó¼ÑßΓ¿¼á ß ½εíδ¼ ßΓα«¬«óδ¼ Γ¿»«¼ ¿, »α¿ αáºαÑΦÑ¡¿¿ ñ¿αÑ¬Γ¿ó«⌐ {$X+} αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá, ß Γ¿»«¼ PChar.. èα«¼Ñ Γ«ú«, ßΓα«¬á ß¿¼ó«½«ó ß ñ½¿¡«⌐, αáó¡«⌐ 1, ß«ó¼ÑßΓ¿¼á ß ½εíδ¼ Γ¿»«¼ Char. æΓα«¬á ß¿¼ó«½«ó ñ½¿¡«⌐ n, úñÑ n í«½∞ΦÑ ¿½¿ αáóÑ¡ 1, ñ«»πßΓ¿¼á ñ½∩ ½εí«ú« ßΓα«¬«ó«ú« Γ¿»á ¿ π»á¬«- óá¡¡δσ ¼áßß¿ó«ó ¿º n ß¿¼ó«½«ó. B.Pascal 7 & Objects/LR - 31 - è«¼¼Ñ¡Γáα¿¿ ───────────────────────────────────────────────────────────────── æ½ÑñπεΘ¿Ñ ¬«¡ßΓαπ¬µ¿¿ »αÑñßΓáó½∩εΓ ß«í«⌐ ¬«¼¼Ñ¡Γáα¿¿ ¿ »«φ- Γ«¼π ¿ú¡«α¿απεΓß∩ ¬«¼»¿½∩Γ«α«¼: { ½εí«⌐ ΓÑ¬ßΓ, ¡Ñ ß«ñÑαªáΘ¿⌐ »αáóπε Σ¿úπα¡πε ß¬«í¬π } (* ½εí«⌐ ΓÑ¬ßΓ, ¡Ñ ß«ñÑαªáΘ¿⌐ ºóÑºñ«τ¬π/»αáóπε ¬απú½πε ß¬«í¬π *) è«¼¼Ñ¡Γáα¿⌐, ß«ñÑαªáΘ¿⌐ º¡á¬ ñ«½½áαá ($) ßαáºπ »«ß½Ñ «Γ¬αδ- óáεΘÑ⌐ ß¬«í¬¿ { ¿½¿ (*, ∩ó½∩ÑΓß∩ ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá. çá ß¿¼- ó«½«¼ $ ß½ÑñπÑΓ ¼¡Ñ¼«¡¿¬á ¬«¼á¡ñδ ¬«¼»¿½∩Γ«αá. Åα¿¼Ñτá¡¿Ñ: ÄíΘÑÑ «»¿ßá¡¿Ñ ñ¿αÑ¬Γ¿ó ¬«¼»¿½∩Γ«αá ñá¡« ó â½áóÑ 2 "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá". æΓα«¬¿ »α«úαá¼¼δ ───────────────────────────────────────────────────────────────── é Borland Pascal ßΓα«¬¿ »α«úαá¼¼δ ¿¼ÑεΓ ¼á¬ß¿¼á½∞¡πε ñ½¿¡π ó 126 ß¿¼ó«½«ó. B.Pascal 7 & Objects/LR - 32 - â½áóá 3. è«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── è«¡ßΓá¡Γá - φΓ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α, «Γ¼ÑτáεΘ¿⌐ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ¡Ñ ¼«ªÑΓ ¿º¼Ñ¡∩Γ∞ß∩. êñÑ¡Γ¿Σ¿¬áΓ«α ¬«¡ßΓá¡Γδ ¡Ñ ¼«ªÑΓ íδΓ∞ ó¬½ε- τÑ¡ ó ßó«Ñ ß«íßΓóÑ¡¡«Ñ «»¿ßá¡¿Ñ. «»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ │ ┌─────────────┐ ┌───┐ ┌─────────┐ ┌───┐ └─────>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├───>│ = ├──>│¬«¡ßΓá¡Γá├───>│ ; ├─┬──> ^ └─────────────┘ └───┘ └─────────┘ └───┘ │ │ │ └────────────────────────────────────────────────────┘ êñÑ¡Γ¿Σ¿¬áΓ«α ¬«¡ßΓá¡Γδ ß »αÑñΦÑßΓóπεΘ¿¼ Ñ¼π º¡á¬«¼ «í«º¡á- τáÑΓ º¡áτÑ¡¿Ñ µÑ½«ú« ¿½¿ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á. ƒó½∩∩ß∞ αáßΦ¿αÑ¡¿Ñ¼ ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩, Borland Pascal »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ óδαáªÑ¡¿∩-¬«¡ßΓá¡Γδ. éδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γá »αÑñßΓáó½∩ÑΓ ß«í«⌐ óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ ¼«ªÑΓ óδτ¿ß½∩Γ∞ß∩ ¬«¼»¿½∩- Γ«α«¼ íÑº ¡Ñ«íσ«ñ¿¼«ßΓ¿ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. Åα¿óÑñÑ¼ »α¿¼Ñαδ óδαáªÑ¡¿⌐-¬«¡ßΓá¡Γ: 100 'A' 256 - 1 (2.5 + 1) / (2.5 - 1) 'Borland' + '' + 'Pascal' Chr(32) Ord('Z') - Ord('A') + 1 Åα«ßΓÑ⌐Φ¿⌐ ß½πτá⌐ óδαáªÑ¡¿∩-¬«¡ßΓá¡Γδ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«ßΓá∩ ¬«¡ßΓá¡Γá, ¡á»α¿¼Ñα 100 ¿½¿ 'A'. é ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óáΓ∞ Γ«½∞¬« »α«ßΓδÑ ¬«¡ßΓá¡Γδ. é Borland Pascal αáºαÑΦÑ¡« ¿ß»«½∞º«óá¡¿Ñ óδαáªÑ¡¿⌐-¬«¡ßΓá¡Γ. ┌─────────┐ ¬«¡ßΓá¡Γá ────>│óδαáªÑ¡¿Ñ├───> └─────────┘ Å«ß¬«½∞¬π ¬«¼»¿½∩Γ«α ñ«½ªÑ¡ ¿¼ÑΓ∞ ó«º¼«ª¡«ßΓ∞ »«½¡«ßΓ∞ε óδ- τ¿ß½¿Γ∞ óδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γπ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿, ó ¬áτÑßΓóÑ óδαá- ªÑ¡¿⌐-¬«¡ßΓá¡Γ ¡Ñ ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ ¬«¡ßΓαπ¬µ¿¿: - ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡δÑ ¿ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ (¬α«¼Ñ ¬«¡ßΓá¡Γ ó áñαÑß¡δσ óδαáªÑ¡¿∩σ, «»¿ßδóáÑ¼δσ ó â½áóÑ 5); - óδº«óδ Σπ¡¬µ¿⌐ (¬α«¼Ñ ΓÑσ, ¬«Γ«αδÑ «Γ¼ÑτÑ¡δ ñá½ÑÑ); - «»ÑαáΓ«α »«½πτÑ¡¿∩ áñαÑßá @ (¬α«¼Ñ ¬«¡ßΓá¡Γ ó áñαÑß¡δσ óδ- αáªÑ¡¿∩σ, «»¿ßδóáÑ¼δσ ó â½áóÑ 5). çá ¿ß¬½ετÑ¡¿Ñ¼ φΓ¿σ «úαá¡¿τÑ¡¿⌐ ñ½∩ óδαáªÑ¡¿⌐-¬«¡ßΓá¡Γ ß«í- B.Pascal 7 & Objects/LR - 33 - ½εñáεΓß∩ ΓÑ ªÑ ß¿¡Γá¬ß¿τÑß¬¿Ñ »αáó¿½á, τΓ« ¿ ñ½∩ «íδτ¡δσ óδαáªÑ- ¡¿⌐ («»¿ßá¡¡δσ ó â½áóÑ 6 "éδαáªÑ¡¿∩"). é óδαáªÑ¡¿∩σ-¬«¡ßΓá¡Γáσ ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ ßΓá¡ñáαΓ¡δÑ Σπ¡¬µ¿¿: Abs, Chr, Hi, High, Length, Lo, Low, Odd, Ord, Pred, Ptr, Round, SizeOf, Succ, Swap, Trunc. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ ¿ß»«½∞º«óá¡¿∩ óδαáªÑ¡¿⌐-¬«¡ßΓá¡Γ ó «»¿ßá¡¿∩σ ¬«¡ßΓá¡Γ: const Min = 0; Max = 100; Center = (Max - Min) div 2; Beta = Chr(255); NumChars = Ord('Z') - Ord('A') + 1; Message = 'Out of memory'; ErrStr = 'Error:' + Message + '.'; ErrPos = 80 - Length(Error) div 2; ErrAttr = Blink + Red * 16 + White; Ln10 = 2.302585092994095684; Ln10R = 1 / Ln10; Numeric = ['0'..'9']; Alpha = ['A'..'Z','a'..'z']; AlphaNum = Alpha + Numeric; B.Pascal 7 & Objects/LR - 34 - ─────────────────────────────────────────────────────────────────────── â½áóá 4. Æ¿»δ ───────────────────────────────────────────────────────────────── Åα¿ «»¿ßá¡¿¿ »ÑαÑ¼Ñ¡¡«⌐ ¡Ñ«íσ«ñ¿¼« π¬áºáΓ∞ ÑÑ Γ¿». Æ¿» »ÑαÑ- ¼Ñ¡¡«⌐ «»¿ßδóáÑΓ ¡áí«α º¡áτÑ¡¿⌐, ¬«Γ«αδÑ «¡á ¼«ªÑΓ »α¿¡¿¼áΓ∞, ¿ ñÑ⌐ßΓó¿∩, ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ ¡áñ ¡Ñ⌐ óδ»«½¡Ñ¡δ. Ä»¿ßá¡¿Ñ Γ¿»á «»- αÑñÑ½∩ÑΓ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¬«Γ«αδ⌐ «í«º¡áτáÑΓ φΓ«Γ Γ¿». ┌───────────────┐ ┌───┐ ┌─────┐ ┌───┐ «»¿ßá¡¿Ñ ──>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├──>│ = ├──>│ Γ¿» ├──>│ ; ├──> Γ¿»á └───────────────┘ └───┘ └─────┘ └───┘ ô¬áºá¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ó ½Ñó«⌐ τáßΓ¿ «»¿ßá¡¿∩ Γ¿»á «º¡áτá- ÑΓ, τΓ« «¡ «»αÑñÑ½Ñ¡ ¬á¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á ñ½∩ í½«¬á, ó ¬«Γ«α«¼ π¬áºá¡« φΓ« «»¿ßá¡¿Ñ Γ¿»á. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Γ¿»á ¡Ñ ó¬½ετáÑΓ Ñú« ßá¼«ú«, ¿ß¬½ετÑ¡¿Ñ ß«ßΓáó½∩εΓ Γ¿»δ "π¬áºáΓÑ½∞" (¬«Γ«αδÑ ¡áºδóáεΓ Γá¬ªÑ ßßδ½«τ¡δ¼¿ Γ¿»á¼¿). ┌────────────────────┐ Γ¿» ────────┬────>│ »α«ßΓ«⌐ Γ¿» │─────────> │ └────────────────────┘ ^ │ ┌────────────────────┐ │ ├────>│ ßΓα«¬«óδ⌐ Γ¿» ├────┤ │ └────────────────────┘ │ │ ┌────────────────────┐ │ ├────>│ ßßδ½«τ¡δ⌐ Γ¿» ├────┤ │ └────────────────────┘ │ │ ┌────────────────────┐ │ ├────>│ ßΓαπ¬Γπα¡δ⌐ Γ¿» ├────┤ │ └────────────────────┘ │ │ ┌────────────────────┐ │ ├────>│ »α«µÑñπα¡δ⌐ Γ¿» ├────┤ │ └────────────────────┘ │ │ ┌────────────────────┐ │ └────>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á ├────┘ └────────────────────┘ ê¼ÑÑΓß∩ »∩Γ∞ ß½ÑñπεΘ¿σ «ß¡«ó¡δσ ¬½áßß«ó Γ¿»«ó. Ä¡¿ «»¿ßδóá- εΓß∩ ó ß½ÑñπεΘÑ¼ αáºñÑ½Ñ. B.Pascal 7 & Objects/LR - 35 - Åα«ßΓδÑ Γ¿»δ ───────────────────────────────────────────────────────────────── Åα«ßΓδÑ Γ¿»δ «»αÑñÑ½∩εΓ π»«α∩ñ«τÑ¡¡δÑ ¼¡«ªÑßΓóá º¡áτÑ¡¿⌐. ┌───────────────────┐ »α«ßΓ«⌐ Γ¿» ─────┬────>│ »«α∩ñ¬«óδ⌐ Γ¿» ├─────────> │ └───────────────────┘ ^ │ ┌───────────────────┐ │ └────>│ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ├─────┘ └───────────────────┘ ┌────────────────────┐ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ─────>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├─────> │ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á │ └────────────────────┘ êñÑ¡Γ¿Σ¿¬áΓ«α óÑΘÑßΓóÑ¡¡«ú« Γ¿»á «Γ¡«ß¿Γß∩ ¬ τ¿ß½π ßΓá¡ñáαΓ- ¡δσ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó, ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ óÑΘÑßΓóÑ¡¡δ¼¿, ß «ñ¿¡áα- ¡«⌐ Γ«τ¡«ßΓ∞ε, ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ ß½«ª¡δ¼¿. Åα¿¼Ñτá¡¿Ñ: é αáºñÑ½áσ "ù¿ß½á" ¿ "æΓα«¬«óδÑ ¬«¡ßΓá¡Γδ" â½áóδ 2 óδ ¼«ªÑΓÑ ¡á⌐Γ¿ «»¿ßá¡¿Ñ Γ«ú«, ¬á¬ «í«º¡áτáΓ∞ ¬«¡ß- Γá¡Γδ µÑ½«ú« ¿ óÑΘÑßΓóÑ¡¡«ú« Γ¿»«ó. Å«α∩ñ¬«óδÑ Γ¿»δ ───────────────────────────────────────────────────────────────── Å«α∩ñ¬«óδÑ Γ¿»δ »αÑñßΓáó½∩εΓ ß«í«⌐ »«ñ¼¡«ªÑßΓó« »α«ßΓδσ Γ¿- »«ó. éßÑ »α«ßΓδÑ Γ¿»δ, «Γ½¿τ¡δÑ «Γ óÑΘÑßΓóÑ¡¡δσ Γ¿»«ó, ∩ó½∩εΓß∩ »«α∩ñ¬«óδ¼¿ ¿ óδñÑ½∩εΓß∩ »« ß½ÑñπεΘ¿¼ τÑΓδαÑ¼ σáαá¬ΓÑα¿ßΓ¿¬á¼. - éßÑ ó«º¼«ª¡δÑ º¡áτÑ¡¿∩ ñá¡¡«ú« »«α∩ñ¬«ó«ú« Γ¿»á »αÑñßΓáó- ½∩εΓ ß«í«⌐ π»«α∩ñ«τÑ¡¡«Ñ ¼¡«ªÑßΓó«, ¿ ¬áªñ«Ñ ó«º¼«ª¡«Ñ º¡áτÑ¡¿Ñ ßó∩ºá¡« ß »«α∩ñ¬«óδ¼ ¡«¼Ñα«¼, ¬«Γ«αδ⌐ »αÑñßΓáó- ½∩ÑΓ ß«í«⌐ µÑ½«τ¿ß½Ñ¡¡«Ñ º¡áτÑ¡¿Ñ. çá ¿ß¬½ετÑ¡¿Ñ¼ º¡áτÑ- ¡¿⌐ µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á, »Ñαó«Ñ º¡áτÑ¡¿Ñ ½εí«ú« »«α∩ñ¬«- ó«ú« Γ¿»á ¿¼ÑÑΓ »«α∩ñ¬«óδ⌐ ¡«¼Ñα 0, ß½ÑñπεΘÑÑ º¡áτÑ¡¿Ñ ¿¼ÑÑΓ »«α∩ñ¬«óδ⌐ ¡«¼Ñα 1 ¿ Γá¬ ñá½ÑÑ ñ½∩ ¬áªñ«ú« º¡áτÑ¡¿∩ ó φΓ«¼ »«α∩ñ¬«ó«¼ Γ¿»Ñ. Å«α∩ñ¬«óδ¼ ¡«¼Ñα«¼ º¡áτÑ¡¿∩ µÑ½«- τ¿ß½Ñ¡¡«ú« Γ¿»á ∩ó½∩ÑΓß∩ ßá¼« φΓ« º¡áτÑ¡¿Ñ. é ½εí«¼ »«- α∩ñ¬«ó«¼ Γ¿»Ñ ¬áªñ«¼π º¡áτÑ¡¿ε, ¬α«¼Ñ »Ñαó«ú«, »αÑñΦÑßΓ- óπÑΓ ñαπú«Ñ º¡áτÑ¡¿Ñ, ¿ »«ß½Ñ ¬áªñ«ú« º¡áτÑ¡¿∩, ¬α«¼Ñ »«ß½Ññ¡Ñú«, ß½ÑñπÑΓ ñαπú«Ñ º¡áτÑ¡¿Ñ ó ß««ΓóÑΓßΓó¿¿ ß π»«- α∩ñ«τÑ¡¡«ßΓ∞ε Γ¿»á. - è ½εí«¼π º¡áτÑ¡¿ε »«α∩ñ¬«ó«ú« Γ¿»á ¼«ª¡« »α¿¼Ñ¡¿Γ∞ ßΓá¡- ñáαΓ¡πε Σπ¡¬µ¿ε Ord, ó«ºóαáΘáεΘπε »«α∩ñ¬«óδ⌐ ¡«¼Ñα φΓ«ú« º¡áτÑ¡¿∩. - è ½εí«¼π º¡áτÑ¡¿ε »«α∩ñ¬«ó«ú« Γ¿»á ¼«ª¡« »α¿¼Ñ¡¿Γ∞ ßΓá¡- ñáαΓ¡πε Σπ¡¬µ¿ε Pred, ó«ºóαáΘáεΘπε »αÑñΦÑßΓóπεΘÑÑ φΓ«¼π º¡áτÑ¡¿ε º¡áτÑ¡¿Ñ. àß½¿ φΓá Σπ¡¬µ¿∩ »α¿¼Ñ¡∩ÑΓß∩ ¬ »Ñαó«¼π B.Pascal 7 & Objects/LR - 36 - º¡áτÑ¡¿ε ó φΓ«¼ »«α∩ñ¬«ó«¼ Γ¿»Ñ, Γ« óδñáÑΓß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. - è ½εí«¼π º¡áτÑ¡¿ε »«α∩ñ¬«ó«ú« Γ¿»á ¼«ª¡« »α¿¼Ñ¡¿Γ∞ ßΓá¡- ñáαΓ¡πε Σπ¡¬µ¿ε Succ, ó«ºóαáΘáεΘπε ß½ÑñπεΘÑÑ ºá φΓ¿¼ º¡á- τÑ¡¿Ñ¼ º¡áτÑ¡¿Ñ. àß½¿ φΓá Σπ¡¬µ¿∩ »α¿¼Ñ¡∩ÑΓß∩ ¬ »«ß½Ññ¡Ñ- ¼π º¡áτÑ¡¿ε ó φΓ«¼ »«α∩ñ¬«ó«¼ Γ¿»Ñ, Γ« óδñáÑΓß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. - è ½εí«¼π º¡áτÑ¡¿ε »«α∩ñ¬«ó«ú« Γ¿»á ¿ ¬ ßßδ½¬Ñ ¡á »ÑαÑ¼Ñ¡- ¡πε »«α∩ñ¬«ó«ú« Γ¿»á ¼«ª¡« »α¿¼Ñ¡¿Γ∞ ßΓá¡ñáαΓ¡πε Σπ¡¬µ¿ε Low, ó«ºóαáΘáεΘπε ¡á¿¼Ñ¡∞ΦÑÑ º¡áτÑ¡¿Ñ ó ñ¿á»áº«¡Ñ ñá¡¡«ú« »«α∩ñ¬«ó«ú« Γ¿»á. - è ½εí«¼π º¡áτÑ¡¿ε »«α∩ñ¬«ó«ú« Γ¿»á ¿ ¬ ßßδ½¬Ñ ¡á »ÑαÑ¼Ñ¡- ¡πε »«α∩ñ¬«ó«ú« Γ¿»á ¼«ª¡« »α¿¼Ñ¡¿Γ∞ ßΓá¡ñáαΓ¡πε Σπ¡¬µ¿ε High, ó«ºóαáΘáεΘπε ¡á¿í«½∞ΦÑÑ º¡áτÑ¡¿Ñ ó ñ¿á»áº«¡Ñ ñá¡¡«- ú« »«α∩ñ¬«ó«ú« Γ¿»á. æ¿¡Γá¬ß¿ß »«α∩ñ¬«ó«ú« Γ¿»á ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ó¿ñ: ┌────────────────────┐ »«α∩ñ¬«óδ⌐ ─────┬────>│ «ΓαÑº«¬ Γ¿»á ├─────────> Γ¿» │ └────────────────────┘ ^ │ ┌────────────────────┐ │ ├────>│ »ÑαÑτ¿ß½¿¼δ⌐ Γ¿» ├─────┤ │ └────────────────────┘ │ │ ┌────────────────────┐ │ └────>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├─────┘ │ »«α∩ñ¬«ó«ú« Γ¿»á │ └────────────────────┘ Borland Pascal ¿¼ÑÑΓ 10 óßΓα«Ñ¡¡δσ »«α∩ñ¬«óδσ Γ¿»«ó: Integer (µÑ½«Ñ), Shortint (¬«α«Γ¬«Ñ µÑ½«Ñ), Longint (ñ½¿¡¡«Ñ µÑ½«Ñ), Byte (ñ½¿¡«⌐ ó íá⌐Γ), Word (ñ½¿¡«⌐ ó ß½«ó«), Boolean (íπ½Ñóß¬«Ñ), ByteBool (íπ½Ñóß¬«Ñ αáº¼Ñα«¼ ó íá⌐Γ), WordBool (íπ½Ñóß¬«Ñ αáº¼Ñ- α«¼ ó ß½«ó«), LongBool (ñ½¿¡¡δ⌐ íπ½Ñóß¬¿⌐ Γ¿») ¿ Char (ß¿¼ó«½∞¡δ⌐ Γ¿»). èα«¼Ñ Γ«ú«, ¿¼ÑÑΓß∩ ñóá ñαπú¿σ ¬½áßßá «»αÑñÑ½∩Ñ¼δσ »«½∞º«- óáΓÑ½Ñ¼ »«α∩ñ¬«óδσ Γ¿»«ó: »ÑαÑτ¿ß½¿¼δÑ Γ¿»δ ¿ «ΓαÑº¬¿ Γ¿»«ó (»«ñ- ñ¿á»áº«¡δ). B.Pascal 7 & Objects/LR - 37 - ûÑ½«τ¿ß½Ñ¡¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── é Borland Pascal ¿¼ÑÑΓß∩ »∩Γ∞ »αÑñ«»αÑñÑ½Ñ¡¡δσ µÑ½«τ¿ß½Ñ¡¡δσ Γ¿»«ó: Shortint (¬«α«Γ¬«Ñ µÑ½«Ñ), Integer (µÑ½«Ñ), Longint (ñ½¿¡- ¡«Ñ µÑ½«Ñ), Byte (ñ½¿¡«⌐ ó íá⌐Γ) ¿ Word (ñ½¿¡«⌐ ó ß½«ó«). èáªñδ⌐ Γ¿» «í«º¡áτáÑΓ «»αÑñÑ½Ñ¡¡«Ñ »«ñ¼¡«ªÑßΓó« µÑ½δσ τ¿ßÑ½, ¬á¬ φΓ« »«- ¬áºá¡« ó ß½ÑñπεΘÑ⌐ Γáí½¿µÑ. ÅαÑñ«»αÑñÑ½Ñ¡¡δÑ µÑ½«τ¿ß½Ñ¡¡δÑ Γ¿»δ Æáí½¿µá 4.1 ┌────────────────────┬────────────────────┬─────────────────────┐ │ Æ¿» │ ä¿á»áº«¡ │ ö«α¼áΓ │ ├────────────────────┼────────────────────┼─────────────────────┤ │ ¬«α«Γ¬«Ñ µÑ½«Ñ │ -128 .. 127 │ 8 í¿Γ ß« º¡á¬«¼ │ │ (Shortint) │ │ │ ├────────────────────┼────────────────────┼─────────────────────┤ │ µÑ½«Ñ │ -32768 .. 32767 │ 16 í¿Γ ß« º¡á¬«¼ │ │ (Integer) │ │ │ ├────────────────────┼────────────────────┼─────────────────────┤ │ ñ½¿¡¡«Ñ µÑ½«Ñ │ -2147483648 .. │ 32 í¿Γá ß« º¡á¬«¼ │ │ (Longint) │ ..2147483647 │ │ ├────────────────────┼────────────────────┼─────────────────────┤ │ ñ½¿¡«⌐ ó íá⌐Γ │ 0 .. 255 │ 8 í¿Γ íÑº º¡á¬á │ │ (Byte) │ │ │ ├────────────────────┼────────────────────┼─────────────────────┤ │ ñ½¿¡«⌐ ó ß½«ó« │ 0 .. 65535 │ 16 í¿Γ íÑº º¡á¬á │ │ (Word) │ │ │ └────────────────────┴────────────────────┴─────────────────────┘ Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ ñÑ⌐ßΓó¿∩ ¡áñ «»Ñαá¡ñá¼¿ µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á »αÑñ»«½áúáεΓ 8-í¿Γ«óπε, 16-í¿Γ«óπε ¿ 32-í¿Γ«óπε Γ«τ¡«ßΓ∞ ó ß««Γ- óÑΓßΓó¿¿ ß« ß½ÑñπεΘ¿¼¿ »αáó¿½á¼¿: - Æ¿» µÑ½«⌐ ¬«¡ßΓá¡Γδ »αÑñßΓáó½∩ÑΓ ß«í«⌐ óßΓα«Ñ¡¡δ⌐ µÑ½«τ¿ß- ½Ñ¡¡δ⌐ Γ¿» ß ¡á¿¼Ñ¡∞Φ¿¼ ñ¿á»áº«¡«¼, ó¬½ετáεΘ¿¼ º¡áτÑ¡¿Ñ φΓ«⌐ µÑ½«⌐ ¬«¡ßΓá¡Γδ. - é ß½πτáÑ í¿¡áα¡«⌐ «»Ñαáµ¿¿ («»Ñαáµ¿¿, ¿ß»«½∞ºπεΘÑ⌐ ñóá «»Ñαá¡ñá), «íá «»Ñαá¡ñá »αÑ«íαáºπεΓß∩ ¬ ¿σ «íΘÑ¼π Γ¿»π »Ñ- αÑñ ΓÑ¼, ¬á¬ ¡áñ ¡¿¼¿ ß«óÑαΦáÑΓß∩ ñÑ⌐ßΓó¿Ñ. ÄíΘ¿¼ Γ¿»«¼ ∩ó½∩ÑΓß∩ óßΓα«Ñ¡¡δ⌐ µÑ½«τ¿ß½Ñ¡¡δ⌐ Γ¿» ß ¡á¿¼Ñ¡∞Φ¿¼ ñ¿á»á- º«¡«¼, ó¬½ετáεΘ¿¼ óßÑ ó«º¼«ª¡δÑ º¡áτÑ¡¿∩ «í«¿σ Γ¿»«ó. ìá»- α¿¼Ñα, «íΘ¿¼ Γ¿»«¼ ñ½∩ µÑ½«ú« ¿ µÑ½«ú« ñ½¿¡«⌐ ó íá⌐Γ ∩ó½∩- ÑΓß∩ µÑ½«Ñ, á «íΘ¿¼ Γ¿»«¼ ñ½∩ µÑ½«ú« ¿ µÑ½«ú« ñ½¿¡«⌐ ó ß½«ó« ∩ó½∩ÑΓß∩ ñ½¿¡¡«Ñ µÑ½«Ñ. äÑ⌐ßΓó¿Ñ óδ»«½¡∩ÑΓß∩ ó ß««Γ- óÑΓßΓó¿¿ ß Γ«τ¡«ßΓ∞ε «íΘÑú« Γ¿»á ¿ Γ¿»«¼ αÑºπ½∞ΓáΓá ∩ó½∩- ÑΓß∩ «íΘ¿⌐ Γ¿». - éδαáªÑ¡¿Ñ ß»αáóá ó «»ÑαáΓ«αÑ »α¿ßóá¿óá¡¿∩ óδτ¿ß½∩ÑΓß∩ ¡Ñ- ºáó¿ß¿¼« «Γ αáº¼Ñαá ¿½¿ Γ¿»á »ÑαÑ¼Ñ¡¡«⌐ ß½Ñóá. - ïεíδÑ «»Ñαá¡ñδ αáº¼Ñα«¼ ó íá⌐Γ »αÑ«íαáºπεΓß∩ ¬ »α«¼ÑªπΓ«τ- ¡«¼π «»Ñαá¡ñπ αáº¼Ñα«¼ ó ß½«ó«, ¬«Γ«αδ⌐ ß«ó¼ÑßΓ¿¼ »ÑαÑñ B.Pascal 7 & Objects/LR - 38 - óδ»«½¡Ñ¡¿Ñ¼ áα¿Σ¼ÑΓ¿τÑß¬«⌐ «»Ñαáµ¿¿ ß Γ¿»á¼¿ Integer ¿ Word. ç¡áτÑ¡¿Ñ «ñ¡«ú« µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á ¼«ªÑΓ íδΓ∞ ∩ó¡δ¼ «íαáº«¼ »αÑ«íαáº«óá¡« ¬ ñαπú«¼π µÑ½«τ¿ß½Ñ¡¡«¼π Γ¿»π ß »«¼«Θ∞ε »α¿óÑñÑ¡¿∩ Γ¿»«ó. Åα¿¼Ñτá¡¿Ñ: Åα¿óÑñÑ¡¿Ñ Γ¿»«ó «»¿ßδóáÑΓß∩ ó â½áóáσ 5 ¿ 6. B.Pascal 7 & Objects/LR - 39 - üπ½Ñóß¬¿Ñ Γ¿»δ ───────────────────────────────────────────────────────────────── æπΘÑßΓóπÑΓ 4 »αÑñ«»αÑñÑ½Ñ¡¡δσ íπ½Ñóß¬¿σ Γ¿»á: Boolean, ByteBool, WordBool ¿ LongBool. ç¡áτÑ¡¿∩ íπ½Ñóß¬«ú« Γ¿»á «í«º¡áτá- εΓß∩ óßΓα«Ñ¡¡δ¼¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá¼¿ ¬«¡ßΓá¡Γ False ¿ True. Å«ß¬«½∞- ¬π íπ½Ñóß¬¿⌐ Γ¿» ∩ó½∩ÑΓß∩ »ÑαÑτ¿ß½¿¼δ¼, ¼Ñªñπ φΓ¿¼¿ º¡áτÑ¡¿∩¼¿ ¿¼ÑεΓ ¼ÑßΓ« ß½ÑñπεΘ¿Ñ «Γ¡«ΦÑ¡¿∩: - False < True - Ord(False) = 0 - Ord(True) = 1 - Succ(False) = True - Pred(True) = False ÅÑαÑ¼Ñ¡¡δÑ Γ¿»á Boolean ¿ ByteBool ºá¡¿¼áεΓ 1 íá⌐Γ, »ÑαÑ- ¼Ñ¡¡á∩ WordBool ºá¡¿¼áÑΓ ñóá íá⌐Γá (ß½«ó«), á »ÑαÑ¼Ñ¡¡á∩ LongBool ºá¡¿¼áÑΓ τÑΓδαÑ íá⌐Γá (ñóá ß½«óá). Boolean - φΓ« ¡á¿í«½ÑÑ »αÑñ»«- τΓ¿ΓÑ½∞¡δ⌐ Γ¿», ¿ß»«½∞ºπεΘÑ⌐ ¼Ñ¡∞ΦÑ »á¼∩Γ¿; Γ¿»á ByteBool, WordBool ¿ LongBool «íÑß»Ñτ¿óáεΓ ß«ó¼ÑßΓ¿¼«ßΓ∞ ß ñαπú¿¼¿ ∩ºδ¬á¼¿ ¿ ßαÑñ«⌐ Windows. ÅαÑñ»«½áúáÑΓß∩, τΓ« »ÑαÑ¼Ñ¡¡á∩ Γ¿»á Boolean ¿¼ÑÑΓ »«α∩ñ¬«óδÑ º¡áτÑ¡¿∩ 0 ¿ 1, ¡« »ÑαÑ¼Ñ¡¡δÑ Γ¿»á ByteBool, WordBool ¿ LongBool ¼«úπΓ ¿¼ÑΓ∞ ñαπú¿Ñ »«α∩ñ¬«óδÑ º¡áτÑ¡¿∩. è«úñá óδαáªÑ¡¿Ñ Γ¿»á ByteBool, WordBool ¿½¿ LongBool αáó¡á 1, Γ« »«ñαáºπ¼ÑóáÑΓß∩, τΓ« «¡á ¿¼ÑÑΓ º¡áτÑ¡¿Ñ True, á Ñß½¿ «¡« αáó¡« 0 - Γ« False. è«úñá º¡áτÑ¡¿Ñ Γ¿»á ByteBool, WordBool ¿½¿ LongBool ¿ß»«½∞ºπÑΓß∩ ó ¬«¡- ΓÑ¬ßΓÑ, úñÑ «ª¿ñáÑΓß∩ º¡áτÑ¡¿Ñ Boolean, ¬«¼»¿½∩Γ«α íπñÑΓ áóΓ«¼á- Γ¿τÑß¬¿ úÑ¡Ñα¿α«óáΓ∞ ¬«ñ, »αÑ«íαáºπεΘ¿⌐ ½εí«Ñ ¡Ñ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ ó º¡áτÑ¡¿Ñ True. B.Pascal 7 & Objects/LR - 40 - æ¿¼ó«½∞¡δ⌐ Γ¿» (char) ───────────────────────────────────────────────────────────────── î¡«ªÑßΓó«¼ º¡áτÑ¡¿⌐ φΓ«ú« Γ¿»á ∩ó½∩εΓß∩ ß¿¼ó«½δ, π»«α∩ñ«τÑ¡- ¡δÑ ó ß««ΓóÑΓßΓó¿¿ ß αáßΦ¿αÑ¡¡δ¼ ¡áí«α«¼ ß¿¼ó«½«ó ¬«ñá ASCII. Åα¿ óδº«óÑ Σπ¡¬µ¿¿ Ord(Ch), úñÑ Ch - º¡áτÑ¡¿Ñ ß¿¼ó«½∞¡«ú« Γ¿»á, ó«ºó- αáΘáÑΓß∩ »«α∩ñ¬«óδ⌐ ¡«¼Ñα Ch. æΓα«¬«óá∩ ¬«¡ßΓá¡Γá ß ñ½¿¡«⌐ 1 ¼«ªÑΓ «í«º¡áτáΓ∞ º¡áτÑ¡¿Ñ ¬«¡ßΓá¡Γδ ß¿¼ó«½∞¡«ú« Γ¿»á. ïεí«Ñ º¡áτÑ¡¿Ñ ß¿¼ó«½∞¡«ú« Γ¿»á ¼«ªÑΓ íδΓ∞ »«½πτÑ¡« ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ Σπ¡¬µ¿¿ Chr. ÅÑαÑτ¿ß½¿¼δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── ÅÑαÑτ¿ß½¿¼δÑ Γ¿»δ «»αÑñÑ½∩εΓ π»«α∩ñ«τÑ¡¡δÑ ¼¡«ªÑßΓóá º¡áτÑ- ¡¿⌐ τÑαÑº »ÑαÑτ¿ß½Ñ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó, ¬«Γ«αδÑ «í«º¡áτáεΓ φΓ¿ º¡áτÑ¡¿∩. ô»«α∩ñ«τÑ¡¿Ñ ¼¡«ªÑßΓó óδ»«½¡∩ÑΓß∩ ó ß««ΓóÑΓßΓó¿¿ ß »«ß- ½Ññ«óáΓÑ½∞¡«ßΓ∞ε, ó ¬«Γ«α«⌐ »ÑαÑτ¿ß½∩εΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ. ┌───┐ ┌───────────────┐ ┌───┐ »ÑαÑτ¿ß½¿¼δ⌐ ──>│ ( ├───>│ ß»¿ß«¬ ├───>│ ) ├───> Γ¿» └───┘ │¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó│ └───┘ └───────────────┘ ß»¿ß«¬ ┌─────────────┐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó ────────>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├───┬────> ^ └─────────────┘ │ │ ┌───┐ │ └──────┤ , │<───────────┘ └───┘ Åα¿ π¬áºá¡¿¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ó ß»¿ß¬Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó »ÑαÑ- τ¿ß½¿¼«ú« Γ¿»á «¡ «»¿ßδóáÑΓß∩ ¬á¬ ¬«¡ßΓá¡Γá ñ½∩ í½«¬á, ó ¬«Γ«α«¼ π¬áºá¡« «»¿ßá¡¿Ñ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á. Æ¿»«¼ φΓ«⌐ ¬«¡ßΓá¡Γδ ∩ó½∩ÑΓ- ß∩ «»¿ßá¡¡δ⌐ »ÑαÑτ¿ß½¿¼δ⌐ Γ¿». Å«α∩ñ¬«óδ⌐ ¡«¼Ñα »ÑαÑτ¿ß½¿¼«⌐ ¬«¡ßΓá¡Γδ «»αÑñÑ½∩ÑΓß∩ ÑÑ »«- º¿µ¿Ñ⌐ ó ß»¿ß¬Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó »α¿ «»¿ßá¡¿¿. ÅÑαÑτ¿ß½¿¼δ⌐ Γ¿», ó ¬«Γ«α«¼ «»¿ßδóáÑΓß∩ ¬«¡ßΓá¡Γá, ßΓá¡«ó¿Γß∩ ÑÑ Γ¿»«¼. ÅÑαóá∩ »ÑαÑ- τ¿ß½¿¼á∩ ¬«¡ßΓá¡Γá ó ß»¿ß¬Ñ ¿¼ÑÑΓ »«α∩ñ¬«óδ⌐ ¡«¼Ñα 0. Åα¿óÑñÑ¼ »α¿¼Ñα »ÑαÑτ¿ß½¿¼«ú« Γ¿»á: type suit = (club, diamond, heart, spade); æ«ú½áß¡« φΓ¿¼ «»¿ßá¡¿∩¼ diamond ∩ó½∩ÑΓß∩ ¬«¡ßΓá¡Γ«⌐ Γ¿»á suit. Åα¿ »α¿¼Ñ¡Ñ¡¿¿ Σπ¡¬µ¿¿ Ord ¬ º¡áτÑ¡¿ε »ÑαÑτ¿ß½¿¼«ú« Γ¿»á Ord ó«ºóαáΘáÑΓ µÑ½«Ñ τ¿ß½«, ¬«Γ«α«Ñ »«¬áºδóáÑΓ, ¬á¬«Ñ »«½«ªÑ¡¿Ñ ºá¡¿- ¼áÑΓ φΓ« º¡áτÑ¡¿Ñ ó «Γ¡«ΦÑ¡¿¿ ñαπú¿σ º¡áτÑ¡¿⌐ φΓ«ú« »ÑαÑτ¿ß½¿¼«ú« B.Pascal 7 & Objects/LR - 41 - Γ¿»á. æ«ú½áß¡« »αÑñΦÑßΓóπεΘ¿¼ «»¿ßá¡¿∩¼, Ord(club) ó«ºóαáΘáÑΓ 0, Ord(diamond) ó«ºóαáΘáÑΓ 1 ¿ Γá¬ ñá½ÑÑ. ÄΓαÑº¬¿ Γ¿»á ───────────────────────────────────────────────────────────────── ÄΓαÑº«¬ Γ¿»á »αÑñßΓáó½∩ÑΓ ß«í«⌐ ñ¿á»áº«¡ º¡áτÑ¡¿⌐ ¿º »«α∩ñ- ¬«ó«ú« Γ¿»á, ¡áºδóáÑ¼«ú« ú½áó¡δ¼ Γ¿»«¼. Ä»αÑñÑ½Ñ¡¿Ñ «ΓαÑº¬á Γ¿»á ó¬½ετáÑΓ ¡á¿¼Ñ¡∞ΦÑÑ ¿ ¡á¿í«½∞ΦÑÑ º¡áτÑ¡¿Ñ ó »«ññ¿á»áº«¡Ñ. Ä¡« ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: «ΓαÑº«¬ ┌───────────┐ ┌────┐ ┌───────────┐ Γ¿»á ───────────>│ ¬«¡ßΓá¡Γá ├───>│ .. ├───>│ ¬«¡ßΓá¡Γá ├───> └───────────┘ └────┘ └───────────┘ ÄíÑ ¬«¡ßΓá¡Γδ ñ«½ª¡δ ¿¼ÑΓ∞ «ñ¿¡ ¿ Γ«Γ ªÑ »«α∩ñ¬«óδ⌐ Γ¿». ÄΓ- αÑº¬¿ Γ¿»«ó, ¿¼ÑεΘ¿Ñ ó¿ñ a..b, »αÑñ»«½áúáεΓ, τΓ« a ¼Ñ¡∞ΦÑ ¿½¿ αáó¡« b. Åα¿óÑñÑ¼ »α¿¼Ñαδ «ΓαÑº¬«ó Γ¿»«ó: 0..99 -128..127 club..heart ÅÑαÑ¼Ñ¡¡á∩ «ΓαÑº¬á Γ¿»á ¿¼ÑÑΓ óßÑ ßó«⌐ßΓóá »ÑαÑ¼Ñ¡¡δσ ú½áó- ¡«ú« Γ¿»á, «ñ¡á¬« ÑÑ º¡áτÑ¡¿Ñ ¡á φΓá»Ñ óδ»«½¡Ñ¡¿∩ ñ«½ª¡« »α¿¡áñ- ½ÑªáΓ∞ π¬áºá¡¡«¼π ¿¡ΓÑαóá½π. ÉáºαÑΦÑ¡¿Ñ ¿ß»«½∞º«óá¡¿∩ óδαáªÑ¡¿⌐-¬«¡ßΓá¡Γ Γá¼, úñÑ ßΓá¡- ñáαΓ¡δ⌐ Åáß¬á½∞ ñ«»πß¬áÑΓ Γ«½∞¬« »α«ßΓδÑ ¬«¡ßΓá¡Γδ, »α¿ó«ñ¿Γ ¬ ¡Ñ¬«Γ«α«⌐ ß¿¡Γá¬ß¿τÑß¬«⌐ ¡Ñ«ñ¡«º¡áτ¡«ßΓ¿. Éáßß¼«Γα¿¼ ß½ÑñπεΘ¿Ñ «»¿ßá¡¿∩: const X = 50; Y = 10; type Color = (Red, Green, Blue); Scale = (X - Y) * 2..(X + Y) * 2; æ«ú½áß¡« ß¿¡Γá¬ß¿ßπ ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩, Ñß½¿ «»αÑñÑ½Ñ¡¿Ñ Γ¿»á ¡áτ¿¡áÑΓß∩ ß ¬απú½«⌐ ß¬«í¬¿, Γ« φΓ« »ÑαÑτ¿ß½¿¼δ⌐ Γ¿» (Γá¬«⌐ ¬á¬ Color ó ñá¡¡«¼ »α¿¼ÑαÑ). Äñ¡á¬« Scale »αÑñ¡áº¡áτÑ¡ ñ½∩ «»αÑ- ñÑ½Ñ¡¿∩ «ΓαÑº¬á Γ¿»á. ÉÑΦÑ¡¿Ñ ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ »ÑαÑπ»«α∩ñ«- τ¿Γ∞ »Ñαó«Ñ óδαáªÑ¡¿Ñ »«ññ¿á»áº«¡á ¿½¿ ºáñáΓ∞ ñαπúπε ¬«¡ßΓá¡Γπ, αáó¡πε º¡áτÑ¡¿ε ñá¡¡«ú« óδαáªÑ¡¿∩, ¿ ¿ß»«½∞º«óáΓ∞ φΓπ ¬«¡ßΓá¡Γπ ó «»αÑñÑ½Ñ¡¿¿ Γ¿»á: type Scale = 2 * (X - Y)..(X + Y); B.Pascal 7 & Objects/LR - 42 - éÑΘÑßΓóÑ¡¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── è óÑΘÑßΓóÑ¡¡«¼π Γ¿»π «Γ¡«ß¿Γß∩ »«ñ¼¡«ªÑßΓó« óÑΘÑßΓóÑ¡¡δσ τ¿- ßÑ½, ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ »αÑñßΓáó½Ñ¡δ ó Σ«α¼áΓÑ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ß Σ¿¬ß¿α«óá¡¡δ¼ τ¿ß½«¼ µ¿Σα. çá»¿ß∞ º¡áτÑ¡¿∩ ó Σ«α¼áΓÑ ß »½áóáε- ΘÑ⌐ ºá»∩Γ«⌐ «íδτ¡« ó¬½ετáÑΓ Γα¿ º¡áτÑ¡¿∩ - m, b ¿ e - Γá¬¿¼ «íαá- º«¼, τΓ« m x b^e=n, úñÑ b óßÑúñá αáóÑ¡ 2, á m ¿ e ∩ó½∩εΓß∩ µÑ½«- τ¿ß½Ñ¡¡δ¼¿ º¡áτÑ¡¿∩¼¿ ó ñ¿á»áº«¡Ñ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á. ¥Γ¿ º¡áτÑ¡¿∩ m ¿ e ñá½ÑÑ «»αÑñÑ½∩εΓ ñ¿á»áº«¡ »αÑñßΓáó½Ñ¡¿∩ ¿ Γ«τ¡«ßΓ∞ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á. ê¼ÑÑΓß∩ »∩Γ∞ ó¿ñ«ó óÑΘÑßΓóÑ¡¡δσ Γ¿»«ó: óÑΘÑßΓóÑ¡¡«Ñ (Real), ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε (Single), ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε (Double), ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε (Extended) ¿ ß½«ª¡«Ñ (Comp). äÑ⌐ßΓó¿∩ ¡áñ Γ¿»á¼¿ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε ¿ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ ¡áñ ß½«ª¡δ¼ Γ¿»«¼ ¼«úπΓ óδ»«½¡∩Γ∞ß∩ Γ«½∞¬« »α¿ ¡á½¿- τ¿¿ τ¿ß½«ó«ú« ß«»α«µÑßß«αá 8087 (¬«Γ«αδ⌐ íδ½ «»¿ßá¡ αá¡ÑÑ). éÑΘÑßΓóÑ¡¡δÑ Γ¿»δ αáº½¿τáεΓß∩ ñ¿á»áº«¡«¼ ¿ Γ«τ¡«ßΓ∞ε ßó∩ºá¡- ¡δσ ß ¡¿¼¿ º¡áτÑ¡¿⌐ (ß¼. Æáí½¿µπ 4.2). ä¿á»áº«¡ »αÑñßΓáó½Ñ¡¿∩ ¿ ñÑß∩Γ¿τ¡δÑ µ¿Σαδ ñ½∩ óÑΘÑßΓóÑ¡¡δσ Γ¿»«ó Æáí½¿µá 4.2 ┌───────────────────────┬───────────────────────────┬───────────┐ │ Æ¿» │ ä¿á»áº«¡ │ û¿Σαδ │ ├───────────────────────┼───────────────────────────┼───────────┤ │ óÑΘÑßΓóÑ¡¡«Ñ │2.9x10^-39 .. 1.7x10^38 │«Γ 11 ñ« 12│ │ (Real) │ │ │ ├───────────────────────┼───────────────────────────┼───────────┤ │ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε │1.5x10^-45 .. 3.4x10^38 │«Γ 7 ñ« 8 │ │ (Single) │ │ │ ├───────────────────────┼───────────────────────────┼───────────┤ │ ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε │5.0x10^-324 .. 1.7x10^308 │«Γ 15 ñ« 16│ │ (Double) │ │ │ ├───────────────────────┼───────────────────────────┼───────────┤ │ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε│1.9x10^-4951 .. 1.1x10^4932│«Γ 19 ñ« 20│ │ (Extended) │ │ │ ├───────────────────────┼───────────────────────────┼───────────┤ │ ß½«ª¡δ⌐ Γ¿» │ -2^63 + 1 .. 2^63 - 1 │ │ │ (Comp) │ │ │ └───────────────────────┴───────────────────────────┴───────────┘ Åα¿¼Ñτá¡¿Ñ: æ½«ª¡δ⌐ Γ¿» ß«ñÑαª¿Γ Γ«½∞¬« µÑ½«τ¿ß½Ñ¡¡δÑ º¡áτÑ¡¿∩ ó ñ¿á»áº«¡Ñ «Γ -2^63+1 ñ« 2^63-1, τΓ« »α¿í½¿º¿- ΓÑ½∞¡« αáó¡« -9.2x10^18 ¿ 9.2x10^18. Borland Pascal »«ññÑαª¿óáÑΓ ñóÑ ¼«ñÑ½¿ úÑ¡Ñαáµ¿¿ ¬«ñá ñ½∩ óδ»«½¡Ñ¡¿∩ ñÑ⌐ßΓó¿⌐ ¡áñ óÑΘÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿: »α«úαá¼¼¡πε ñ½∩ τ¿- ßÑ½ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ¿ á»»áαáΓ¡πε ñ½∩ τ¿ßÑ½ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐. éδí«α ß««ΓóÑΓßΓóπεΘÑ⌐ ¼«ñÑ½¿ «ßπΘÑßΓó½∩ÑΓß∩ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $N. B.Pascal 7 & Objects/LR - 43 - Åα«úαá¼¼¡á∩ »«ññÑαª¬á τ¿ßÑ½ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ───────────────────────────────────────────────────────────────── é ß«ßΓ«∩¡¿¿ {$N-}, ¬«Γ«α«Ñ πßΓá¡áó½¿óáÑΓß∩ »« π¼«½τá¡¿ε, úÑ- ¡Ñα¿απÑ¼δ⌐ ¬«ñ óδ»«½¡∩ÑΓ óßÑ óδτ¿ß½Ñ¡¿∩ ß óÑΘÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿ »α«úαá¼¼¡«, τÑαÑº óδº«ó »«ñ»α«úαá¼¼ í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ- ¼δ. êº-ºá ß««íαáªÑ¡¿⌐ ß¬«α«ßΓ¿ ¿ αáº¼Ñαá ¬«ñá ó φΓ«¼ ß«ßΓ«∩¡¿¿ ñ«»πß¬áεΓß∩ Γ«½∞¬« ñÑ⌐ßΓó¿∩ ¡áñ »ÑαÑ¼Ñ¡¡δ¼¿ Γ¿»á real (óÑΘÑßΓóÑ¡- ¡«Ñ). ïεíá∩ »«»δΓ¬á «ΓΓαá¡ß½¿α«óáΓ∞ «»ÑαáΓ«αδ, óδ»«½¡∩εΘ¿Ñ ñÑ⌐ß- Γó¿∩ ¡áñ Γ¿»á¼¿ ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, ß »«- óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ ¡áñ ß½«ª¡δ¼¿ Γ¿»á¼¿, óδº«óÑΓ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. Ç»»áαáΓ¡á∩ »«ññÑαª¬á τ¿ßÑ½ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ───────────────────────────────────────────────────────────────── é ß«ßΓ«∩¡¿¿ {$N+} úÑ¡Ñα¿απÑ¼δ⌐ ¬«ñ óδ»«½¡∩ÑΓ óßÑ óδτ¿ß½Ñ¡¿∩ ¡áñ óÑΘÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿ ß »«¼«Θ∞ε τ¿ß½«ó«ú« ß«»α«µÑßß«αá 8087. ¥Γ« ß«ßΓ«∩¡¿Ñ »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ óßÑ »∩Γ∞ óÑΘÑßΓóÑ¡¡δσ Γ¿»«ó, «ñ¡á¬« «¡« ΓαÑíπÑΓ ¡á½¿τ¿∩ ß«»α«µÑßß«αá 8087 ¡á φΓá»Ñ ¬«¼»¿½∩µ¿¿ ¿ óδ»«½¡Ñ¡¿∩. Borland Pascal ó¬½ετáÑΓ ó ßÑí∩ í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ- ¼δ, ¬«Γ«αδÑ áóΓ«¼áΓ¿τÑß¬¿ φ¼π½¿απεΓ »α«úαá¼¼¡δ¼ »πΓÑ¼ ß«»α«µÑßß«α 80σ87, Ñß½¿ »α¿ óδ»«½¡Ñ¡¿¿ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ DOS αÑá½∞¡«ú« ¿½¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á «¡ «ΓßπΓßΓóπÑΓ. ä½∩ «»αÑñÑ½Ñ¡¿∩ Γ«ú«, ß½ÑñπÑΓ ½¿ ó »α«úαá¼¼π DOS ó¬½ετ¿Γ∞ φ¼π½∩Γ«α ß«»α«µÑßß«αá 80x87, ¿ß»«½∞- ºπÑΓß∩ ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $E. àß½¿ óδ ß«ºñáÑΓ »α¿¬½áñ¡πε »α«ú- αá¼¼π ñ½∩ αÑá½∞¡«ú« ¿½¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS, ¿ ß«»α«µÑßß«α 80σ87 «ΓßπΓßΓóπÑΓ, αáºαÑΦÑ¡¿Ñ ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $E «íÑß»Ñτ¿- óáÑΓ »«½¡πε »α«úαá¼¼¡πε φ¼π½∩µ¿ε ß«»α«µÑßß«αá 80x87. ä½∩ »α«úαá¼¼ Windows ñ¿αÑ¬Γ¿óá $E ¡Ñ ñÑ⌐ßΓóπÑΓ, Γá¬ ¬á¬ Windows «íÑß»Ñτ¿óáÑΓ ß«íßΓóÑ¡¡δÑ »«ñ»α«úαá¼¼δ φ¼π½∩µ¿¿. Åα¿¼Ñτá¡¿Ñ: ü«½ÑÑ ñÑΓá½∞¡«Ñ «»¿ßá¡¿Ñ úÑ¡Ñαáµ¿¿ ¬«ñá »α¿ á»»áαáΓ¡«⌐ »«ññÑαª¬Ñ τ¿ßÑ½ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ óδ ¼«ªÑ- ΓÑ ¡á⌐Γ¿ ó â½áóÑ 15 "êß»«½∞º«óá¡¿Ñ ß«»α«µÑßß«αá 8087 ó Borland Pascal". B.Pascal 7 & Objects/LR - 44 - æΓα«¬«óδÑ Γ¿»δ ───────────────────────────────────────────────────────────────── ç¡áτÑ¡¿Ñ¼ ßΓα«¬«ó«ú« Γ¿»á ∩ó½∩ÑΓß∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ß¿¼ó«- ½«ó ß ñ¿¡á¼¿τÑß¬¿¼ áΓα¿íπΓ«¼ ñ½¿¡δ (ó ºáó¿ß¿¼«ßΓ¿ «Γ ñÑ⌐ßΓó¿ΓÑ½∞- ¡«ú« τ¿ß½á ß¿¼ó«½«ó »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ) ¿ »«ßΓ«∩¡¡δ¼ áΓα¿- íπΓ«¼ αáº¼Ñαá ó ñ¿á»áº«¡Ñ «Γ 1 ñ« 255. ÆÑ¬πΘÑÑ º¡áτÑ¡¿Ñ áΓα¿íπΓá ñ½¿¡δ ¼«ª¡« »«½πτ¿Γ∞ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ Σπ¡¬µ¿¿ Length. ┌──────┐ ßΓα«¬«óδ⌐ Γ¿» ───>│string├──┬──────────────────────────────> └──────┘ │ ^ │ ┌───┐ ┌─────┐ ┌───┐ │ └─>│ [ ├──>│µÑ½«Ñ├──>│ ] ├─┘ └───┘ │ íÑº │ └───┘ │º¡á¬á│ └─────┘ Åα¿¼Ñτá¡¿Ñ: Ä»ÑαáΓ«αδ αáí«Γδ ß« ßΓα«¬«óδ¼¿ Γ¿»á¼¿ «»¿- ßδóáεΓß∩ αáºñÑ½áσ "æΓα«¬«óδÑ «»ÑαáΓ«αδ" ¿ "Ä»ÑαáΓ«αδ «Γ¡«- ΦÑ¡¿⌐" â½áóδ 6. ÄΓ¡«ΦÑ¡¿Ñ ¼Ñªñπ ½εíδ¼¿ ñóπ¼∩ ßΓα«¬«óδ¼¿ º¡áτÑ¡¿∩¼¿ πßΓá¡áó- ½¿óáÑΓß∩ ß«ú½áß¡« «Γ¡«ΦÑ¡¿ε »«α∩ñ¬á ¼Ñªñπ º¡áτÑ¡¿∩¼¿ ß¿¼ó«½«ó ó ß««ΓóÑΓßΓóπεΘ¿σ »«º¿µ¿∩σ. é ñóπσ ßΓα«¬áσ αáº¡«⌐ ñ½¿¡δ ¬áªñδ⌐ ß¿¼- ó«½ í«½ÑÑ ñ½¿¡¡«⌐ ßΓα«¬¿ íÑº ß««ΓóÑΓßΓóπεΘÑú« ß¿¼ó«½á ó í«½ÑÑ ¬«- α«Γ¬«⌐ ßΓα«¬Ñ »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ "í«½∞ΦÑ"; ¡á»α¿¼Ñα, 'Xs' í«½∞ΦÑ, τÑ¼ 'X'. ìπ½ÑóδÑ ßΓα«¬¿ ¼«úπΓ íδΓ∞ αáó¡δ Γ«½∞¬« ñαπú¿¼ ¡π½Ñóδ¼ ßΓα«¬á¼, ¿ «¡¿ ∩ó½∩εΓß∩ ¡á¿¼Ñ¡∞Φ¿¼¿ ßΓα«¬«óδ¼¿ º¡áτÑ¡¿∩¼¿. Åα¿¼Ñτá¡¿Ñ: æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ½∩ αáí«Γδ ß« ßΓα«¬«óδ¼¿ Γ¿»á¼¿ «»¿ßá¡δ ó αáºñÑ½Ñ "æΓα«¬«óδÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿". è ß¿¼ó«½á¼ ó ßΓα«¬áσ ¼«ª¡« «íαáΘáΓ∞ß∩ ¬á¬ ¬ φ½Ñ¼Ñ¡Γá¼ ¼áßß¿- óá. æ¼. αáºñÑ½ "îáßß¿óδ, ßΓα«¬¿ ¿ ¿¡ñÑ¬ßδ" ó â½áóÑ 5. è ¿ñÑ¡Γ¿Σ¿¬áΓ«απ ßΓα«¬«ó«ú« Γ¿»á ¿ ¬ ßßδ½¬Ñ ¡á »ÑαÑ¼Ñ¡¡πε ßΓα«¬«ó«ú« Γ¿»á ¼«ª¡« »α¿¼Ñ¡∩Γ∞ ßΓá¡ñáαΓ¡δÑ Σπ¡¬µ¿¿ Low ¿ High. é φΓ«¼ ß½πτáÑ Σπ¡¬µ¿∩ Low ó«ºóαáΘáÑΓ 0, á High ó«ºóαáΘáÑΓ áΓα¿íπΓ αáº¼Ñαá (¼á¬ß¿¼á½∞¡πε ñ½¿¡π) ñá¡¡«⌐ ßΓα«¬¿. Åáαá¼ÑΓα-»ÑαÑ¼Ñ¡¡á∩, «»¿ßá¡¡á∩ ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá OpenString ¿ ¬½ετÑó«ú« ß½«óá string ó ß«ßΓ«∩¡¿¿ {$P+}, ∩ó½∩ÑΓß∩ «Γ¬αδΓδ¼ ßΓα«¬«óδ¼ »áαá¼ÑΓα«¼. ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ »«º- ó«½∩εΓ »ÑαÑñáóáΓ∞ «ñ¡«⌐ ¿ Γ«⌐ ªÑ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ ßΓα«¬«óδÑ »ÑαÑ¼Ñ¡¡δÑ ¿º¼Ñ¡∩εΘÑú«ß∩ αáº¼Ñαá. Åα¿¼Ñτá¡¿Ñ: ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ «»¿ßδóáεΓß∩ ó â½áóÑ 9. B.Pascal 7 & Objects/LR - 45 - æΓαπ¬Γπα¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── æΓαπ¬Γπα¡δ⌐ Γ¿», σáαá¬ΓÑα¿ºπÑ¼δ⌐ ¼ÑΓ«ñ«¼ ßΓαπ¬Γπα¿α«óá¡¿∩ ¿ Γ¿»á¼¿ ßó«¿σ ¬«¼»«¡Ñ¡Γ«ó, ¿¼ÑÑΓ í«½ÑÑ «ñ¡«ú« º¡áτÑ¡¿∩. àß½¿ Γ¿» ¬«¼»«¡Ñ¡Γá ∩ó½∩ÑΓß∩ ßΓαπ¬Γπα¡δ¼, Γ« »«½πτáÑ¼δ⌐ ó αÑºπ½∞ΓáΓÑ ßΓαπ¬Γπα¡δ⌐ Γ¿» ¿¼ÑÑΓ í«½ÑÑ «ñ¡«ú« πα«ó¡∩ ßΓαπ¬Γπα¿α«óá¡¿∩. æΓαπ¬Γπα¡δ⌐ Γ¿» ¼«ªÑΓ ¿¼ÑΓ∞ ¡Ñ«úαá¡¿τÑ¡¡δÑ πα«ó¡¿ ßΓαπ¬Γπα¿α«óá- ¡¿∩. ┌───────────────┐ ßΓαπ¬Γπα¡δ⌐ ──┬────────────────┬──>│ Γ¿» ¼áßß¿ó ├─────> Γ¿» │ ┌────────┐ ^ │ └───────────────┘ ^ └─>│ packed ├─┘ │ ┌───────────────┐ │ └────────┘ ├──>│ ¼¡«ªÑßΓóÑ¡¡δ⌐ ├──┤ │ │ Γ¿» │ │ │ └───────────────┘ │ │ ┌───────────────┐ │ ├──>│ Σá⌐½«óδ⌐ Γ¿» ├──┤ │ └───────────────┘ │ │ ┌───────────────┐ │ ├──>│ Γ¿» "ºá»¿ß∞" ├──┤ │ └───────────────┘ │ │ ┌───────────────┐ │ └──>│ «íΩÑ¬Γ¡δ⌐ Γ¿» ├──┘ └───────────────┘ æ½«ó« packed (π»á¬«óá¡¡δ⌐) ó «»¿ßá¡¿¿ ßΓαπ¬Γπα¡«ú« Γ¿»á ΓαÑ- íπÑΓ «Γ ¬«¼»¿½∩Γ«αá π»½«Γ¡¿Γ∞ σαá¡¿¼δÑ ñá¡¡δÑ, ñáªÑ ºá ßτÑΓ π¼Ñ¡∞ΦÑ¡¿∩ ß¬«α«ßΓ¿ ñ«ßΓπ»á ¬ ¬«¼»«¡Ñ¡Γπ ó »ÑαÑ¼Ñ¡¡«⌐ φΓ«ú« Γ¿»á. æ½«ó« packed ¡Ñ ¿¼ÑÑΓ ¡¿¬á¬«ú« ñÑ⌐ßΓó¿∩ ó Borland Pascal, »«ß- ¬«½∞¬π π»á¬«ó¬á óδ»«½¡∩ÑΓß∩ ºñÑß∞ áóΓ«¼áΓ¿τÑß¬¿ óßεñπ, úñÑ φΓ« ó«º¼«ª¡«. B.Pascal 7 & Objects/LR - 46 - Æ¿»δ ¼áßß¿ó ───────────────────────────────────────────────────────────────── îáßß¿óδ ß«ñÑαªáΓ Σ¿¬ß¿α«óá¡¡«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó «ñ¡«ú« Γ¿»á, Γá¬ ¡áºδóáÑ¼«ú« Γ¿»á φ½Ñ¼Ñ¡Γá. ìá »α¿ó«ñ¿¼«⌐ ¡¿ªÑ ß¿¡Γá¬ß¿τÑß¬«⌐ ñ¿áúαá¼¼Ñ Γ¿» φ½Ñ¼Ñ¡Γá ß½ÑñπÑΓ ºá ß½«ó«¼ of. ┌───────┐ ┌───┐ ┌───────┐ ┌───┐ ┌────┐ ┌─────┐ Γ¿» ──>│ array ├─>│ [ ├───>│ Γ¿» ├─┬─>│ ] ├─>│ of ├─>│ Γ¿» ├> ¼áßß¿ó └───────┘ └───┘ ^ │¿¡ñÑ¬ßá│ │ └───┘ └────┘ └─────┘ │ └───────┘ │ │ ┌───┐ │ └────┤ , │<──┘ └───┘ Γ¿» ┌────────────────┐ ¿¡ñÑ¬ßá ───>│ »«α∩ñ¬«óδ⌐ Γ¿» ├───> └────────────────┘ é ¿¡ñÑ¬ß¡δσ Γ¿»áσ, »« «ñ¡«¼π ñ½∩ ¬áªñ«⌐ αáº¼Ñα¡«ßΓ¿ ¼áßß¿óá, π¬áºδóáÑΓß∩ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó. ä«»πßΓ¿¼δ¼¿ ¿¡ñÑ¬ß¡δ¼¿ Γ¿»á¼¿ ∩ó½∩- εΓß∩ óßÑ »«α∩ñ¬«óδÑ Γ¿»δ, ºá ¿ß¬½ετÑ¡¿Ñ¼ ñ½¿¡¡«ú« µÑ½«ú« ¿ »«ññ¿- á»áº«¡«ó ñ½¿¡¡«ú« µÑ½«ú«. îáßß¿ó ¼«ªÑΓ íδΓ∞ »α«¿¡ñÑ¬ß¿α«óá¡ »« ¬áªñ«⌐ αáº¼Ñα¡«ßΓ¿ óßÑ¼¿ º¡áτÑ¡¿∩¼¿ ß««ΓóÑΓßΓóπεΘÑú« ¿¡ñÑ¬ß¡«ú« Γ¿»á; τ¿ß½« φ½Ñ¼Ñ¡Γ«ó »«φΓ«¼π αáó¡« τ¿ß½π º¡áτÑ¡¿⌐ ó ¬áªñ«¼ ¿¡- ñÑ¬ß¡«¼ Γ¿»Ñ. ù¿ß½« αáº¼Ñα¡«ßΓÑ⌐ ¡Ñ «úαá¡¿τÑ¡«. Åα¿óÑñÑ¼ »α¿¼Ñα Γ¿»á ¼áßß¿ó: array[1..100] of Real àß½¿ Γ¿» φ½Ñ¼Ñ¡Γá ó Γ¿»Ñ ¼áßß¿ó Γá¬ªÑ ∩ó½∩ÑΓß∩ ¼áßß¿ó«¼, Γ« αÑºπ½∞ΓáΓ ¼«ª¡« αáßß¼áΓα¿óáΓ∞ ¬á¬ ¼áßß¿ó ¼áßß¿ó«ó ¿½¿ ¬á¬ «ñ¿¡ ¼¡«ú«¼Ñα¡δ⌐ ¼áßß¿ó. ìá»α¿¼Ñα, array[boolean] of array[1..100] of array[Size] of Real ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬«¼»¿½∩Γ«α«¼ Γ«τ¡« Γá¬ ªÑ, ¬á¬ ¼áßß¿ó: array[boolean,1..10,Size] of Real èα«¼Ñ Γ«ú«, ¼«ª¡« ºá»¿ßáΓ∞ óδαáªÑ¡¿Ñ: packed array[1..10] of packed array[1..8] of Boolean ¬á¬ packed array[1..10,1..8] of Boolean ä½∩ ñ«ßΓπ»á ¬ φ½Ñ¼Ñ¡Γá¼ ¼áßß¿óá ¡Ñ«íσ«ñ¿¼« π¬áºáΓ∞ ¿ñÑ¡Γ¿Σ¿- ¬áΓ«α ¼áßß¿óá ß «ñ¡¿¼ ¿½¿ ¡Ñß¬«½∞¬¿¼¿ ¿¡ñÑ¬ßá¼¿ ó ß¬«í¬áσ (ß¼. αáºñÑ½ "îáßß¿óδ, ßΓα«¬¿ ¿ ¿¡ñÑ¬ßδ"). Æ¿» ¼áßß¿ó, ¿¼ÑεΘ¿⌐ ó¿ñ: B.Pascal 7 & Objects/LR - 47 - packed array[M..N] of Char úñÑ M ¼Ñ¡∞ΦÑ N, ¡áºδóáÑΓß∩ π»á¬«óá¡¡δ¼ ßΓα«¬«óδ¼ Γ¿»«¼ (ß½«ó« packed ¼«ª¡« «»πßΓ¿Γ∞, »«ß¬«½∞¬π «¡« ¡Ñ «¬áºδóáÑΓ ñÑ⌐ßΓó¿∩ ó Borland Pascal). ô»á¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ Γ¿» ¿¼ÑÑΓ ¡Ñ¬«Γ«αδÑ ßó«⌐ß- Γóá, ¡Ñ σáαá¬ΓÑα¡δÑ ñ½∩ ñαπú¿σ Γ¿»«ó ¼áßß¿ó (ß¼. αáºñÑ½ "Æ«ªñÑßΓ- óÑ¡¡δÑ ¿ ß«ó¼ÑßΓ¿¼δÑ Γ¿»δ" ñá½ÑÑ ó φΓ«⌐ ú½áóÑ). îáßß¿ó ó¿ñá: array[0..X] of Char úñÑ X - »«½«ª¿ΓÑ½∞¡«Ñ µÑ½«Ñ τ¿ß½«, ¡áºδóáÑΓß∩ ¼áßß¿ó«¼ ß ¡π½Ñó«⌐ íáº«⌐. îáßß¿óδ ß ¡π½Ñó«⌐ íáº«⌐ ¿ß»«½∞ºπεΓß∩ ñ½∩ σαá¡Ñ¡¿∩ ßΓα«¬ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼, ¿, ¬«úñá αáºαÑΦÑ¡ αáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß (ß »«- ¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$X+}), ß¿¼ó«½∞¡δ⌐ ¼áßß¿ó ß ¡π½Ñó«⌐ íáº«⌐ ß«ó¼ÑßΓ¿¼ ß« º¡áτÑ¡¿Ñ¼ Γ¿»á PChar. Å«½¡«ßΓ∞ε φΓá ΓÑ¼á «í- ßπªñáÑΓß∩ ó â½áóÑ 18 "êß»«½∞º«óá¡¿Ñ ßΓα«¬ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼". Åáαá¼ÑΓα, «»¿ßá¡¡δ⌐ ß »«¼«Θ∞ε ß¿¡Γá¬ß¿ßá array of T, ¡áºδóá- ÑΓß∩ «Γ¬αδΓδ¼ ßΓα«¬«óδ¼ »áαá¼ÑΓα«¼. ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ »«ºó«½∩εΓ »ÑαÑñáóáΓ∞ «ñ¡«⌐ ¿ Γ«⌐ ªÑ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ ßΓα«¬«- óδÑ »ÑαÑ¼Ñ¡¡δÑ ¿º¼Ñ¡∩εΘÑú«ß∩ αáº¼Ñαá. Åα¿¼Ñτá¡¿Ñ: ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ «»¿ßδóáεΓß∩ ó â½áóÑ 9. B.Pascal 7 & Objects/LR - 48 - Æ¿»δ ºá»¿ß∞ ───────────────────────────────────────────────────────────────── Æ¿» ºá»¿ß∞ ß«ñÑαª¿Γ πßΓá¡«ó½Ñ¡¡«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó ¿½¿ »«½Ñ⌐, ¬«Γ«αδÑ ¼«úπΓ íδΓ∞ αáº½¿τ¡δσ Γ¿»«ó. Ä»¿ßá¡¿Ñ Γ¿»á ºá»¿ß∞ π¬áºδóá- ÑΓ Γ¿» ¬áªñ«ú« »«½∩ ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¬«Γ«αδ⌐ ¿¼Ñ¡πÑΓ »«½Ñ. ┌────────┐ ┌─────┐ Γ¿» ºá»¿ß∞ ───>│ record ├──┬────────────────>│ end ├──> └────────┘ │ ┌────────┐ ^ └─────┘ └─>│ ß»¿ß«¬ ├─┘ │ »«½Ñ⌐ │ └────────┘ ß»¿ß«¬ ┌────────────┐ »«½Ñ⌐┬─>│ Σ¿¬ß¿α«óá¡-├─┬────────────────────────────┬──────────> │ │ ¡á∩ τáßΓ∞ │ │ ┌───┐ ┌────────────┐ ^ │ ┌───┐ ^ │ └────────────┘ └─>│ ; ├───>│ óáα¿á¡Γ¡á∩ ├─┘ └─>│ ; ├─┘ │ └───┘ ^ │ τáßΓ∞ │ └───┘ └──────────────────────────┘ └────────────┘ ┌─────────────────┐ ┌───┐ ┌─────┐ Σ¿¬ß¿α«óá¡¡á∩ ────>│ ß»¿ß«¬ ├──>│ : ├───>│ Γ¿» ├──┬──> τáßΓ∞ ^ │ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó │ └───┘ └─────┘ │ │ └─────────────────┘ │ │ │ │ ┌───┐ │ └────────────┤ ; │<────────────────────────┘ └───┘ ö¿¬ß¿α«óá¡¡á∩ τáßΓ∞ Γ¿»á ºá»¿ß∞ ß«ñÑαª¿Γ ß»¿ß«¬ Σ¿¬ß¿α«óá¡- ¡δσ »«½Ñ⌐ ó¼ÑßΓÑ ß ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ ¿ Γ¿»«¼ ñ½∩ ¬áªñ«ú« »«½∩. èáª- ñ«Ñ »«½Ñ ß«ñÑαª¿Γ ¿¡Σ«α¼áµ¿ε, ¬«Γ«αá∩ óßÑúñá «Γδß¬¿óáÑΓß∩ «ñ¡¿¼ ¿ ΓÑ¼ ªÑ ß»«ß«í«¼. Åα¿óÑñÑ¼ »α¿¼Ñα Γ¿»á ºá»¿ß∞: record year: integer; { ú«ñ } month: 1..12; { ¼Ñß∩µ } day: 1..31; { τ¿ß½« } end B.Pascal 7 & Objects/LR - 49 - é óáα¿á¡Γ¡«⌐ τáßΓ¿, ¿º«íαáªÑ¡¡«⌐ ¡á ß¿¡Γá¬ß¿τÑß¬«⌐ ñ¿áúαá¼¼Ñ «»¿ßá¡¿∩ Γ¿»á ºá»¿ß∞, »á¼∩Γ∞ αáß»αÑñÑ½∩ÑΓß∩ í«½ÑÑ τÑ¼ ñ½∩ «ñ¡«ú« ß»¿ß¬á »«½Ñ⌐, »«φΓ«¼π ñ«ßΓπ» ¬ ¿¡Σ«α¼áµ¿¿ ¼«ªÑΓ íδΓ∞ «ßπΘÑßΓó½Ñ¡ í«½ÑÑ τÑ¼ «ñ¡¿¼ ß»«ß«í«¼. èáªñδ⌐ ß»¿ß«¬ »«½Ñ⌐ ∩ó½∩ÑΓß∩ óáα¿á¡Γ«¼. éáα¿á¡Γδ ¡á½áúáεΓß∩ ñαπú ¡á ñαπúá ó »á¼∩Γ¿, »«φΓ«¼π ó ½εí«Ñ óαÑ¼∩ ó«º¼«ªÑ¡ ñ«ßΓπ» ¬« óßÑ¼ »«½∩¼ ó« óßÑσ óáα¿á¡Γáσ. óáα¿á¡Γ¡á∩ τáßΓ∞ │ ┌────┐ ┌────────┐ ┌──┐ ┌───────┐ └─>│case├─┬───────────────────>│Γ¿» »«½∩├─>│of├────>│óáα¿á¡Γ├─┬> └────┘ │ ^ │»α¿º¡á¬á│ └──┘ ^ └───────┘ │ │ ┌───────┐ ┌───┐ │ └────────┘ │ ┌───┐ │ └>│¿ñÑ¡Γ¿-├>│ : ├─┘ └────┤ ; │<───┘ │Σ¿¬áΓ«α│ └───┘ └───┘ └───────┘ ┌────────────────┐ Γ¿» »«½∩ ────>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├────> »α¿º¡á¬á │»«α∩ñ¬«ó«ú« Γ¿»á│ └────────────────┘ ┌─────────┐ ┌───┐ ┌───┐ ┌───┐ óáα¿á¡Γ ────>│¬«¡ßΓá¡Γá├─┬─>│ : ├─>│ ( ├─┬─────────────>│ ) ├──> ^ └─────────┘ │ └───┘ └───┘ │ ^ └───┘ │ ┌───┐ │ │ │ └────┤ , │<────┘ │ ┌──────┐ │ └───┘ └─>│ß»¿ß«¬├─┘ │»«½Ñ⌐ │ └──────┘ éδ ¼«ªÑΓÑ ó¿ñÑΓ∞ ¡á ñ¿áúαá¼¼Ñ, τΓ« ¬áªñδ⌐ óáα¿á¡Γ ¿ñÑ¡Γ¿Σ¿- µ¿α«óá¡ »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ «ñ¡«⌐ ¬«¡ßΓá¡Γ«⌐. éßÑ ¬«¡ßΓá¡Γδ ñ«½ª¡δ íδΓ∞ «Γ½¿τ¡δ¼¿ ñαπú «Γ ñαπúá ¿ ¿¼ÑΓ∞ »«α∩ñ¬«óδ⌐ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ ß Γ¿»«¼ »«½∩ »α¿º¡á¬á. ä«ßΓπ» ¬ óáα¿á¡Γ¡δ¼ ¿ Σ¿¬ß¿α«óá¡¡δ¼ »«½∩¼ «ñ¿¡ ¿ Γ«Γ ªÑ. é óáα¿á¡Γ¡«⌐ τáßΓ¿ ¼«ª¡« π¬áºáΓ∞ ¡Ñ«í∩ºáΓÑ½∞¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬á- Γ«α - ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α¿º¡á¬á »«½∩. Åα¿ ¡á½¿τ¿¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »α¿º¡á¬á »«½∩ «¡ ßΓá¡«ó¿Γß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ ñ«»«½¡¿ΓÑ½∞¡«ú« Σ¿¬- ß¿α«óá¡¡«ú« »«½∩ ºá»¿ß¿ - »«½∩ »α¿º¡á¬á. Åα«úαá¼¼á ¼«ªÑΓ ¿ß»«½∞- º«óáΓ∞ º¡áτÑ¡¿Ñ »«½∩ »α¿º¡á¬á ñ½∩ π¬áºá¡¿∩, ¬á¬«⌐ óáα¿á¡Γ ∩ó½∩ÑΓ- ß∩ á¬Γ¿ó¡δ¼ ó ¡áßΓ«∩Θ¿⌐ ¼«¼Ñ¡Γ. üÑº π¬áºá¡¿∩ »«½∩ »α¿º¡á¬á »α«úαá¼¼á óδí¿αáÑΓ óáα¿á¡Γ »« ñαπú«¼π ¬α¿ΓÑα¿ε. ì¿ªÑ »α¿ó«ñ∩Γß∩ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó Γ¿»«ó ºá»¿ß∞: record firstName,lastName : string[40]; birthDate : Date; case citizen : boolean of True : (birthPlace: string[40]); False : (country : string[20]; B.Pascal 7 & Objects/LR - 50 - entryPort : string[20]; entryDate : Date; exitDate : Date); end record x,y : real; case kind : Figure of rectangle : (height,wigth: real); { »α∩¼«πú«½∞¡¿¬ } triangle : (size1,side2,angle: real); { ΓαÑπú«½∞¡¿¬ } circle : (radius: real); { ¬απú } end ÄíΩÑ¬Γ¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── ÄíΩÑ¬Γ¡δ⌐ Γ¿» ∩ó½∩ÑΓß∩ ßΓαπ¬Γπα«⌐, ß«ßΓ«∩ΘÑ⌐ ¿º Σ¿¬ß¿α«óá¡- ¡«ú« τ¿ß½á ¬«¼»«¡Ñ¡Γ«ó. èáªñδ⌐ ¬«¼»«¡Ñ¡Γ ∩ó½∩ÑΓß∩ ½¿í« »«½Ñ¼, ß«- ñÑαªáΘ¿¼ ñá¡¡δÑ ßΓα«ú« «»αÑñÑ½Ñ¡¡«ú« Γ¿»á, ½¿í« ¼ÑΓ«ñ«¼, óδ»«½¡∩- εΘ¿¼ «»Ñαáµ¿¿ ¡áñ «íΩÑ¬Γ«¼. Å« á¡á½«ú¿¿ ß «»¿ßá¡¿Ñ¼ »ÑαÑ¼Ñ¡¡δσ, «»¿ßá¡¿Ñ »«½∩ π¬áºδóáÑΓ Γ¿» ñá¡¡«ú« φΓ«ú« »«½∩ ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¿¼Ñ¡πεΘ¿⌐ »«½Ñ: »« á¡á½«ú¿¿ ß «»¿ßá¡¿Ñ¼ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, «»¿ßá¡¿Ñ ¼ÑΓ«ñá π¬áºδóáÑΓ ºáú«½«ó«¬ »α«µÑñπαδ, Σπ¡¬µ¿¿, ¬«¡ßΓαπ¬- Γ«αá ¿½¿ ñÑßΓαπ¬Γ«αá. ÄíΩÑ¬Γ¡δ⌐ Γ¿» ¼«ªÑΓ ¡áß½Ññ«óáΓ∞ ¬«¼»«¡Ñ¡Γδ ñαπú«ú« «íΩÑ¬Γ¡«- ú« Γ¿»á. àß½¿ T2 ¡áß½ÑñπÑΓ «Γ T1, Γ« T2 ∩ó½∩ÑΓß∩ »«Γ«¼¬«¼ T1, á T1 ∩ó½∩ÑΓß∩ α«ñ¿ΓÑ½Ñ¼ T2. B.Pascal 7 & Objects/LR - 51 - ìáß½Ññ«óá¡¿Ñ ∩ó½∩ÑΓß∩ Γαá¡º¿Γ¿ó¡δ¼, Γ« ÑßΓ∞ Ñß½¿ T3 ¡áß½Ññπ- ÑΓ «Γ T2, á T2 ¡áß½ÑñπÑΓ «Γ T1, Γ« T3 ¡áß½ÑñπÑΓ «Γ T1. Äí½áßΓ∞ (ñ«¼Ñ¡) «íΩÑ¬Γ¡«ú« Γ¿»á ß«ßΓ«¿Γ ¿º ¡Ñú« ßá¼«ú« ¿ ¿º óßÑσ Ñú« ¡áß- ½Ññ¡¿¬«ó. ┌──────┐ ┌────────────────┐ Γ¿» «íΩÑ¬Γá──>│object├─┬───────────────────>│ß»¿ß«¬ ¬«¼»«¡Ñ¡Γ├─┐ └──────┘ │ ┌────────────┐ ^ └────────────────┘ │ └─>│Háß½Ññ«óá¡¿Ñ├─┘ │ └────────────┘ │ ┌───────────────────────────────────────────┘ │ ┌───┐ └─┬──────────────────────────────────┬─┤end├> │ ┌───────┐ ┌────────────────┐ │ └───┘ └──>│private├──>│ß»¿ß«¬ ¬«¼»«¡Ñ¡Γ├─┘ └───────┘ └────────────────┘ ┌───┐ ┌─────────────────────────────┐ ┌───┐ ¡áß½Ññ«óá¡¿Ñ ──>│ ( ├─>│¿ñÑ¡Γ¿Σ¿¬áΓ«α «íΩÑ¬Γ¡«ú« Γ¿»á├─>│ ) ├──> └───┘ └─────────────────────────────┘ └───┘ ß»¿ß«¬ ¬«¼»«¡Ñ¡Γ ──┬─────────────────┬───────────────────> │ ┌────────┐ ^ │ ┌─────────┐ ^ └─>│ ß»¿ß«¬ ├──┘ └─>│ ß»¿ß«¬ ├──┘ │ »«½Ñ⌐ │ │ ¼ÑΓ«ñ«ó │ └────────┘ └─────────┘ ┌──────────────────────┐ ┌───┐ ┌────┐ ┌───┐ ß»¿ß«¬ »«½Ñ⌐ ───>│c»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó├─>│ : ├─>│type├>│ ; ├┬> ^ └──────────────────────┘ └───┘ └────┘ └───┘│ │ │ └───────────────────────────────────────────────┘ ┌─────────┐ ┌───┐ ß»¿ß«¬ ¼ÑΓ«ñ«ó ──>│ºáú«½«ó«¬├─┬──────────────────────────┤ ; ├┬─> ^ │ ¼ÑΓ«ñá │ │ ┌───┐ ┌───────┐ ^└───┘│ │ └─────────┘ └>│ ; ├─>│virtual├┬───────┘ │ │ └───┘ └───────┘│ ^ │ │ │ └────────┐│ │ │ ┌─────────┐││ │ └>│ µÑ½á∩ ├┘│ │ │¬«¡ßΓá¡Γá│ │ │ └─────────┘ │ └──────────────────────────────────────────────┘ ┌────────────────────────┐ ºáú«½«ó«¬ ¼ÑΓ«ñá ────┬───>│ ºáú«½«ó«¬ »α«µÑñπαδ ├──────> │ └────────────────────────┘ ^ │ ┌────────────────────────┐ │ ├───>│ ºáú«½«ó«¬ Σπ¡¬µ¿¿ ├──┤ │ └────────────────────────┘ │ │ ┌────────────────────────┐ │ B.Pascal 7 & Objects/LR - 52 - ├───>│ ºáú«½«ó«¬ ¬«¡ßΓαπ¬Γ«αá ├──┤ │ └────────────────────────┘ │ │ ┌────────────────────────┐ │ └───>│ ºáú«½«ó«¬ ñÑßΓαπ¬Γ«αá ├──┘ └────────────────────────┘ æ½ÑñπεΘ¿⌐ ¿ßσ«ñ¡δ⌐ ¬«ñ »α¿ó«ñ¿Γ »α¿¼Ñα «»¿ßá¡¿∩ «íΩÑ¬Γ¡«ú« Γ¿»á. äá½ÑÑ ó« óßÑ⌐ φΓ«⌐ ú½áóÑ ¡á ñá¡¡«Ñ «»¿ßá¡¿Ñ íπñπΓ ñÑ½áΓ∞ß∩ ßßδ½¬¿. type Point = object X, Y: integer; end; Rect = object A, B: TPoint; procedure Init(XA, YA, XB, YB: Integer); procedure Copy(var R: TRectangle); procedure Move(DX, DY: Integer); procedure Grow(DX, DY: Integer); procedure Intersect(var R: TRectangle); procedure Union(var R: TRectangle); function Contains(P: Point): Boolean; end; StringPtr = ^String; FieldPtr = ^TField; TField = object X, Y, Len: Integer; Name: StringPtr; constructor Copy(var F: TField); constructor Init(FX, FY, FLen: Integer; FName: String); destructor Done; virtual; procedure Display; virtual; procedure Edit; virtual; function GetStr: String; virtual; function PutStr(S: String): Boolean; virtual; end; StrFieldPtr = ^TStrField; StrField = object(TField) Value: PString; constructor Init(FX, FY, FLen: Integer; FName: String); destructor Done; virtual; function GetStr: String; virtual; function PutStr(S: String): Boolean; virtual; function Get: string; procedure Put(S: String); end; B.Pascal 7 & Objects/LR - 53 - NumFieldPtr = ^TNumField; TNumField = object(TField) private Value, Min, Max: Longint; public constructor Init(FX, FY, FLen: Integer; FName: String; FMin, FMax: Longint); function GetStr: String; virtual; function PutStr(S: String): Boolean; virtual; function Get: Longint; function Put(N: Longint); end; ZipFieldPtr = ^TZipField; ZipField = object(TNumField) function GetStr: String; virtual; function PutStr(S: String): Boolean; virtual; end; é «Γ½¿τ¿Ñ «Γ ñαπú¿σ Γ¿»«ó, «íΩÑ¬Γ¡δÑ Γ¿»δ ¼«úπΓ «»¿ßδóáΓ∞ß∩ Γ«½∞¬« ó αáºñÑ½Ñ «»¿ßá¡¿⌐ Γ¿»«ó, ¡áσ«ñ∩ΘÑ¼ß∩ ¡á ßá¼«¼ ó¡ÑΦ¡Ñ¼ πα«ó¡Ñ «í½áßΓ¿ ñÑ⌐ßΓó¿∩ »α«úαá¼¼δ ¿½¿ ¼«ñπ½∩. Æá¬¿¼ «íαáº«¼, «íΩ- Ñ¬Γ¡δÑ Γ¿»δ ¡Ñ ¼«úπΓ «»¿ßδóáΓ∞ß∩ ó αáºñÑ½Ñ «»¿ßá¡¿⌐ »ÑαÑ¼Ñ¡¡δσ ¿½¿ ó¡πΓα¿ í½«¬á »α«µÑñπαδ, Σπ¡¬µ¿¿ ¿½¿ ¼ÑΓ«ñá. Æ¿» ¬«¼»«¡Ñ¡Γδ Σá⌐½«ó«ú« Γ¿»á ¡Ñ ¼«ªÑΓ ¿¼ÑΓ∞ «íΩÑ¬Γ¡δ⌐ Γ¿» ¿½¿ ½εí«⌐ ßΓαπ¬Γπα¡δ⌐ Γ¿», ß«ñÑαªáΘ¿⌐ ¬«¼»«¡Ñ¡Γδ «íΩÑ¬Γ¡«ú« Γ¿»á. B.Pascal 7 & Objects/LR - 54 - è«¼»«¡Ñ¡Γδ ¿ «í½áßΓ∞ ñÑ⌐ßΓó¿∩ ───────────────────────────────────────────────────────────────── Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¬«¼»«¡Ñ¡Γδ »α«ßΓ¿αáÑΓß∩ ºá »αÑñÑ½δ «íΩÑ¬Γ¡«ú« Γ¿»á. ü«½ÑÑ Γ«ú«, «í½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬á- Γ«αá ¬«¼»«¡Ñ¡Γá »α«ßΓ¿αáÑΓß∩ ß¬ó«º∞ í½«¬¿ »α«µÑñπα, Σπ¡¬µ¿⌐, ¬«¡ßΓαπ¬Γ«α«ó ¿ ñÑßΓαπ¬Γ«α«ó, ¬«Γ«αδÑ αÑá½¿ºπεΓ ¼ÑΓ«ñδ «íΩÑ¬Γ¡«ú« Γ¿»á ¿ Ñú« ¡áß½Ññ¡¿¬«ó. êßσ«ñ∩ ¿º φΓ¿σ ß««íαáªÑ¡¿⌐, ¡á»¿ßá¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¬«¼»«¡Ñ¡Γδ ñ«½ª¡« íδΓ∞ π¡¿¬á½∞¡δ¼ ó¡πΓα¿ «íΩÑ¬Γ¡«- ú« Γ¿»á ¿ ó¡πΓα¿ óßÑσ Ñú« ¡áß½Ññ¡¿¬«ó, á Γá¬ªÑ ó¡πΓα¿ óßÑσ Ñú« ¼ÑΓ«ñ«ó. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¬«¼»«¡Ñ¡Γá, «»¿ßá¡¡«ú« ó τáßΓ¿ private «»¿ßá¡¿∩ Γ¿»á, «úαá¡¿τ¿óáÑΓß∩ ¼«ñπ½Ñ¼ (»α«úαá¼¼«⌐), ¬«Γ«αá∩ ß«ñÑαª¿Γ «»¿ßá¡¿Ñ «íΩÑ¬Γ¡«ú« Γ¿»á. äαπú¿¼¿ ß½«óá¼¿, τáßΓ- ¡δÑ (private) ¬«¼»«¡Ñ¡Γδ-¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ñÑ⌐ßΓóπεΓ, ¬á¬ «íδτ¡δÑ «íΘÑñ«ßΓπ»¡δÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ó αá¼¬áσ ¼«ñπ½∩, ¬«Γ«αδ⌐ ß«ñÑαª¿Γ «»¿ßá¡¿Ñ «íΩÑ¬Γ¡«ú« Γ¿»á, á ó¡Ñ ¼«ñπ½∩ ½εíδÑ τáßΓ¡δÑ ¬«¼»«¡Ñ¡Γδ ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ¡Ñ¿ºóÑßΓ¡δ ¿ ¡Ññ«ßΓπ»¡δ. Å«¼ÑßΓ¿ó ó «ñ¿¡ ¼«ñπ½∞ ßó∩ºá¡¡δÑ Γ¿»δ «íΩÑ¬Γ«ó, ¼«ª¡« ßñÑ½áΓ∞ Γá¬, τΓ« φΓ¿ «íΩÑ¬Γδ ß¼«- úπΓ «íαáΘáΓ∞ß∩ ¬ τáßΓ¡δ¼ ¬«¼»«¡Ñ¡Γá¼ ñαπú ñαπúá, ¿ φΓ¿ τáßΓ¡δÑ ¬«¼»«¡Ñ¡Γδ íπñπΓ ¡Ñ¿ºóÑßΓ¡δ ñαπú¿¼ ¼«ñπ½∩¼. é «»¿ßá¡¿¿ «íΩÑ¬Γ¡«ú« Γ¿»á ºáú«½«ó«¬ ¼ÑΓ«ñá ¼«ªÑΓ ºáñáóáΓ∞ »áαá¼ÑΓαδ «»¿ßδóáÑ¼«ú« «íΩÑ¬Γ¡«ú« Γ¿»á, ñáªÑ Ñß½¿ «»¿ßá¡¿Ñ ÑΘÑ ¡Ñ »«½¡«Ñ. ¥Γ« ¿½½εßΓα¿απÑΓß∩ ¼ÑΓ«ñá¼¿ Copy, Intersect ¿ Union Γ¿»á TRectange ó »αÑñδñπΘÑ¼ »α¿¼ÑαÑ. îÑΓ«ñδ ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ ¼ÑΓ«ñá ó¡πΓα¿ «íΩÑ¬Γ¡«ú« Γ¿»á ß««ΓóÑΓßΓóπÑΓ «»ÑαÑ- ªáεΘÑ¼π «»¿ßá¡¿ε ¼ÑΓ«ñá (forward). Æá¬¿¼ «íαáº«¼, úñÑ-¡¿íπñ∞ »«ß- ½Ñ «»¿ßá¡¿∩ «íΩÑ¬Γ¡«ú« Γ¿»á, ¡« ó¡πΓα¿ Γ«⌐ ªÑ ßá¼«⌐ «í½áßΓ¿ ñÑ⌐ß- Γó¿∩, τΓ« ¿ «í½áßΓ∞ ñÑ⌐ßΓó¿∩ «»¿ßá¡¿∩ «íΩÑ¬Γ¡«ú« Γ¿»á, ¼ÑΓ«ñ ñ«½- ªÑ¡ αÑá½¿º«óáΓ∞ß∩ »πΓÑ¼ «»αÑñÑ½Ñ¡¿∩ Ñú« «»¿ßá¡¿∩. àß½¿ ΓαÑíπÑΓß∩ π¡¿¬á½∞¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá, Γ« ¿ß»«½∞ºπ- ÑΓß∩ πΓ«τ¡Ñ¡¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá. Ä¡ ß«ßΓ«¿Γ ¿º ¿ñÑ¡Γ¿Σ¿¬áΓ«- αá Γ¿»á «íΩÑ¬Γá, ºá ¬«Γ«αδ¼ ß½ÑñπεΓ Γ«τ¬á ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá. èá¬ ¿ ½εí«¼π ñαπú«¼π ¿ñÑ¡Γ¿Σ¿¬áΓ«απ, ¿ñÑ¡Γ¿Σ¿¬áΓ«απ πΓ«τ¡Ñ¡¡«ú« ¼ÑΓ«ñá, Ñß½¿ ΓαÑíπÑΓß∩, ¼«úπΓ »αÑñΦÑßΓó«óáΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »á¬ÑΓá ¿ Γ«τ¬á. πΓ«τ¡Ñ¡¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá │ ┌─────────────────────────────┐ ┌───┐ ┌────────────────────┐ └─>│¿ñÑ¡Γ¿Σ¿¬áΓ«α «íΩÑ¬Γ¡«ú« Γ¿»á├>│ . ├>│¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá├> └─────────────────────────────┘ └───┘ └────────────────────┘ é¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ ───────────────────────────────────────────────────────────────── Å« π¼«½τá¡¿ε, ¼ÑΓ«ñδ ∩ó½∩εΓß∩ ßΓáΓ¿τÑß¬¿¼¿, «ñ¡á¬« «¡¿ ¼«- B.Pascal 7 & Objects/LR - 55 - úπΓ, ºá ¿ß¬½ετÑ¡¿Ñ¼ ¬«¡ßΓαπ¬Γ«α«ó, íδΓ∞ ó¿αΓπá½∞¡δ¼¿ (»«ßαÑñßΓó«¼ ó¬½ετÑ¡¿∩ ñ¿αÑ¬Γ¿óδ virtual ó «»¿ßá¡¿Ñ ¼ÑΓ«ñá). è«¼»¿½∩Γ«α αáºαÑ- ΦáÑΓ ßßδ½¬¿ ¡á óδº«óδ ßΓáΓ¿τÑß¬¿σ ¼ÑΓ«ñ«ó ó« óαÑ¼∩ »α«µÑßßá ¬«¼- »¿½∩µ¿¿, Γ«úñá ¬á¬ óδº«óδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó αáºαÑΦáεΓß∩ ó« óαÑ- ¼∩ óδ»«½¡Ñ¡¿∩. ¥Γ« ¿¡«úñá ¡áºδóáεΓ »«ºñ¡¿¼ ßó∩ºδóá¡¿Ñ¼. àß½¿ «íΩÑ¬Γ¡δ⌐ Γ¿» «íΩ∩ó½∩ÑΓ ¿½¿ ¡áß½ÑñπÑΓ ¬á¬«⌐-½¿í« ó¿αΓπ- á½∞¡δ⌐ ¼ÑΓ«ñ, Γ« »ÑαÑ¼Ñ¡¡δÑ φΓ«ú« Γ¿»á ñ«½ª¡δ íδΓ∞ ¿¡¿µ¿á½¿º¿α«- óá¡δ »«ßαÑñßΓó«¼ óδº«óá ¬«¡ßΓαπ¬Γ«αá »ÑαÑñ óδº«ó«¼ ½εí«ú« ó¿αΓπ- á½∞¡«ú« ¼ÑΓ«ñá. Æá¬¿¼ «íαáº«¼, «íΩÑ¬Γ¡δ⌐ Γ¿», ¬«Γ«αδ⌐ «»¿ßδóáÑΓ ¿½¿ ¡áß½ÑñπÑΓ ó¿αΓπá½∞¡δ⌐ ¼ÑΓ«ñ, ñ«½ªÑ¡ Γá¬ªÑ «»¿ßδóáΓ∞ ¿½¿ ¡áß- ½Ññ«óáΓ∞ »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ «ñ¿¡ ¼ÑΓ«ñ-¬«¡ßΓαπ¬Γ«α. ÄíΩÑ¬Γ¡δ⌐ Γ¿» ¼«ªÑΓ »ÑαÑ«»αÑñÑ½∩Γ∞ ½εí«⌐ ¿º ¼ÑΓ«ñ«ó, ¬«Γ«αδÑ «¡ ¡áß½ÑñπÑΓ «Γ ßó«¿σ α«ñ¿ΓÑ½Ñ⌐. àß½¿ «»¿ßá¡¿Ñ ¼ÑΓ«ñá ó »«Γ«¼¬Ñ π¬áºδóáÑΓ Γ«Γ ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá, τΓ« ¿ «»¿ßá¡¿Ñ ¼ÑΓ«ñá ó α«ñ¿ΓÑ½Ñ, Γ« «»¿ßá¡¿Ñ ó »«Γ«¼¬Ñ »ÑαÑ«»αÑñÑ½∩ÑΓ «»¿ßá¡¿Ñ ó α«ñ¿ΓÑ- ½Ñ. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ »ÑαÑ«»αÑñÑ½∩εΘÑú« ¼ÑΓ«ñá αáßΦ¿α∩ÑΓß∩ ñ« ßΣÑ- αδ ñÑ⌐ßΓó¿∩ »«Γ«¼¬á, ó ¬«Γ«α«¼ φΓ«Γ ¼ÑΓ«ñ íδ½ óóÑñÑ¡, ¿ íπñÑΓ «ß- ΓáóáΓ∞ß∩ Γá¬«ó«⌐, »«¬á ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá ¡Ñ íπñÑΓ »ÑαÑ«»αÑñÑ- ½Ñ¡ ß¡«óá. ÅÑαÑ«»αÑñÑ½Ñ¡¿Ñ ßΓáΓ¿τÑß¬«ú« ¼ÑΓ«ñá ¡Ñ ºáó¿ß¿Γ «Γ ¿º¼Ñ¡Ñ¡¿∩ ºáú«½«ó¬á ¼ÑΓ«ñá. é »α«Γ¿ó«»«½«ª¡«ßΓ∞ φΓ«¼π, »ÑαÑ«»αÑñÑ½Ñ¡¿Ñ ó¿α- Γπá½∞¡«ú« ¼ÑΓ«ñá ñ«½ª¡« ß«σαá¡∩Γ∞ »«α∩ñ«¬, Γ¿»δ ¿ ¿¼Ñ¡á »áαá¼ÑΓ- α«ó, á Γá¬ªÑ Γ¿»δ αÑºπ½∞ΓáΓ«ó Σπ¡¬µ¿⌐, Ñß½¿ Γá¬«óδÑ ¿¼ÑεΓß∩. ü«- ½ÑÑ Γ«ú«, »ÑαÑ«»αÑñÑ½Ñ¡¿Ñ «»∩Γ∞ ªÑ ñ«½ª¡« ó¬½ετáΓ∞ ñ¿αÑ¬Γ¿óπ virtual. B.Pascal 7 & Objects/LR - 56 - ä¿¡á¼¿τÑß¬¿Ñ ¼ÑΓ«ñδ ───────────────────────────────────────────────────────────────── Borland Pascal »«ññÑαª¿óáÑΓ ñ«»«½¡¿ΓÑ½∞¡δÑ ¼ÑΓ«ñδ ß »«ºñ¡¿¼ ßó∩ºδóá¡¿Ñ¼, ¬«Γ«αδÑ ¡áºδóáεΓß∩ ñ¿¡á¼¿τÑß¬¿¼¿ ¼ÑΓ«ñá¼¿. ä¿¡á¼¿- τÑß¬¿Ñ ¼ÑΓ«ñδ «Γ½¿τáεΓß∩ «Γ ó¿αΓπá½∞¡δσ Γ«½∞¬« σáαá¬ΓÑα«¼ ¿σ ñ¿ß- »ÑΓτÑα¿ºáµ¿¿ ¡á φΓá»Ñ óδ»«½¡Ñ¡¿∩. é« óßÑσ ñαπú¿σ «Γ¡«ΦÑ¡¿∩σ ñ¿¡á- ¼¿τÑß¬¿Ñ ¼ÑΓ«ñδ ßτ¿ΓáεΓß∩ φ¬ó¿óá½Ñ¡Γ¡δ¼¿ ó¿αΓπá½∞¡δ¼. Ä»¿ßá¡¿Ñ ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá φ¬ó¿óá½Ñ¡Γ¡« «»¿ßá¡¿ε ó¿αΓπ- á½∞¡«ú« ¼ÑΓ«ñá, ¡« «»¿ßá¡¿Ñ ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá ñ«½ª¡« ó¬½ετáΓ∞ ó ßÑí∩ ¿¡ñÑ¬ß ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá, ¬«Γ«αδ⌐ π¬áºδóáÑΓß∩ ¡Ñ»«ß- αÑñßΓóÑ¡¡« ºá ¬½ετÑóδ¼ ß½«ó«¼ virtual. ê¡ñÑ¬ß ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«- ñá ñ«½ªÑ¡ íδΓ∞ µÑ½«τ¿ß½Ñ¡¡«⌐ ¬«¡ßΓá¡Γ«⌐ ó ñ¿á»áº«¡Ñ «Γ 1 ñ« 656535 ¿ ñ«½ªÑ¡ íδΓ∞ π¡¿¬á½∞¡δ¼ ßαÑñ¿ ¿¡ñÑ¬ß«ó ñαπú¿σ ñ¿¡á¼¿τÑß- ¬¿σ ¼ÑΓ«ñ«ó, ß«ñÑαªáΘ¿σß∩ ó «íΩÑ¬Γ¡«¼ Γ¿»Ñ ¿½¿ Ñú« »αÑñ¬áσ. ìá»- α¿¼Ñα: procedure FileOpen(var Msg: TMessage); virtual 100; ÅÑαÑ«»αÑñÑ½Ñ¡¿Ñ ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá ñ«½ª¡« ß««ΓóÑΓßΓó«óáΓ∞ »«α∩ñ¬π, Γ¿»á ¿ ¿¼Ñ¡á¼ »áαá¼ÑΓα«ó ¿ Γ«τ¡« ß««ΓóÑΓßΓó«óáΓ∞ Γ¿»π αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿ »«α«ªñáεΘÑú« ¼ÑΓ«ñá. ÅÑαÑ«»αÑñÑ½Ñ¡¿Ñ Γá¬ªÑ ñ«½ª¡« ó¬½ετáΓ∞ ó ßÑí∩ ñ¿αÑ¬Γ¿óπ virtual, ºá ¬«Γ«α«⌐ ß½ÑñπÑΓ Γ«Γ ªÑ ¿¡ñÑ¬ß ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá, ¬«Γ«αδ⌐ íδ½ ºáñá¡ ó «íΩÑ¬Γ¡«¼ Γ¿- »Ñ »αÑñ¬á. Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡ÑÑ « ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñáσ ¿ « αáº- ¡¿µÑ ó ñ¿ß»ÑΓτÑα¿ºáµ¿¿ ñ¿¡á¼¿τÑß¬¿σ ¿ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó αáßß¬áºδóáÑΓß∩ ó â½áóÑ 22. B.Pascal 7 & Objects/LR - 57 - æ«ºñá¡¿Ñ φ¬ºÑ¼»½∩α«ó «íΩÑ¬Γ«ó ───────────────────────────────────────────────────────────────── ¥¬ºÑ¼»½∩α «íΩÑ¬Γá ß«ºñáÑΓß∩ »«ßαÑñßΓó«¼ «»¿ßá¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ ¬«¡ßΓá¡Γδ «íΩÑ¬Γ¡«ú« Γ¿»á ¿½¿ »πΓÑ¼ »α¿¼Ñ¡Ñ¡¿∩ ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ New ¬ »ÑαÑ¼Ñ¡¡«⌐ Γ¿»á π¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ¡δ⌐ Γ¿». ÉÑ- ºπ½∞Γ¿απεΘ¿⌐ «íΩÑ¬Γ ¡áºδóáÑΓß∩ φ¬ºÑ¼»½∩α«¼ «íΩÑ¬Γ¡«ú« Γ¿»á. var F: TField; Z: TZipField; FP: PField; ZP: PZipField; æ πτÑΓ«¼ φΓ¿σ «»¿ßá¡¿Ñ »ÑαÑ¼Ñ¡¡δσ F ∩ó½∩ÑΓß∩ φ¬ºÑ¼»½∩α«¼ TField, á Z - φ¬ºÑ¼»½∩α«¼ TZipField. Ç¡á½«ú¿τ¡«, »«ß½Ñ »α¿¼Ñ¡Ñ¡¿∩ New ¬ FP ¿ ZP, FP íπñÑΓ π¬áºδóáΓ∞ ¡á φ¬ºÑ¼»½∩α TField, á ZP - ¡á φ¬ºÑ¼»½∩α TZipField. àß½¿ «íΩÑ¬Γ¡δ⌐ Γ¿» ß«ñÑαª¿Γ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ, Γ« φ¬ºÑ¼»½∩- αδ φΓ«ú« «íΩÑ¬Γ¡«ú« Γ¿»á ñ«½ª¡δ ¿¡¿µ¿á½¿º¿α«óáΓ∞ß∩ »«ßαÑñßΓó«¼ óδº«óá ¬«¡ßΓαπ¬Γ«αá »ÑαÑñ óδº«ó«¼ ½εí«ú« ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá. ì¿- ªÑ »α¿óÑñÑ¡ »α¿¼Ñα: var S: StrField; begin S.Init (1, 1, 25, 'ÅÑαó«Ñ ¿¼∩'); S.Put ('öαÑ¡¬'); S.Display; ... S.Done; end; àß½¿ S.Init ¡Ñ óδºδóá½ß∩, Γ« óδº«ó S.Display »α¿óÑñÑΓ ¬ ¡Ñπ- ñáτ¡«¼π ºáóÑαΦÑ¡¿ε ñá¡¡«ú« »α¿¼Ñαá. Åα¿ßóá¿óá¡¿Ñ φ¬ºÑ¼»½∩αá «íΩÑ¬Γ¡«ú« Γ¿»á ¡Ñ »«ñαáºπ¼ÑóáÑΓ ¿¡¿µ¿á½¿ºáµ¿¿ φ¬ºÑ¼»½∩αá. ÄíΩÑ¬Γ ¿¡¿µ¿á½¿º¿απÑΓß∩ ¬«ñ«¼, úÑ¡Ñα¿απÑ¼δ¼ ¬«¼»¿½∩Γ«α«¼, ¬«Γ«αδ⌐ óδ»«½¡∩ÑΓß∩ ¼Ñªñπ óδº«ó«¼ ¬«¡ßΓαπ¬Γ«αá, ¿ ¬«úñá óδ»«½¡Ñ- ¡¿Ñ Σá¬Γ¿τÑß¬¿ ñ«ßΓ¿úáÑΓ »Ñαó«ú« «»ÑαáΓ«αá ó í½«¬Ñ ¬«ñá ¬«¡ßΓαπ¬- Γ«αá. àß½¿ φ¬ºÑ¼»½∩α «íΩÑ¬Γá ¡Ñ ¿¡¿µ¿á½¿º¿απÑΓß∩, ¿ »α«óÑα¬á ñ¿á- »áº«¡á ó¬½ετÑ¡á (ñ¿αÑ¬Γ¿ó«⌐ {$R+}), Γ« »Ñαóδ⌐ óδº«ó ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá φ¬ºÑ¼»½∩αá «íΩÑ¬Γá ñáÑΓ «Φ¿í¬π φΓá»á óδ»«½¡Ñ¡¿∩. àß½¿ »α«- óÑα¬á ñ¿á»áº«¡á óδ¬½ετÑ¡á (ñ¿αÑ¬Γ¿ó«⌐ {$R-}), Γ« »Ñαóδ⌐ ó¿αΓπá½∞- ¡«ú« ¼ÑΓ«ñá ¡Ñ¿¡¿µ¿á½¿º¿α«óá¡¡«ú« «íΩÑ¬Γá ¼«ªÑΓ »α¿óÑßΓ¿ ¬ ¡Ñ»- αÑñß¬áºπÑ¼«¼π »«óÑñÑ¡¿ε. Åαáó¿½« «í∩ºáΓÑ½∞¡«⌐ ¿¡¿µ¿á½¿ºáµ¿¿ »α¿¼Ñ¡¿¼« Γá¬ªÑ ¬ φ¬ºÑ¼»- B.Pascal 7 & Objects/LR - 58 - ½∩αá¼, ¬«Γ«αδÑ ∩ó½∩εΓß∩ ¬«¼»«¡Ñ¡Γá¼¿ ßΓαπ¬Γπα¡δσ Γ¿»«ó. ìá»α¿¼Ñα: var Comment: array [1..5] of TStrField; I: integer; begin for I := 1 to 5 do Comment [I].Init (1, I + 10, 40, '»Ñαó«Ñ_¿¼∩'); . . . for I := 1 to 5 do Comment [I].Done; end; ä½∩ ñ¿¡á¼¿τÑß¬¿σ φ¬ºÑ¼»½∩α«ó ¿¡¿µ¿á½¿ºáµ¿∩, ¬á¬ »αáó¿½«, ßó∩ºá¡á ß αáº¼ÑΘÑ¡¿Ñ¼, á «τ¿ßΓ¬á - ß πñá½Ñ¡¿Ñ¼, τΓ« ñ«ßΓ¿úáÑΓß∩ í½áú«ñáα∩ αáßΦ¿αÑ¡¡«¼π ß¿¡Γá¬ß¿ßπ ßΓá¡ñáαΓ¡δσ »α«µÑñπα New ¿ Dispose. ìá»α¿¼Ñα: var SP: StrFieldPtr; begin New (SP, Init (1, 1, 25, '»Ñαó«Ñ_¿¼∩'); SP^.Put ('öαÑ¡¬'); SP^.Display; . . . Dispose (SP, Done); end; ô¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ¡δ⌐ Γ¿» ∩ó½∩ÑΓß∩ ß«ó¼ÑßΓ¿¼δ¼ »« »α¿ßóá¿- óá¡¿ε ß π¬áºáΓÑ½Ñ¼ ¡á ½εí«⌐ α«ñ¿ΓÑ½∞ß¬¿⌐ «íΩÑ¬Γ¡δ⌐ Γ¿», »«φΓ«¼π ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ π¬áºáΓÑ½∞ ¡á «íΩÑ¬Γ¡δ⌐ Γ¿» ¼«ªÑΓ π¬áºδóáΓ∞ ¡á φ¬ºÑ¼»½∩α φΓ«ú« Γ¿»á ¿½¿ ¡á φ¬ºÑ¼»½∩α ½εí«ú« ñ«τÑα- ¡Ñú« Γ¿»á. ìá»α¿¼Ñα, π¬áºáΓÑ½∞ Γ¿»á ZipFieldPtr ¼«ªÑΓ »α¿ßóá¿óáΓ∞ß∩ π¬áºáΓÑ½∩¼ Γ¿»á PZipField, PNumField ¿ PField, á ó« óαÑ¼∩ óδ»«½- ¡Ñ¡¿∩ »α«úαá¼¼δ π¬áºáΓÑ½∞ Γ¿»á PField ¼«ªÑΓ ½¿í« ¿¼ÑΓ∞ º¡áτÑ¡¿Ñ nil, ½¿í« π¬áºδóáΓ∞ ¡á φ¬ºÑ¼»½∩α TField, TNumField ¿½¿ TZipField, ¿½¿ ¡á ½εí«⌐ φ¬ºÑ¼»½∩α ñ«τÑα¡Ñú« »« «Γ¡«ΦÑ¡¿ε ¬ TField Γ¿»á. ¥Γ¿ »αáó¿½á ß«ó¼ÑßΓ¿¼«ßΓ¿ π¬áºáΓÑ½Ñ⌐ »« »α¿ßóá¿óá¡¿ε »α¿¼Ñ- ¡¿¼δ Γá¬ªÑ ¬ »áαá¼ÑΓαá¼-»ÑαÑ¼Ñ¡¡δ¼ «íΩÑ¬Γ¡«ú« Γ¿»á. ìá»α¿¼Ñα, ¼Ñ- Γ«ñπ TField.Copy ¼«úπΓ íδΓ∞ »ÑαÑñá¡δ φ¬ºÑ¼»½∩αδ Γ¿»«ó TField, TStrField, TNumField, TZipField ¿½¿ ½εíδÑ ñαπú¿Ñ φ¬ºÑ¼»½∩αδ ñ«- τÑα¡Ñú« «Γ TField Γ¿»á. B.Pascal 7 & Objects/LR - 59 - Ç¬Γ¿ó¿ºáµ¿∩ ¼ÑΓ«ñ«ó ───────────────────────────────────────────────────────────────── îÑΓ«ñ á¬Γ¿ó¿º¿απÑΓß∩ »«ßαÑñßΓó«¼ «»ÑαáΓ«αá óδº«óá »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ß«ßΓ«∩ΘÑú« ¿º ñÑß¿ú¡áΓ«αá ¼ÑΓ«ñá, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ß»¿ß«¬ »áαá¼ÑΓα«ó. Æá¬«⌐ Γ¿» óδº«óá ¡áºδóáÑΓß∩ á¬Γ¿ó¿ºáµ¿Ñ⌐ ¼ÑΓ«- ñá. ñÑß¿ú¡áΓ«α ¼ÑΓ«ñá │ ┌────────────────────┐ └─┬──────────────────────────────────────>│¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá├> │ ^ └────────────────────┘ │ ┌──────────────────────┐ ┌───┐ │ └>│ ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε ├>│ . ├────┘ └──────────────────────┘ └───┘ æßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε ºáñáÑΓß∩, Ñß½¿ ñÑß¿ú¡áΓ«α ¼ÑΓ«ñá ñ«½ªÑ¡ «»¿ßδóáΓ∞ φ¬ºÑ¼»½∩α «íΩÑ¬Γ¡«ú« Γ¿»á, á ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá ñ«½- ªÑ¡ «í«º¡áτáΓ∞ ¼ÑΓ«ñ φΓ«ú« «íΩÑ¬Γ¡«ú« Γ¿»á. ¥¬ºÑ¼»½∩α, «í«º¡áτÑ¡¡δ⌐ ñÑß¿ú¡áΓ«α«¼ ¼ÑΓ«ñá, ßΓá¡«ó¿Γß∩ ¡Ñ- ∩ó¡δ¼ Σá¬Γ¿τÑß¬¿¼ »áαá¼ÑΓα«¼ ¼ÑΓ«ñá; «¡ ß««ΓóÑΓßΓóπÑΓ Σ«α¼á½∞¡«¼π »áαá¼ÑΓαπ-»ÑαÑ¼Ñ¡¡«⌐ ß ¿¼Ñ¡Ñ¼ Self, ¬«Γ«αδ⌐ ó½áñÑÑΓ «íΩÑ¬Γ¡δ¼ Γ¿- »«¼, ß««ΓóÑΓßΓóπεΘ¿¼ á¬Γ¿ó¿º¿α«óá¡¡«¼π ¼ÑΓ«ñπ. ä½∩ ßΓáΓ¿τÑß¬¿σ ¼ÑΓ«ñ«ó «»¿ßá¡¡δ⌐ Γ¿» (¡á φΓá»Ñ ¬«¼»¿½∩µ¿¿) «»αÑñÑ½∩ÑΓ, ¬á¬«⌐ ¿º ¼ÑΓ«ñ«ó á¬Γ¿ó¿º¿απÑΓß∩. ìá»α¿¼Ñα, ñÑß¿ú¡áΓ«- αδ F.Init ¿ FP^.Init óßÑúñá á¬Γ¿ó¿º¿απεΓ TField.Init, Γá¬ ¬á¬ «»¿ßá¡¡δ¼ Γ¿»«¼ F ¿ FP^ ∩ó½∩ÑΓß∩ TField. ä½∩ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó óδí«α«¼ φ¬ºÑ¼»½∩αá π»αáó½∩ÑΓ Σá¬Γ¿- τÑß¬¿⌐ Γ¿» (φΓá»á óδ»«½¡Ñ¡¿∩). ìá»α¿¼Ñα, ñÑß¿ú¡áΓ«α FP^.Display ¼«ªÑΓ á¬Γ¿ó¿º¿α«óáΓ∞ ¼ÑΓ«ñδ TField.Display, TStrField.Display, TNumField.Display ¿½¿ TZipField.Display (ó ºáó¿ß¿¼«ßΓ¿ «Γ Σá¬Γ¿- τÑß¬«ú« Γ¿»á φ¬ºÑ¼»½∩αá, π¬áºδóáÑ¼«ú« FP). é «»ÑαáΓ«αÑ with, ßßδ½áεΘÑ¼ß∩ ¡á φ¬ºÑ¼»½∩α «íΩÑ¬Γ¡«ú« Γ¿»á, ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε ó ñÑß¿ú¡áΓ«αÑ ¼ÑΓ«ñá ¼«ªÑΓ «»πß¬áΓ∞ß∩. é φΓ«¼ ß½πτáÑ φ¬ºÑ¼»½∩α«¼, ¡á ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ «»ÑαáΓ«α with, ßΓá- ¡«ó¿Γß∩ ¡Ñ∩ó¡δ⌐ »áαá¼ÑΓα Self á¬Γ¿ó¿ºáµ¿¿ ¼ÑΓ«ñá. Ç¡á½«ú¿τ¡«, ßßδ½¬á ¡Ñ »ÑαÑ¼Ñ¡¡πε ¼«ªÑΓ «»πß¬áΓ∞ß∩ ó ¼ÑΓ«ñÑ. é φΓ«¼ ß½πτáÑ »áαá¼ÑΓα«¼ Self ¼ÑΓ«ñá, ß«ñÑαªáΘÑú« óδº«ó, ßΓá¡«ó¿Γß∩ ¡Ñ∩ó¡δ⌐ »á- αá¼ÑΓα Self á¬Γ¿ó¿ºáµ¿¿ ¼ÑΓ«ñá. B.Pascal 7 & Objects/LR - 60 - Ç¬Γ¿ó¿ºáµ¿∩ πΓ«τ¡Ñ¡¡δσ ¼ÑΓ«ñ«ó ───────────────────────────────────────────────────────────────── é ¼ÑΓ«ñÑ, «»ÑαáΓ«αÑ óδº«óá Σπ¡¬µ¿¿ ¿½¿ »α«µÑñπαδ ñ½∩ «í«º¡á- τÑ¡¿∩ á¬Γ¿ó¿ºáµ¿¿ ¬«¡¬αÑΓ¡«ú« ¼ÑΓ«ñá ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ ñÑß¿ú¡áΓ«αá πΓ«τ¡Ñ¡¡«ú« ¼ÑΓ«ñá. Æá¬«⌐ Γ¿» óδº«óá ¡áºδóáÑΓß∩ á¬Γ¿- ó¿ºáµ¿Ñ⌐ πΓ«τ¡Ñ¡¡«ú« ¼ÑΓ«ñá. ñÑß¿ú¡áΓ«α πΓ«τ¡Ñ¡¡«ú« ¼ÑΓ«ñá │ ┌──────────────────────┐ ┌───┐ ┌────────────────────┐ └─┬>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├>│ . ├───────>│¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá├> │ │ «íΩÑ¬Γ¡«ú« Γ¿»á │ └───┘ ^ └────────────────────┘ │ └──────────────────────┘ │ │ ┌──────────────────────┐ │ └>│ inherited ├──────────┘ └──────────────────────┘ ÄíΩÑ¬Γ¡δ⌐ Γ¿», ºáñá¡¡δ⌐ ó ñÑß¿ú¡áΓ«αÑ πΓ«τ¡Ñ¡¡«ú« ¼ÑΓ«ñá, ñ«½ªÑ¡ íδΓ∞ Γá¬¿¼ ªÑ, ¬á¬ ¿ ó¬½ετáεΘ¿⌐ ¼ÑΓ«ñ «íΩÑ¬Γ¡δ⌐ Γ¿», ¿½¿ ß««ΓóÑΓßΓó«óáΓ∞ α«ñ¿ΓÑ½∞ß¬«¼π Γ¿»π. ä½∩ «í«º¡áτÑ¡¿∩ α«ñ¿ΓÑ½∞ß¬«ú« «íΩÑ¬Γ¡«ú« Γ¿»á ¿½¿ «íΩÑ¬Γ¡«ú« Γ¿»á, ó¬½ετáεΘÑú« ¼ÑΓ«ñ, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¬½ετÑó«Ñ ß½«ó« inherited; ó ¼ÑΓ«ñáσ «íΩÑ¬Γ¡«ú« Γ¿»á, ¡Ñ ¿¼ÑεΘÑú« »αÑñ¬á, ¬½ετÑ- ó«Ñ ß½«ó« inherited ¿ß»«½∞º«óáΓ∞ß∩ ¡Ñ ¼«ªÑΓ. ìÑ∩ó¡δ⌐ »áαá¼ÑΓα Self á¬Γ¿ó¿ºáµ¿¿ πΓ«τ¡Ñ¡¡«ú« ¼ÑΓ«ñá ßΓá¡«- ó¿Γß∩ »áαá¼ÑΓα«¼ Self ¼ÑΓ«ñá, ß«ñÑαªáΘÑú« óδº«ó. Ç¬Γ¿ó¿ºáµ¿∩ πΓ«τ¡Ñ¡¡δσ ¼ÑΓ«ñ«ó ¡Ñ »αÑñπß¼áΓα¿óáÑΓ ¼Ñσá¡¿º¼á ñ¿ß»ÑΓτÑα¿ºáµ¿¿ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó - óδº«ó íπñÑΓ óßÑúñá ßΓáΓ¿τÑß¬¿¼ ¿ óßÑúñá óδ- ºδóáÑΓ ºáñá¡¡δ⌐ ¼ÑΓ«ñ. Ç¬Γ¿ó¿ºáµ¿∩ πΓ«τ¡Ñ¡¡«ú« ¼ÑΓ«ñá ¿ß»«½∞ºπÑΓß∩ «íδτ¡« ó »ÑαÑ«»- αÑñÑ½∩εΘÑ¼ ¼ÑΓ«ñÑ ñ½∩ á¬Γ¿ó¿ºáµ¿¿ »ÑαÑ«»αÑñÑ½∩εΘÑú« ¼ÑΓ«ñá. æ πτÑΓ«¼ «»¿ßá¡¡δσ óδΦÑ Γ¿»«ó »α¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ á¬Γ¿ó¿ºá- µ¿¿ πΓ«τ¡Ñ¡¡δσ ¼ÑΓ«ñ«ó: constructor TNumField.Init(Fx, FY, Flen: Integer; FName: String; FMin, FMax: Longint); begin inherited Init(FX, FY, FLen, FName); Value := 0; Min := FMin; Max := FMax; end; function TZipField.PutStr(S: String): Boolean; begin PutStr := (Length(S) = 5) and TNumField.PutStr(S); end; èá¬ »«¬áºδóáεΓ φΓ¿ »α¿¼Ñαδ, á¬Γ¿ó¿ºáµ¿∩ πΓ«τ¡Ñ¡¡δσ ¼ÑΓ«ñ«ó »«ºó«½∩ÑΓ »ÑαÑ«»αÑñÑ½∩εΘÑ¼π ¼ÑΓ«ñπ "ó¡«ó∞ ¿ß»«½∞º«óáΓ∞" ¬«ñ ¼ÑΓ«- B.Pascal 7 & Objects/LR - 61 - ñá, ¬«Γ«αδ⌐ «¡ »ÑαÑ«»αÑñÑ½∩ÑΓ. î¡«ªÑßΓóÑ¡¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── ä¿á»áº«¡ º¡áτÑ¡¿⌐ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¼«Θ¡«ßΓ∞ ¼¡«ªÑßΓóá ñ½∩ «»αÑñÑ½Ñ¡¡«ú« »«α∩ñ¬«ó«ú« Γ¿»á (íáº«ó«ú« Γ¿»á). èáªñ«Ñ ó«º¼«ª¡«Ñ º¡áτÑ¡¿Ñ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ∩ó½∩ÑΓß∩ »«ñ¼¡«ªÑßΓó«¼ ó«º¼«ª¡δσ º¡áτÑ¡¿⌐ íáº«ó«ú« Γ¿»á. ÅÑαÑ¼Ñ¡¡á∩ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ¼«ªÑΓ »α¿¡¿¼áΓ∞ ¬á¬ óßÑ º¡á- τÑ¡¿∩ ¼¡«ªÑßΓóá, Γá¬ ¿ ¡¿ «ñ¡«ú«. ┌─────┐ ┌────┐ ┌────────────────┐ Γ¿» ¼¡«ªÑßΓó« ───>│ set ├───>│ of ├───>│ »«α∩ñ¬«óδ⌐ Γ¿» ├───> └─────┘ └────┘ └────────────────┘ üáº«óδ⌐ Γ¿» ¡Ñ ñ«½ªÑ¡ ¿¼ÑΓ∞ í«½ÑÑ 256 ó«º¼«ª¡δσ º¡áτÑ¡¿⌐, ¿ »«α∩ñ¬«óδÑ º¡áτÑ¡¿∩ óÑασ¡Ñ⌐ ¿ ¡¿ª¡Ñ⌐ úαá¡¿µδ íáº«ó«ú« Γ¿»á ñ«½ª¡δ ¡Ñ »αÑóδΦáΓ∞ ñ¿á»áº«¡á «Γ 0 ñ« 255. é ß¿½π φΓ«ú« íáº«óδ⌐ Γ¿» ¼¡«- ªÑßΓóá ¡Ñ ¼«ªÑΓ íδΓ∞ ¬«α«Γ¬¿¼ µÑ½δ¼ (Shortint), µÑ½δ¼ (Integer), ñ½¿¡¡δ¼ µÑ½δ¼ (Longint) ¿½¿ ß½«ó«¼ (Word). Åα¿¼Ñτá¡¿Ñ: Ä»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿ «»¿ßδóá- εΓß∩ ó αáºñÑ½Ñ "Ä»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓóá¼¿" ó â½áóÑ 6. é αáº- ñÑ½Ñ "Ä»¿ßáΓÑ½¿ ¼¡«ªÑßΓó" »«¬áºá¡«, ¬á¬ «»αÑñÑ½∩Γ∞ º¡áτÑ¡¿∩ ¼¡«ªÑßΓóá. ïεí«⌐ ¼¡«ªÑßΓóÑ¡¡δ⌐ Γ¿» ¼«ªÑΓ »α¿¡¿¼áΓ∞ º¡áτÑ¡¿Ñ [], ¬«Γ«α«Ñ ¡áºδóáÑΓß∩ »πßΓδ¼ ¼¡«ªÑßΓó«¼. B.Pascal 7 & Objects/LR - 62 - öá⌐½«óδÑ Γ¿»δ ───────────────────────────────────────────────────────────────── öá⌐½«óδ⌐ Γ¿» ß«ßΓ«¿Γ ¿º ½¿¡Ñ⌐¡«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ ¬«¼»«- ¡Ñ¡Γ«ó, ¬«Γ«αδÑ ¼«úπΓ ¿¼ÑΓ∞ ½εí«⌐ Γ¿» ºá ¿ß¬½ετÑ¡¿Ñ¼ Σá⌐½«ó«ú« Γ¿»á ¿½¿ ßΓαπ¬Γπα¡«ú« Γ¿»á, ß«ñÑαªáΘÑú« ¬«¼»«¡Ñ¡Γ ß Σá⌐½«óδ¼ Γ¿- »«¼. ù¿ß½« ¬«¼»«¡Ñ¡Γ«ó «»¿ßá¡¿Ñ¼ Σá⌐½«ó«ú« Γ¿»á ¡Ñ πßΓá¡áó½¿óáÑΓ- ß∩. ┌──────┐ ┌────┐ ┌─────┐ Σá⌐½«óδ⌐ Γ¿» ───>│ file ├──┬─>│ of ├───>│ Γ¿» ├─────> └──────┘ │ └────┘ └─────┘ ^ └─────────────────────┘ àß½¿ ß½«ó« of ¿ Γ¿» ¬«¼»«¡Ñ¡Γá «»πΘÑ¡δ, Γ« Γ¿» «í«º¡áτáÑΓ ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ Σá⌐½. ìÑΓ¿»¿º¿α«óá¡¡δÑ Σá⌐½δ »αÑñßΓáó½∩εΓ ß«í«⌐ ¬á¡á½δ óó«ñá-óδó«ñá ¡¿ª¡Ñú« πα«ó¡∩, ó «ß¡«ó¡«¼ ¿ß»«½∞ºπÑ¼δÑ ñ½∩ »α∩¼«ú« ñ«ßΓπ»á ¬ ½εí«¼π Σá⌐½π ¡á ñ¿ß¬Ñ, ¡Ñºáó¿ß¿¼« «Γ Ñú« ó¡πΓ- αÑ¡¡Ñú« Σ«α¼áΓá. æΓá¡ñáαΓ¡δ⌐ Σá⌐½«óδ⌐ Γ¿» Text «»αÑñÑ½∩ÑΓ Σá⌐½, ß«ñÑαªáΘ¿⌐ ß¿¼ó«½δ, π»«α∩ñ«τÑ¡¡δÑ ó ßΓα«¬¿. ÆÑ¬ßΓ«óδÑ Σá⌐½δ ¿ß»«½∞ºπεΓ ß»Ñ- µ¿á½∞¡δÑ »α«µÑñπαδ óó«ñá-óδó«ñá, ¬«Γ«αδÑ «»¿ßδóáεΓß∩ ó â½áóÑ 14 "éó«ñ ¿ óδó«ñ". B.Pascal 7 & Objects/LR - 63 - æßδ½«τ¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── Cßδ½«τ¡δ⌐ Γ¿» (π¬áºáΓÑ½∞) «»αÑñÑ½∩ÑΓ ¼¡«ªÑßΓó« º¡áτÑ¡¿⌐, ¬«- Γ«αδÑ π¬áºδóáεΓ ¡á ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ «»αÑñÑ½Ñ¡¡«ú« Γ¿»á, ¡áºδóáÑ¼«ú« íáº«óδ¼ Γ¿»«¼. ÅÑαÑ¼Ñ¡¡á∩ ßßδ½«τ¡«ú« Γ¿»á ß«ñÑαª¿Γ áñαÑß ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó »á¼∩Γ¿. ┌───┐ ┌─────────────┐ ßßδ½«τ¡δ⌐ Γ¿» ──────>│ ^ ├───>│ íáº«óδ⌐ Γ¿» ├──> └───┘ └─────────────┘ ┌─────────────────────┐ íáº«óδ⌐ Γ¿» ────>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á ├───> └─────────────────────┘ àß½¿ íáº«óδ⌐ Γ¿» ∩ó½∩ÑΓß∩ ÑΘÑ ¡Ñ «»¿ßá¡¡δ¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼, Γ« «¡ ñ«½ªÑ¡ íδΓ∞ «»¿ßá¡ ó Γ«⌐ ªÑ ßá¼«⌐ τáßΓ¿ «»¿ßá¡¿∩ Γ¿»«ó, τΓ« ¿ Γ¿» π¬áºáΓÑ½∞. ÅÑαÑ¼Ñ¡¡«⌐-π¬áºáΓÑ½ε ¼«ª¡« »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ ß »«¼«Θ∞ε »α«- µÑñπαδ New, «»Ñαáµ¿¿ @ ¿½¿ Σπ¡¬µ¿¿ Ptr. Åα«µÑñπαá New «Γó«ñ¿Γ ¡«- óπε «í½áßΓ∞ »á¼∩Γ¿ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ñ½∩ ñ¿¡á- ¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ ¿ ß«σαá¡∩ÑΓ áñαÑß φΓ«⌐ «í½áßΓ¿ ó »ÑαÑ¼Ñ¡¡«⌐ π¬áºáΓÑ½∩. Ä»Ñαáµ¿∩ @ «α¿Ñ¡Γ¿απÑΓ »ÑαÑ¼Ñ¡¡πε-π¬áºáΓÑ½∞ ¡á «í½áßΓ∞ »á¼∩Γ¿, ß«ñÑαªáΘπε ßπΘÑßΓóπεΘπε »ÑαÑ¼Ñ¡¡πε, ó¬½ετá∩ ¿ ΓÑ »ÑαÑ¼Ñ¡- ¡δÑ, ¬«Γ«αδÑ ¿¼ÑεΓ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ. öπ¡¬µ¿∩ Ptr «α¿Ñ¡Γ¿απÑΓ »ÑαÑ- ¼Ñ¡¡πε-π¬áºáΓÑ½∞ ¡á «»αÑñÑ½Ñ¡¡δ⌐ áñαÑß ó »á¼∩Γ¿. çáαÑºÑαó¿α«óá¡¡«Ñ ß½«ó« nil «í«º¡áτáÑΓ ¬«¡ßΓá¡Γπ ß« º¡áτÑ¡¿- Ñ¼ π¬áºáΓÑ½∩, ¬«Γ«αá∩ ¡¿ ¡á τΓ« ¡Ñ π¬áºδóáÑΓ. B.Pascal 7 & Objects/LR - 64 - Æ¿» Pointer ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ Γ¿» Pointer «í«º¡áτáÑΓ ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ π¬áºá- ΓÑ½∞, Γ« ÑßΓ∞ π¬áºáΓÑ½∞, ¬«Γ«αδ⌐ ¡Ñ π¬áºδóáÑΓ ¡¿ ¡á ¬á¬«⌐ «»αÑñÑ- ½Ñ¡¡δ⌐ Γ¿». ÅÑαÑ¼Ñ¡¡δÑ Γ¿»á Pointer ¼«úπΓ íδΓ∞ αáºδ¼Ñ¡«óá¡δ: π¬á- ºá¡¿Ñ ß¿¼ó«½á ^ »«ß½Ñ Γá¬«⌐ »ÑαÑ¼Ñ¡¡«⌐ óδºδóáÑΓ »«∩ó½Ñ¡¿Ñ «Φ¿í¬¿. èá¬ ¿ º¡áτÑ¡¿Ñ, «í«º¡áτáÑ¼«Ñ ß½«ó«¼ nil, º¡áτÑ¡¿∩ Γ¿»á Pointer ß«ó¼ÑßΓ¿¼δ ß« óßÑ¼¿ ñαπú¿¼¿ Γ¿»á¼¿ π¬áºáΓÑ½Ñ⌐. Åα¿¼Ñτá¡¿Ñ: é αáºñÑ½Ñ "ô¬áºáΓÑ½¿ ¿ ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ- ¼Ñ¡¡δÑ" ó â½áóÑ 5 óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ß¿¡Γá¬ß¿ß ßßδ½¬¿ ¡á ñ¿¡á- ¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ, ¬«Γ«αδÑ π¬áºδóáεΓß∩ ß »«¼«Θ∞ε π¬áºáΓÑ- ½∩-»ÑαÑ¼Ñ¡¡«⌐. Æ¿» PChar ───────────────────────────────────────────────────────────────── ä½∩ »αÑñßΓáó½Ñ¡¿∩ π¬áºáΓÑ½∩ ¡á ßΓα«¬π ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ó Borland Pascal ¿¼ÑÑΓß∩ »αÑñ«»αÑñÑ½Ñ¡¡δ⌐ Γ¿» PChar. é í½«¬Ñ System ñá¡¡δ⌐ Γ¿» «»¿ßδóáÑΓß∩ ß½ÑñπεΘ¿¼ «íαáº«¼: type PChar = ^Char; Borland Pascal »«ññÑαª¿óáÑΓ ¡áí«α αáßΦ¿αÑ¡¡δσ »αáó¿½, »«ºó«- ½∩εΘ¿σ αáí«ΓáΓ∞ ß« ßΓα«¬á¼¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼, ¿ß»«½∞ºπ∩ Γ¿» PChar. Å«½¡«ßΓ∞ε φΓá ΓÑ¼á «íßπªñáÑΓß∩ ó â½áóÑ 18 "êß»«½∞º«óá¡¿Ñ ßΓα«¬ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼". B.Pascal 7 & Objects/LR - 65 - Åα«µÑñπα¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── é ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ αáßß¼áΓα¿óáεΓß∩ Γ«½∞¬« ¬á¬ τáßΓ¿ »α«úαá¼¼δ, ¬«Γ«αδÑ ¼«ª¡« óδ»«½¡∩Γ∞ ß »«¼«Θ∞ε óδ- º«óá »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. é Borland Pascal »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ Γαá¬ΓπεΓß∩ ú«αáºñ« Φ¿αÑ: ºñÑß∞ ñ«»πß¬áÑΓß∩ ¿¡ΓÑα»αÑΓáµ¿∩ »α«µÑñπα ¿ Σπ¡¬µ¿⌐, ¬á¬ «íΩÑ¬Γ«ó, ¬«Γ«αδÑ ¼«ª¡« »α¿ßóá¿óáΓ∞ »ÑαÑ¼Ñ¡¡δ¼ ¿ »ÑαÑñáóáΓ∞ ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó. Æá¬¿Ñ ñÑ⌐ßΓó¿∩ ¼«ª¡« óδ»«½¡∩Γ∞ ß »«¼«Θ∞ε »α«µÑñπα¡δσ Γ¿»«ó. é «»¿ßá¡¿¿ »α«µÑñπα¡«ú« Γ¿»á ºáñáεΓß∩ »áαá¼ÑΓαδ, á ñ½∩ Σπ¡¬- µ¿¿ - αÑºπ½∞ΓáΓ Σπ¡¬µ¿¿. »α«µÑñπα¡δ⌐ Γ¿» │ │ ┌─────────┐ └┬>│procedure├─┬───────────────────────────────────────────────> │ └─────────┘ │ ┌────────────────────────────┐ ^ ^ │ └─>│ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó├─┘ │ ┌┘ └────────────────────────────┘ └─┐ │ ┌────────┐ ┌───┐ ┌─────────┐│ └>│function├┬────────────────────────────────>│ : ├>│αÑºπ½∞ΓáΓ├┘ └────────┘│ ┌────────────────────────────┐^ └───┘ └─────────┘ └>│ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó├┘ └────────────────────────────┘ òáαá¬ΓÑα¡«, τΓ« ß¿¡Γá¬ß¿ß ºá»¿ß¿ »α«µÑñπα¡«ú« Γ¿»á ó Γ«τ¡«ß- Γ¿ ß«ó»áñáÑΓ ß ºá»¿ß∞ε ºáú«½«ó¬á »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, Γ«½∞¬« «»πß¬áÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »«ß½Ñ ¬½ετÑó«ú« ß½«óá procedure ¿½¿ function. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»¿ßá¡¿⌐ »α«µÑñπα¡«ú« Γ¿»á: type Proc = procedure; SwapProc = procedure(var X, Y: Integer); StrProc = procedure(S: String); MathFunc = function(X: Real): Real; DeviceFunc = function(var F: text): Integer; MaxFunc = function(A, B: Real; F: MathFunc): Real; ê¼Ñ¡á »áαá¼ÑΓα«ó ó «»¿ßá¡¿¿ »α«µÑñπα¡«ú« Γ¿»á ¿úαáεΓ τ¿ßΓ« ñÑ¬«αáΓ¿ó¡πε α«½∞ - ¡á ß¼δß½ «»¿ßá¡¿Ñ «¡¿ ¡Ñ ó½¿∩εΓ. Borland Pascal ¡Ñ »«ºó«½∩ÑΓ «»¿ßδóáΓ∞ Σπ¡¬µ¿¿, ¬«Γ«αδÑ ó«ºó- αáΘáεΓ º¡áτÑ¡¿∩ »α«µÑñπα¡«ú« Γ¿»á. ÉÑºπ½∞ΓáΓ Σπ¡¬µ¿¿ ñ«½ªÑ¡ íδΓ∞ ßΓα«¬«ó«ú«, óÑΘÑßΓóÑ¡¡«ú«, µÑ½«ú«, ß¿¼ó«½∞¡«ú«, íπ½Ñóß¬«ú« Γ¿»á, π¬áºáΓÑ½Ñ¼ ¿½¿ ¿¼ÑΓ∞ »ÑαÑτ¿ß½¿¼δ⌐ Γ¿», «»αÑñÑ½Ñ¡¡δ⌐ »«½∞º«óáΓÑ- ½Ñ¼. Åα«µÑñπα¡δÑ º¡áτÑ¡¿∩ ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡«⌐ »α«µÑñπα¡«ú« Γ¿»á ¼«ª¡« »α¿ßó«¿Γ∞ »α«µÑñπα¡«Ñ B.Pascal 7 & Objects/LR - 66 - º¡áτÑ¡¿Ñ. Åα«µÑñπα¡δÑ º¡áτÑ¡¿∩ ¼«úπΓ íδΓ∞ ß½ÑñπεΘ¿¼¿: * º¡áτÑ¡¿∩¼¿ nil; * ßßδ½¬«⌐ ¡á »ÑαÑ¼Ñ¡¡πε »α«µÑñπα¡«ú« Γ¿»á; * ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. é ¬«¡ΓÑ¬ßΓÑ »α«µÑñπα¡δσ º¡áτÑ¡¿⌐ «»¿ßá¡¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¼«ª¡« αáßß¼áΓα¿óáΓ∞ ¬á¬ ß»Ñµ¿á½∞¡δ⌐ ó¿ñ «»¿ßá¡¿⌐ ¬«¡ß- Γá¡Γ, ¬«úñá º¡áτÑ¡¿Ñ¼ ¬«¡ßΓá¡Γδ ∩ó½∩ÑΓß∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩. Éáßß¼«Γα¿¼, ¡á»α¿¼Ñα, ß½ÑñπεΘÑÑ «»¿ßá¡¿Ñ: var P: SwapProc; F: MathFunc; procedure Swap(var A, B: Integer); far; var Temp: Integer; begin Temp := A; A := B; B := Temp; end; function Tan(Angle: Real); far; begin Tan := Sin(Angle) / Cos(Angle); end; ÅÑαÑ¼Ñ¡¡δ¼ P ¿ F ¼«ª¡« »α¿ßó«¿Γ∞ º¡áτÑ¡¿∩ ß½ÑñπεΘ¿¼ «íαáº«¼: P := Swap; F := Tan; á óδº«óδ ß »«¼«Θ∞ε P ¿ F ¼«ª¡« óδ»«½¡¿Γ∞ Γá¬: P(I, J); { φ¬ó¿óá½Ñ¡Γ¡« Swap(I, J) } X := F(X); { φ¬ó¿óá½Ñ¡Γ¡« X := Tan(X) } êß»«½∞º«óá¡¿Ñ »α«µÑñπα¡δσ »ÑαÑ¼Ñ¡¡δσ, ¬«Γ«αδ¼ ó «»ÑαáΓ«αÑ óδº«óá »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ nil, »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ. ç¡áτÑ¡¿Ñ nil »αÑñ¡áº¡áτÑ¡« ñ½∩ π¬áºá¡¿∩ Γ«ú«, τΓ« »α«- µÑñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¡Ñ »α¿ßó«Ñ¡á, ¿, Γá¬ úñÑ »α«µÑñπα¡á∩ »ÑαÑ¼Ñ¡- ¡á∩ ¼«ªÑΓ »«½πτ¿Γ∞ º¡áτÑ¡¿Ñ nil, πτáßΓóπεΘ¿Ñ ó φΓ«⌐ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ óδº«óδ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ß½ÑñπÑΓ »«ñóÑαúáΓ∞ »α«óÑα¬Ñ: if @P <> nil then P(I, J); ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á ¿ß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ π¬áºá¡¿∩ Γ«ú«, τΓ« P »α«óÑα∩ÑΓß∩, á ¡Ñ óδºδóáÑΓß∩. B.Pascal 7 & Objects/LR - 67 - æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó ───────────────────────────────────────────────────────────────── ùΓ«íδ «¡¿ ßτ¿Γá½¿ß∞ ß«ó¼ÑßΓ¿¼δ¼¿, »α«µÑñπα¡δÑ Γ¿»δ ñ«½ª¡δ ¿¼ÑΓ∞ «ñ¡« ¿ Γ« ªÑ τ¿ß½« »áαá¼ÑΓα«ó, á »áαá¼ÑΓαδ ó ß««ΓóÑΓßΓóπε- Θ¿σ »«º¿µ¿∩σ ñ«½ª¡δ ¿¼ÑΓ∞ Γ«ªñÑßΓóÑ¡¡δÑ Γ¿»δ. Åα¿ «»αÑñÑ½Ñ¡¿¿ ß«ó¼ÑßΓ¿¼«ßΓ¿ »α«µÑñπα¡δσ Γ¿»«ó ¿¼Ñ¡á »áαá¼ÑΓα«ó º¡áτÑ¡¿∩ ¡Ñ ¿¼Ñ- εΓ. ç¡áτÑ¡¿Ñ nil ß«ó¼ÑßΓ¿¼« ß ½εíδ¼ »α«µÑñπα¡δ¼ Γ¿»«¼. ùΓ«íδ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ »α«µÑñπα¡δσ º¡áτÑ¡¿⌐, »α«µÑ- ñπαδ ¿ Σπ¡¬µ¿¿ ñ«½ª¡δ «»¿ßδóáΓ∞ß∩ ß ñ¿αÑ¬Γ¿ó«⌐ far ¿ ¬«¼»¿½¿α«- óáΓ∞ß∩ ó ß«ßΓ«∩¡¿¿ ß {$F+}. èα«¼Ñ Γ«ú«, ó ¬áτÑßΓóÑ »α«µÑñπα¡δσ º¡áτÑ¡¿⌐ ¡Ñ ¼«úπΓ π¬áºδóáΓ∞ß∩ ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ó½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¼ÑΓ«ñδ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, «»¿- ßá¡¡δÑ ß ¬½ετÑóδ¼ ß½«ó«¼ inline ¿½¿ interrupt. æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ - φΓ« »«ñ»α«úαá¼¼δ, «»¿ßá¡- ¡δÑ ó ¼«ñπ½Ñ Unit, ¡á»α¿¼Ñα, WriteLn, ReadLn, Chr ¿½¿ Ord. ùΓ«íδ ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ »α«µÑñπα¡«ú« º¡áτÑ¡¿∩ ßΓá¡ñáαΓ¡πε »α«µÑ- ñπαπ ¿ Σπ¡¬µ¿ε, ¡á»¿Φ¿ΓÑ ñ½∩ ¡ÑÑ "«í«½«τ¬π". ìá»α¿¼Ñα, ß½ÑñπεΘá∩ Σπ¡¬µ¿∩ DSin ß«ó¼ÑßΓ¿¼á »« »α¿ßóá¿óá¡¿ε ß «»¿ßá¡¡δ¼ óδΦÑ Γ¿»«¼ MathFunc: function FSin(X: Real): Real; far; begin FSin := Sin(X); end; Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ∩ó½∩ÑΓß∩ ó½«ªÑ¡¡«⌐, ¬«úñá «¡á «»¿ßδóá- ÑΓß∩ ó¡πΓα¿ ñαπú«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Æá¬¿Ñ ó½«ªÑ¡¡δÑ »α«µÑ- ñπαδ ¿ Σπ¡¬µ¿¿ ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ »α«µÑñπα¡δσ º¡áτÑ¡¿⌐. Æ«ªñÑßΓóÑ¡¡δÑ ¿ ß«ó¼ÑßΓ¿¼δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── äóá Γ¿»á ¼«úπΓ íδΓ∞ Γ«ªñÑßΓóÑ¡¡δ¼¿, ¿ φΓá Γ«ªñÑßΓóÑ¡¡«ßΓ∞ (¿ñÑ¡Γ¿τ¡«ßΓ∞) ∩ó½∩ÑΓß∩ «í∩ºáΓÑ½∞¡«⌐ ó ¡Ñ¬«Γ«αδσ ¬«¡ΓÑ¬ßΓáσ. é ñαπú¿σ ß½πτá∩σ ñóá Γ¿»á ñ«½ª¡δ íδΓ∞ Γ«½∞¬« ß«ó¼ÑßΓ¿¼δ ¿½¿ ß«ó¼Ñß- Γ¿¼δ »« »α¿ßóá¿óá¡¿ε. äóá Γ¿»á ∩ó½∩εΓß∩ Γ«ªñÑßΓóÑ¡¡δ¼¿, Ñß½¿ «¡¿ «»¿ßá¡δ ß «ñ¡¿¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ Γ¿»á, ¿½¿ Ñß½¿ ¿σ «»αÑñÑ½Ñ¡¿∩ ¿ß- »«½∞ºπεΓ «ñ¿¡ ¿ Γ«Γ ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á. Æ«ªñÑßΓóÑ¡¡«ßΓ∞ Γ¿»«ó ───────────────────────────────────────────────────────────────── Æ«ªñÑßΓóÑ¡¡«ßΓ∞ Γ¿»«ó ΓαÑíπÑΓß∩ Γ«½∞¬« ñ½∩ »ÑαÑ¼Ñ¡¡δσ Σá¬Γ¿- τÑß¬¿σ ¿ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó »α¿ óδº«óÑ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. äóá Γ¿»á, ß¬áªÑ¼ T1 ¿ T2, ∩ó½∩εΓß∩ Γ«ªñÑßΓóÑ¡¡δ¼¿, Ñß½¿ ∩ó- ½∩ÑΓß∩ ¿ßΓ¿¡¡δ¼ «ñ¡« ¿º ß½ÑñπεΘ¿σ πΓóÑαªñÑ¡¿⌐: T1 ¿ T2 »αÑñßΓáó- ½∩ε ß«í«⌐ «ñ¿¡ ¿ Γ«Γ ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á; T1 «»¿ßá¡ ¬á¬ φ¬ó¿óá- B.Pascal 7 & Objects/LR - 68 - ½Ñ¡Γ¡δ⌐ Γ¿»π, Γ«ªñÑßΓóÑ¡¡«¼π T2. éΓ«α«Ñ πß½«ó¿Ñ «º¡áτáÑΓ, τΓ« T1 ¡Ñ «í∩ºáΓÑ½∞¡« ñ«½ªÑ¡ íδΓ∞ «»¿ßá¡ ¬á¬ ¡Ñ»«ßαÑñßΓóÑ¡¡« φ¬ó¿óá½Ñ¡Γ¡δ⌐ T2. æ½ÑñπεΘ¿Ñ «»¿ßá¡¿∩ Γ¿»«ó: T1 = integer; T2 = T1; T3 = integer; T4 = T2; «º¡áτáεΓ, τΓ« T1, T2, T3, T4 ¿ integer ∩ó½∩εΓß∩ Γ«ªñÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿. æ½ÑñπεΘ¿Ñ «»¿ßá¡¿∩ Γ¿»«ó: T5 = set of integer; T6 = set of integer; ¡Ñ «»αÑñÑ½∩εΓ T5 ¿ T6 ¬á¬ Γ«ªñÑßΓóÑ¡¡δÑ, »«ß¬«½∞¬π set of integer ¡Ñ ∩ó½∩ÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ Γ¿»á. äóÑ »ÑαÑ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ó «ñ- ¡«¼ ¿ Γ«¼ ªÑ «»¿ßá¡¿¿, ¡á»α¿¼Ñα: V1, V2: set of integer; ¿¼ÑεΓ Γ«ªñÑßΓóÑ¡¡δÑ Γ¿»δ, »«ß¬«½∞¬π ¿σ «»¿ßá¡¿∩ ¡Ñ αáºñÑ½∞¡δ. Ä»¿ßá¡¿∩: V1: set of integer; V2: set of integer; V3: integer; V4: integer; «º¡áτáεΓ, τΓ« V3 ¿ V4 ¿¼ÑεΓ Γ«ªñÑßΓóÑ¡¡δ⌐ Γ¿», á V1 ¿ V2 - ¡ÑΓ. æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó ───────────────────────────────────────────────────────────────── ê¡«úñá, ¡á»α¿¼Ñα, ó óδαáªÑ¡¿∩σ ¿ «»Ñαáµ¿∩σ ßαáó¡Ñ¡¿∩, ΓαÑíπ- ÑΓß∩ ß«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó. æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó, ¬α«¼Ñ Γ«ú«, ∩ó½∩- ÑΓß∩ óáª¡«⌐ »αÑñ»«ßδ½¬«⌐ ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ »« »α¿ßóá¿óá¡¿ε. æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó ¿¼ÑÑΓ ¼ÑßΓ«, Ñß½¿ óδ»«½¡∩ÑΓß∩ »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ «ñ¡« ¿º ß½ÑñπεΘ¿σ πß½«ó¿⌐: * Äíá Γ¿»á ∩ó½∩εΓß∩ «ñ¿¡á¬«óδ¼¿. * Äíá Γ¿»á ∩ó½∩εΓß∩ óÑΘÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿. * Äíá Γ¿»á ∩ó½∩εΓß∩ µÑ½«τ¿ß½Ñ¡¡δ¼¿. * Äñ¿¡ Γ¿» ∩ó½∩ÑΓß∩ »«ññ¿á»áº«¡«¼ ñαπú«ú«. * Äíá Γ¿»á ∩ó½∩εΓß∩ «ΓαÑº¬á¼¿ «ñ¡«ú« ¿ Γ«ú« ªÑ «ß¡«ó¡«ú« Γ¿- B.Pascal 7 & Objects/LR - 69 - »á. * Äíá Γ¿»á ∩ó½∩εΓß∩ ¼¡«ªÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿ ß ß«ó¼ÑßΓ¿¼δ¼¿ íá- º«óδ¼¿ Γ¿»á¼¿. * Äñ¿¡ Γ¿» ∩ó½∩ÑΓß∩ ßΓα«¬«óδ¼ Γ¿»«¼, á ñαπú«⌐ - ßΓα«¬«óδ¼ Γ¿»«¼, π»á¬«óá¡¡δ¼ ßΓα«¬«óδ¼ Γ¿»«¼ ¿½¿ Γ¿»«¼ PChar; * Äñ¿¡ Γ¿» - φΓ« Γ¿» Pointer, á ñαπú«⌐ - ½εí«⌐ ßßδ½«τ¡δ⌐ Γ¿». * Äñ¿¡ Γ¿» ∩ó½∩ÑΓß∩ Γ¿»«¼ PChar, á ñαπú«⌐ - ß¿¼ó«½∞¡δ¼ ¼áß- ß¿ó«¼ ß ¡π½Ñó«⌐ íáº«⌐ ó¿ñá array[0..X] of Char (φΓ« ñÑ⌐ß- ΓóπÑΓ Γ«½∞¬« »α¿ αáºαÑΦÑ¡¿¿ ñ¿αÑ¬Γ¿ó«⌐ {$X+} αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá). * Äíá Γ¿»á ∩ó½∩εΓß∩ π¬áºáΓÑ½∩¼¿ ¿ñÑ¡Γ¿τ¡δσ Γ¿»«ó (φΓ« ñÑ⌐ß- ΓóπÑΓ Γ«½∞¬« »α¿ αáºαÑΦÑ¡¿¿ π¬áºáΓÑ½∩ ß »α«óÑα¬«⌐ Γ¿»á ñ¿- αÑ¬Γ¿ó«⌐ {$X+}). * Äíá Γ¿»á ∩ó½∩εΓß∩ »α«µÑñπα¡δ¼¿ ß ¿ñÑ¡Γ¿τ¡δ¼¿ Γ¿»á¼¿ αÑ- ºπ½∞ΓáΓ«ó, «ñ¿¡á¬«óδ¼ τ¿ß½«¼ »áαá¼ÑΓα«ó ¿ ß««ΓóÑΓßΓó¿Ñ¼ ¼Ñªñπ »áαá¼ÑΓαá¼¿. æ«ó¼ÑßΓ¿¼«ßΓ∞ »« »α¿ßóá¿óá¡¿ε ───────────────────────────────────────────────────────────────── æ«ó¼ÑßΓ¿¼«ßΓ∞ »« »α¿ßóá¿óá¡¿ε ¡Ñ«íσ«ñ¿¼á, Ñß½¿ ¿¼ÑÑΓ ¼ÑßΓ« »α¿ßóá¿óá¡¿Ñ º¡áτÑ¡¿∩, ¡á»α¿¼Ñα, ó «»ÑαáΓ«αÑ »α¿ßóá¿óá¡¿∩ ¿½¿ »α¿ »ÑαÑñáτÑ º¡áτÑ¡¿⌐ »áαá¼ÑΓα«ó. ç¡áτÑ¡¿Ñ Γ¿»á T1 ∩ó½∩ÑΓß∩ ß«ó¼ÑßΓ¿¼δ¼ »« »α¿ßóá¿óá¡¿ε ß Γ¿- »«¼ T2 (Γ« ÑßΓ∞ ñ«»πßΓ¿¼ «»ÑαáΓ«α T1:=T2), Ñß½¿ óδ»«½¡∩ÑΓß∩ «ñ¡« ¿º ß½ÑñπεΘ¿σ πß½«ó¿⌐: * T1 ¿ T2 ¿¼ÑεΓ Γ«ªñÑßΓóÑ¡¡δÑ Γ¿»δ, ¿ ¡¿ «ñ¿¡ ¿º ¡¿σ ¡Ñ ∩ó- ½∩ÑΓß∩ Σá⌐½«óδ¼ Γ¿»«¼ ¿½¿ ßΓαπ¬Γπα¡δ¼ Γ¿»«¼, ß«ñÑαªáΘ¿¼ ¬«¼»«¡Ñ¡Γ ß Σá⌐½«óδ¼ Γ¿»«¼ ¡á «ñ¡«¼ ¿º ßó«¿σ πα«ó¡Ñ⌐. * T1 ¿ T2 ∩ó½∩εΓß∩ ß«ó¼ÑßΓ¿¼δ¼¿ »«α∩ñ¬«óδ¼¿ Γ¿»á¼¿, ¿ º¡áτÑ- ¡¿∩ Γ¿»á T2 »«»áñáεΓ ó ñ¿á»áº«¡ ó«º¼«ª¡δσ º¡áτÑ¡¿⌐ T1. * T1 ¿ T2 ∩ó½∩εΓß∩ óÑΘÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿, ¿ º¡áτÑ¡¿∩ Γ¿»á T2 »«»áñáεΓ ó ñ¿á»áº«¡ ó«º¼«ª¡δσ º¡áτÑ¡¿⌐ T1. * T1 ∩ó½∩ÑΓß∩ óÑΘÑßΓóÑ¡¡δ¼ Γ¿»«¼, á T2 ∩ó½∩ÑΓß∩ µÑ½«τ¿ß½Ñ¡- ¡δ¼ Γ¿»«¼. * T1 ¿ T2 ∩ó½∩εΓß∩ ßΓα«¬«óδ¼¿ Γ¿»á¼¿. * T1 ∩ó½∩ÑΓß∩ ßΓα«¬«óδ¼ Γ¿»«¼, á T2 ∩ó½∩ÑΓß∩ ß¿¼ó«½∞¡δ¼ Γ¿- »«¼ (Char). B.Pascal 7 & Objects/LR - 70 - * T1 ∩ó½∩ÑΓß∩ ßΓα«¬«óδ¼ Γ¿»«¼, á T2 ∩ó½∩ÑΓß∩ π»á¬«óá¡¡δ¼ ßΓα«¬«óδ¼ Γ¿»«¼. * T1 ¿ T2 ∩ó½∩εΓß∩ ß«ó¼ÑßΓ¿¼δ¼¿ π»á¬«óá¡¡δ¼¿ ßΓα«¬«óδ¼¿ Γ¿- »á¼¿. * T1 ¿ T2 ∩ó½∩εΓß∩ ß«ó¼ÑßΓ¿¼δ¼¿ ¼¡«ªÑßΓóÑ¡¡δ¼¿ Γ¿»á¼¿, ¿ óßÑ τ½Ñ¡δ º¡áτÑ¡¿∩ Γ¿»á T2 »«»áñáεΓ ó ñ¿á»áº«¡ ó«º¼«ª¡δσ º¡á- τÑ¡¿⌐ T1. * T1 ¿ T2 ∩ó½∩εΓß∩ ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿ π¬áºáΓÑ½Ñ⌐. * T1 - φΓ« Γ¿» PChar, á T2 - φΓ« ßΓα«¬«óá∩ ¬«¡ßΓá¡Γá (φΓ« ñÑ⌐ßΓóπÑΓ Γ«½∞¬« »α¿ αáºαÑΦÑ¡¿¿ ñ¿αÑ¬Γ¿ó«⌐ {$X+} αáßΦ¿αÑ¡- ¡«ú« ß¿¡Γá¬ß¿ßá). * T1 ∩ó½∩ÑΓß∩ Γ¿»«¼ PChar, á T2 - ß¿¼ó«½∞¡δ¼ ¼áßß¿ó«¼ ß ¡π- ½Ñó«⌐ íáº«⌐ ó¿ñá array[0..X] of Char (φΓ« ñÑ⌐ßΓóπÑΓ Γ«½∞¬« »α¿ αáºαÑΦÑ¡¿¿ ñ¿αÑ¬Γ¿ó«⌐ {$X+} αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá). * T1 ¿ T2 ∩ó½∩εΓß∩ ß«ó¼ÑßΓ¿¼δ¼¿ »α«µÑñπα¡δ¼¿ Γ¿»á¼¿. * T1 »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«µÑñπα¡δ⌐ Γ¿», á T2 - »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ß ¿ñÑ¡Γ¿τ¡δ¼ Γ¿»«¼ αÑºπ½∞ΓáΓá, ¿ñÑ¡Γ¿τ¡δ¼ τ¿ß- ½«¼ »áαá¼ÑΓα«ó ¿ ß««ΓóÑΓßΓó¿Ñ¼ ¼Ñªñπ Γ¿»á¼¿ »áαá¼ÑΓα«ó. * ÄíΩÑ¬Γ¡δ⌐ Γ¿» T2 ß«ó¼ÑßΓ¿¼ »« »α¿ßóá¿óá¡¿ε ß «íΩÑ¬Γ¡δ¼ Γ¿- »«¼ T1, Ñß½¿ T2 ∩ó½∩ÑΓß∩ ñ«¼Ñ¡«¼ T1. * Æ¿» π¬áºáΓÑ½∩ É2, π¬áºδóáεΘ¿⌐ ¡á «íΩÑ¬Γ Γ¿»á Æ3, ß«ó¼ÑßΓ¿¼ »« »α¿ßóá¿óá¡¿ε ß Γ¿»«¼ π¬áºáΓÑ½∩ P1, π¬áºδóáεΘ¿¼ ¡á «íΩ- Ñ¬Γ T1, Ñß½¿ T2 ∩ó½∩ÑΓß∩ ñ«¼Ñ¡«¼ T1. ìá φΓá»Ñ ¬«¼»¿½∩µ¿¿ ¿ óδ»«½¡Ñ¡¿∩ óδñáÑΓß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í- ¬Ñ, Ñß½¿ ß«ó¼ÑßΓ¿¼«ßΓ∞ »« »α¿ßóá¿óá¡¿ε ¡Ñ«íσ«ñ¿¼á, á ¡¿ «ñ¡« ¿º πß½«ó¿⌐ »αÑñδñπΘÑú« ß»¿ß¬á ¡Ñ óδ»«½¡Ñ¡«. ÉáºñÑ½ «»¿ßá¡¿∩ Γ¿»«ó ───────────────────────────────────────────────────────────────── Åα«úαá¼¼δ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¿¼ÑεΓ ñ½∩ «»¿ßá¡¿∩ Γ¿»«ó ß»Ñ- µ¿á½∞¡δ⌐ αáºñÑ½ «»¿ßá¡¿∩ Γ¿»«ó. ìá»α¿¼Ñα: type TRange = integer; TNumber = integer; TColor = (red,green,blue); TTextIndex = 1..100; TTestValue = -99..99; TTestList = array[TestIndex] of TestValue; PestList = ^TTestList; B.Pascal 7 & Objects/LR - 71 - TDate = object year: integer; month: 1..12; day: 1.. 31; procedure SetDate(D, M, Y: Integer); function ShowDate: String; end; MeasureData = record when: Date; count: TTestIndex; data: TestListPtr; end; TMeasureList = array[1..50] of MeasureData; TName = string[80]; TSex = (male,female); TPersonDate = ^TPersonData; TPersonData = record name,firstName: TName; age: integer; married: boolean; father,child,sibling: Person; case s: Sex of male: (bearded: boolean); female: (pregnant: boolean); end; TPersonDate = array[0..SizeOf(TPersonDate)-1] of Byte; TPeople = file of TPersonData; é φΓ«¼ »α¿¼ÑαÑ Range, Number ¿ Integer ∩ó½∩εΓß∩ Γ«ªñÑßΓóÑ¡- ¡δ¼¿ Γ¿»á¼¿. TTestIndex ∩ó½∩ÑΓß∩ »α«ßΓ« ß«ó¼ÑßΓ¿¼δ¼ ¿ ß«ó¼ÑßΓ¿¼δ¼ »« »α¿ßóá¿óá¡¿ε, ¡« ¡Ñ Γ«ªñÑßΓóÑ¡¡δ¼, ß Γ¿»á¼¿ Number, Range ¿ Integer. ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á ¿ß»«½∞º«óá¡¿Ñ ó «»¿ßá¡¿∩σ TCharVal ¿ TPersonBuf óδαáªÑ¡¿⌐-¬«¡ßΓá¡Γ. B.Pascal 7 & Objects/LR - 72 - ─────────────────────────────────────────────────────────────────────── â½áóá 5. ÅÑαÑ¼Ñ¡¡δÑ ¿ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡δσ ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«- α«ó, ¬«Γ«αδÑ «í«º¡áτáεΓ ¡«óδÑ »ÑαÑ¼Ñ¡¡δÑ ¿ ¿σ Γ¿»δ. «»¿ßá¡¿Ñ ┌────────────┐ ┌───┐ ┌───┐ ┌───┐ »ÑαÑ¼Ñ¡¡«⌐ ─>│ß»¿ß«¬ ¿ñÑ¡-├─>│ : ├─>│Γ¿»├─┬───────────┬─>│ ; ├> │Γ¿Σ¿¬áΓ«α«ó │ └───┘ └───┘ │ │ └───┘ └────────────┘ │ ┌────────┐│ └>│absolute├┘ └────────┘ Æ¿», ºáñáóáÑ¼δ⌐ ñ½∩ »ÑαÑ¼Ñ¡¡δσ, ¼«ªÑΓ íδΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ Γ¿»á, ¬«Γ«αδ⌐ íδ½ αá¡ÑÑ «»¿ßá¡ ó αáºñÑ½Ñ «»¿ßá¡¿∩ Γ¿»«ó Γ«ú« ªÑ ßá¼«ú« í½«¬á, ¿½¿ í½«¬á, ó ¬«Γ«αδ⌐ óσ«ñ¿Γ ñá¡¡δ⌐ í½«¬, ¿½¿ ¼«ñπ- ½∩, ¿½¿ ªÑ φΓ«Γ Γ¿» ¼«ªÑΓ íδΓ∞ ¡«óδ¼ «»αÑñÑ½Ñ¡¿Ñ¼ Γ¿»á. Åα¿ π¬áºá¡¿¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ó ß»¿ß¬Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó «»¿ßá- ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ φΓ«Γ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¿¼ÑÑΓ ß¿½π ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »ÑαÑ- ¼Ñ¡¡«⌐ ó Γ«¼ í½«¬Ñ, úñÑ φΓ« «»¿ßá¡¿Ñ íδ½« π¬áºá¡«. è φΓ«⌐ »ÑαÑ- ¼Ñ¡¡«⌐ ¼«ª¡« «íαáΘáΓ∞ß∩ ¿º ½εí«ú« ¼ÑßΓá φΓ«ú« í½«¬á, Ñß½¿ ÑÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¡Ñ »ÑαÑ«»αÑñÑ½Ñ¡ ó í½«¬Ñ, óσ«ñ∩ΘÑ¼ ó »Ñαóδ⌐. ÅÑαÑ- «»αÑñÑ½Ñ¡¿Ñ «º¡áτáÑΓ, τΓ« ñ½∩ ¡«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¿ß»«½∞ºπÑΓß∩ Γ«Γ ªÑ ßá¼δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¡« φΓ« ¿ß»«½∞º«óá¡¿Ñ ¡Ñ «¬áºδóáÑΓ ó½¿∩¡¿∩ ¡á º¡áτÑ¡¿Ñ »Ñαó«¡áτá½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐. Åα¿óÑñÑ¼ »α¿¼Ñα αáºñÑ½á «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡«⌐: var X,Y,Z: real; I,J,K: integer; Digit: 0..9; C: Color; Done,Error: boolean; Operator: (plus, minus, times); Hue1,Hue2: set of Color; Today: Date; Results: MeasureList; P1,P2: Person; Matrix: array[1..10,1..10] of Real; ÅÑαÑ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ó¡Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¡áºδóáεΓß∩ ú½«íá½∞¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿ ¿ αáß»«½áúáεΓß∩ ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ. ÅÑαÑ- ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ó ßá¼«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿, ¡áºδóáεΓß∩ ½«- ¬á½∞¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿ ¿ αáß»«½áúáεΓß∩ ó ßÑú¼Ñ¡ΓÑ ßΓÑ¬á. B.Pascal 7 & Objects/LR - 73 - æÑú¼Ñ¡Γ ñá¡¡δσ ───────────────────────────────────────────────────────────────── îá¬ß¿¼á½∞¡δ⌐ αáº¼Ñα ßÑú¼Ñ¡Γá ñá¡¡δσ αáóÑ¡ 65520 íá⌐Γ. Åα¿ ¬«¼»«¡«ó¬Ñ »α«úαá¼¼δ (τΓ« áóΓ«¼áΓ¿τÑß¬¿ «ßπΘÑßΓó½∩ÑΓß∩ ó ¬«¡µÑ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ) ú½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ óßÑσ ¼«ñπ½Ñ⌐, ¿ß»«½∞- ºπÑ¼δσ »α«úαá¼¼«⌐, á Γá¬ªÑ ß«íßΓóÑ¡¡δÑ ú½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ »α«úαá¼¼δ, αáº¼ÑΘáεΓß∩ ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ. àß½¿ ñ½∩ ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ΓαÑíπÑΓß∩ í«½ÑÑ 65520 íá⌐Γ, Γ« ß½ÑñπÑΓ αáß»αÑñÑ½¿Γ∞ í«½∞Φ¿Ñ ßΓαπ¬Γπαδ ó ó¿ñÑ ñ¿¡á¼¿τÑß¬¿σ »Ñ- αÑ¼Ñ¡¡δσ. äá½∞¡Ñ⌐ΦÑÑ «»¿ßá¡¿Ñ φΓ«⌐ ΓÑ¼δ ¼«ª¡« ¡á⌐Γ¿ ó αáºñÑ½Ñ "ô¬áºáΓÑ½¿ ¿ ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ" ¡áßΓ«∩ΘÑ⌐ ú½áóδ. æÑú¼Ñ¡Γ ßΓÑ¬á ───────────────────────────────────────────────────────────────── Éáº¼Ñα ßÑú¼Ñ¡Γá ßΓÑ¬á πßΓá¡áó½¿óáÑΓß∩ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $M ¿ ½Ñª¿Γ ó »αÑñÑ½áσ «Γ 1024 ñ« 65520 íá⌐Γ. Å« π¼«½- τá¡¿ε αáº¼Ñα ßΓÑ¬á αáóÑ¡ 16384 íá⌐Γ. Åα¿ ¬áªñ«⌐ á¬Γ¿ó¿ºáµ¿¿ (óδº«óÑ) »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ó ßΓÑ¬ »«¼ÑΘáÑΓß∩ ¼¡«ªÑßΓó« ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ. Åα¿ ºáóÑαΦÑ¡¿¿ αáí«Γδ »á¼∩Γ∞, ºá¡¿¼áÑ¼á∩ ½«¬á½∞¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿, «ßó«í«ªñáÑΓß∩. é ½εí«⌐ ¼«¼Ñ¡Γ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ «íΘ¿⌐ αáº¼Ñα ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ó á¬Γ¿ó¡δσ »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ ¡Ñ ñ«½ªÑ¡ »αÑóδΦáΓ∞ αáº¼Ñαá ßÑú- ¼Ñ¡Γá ßΓÑ¬á. Åα¿¼Ñτá¡¿Ñ: àß½¿ óδ »¿ΦÑΓÑ »α¿½«ªÑ¡¿Ñ ñ½∩ Windows, Γ« Windows ¡á½áúáÑΓ ¡á ßÑú¼Ñ¡Γδ ñá¡¡δσ ¿ ßΓÑ¬á ß»Ñµ¿á½∞¡δÑ ΓαÑí«óá¡¿∩, Γá¬ τΓ« αáí«τ¿⌐ ¼á¬ß¿¼π¼ ßΓÑ¬á ¿ «í½áßΓ∞ ßÑú- ¼Ñ¡Γá ñá¡¡δσ ¼«úπΓ íδΓ∞ ¼Ñ¡∞ΦÑ, τÑ¼ π»«¼∩¡πΓδÑ ¼á¬ß¿¼á½∞¡δÑ «í½áßΓ¿ ßÑú¼Ñ¡Γá ñá¡¡δσ ¿ ßΓÑ¬á. ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $S ¿ß»«½∞ºπÑΓß∩ ñ½∩ »α«óÑα«¬ »ÑαÑ»«½- ¡Ñ¡¿∩ ßΓÑ¬á ó »α«úαá¼¼Ñ. é ß«ßΓ«∩¡¿¿ {$S+}, »α¿¡∩Γ«¼ »« π¼«½τá- ¡¿ε, úÑ¡Ñα¿απÑΓß∩ ¬«ñ, «ßπΘÑßΓó½∩εΘ¿⌐ »α«óÑα¬π »ÑαÑ»«½¡Ñ¡¿∩ ßΓÑ¬á ó ¡áτá½Ñ ¬áªñ«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. é ß«ßΓ«∩¡¿¿ {$S-} Γá¬¿Ñ »α«óÑα¬¿ ¡Ñ »α«ó«ñ∩Γß∩. ÅÑαÑ»«½¡Ñ¡¿Ñ ßΓÑ¬á ¼«ªÑΓ óδºóáΓ∞ áóáα¿⌐- ¡«Ñ ºáóÑαΦÑ¡¿Ñ αáí«Γδ ß¿ßΓÑ¼δ, »«φΓ«¼π ¡Ñ ß½ÑñπÑΓ «Γ¼Ñ¡∩Γ∞ »α«- óÑα¬¿ ßΓÑ¬á, Ñß½¿ ¡ÑΓ áíß«½εΓ¡«⌐ πóÑαÑ¡¡«ßΓ¿ ó Γ«¼, τΓ« »ÑαÑ»«½- ¡Ñ¡¿∩ ¡Ñ »α«¿º«⌐ñÑΓ. B.Pascal 7 & Objects/LR - 74 - Çíß«½εΓ¡δÑ »ÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡δÑ ¼«ª¡« «»¿ßáΓ∞ Γá¬, τΓ« «¡¿ íπñπΓ αáß»«½áúáΓ∞ß∩ »« «»αÑñÑ½Ñ¡¡«¼π áñαÑßπ ó »á¼∩Γ¿, ¿ ó φΓ«¼ ß½πτáÑ «¡¿ ¡áºδóáεΓß∩ áí- ß«½εΓ¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿. Ä»¿ßá¡¿Ñ Γá¬¿σ »ÑαÑ¼Ñ¡¡δσ ñ«½ª¡« ß«ñÑαªáΓ∞ »«ß½Ñ Γ¿»á «»ÑαáΓ«α absolute: «»¿ßá¡¿Ñ ┌────────┐ ┌─────────┐ ┌───┐ ┌─────────┐ áíß«½εΓ¡«⌐ ───>│absolute├─┬─>│µÑ½«Ñ íÑº├─>│ : ├─>│µÑ½«Ñ íÑº├─┬─> »ÑαÑ¼Ñ¡¡«⌐ └────────┘ │ │ º¡á¬á │ └───┘ │ º¡á¬á │ │ │ └─────────┘ └─────────┘ │ │ ┌─────────────┐ │ └──────>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────────┘ │ »ÑαÑ¼Ñ¡¡«⌐ │ └─────────────┘ ÄΓ¼ÑΓ¿¼, τΓ« ß»¿ß«¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó ó «»¿ßá¡¿¿ »ÑαÑ¼Ñ¡¡«⌐ »α¿ π¬áºá¡¿¿ «»ÑαáΓ«αá absolute ¼«ªÑΓ ß«ñÑαªáΓ∞ Γ«½∞¬« «ñ¿¡ ¿ñÑ¡- Γ¿Σ¿¬áΓ«α. ÅÑαóá∩ τáßΓ∞ «»ÑαáΓ«αá absolute ß«ñÑαª¿Γ ßÑú¼Ñ¡Γ ¿ ß¼ÑΘÑ¡¿Ñ, Γ« ÑßΓ∞ áñαÑß, »« ¬«Γ«α«¼π »ÑαÑ¼Ñ¡¡á∩ ñ«½ª¡á íδΓ∞ αáº¼ÑΘÑ¡á. CrtMode : byte absolute $0040:$0049; ÅÑαóá∩ ¬«¡ßΓá¡Γá «í«º¡áτáÑΓ íáºπ ßÑú¼Ñ¡Γá, á óΓ«αá∩ «»αÑñÑ- ½∩ÑΓ ß¼ÑΘÑ¡¿Ñ ó¡πΓα¿ φΓ«ú« ßÑú¼Ñ¡Γá. ÄíÑ ¬«¡ßΓá¡Γδ ¡Ñ ñ«½ª¡δ óδ- σ«ñ¿Γ∞ ºá »αÑñÑ½δ ñ¿á»áº«¡á «Γ $0000 ñ« $FFFF («Γ 0 ñ« 65535). é »α«úαá¼¼áσ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¿ ó Windows »Ñαóπε Σ«α¼π «»ÑαáΓ«α absolute ¡πª¡« ¿ß»«½∞º«óáΓ∞ «τÑ¡∞ á¬¬παáΓ¡«, Ñß½¿ ó««íΘÑ ßΓ«¿Γ φΓ« ñÑ½áΓ∞. é« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ Windows ¿½¿ DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á «¡á ¼«ªÑΓ ¡Ñ ¿¼ÑΓ∞ »«½¡«¼«τ¿⌐ ñ«ßΓπ»á ¬ «í½áßΓ∩¼ »á¼∩Γ¿ ó¡Ñ óáΦÑ⌐ »α«úαá¼¼δ. Å«»δΓ¬á ñ«ßΓπ»á ¬ φΓ¿¼ «í½áßΓ∩¼ »á¼∩Γ¿ ¼«ªÑΓ »α¿óÑßΓ¿ ¬ ßí«ε »α«úαá¼¼δ. B.Pascal 7 & Objects/LR - 75 - éΓ«αá∩ Σ«α¼á «»ÑαáΓ«αá absolute ¿ß»«½∞ºπÑΓß∩ ñ½∩ «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡«⌐, ¬«Γ«αá∩ »«¼ÑΘáÑΓß∩ "»«óÑασ" ñαπú«⌐ »ÑαÑ¼Ñ¡¡«⌐, Γ« ÑßΓ∞ »« Γ«¼π ªÑ ßá¼«¼π áñαÑßπ, τΓ« ¿ ñαπúá∩ »ÑαÑ¼Ñ¡¡á∩. var Str: string[32]; StrLen: byte absolute Str; ¥Γ« «»¿ßá¡¿Ñ π¬áºδóáÑΓ, τΓ« »ÑαÑ¼Ñ¡¡á∩ StrLen ñ«½ª¡á αáº¼Ñ- ΘáΓ∞ß∩ ß Γ«ú« ªÑ áñαÑßá, τΓ« ¿ »ÑαÑ¼Ñ¡¡á∩ Str, á »«ß¬«½∞¬π »Ñαóδ⌐ íá⌐Γ ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ ß«ñÑαª¿Γ ñ¿¡á¼¿τÑß¬πε ñ½¿¡π ßΓα«¬¿, Γ« StrLen íπñÑΓ ß«ñÑαªáΓ∞ ñ½¿¡π Str. ¥Γπ óΓ«απε Σ«α¼π «»ÑαáΓ«αá absolute ¼«ª¡« íÑº «»áßÑ¡¿∩ ¿ß- »«½∞º«óáΓ∞ »α¿ »α«úαá¼¼¿α«óá¡¿¿ ó Windows ¿½¿ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS. Åá¼∩Γ∞, ¬ ¬«Γ«α«⌐ óδ «íαáΘáÑΓÑß∞, ¡áσ«ñ¿Γß∩ ó «í½áßΓ¿ »α«ú- αá¼¼δ. B.Pascal 7 & Objects/LR - 76 - æßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── æßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε ¼«ªÑΓ «í«º¡áτáΓ∞ ß½ÑñπεΘÑÑ: - »ÑαÑ¼Ñ¡¡πε; - ¬«¼»«¡Ñ¡Γ ó »ÑαÑ¼Ñ¡¡«⌐ ßΓαπ¬Γπα¡«ú« ¿½¿ ßΓα«¬«ó«ú« Γ¿»á; - ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε, ¡á ¬«Γ«απε π¬áºδóáÑΓ »ÑαÑ¼Ñ¡¡á∩ Γ¿»a π¬áºáΓÑ½∞. æ¿¡Γá¬ß¿ß ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε ¿¼ÑÑΓ ó¿ñ: ┌─────────────┐ ßßδ½¬á ¡á ─┬──>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────────────────────────┬──> »ÑαÑ¼Ñ¡¡πε │ │ »ÑαÑ¼Ñ¡¡«⌐ │ ^^ ┌────────────┐ │ │ └─────────────┘ │└──┤¬óá½¿Σ¿¬áΓ«α│<─┘ │ ┌───────────────┐ │ └────────────┘ ├──>│»α¿óÑñÑ¡¿Ñ Γ¿»á├──────┤ │ │ »ÑαÑ¼Ñ¡¡«⌐ │ │ │ └───────────────┘ └─────┐ │ ┌─────────┐ ┌────────────┐ │ └──>│óδαáªÑ¡¿Ñ├─>│¬óá½¿Σ¿¬áΓ«α├──┘ └─────────┘ └────────────┘ ÄΓ¼ÑΓ¿¼, τΓ« ß¿¡Γá¬ß¿ß ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε ñ«»πß¬áÑΓ ¿ß- »«½∞º«óá¡¿Ñ óδαáªÑ¡¿∩, óδτ¿ß½∩εΘÑú« º¡áτÑ¡¿Ñ ßßδ½«τ¡«ú« Γ¿»á. éδ- αáªÑ¡¿Ñ ñ«½ª¡« ß½Ññ«óáΓ∞ ºá ¬óá½¿Σ¿¬áΓ«α«¼, αáºδ¼Ñ¡«óδóáεΘ¿¼ ßßδ- ½«τ¡«Ñ º¡áτÑ¡¿Ñ (¿½¿ ¿¡ñÑ¬ß¿απεΘ¿¼ º¡áτÑ¡¿Ñ¼ π¬áºáΓÑ½∩, Ñß½¿ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ {$X+} αáºαÑΦÑ¡ αáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß), τΓ« ñáÑΓ Σá¬Γ¿τÑß¬πε ßßδ½¬π ¡á »ÑαÑ¼Ñ¡¡πε. B.Pascal 7 & Objects/LR - 77 - èóá½¿Σ¿¬áΓ«αδ ───────────────────────────────────────────────────────────────── ÄíαáΘÑ¡¿Ñ ¬ Σπ¡¬µ¿¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαÑ- ¼Ñ¡¡«⌐ ß ¡Ñß¬«½∞¬¿¼¿ ¬óá½¿Σ¿¬áΓ«αá¼¿ ¿½¿ íÑº ¡¿σ, ¬«Γ«αδÑ ¿º¼Ñ¡∩- εΓ º¡áτÑ¡¿Ñ «íαáΘÑ¡¿∩ ¬ Σπ¡¬µ¿¿. ┌──────┐ ¬óá½¿Σ¿¬áΓ«α ──┬──>│¿¡ñÑ¬ß├──────────> │ └──────┘ ^ │ ┌────────────┐ │ ├──>│ ñÑß¿ú¡áΓ«α ├──┤ │ │ »«½∩ │ │ │ └────────────┘ │ │ ┌───┐ │ └──>│ ^ ├───────────┘ └───┘ êñÑ¡Γ¿Σ¿¬áΓ«α ¼áßß¿óá íÑº ¬óá½¿Σ¿¬áΓ«αá ∩ó½∩ÑΓß∩ ßßδ½¬«⌐ ¡á óÑß∞ ¼áßß¿ó, ¡á»α¿¼Ñα: Results êñÑ¡Γ¿Σ¿¬áΓ«α ¼áßß¿óá ß π¬áºá¡¡δ¼ ¿¡ñÑ¬ß«¼ «í«º¡áτáÑΓ ¬«¡¬- αÑΓ¡δ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá, ó ñá¡¡«¼ ß½πτáÑ ßΓαπ¬Γπα¡πε »ÑαÑ¼Ñ¡¡πε: Results[Current+1] é ß½πτáÑ, Ñß½¿ φ½Ñ¼Ñ¡Γ«¼ ∩ó½∩ÑΓß∩ ºá»¿ß∞, ºá ¿¡ñÑ¬ß«¼ ¼«ª¡« π¬áºáΓ∞ «í«º¡áτÑ¡¿Ñ »«½∩. é φΓ«¼ ß½πτáÑ ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε «º- ¡áτáÑΓ ¬«¡¬αÑΓ¡«Ñ »«½Ñ ¬«¡¬αÑΓ¡«ú« φ½Ñ¼Ñ¡Γá ¼áßß¿óá: Results[Current+1].Data äÑß¿ú¡áΓ«α »«½∩ ó π¬áºáΓÑ½Ñ-»«½Ñ ¼«ªÑΓ ß«»α«ó«ªñáΓ∞ß∩ ß¿¼- ó«½«¼ π¬áºáΓÑ½∩ (^) ß ΓÑ¼, τΓ«íδ π¬áºáΓ∞ αáº½¿τ¿Ñ ¼Ñªñπ π¬áºáΓÑ- ½Ñ¼-»«½Ñ¼ ¿ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¡á ¬«Γ«απε «¡ π¬áºδóáÑΓ. Results[Current+1].Data^ àß½¿ »ÑαÑ¼Ñ¡¡á∩, ¡á ¬«Γ«απε π¬áºδóáÑΓß∩, ∩ó½∩ÑΓß∩ ¼áßß¿ó«¼, Γ« ¼«ª¡« ñ«íáó¿Γ∞ ¿¡ñÑ¬ßδ ñ½∩ «í«º¡áτÑ¡¿∩ ¬«¼»«¡Ñ¡Γ«ó φΓ«ú« ¼áß- ß¿óá. Results[Current+1].Data^[J] B.Pascal 7 & Objects/LR - 78 - îáßß¿óδ, ßΓα«¬¿ ¿ ¿¡ñÑ¬ßδ ───────────────────────────────────────────────────────────────── è«¡¬αÑΓ¡δ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá «í«º¡áτáÑΓß∩ ß »«¼«Θ∞ε ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε ¼áßß¿óá, ºá ¬«Γ«α«⌐ π¬áºδóáÑΓß∩ ¿¡ñÑ¬ß, «»αÑñÑ½∩εΘ¿⌐ ñá¡¡δ⌐ φ½Ñ¼Ñ¡Γ. è«¡¬αÑΓ¡δ⌐ ß¿¼ó«½ ó ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ «í«º¡áτáÑΓß∩ ß »«- ¼«Θ∞ε ßßδ½¬¿ ¡á ßΓα«¬«óπε »ÑαÑ¼Ñ¡¡πε, ºá ¬«Γ«α«⌐ π¬áºδóáÑΓß∩ ¿¡- ñÑ¬ß, «»αÑñÑ½∩εΘ¿⌐ »«º¿µ¿ε ß¿¼ó«½á. ┌───┐ ┌─────────┐ ┌───┐ ¿¡ñÑ¬ß ──>│ [ ├───────>│óδαáªÑ¡¿Ñ├────┬──>│ ] ├──> └───┘ ^ └─────────┘ │ └───┘ │ ┌───┐ │ └───────┤ , │<───────┘ └───┘ ê¡ñÑ¬ß¡δÑ óδαáªÑ¡¿∩ «í«º¡áτáεΓ ¬«¼»«¡Ñ¡Γδ ó ß««ΓóÑΓßΓóπεΘÑ⌐ αáº¼Ñα¡«ßΓ¿ ¼áßß¿óá. ù¿ß½« óδαáªÑ¡¿⌐ ¡Ñ ñ«½ª¡« »αÑóδΦáΓ∞ τ¿ß½á ¿¡ñÑ¬ß¡δσ Γ¿»«ó ó «»¿ßá¡¿¿ ¼áßß¿óá. ü«½ÑÑ Γ«ú«, Γ¿» ¬áªñ«ú« óδαá- ªÑ¡¿∩ ñ«½ªÑ¡ íδΓ∞ ß«ó¼ÑßΓ¿¼δ¼ »« »α¿ßóá¿óá¡¿ε ß ß««ΓóÑΓßΓóπεΘ¿¼ ¿¡ñÑ¬ß¡δ¼ Γ¿»«¼. é ß½πτáÑ ¼¡«ú«¼Ñα¡«ú« ¼áßß¿óá ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¡Ñß¬«½∞¬« ¿¡ñÑ¬ß«ó ¿½¿ ¡Ñß¬«½∞¬« óδαáªÑ¡¿⌐ ó ¿¡ñÑ¬ßÑ. ìá»α¿¼Ñα: Matrix[I][J] τΓ« Γ«ªñÑßΓóÑ¡¡« ºá»¿ß¿: Matrix[I,J] æΓα«¬«óπε »ÑαÑ¼Ñ¡¡πε ¼«ª¡« »α«¿¡ñÑ¬ß¿α«óáΓ∞ ß »«¼«Θ∞ε «ñ¿- ¡«τ¡«ú« ¿¡ñÑ¬ß¡«ú« óδαáªÑ¡¿∩, º¡áτÑ¡¿Ñ ¬«Γ«α«ú« ñ«½ª¡« íδΓ∞ ó ñ¿- á»áº«¡Ñ 0...n, úñÑ n - π¬áºá¡¡δ⌐ ó «»¿ßá¡¿¿ αáº¼Ñα ßΓα«¬¿. ¥Γ« ñáÑΓ ñ«ßΓπ» ¬ ¬áªñ«¼π ß¿¼ó«½π ó ßΓα«¬«ó«¼ º¡áτÑ¡¿¿, Ñß½¿ º¡áτÑ¡¿Ñ ß¿¼ó«½á ¿¼ÑÑΓ Γ¿» Char. ÅÑαóδ⌐ ß¿¼ó«½ ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ (¿¡ñÑ¬ß 0) ß«ñÑαª¿Γ ñ¿¡á- ¼¿τÑß¬πε ñ½¿¡π ßΓα«¬¿, Γ« ÑßΓ∞ Length(S) Γ«ªñÑßΓóÑ¡¡« Ord(S[0]). àß½¿ áΓα¿íπΓπ ñ½¿¡δ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ, Γ« ¬«¼»¿½∩Γ«α ¡Ñ »α«- óÑα∩ÑΓ, ∩ó½∩ÑΓß∩ ½¿ φΓ« º¡áτÑ¡¿Ñ ¼Ñ¡∞Φ¿¼ «»¿ßá¡¡«ú« αáº¼Ñαá ßΓα«- ¬¿. éδ ¼«ªÑΓÑ π¬áºáΓ∞ ¿¡ñÑ¬ß ßΓα«¬¿ ¿ ó¡Ñ ÑÑ ΓÑ¬πΘÑ⌐ ñ¿¡á¼¿τÑß¬«⌐ ñ½¿¡δ. é φΓ«¼ ß½πτáÑ ßτ¿ΓδóáÑ¼δÑ ß¿¼ó«½δ íπñπΓ ß½πτá⌐¡δ¼¿, á »α¿ßóá¿óá¡¿∩ ó¡Ñ ΓÑ¬πΘÑ⌐ ñ½¿¡δ ¡Ñ »«ó½¿∩εΓ ¡á ñÑ⌐ßΓó¿ΓÑ½∞¡«Ñ º¡á- τÑ¡¿Ñ ßΓα«¬«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐. è«úñá ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$X+} αáºαÑΦÑ¡ αáßΦ¿- αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß, º¡áτÑ¡¿Ñ PChar ¼«ªÑΓ ¿¡ñÑ¬ß¿α«óáΓ∞ß∩ «ñ¿¡«τ¡δ¼ ¿¡ñÑ¬ß¡δ¼ óδαáªÑ¡¿Ñ¼ Γ¿»á Word. ê¡ñÑ¬ß¡«Ñ óδαáªÑ¡¿Ñ ºáñáÑΓ ß¼ÑΘÑ- ¡¿Ñ, ¬«Γ«α«Ñ ¡πª¡« ñ«íáó¿Γ∞ ¬ ß¿¼ó«½π »ÑαÑñ Ñú« αáºδ¼Ñ¡«óá¡¿Ñ¼ ñ½∩ »«½πτÑ¡¿∩ ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε Γ¿»á Char. B.Pascal 7 & Objects/LR - 79 - çá»¿ß¿ ¿ ñÑß¿ú¡áΓ«αδ »«½Ñ⌐ ───────────────────────────────────────────────────────────────── è«¡¬αÑΓ¡«Ñ »«½Ñ »ÑαÑ¼Ñ¡¡«⌐-ºá»¿ß¿ «í«º¡áτáÑΓß∩ ß »«¼«Θ∞ε ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε-ºá»¿ß∞, »«ß½Ñ ¬«Γ«α«⌐ π¬áºδóáÑΓß∩ «í«º¡áτÑ- ¡¿Ñ »«½∩, ß»Ñµ¿Σ¿µ¿απεΘÑÑ φΓ« »«½Ñ. ┌───┐ ┌─────────────┐ «í«º¡áτÑ¡¿Ñ »«½∩ ───>│ . │───>│¿ñÑ¡Γ¿Σ¿¬áΓ«α│───> └───┘ │ »«½∩ │ └─────────────┘ Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ñÑß¿ú¡áΓ«α«ó »«½Ñ⌐: Today.Year Results[1].Count Result[1].When.Month é «»ÑαáΓ«αÑ, óσ«ñ∩ΘÑ¼ ó «»ÑαáΓ«α with, «í«º¡áτÑ¡¿ε »«½∩ ¡Ñ ñ«½ª¡á »αÑñΦÑßΓó«óáΓ∞ ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε, ß«ñÑαªáΘπε ºá»¿ß∞. äÑß¿ú¡áΓ«αδ ¬«¼»«¡Ñ¡Γ«ó «íΩÑ¬Γá ───────────────────────────────────────────────────────────────── ö«α¼áΓ ñÑß¿ú¡áΓ«αá ¬«¼»«¡Ñ¡Γá «íΩÑ¬Γá ß«ó»áñáÑΓ ß Σ«α¼áΓ«¼ ñÑß¿ú¡áΓ«αá »«½∩ ºá»¿ß¿. Æ« ÑßΓ∞, «¡ ß«ßΓ«¿Γ ¿º φ¬ºÑ¼»½∩αá (ßßδ½- ¬¿ ¡á »ÑαÑ¼Ñ¡¡πε), ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ Γ«τ¬á ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¬«¼- »«¡Ñ¡Γá. äÑß¿ú¡áΓ«α ¬«¼»«¡Ñ¡Γá, ¬«Γ«αδ⌐ «í«º¡áτáÑΓ ¼ÑΓ«ñ, ¡áºδóá- ÑΓß∩ ñÑß¿ú¡áΓ«α«¼ ¼ÑΓ«ñá. è φ¬ºÑ¼»½∩απ «íΩÑ¬Γ¡«ú« Γ¿»á ¼«ª¡« »α¿¼Ñ¡¿Γ∞ «»ÑαáΓ«α with. é φΓ«¼ ß½πτáÑ »α¿ ßßδ½¬Ñ ¡á ¬«¼»«¡Ñ¡Γδ «íΩÑ¬Γ¡«ú« Γ¿»á φ¬ºÑ¼»½∩α ¿ Γ«τ¬π ¼«ª¡« «»πßΓ¿Γ∞. ¥¬ºÑ¼»½∩α ¿ Γ«τ¬π ¼«ª¡« «»πßΓ¿Γ∞ Γá¬ªÑ ó ½εí«¼ í½«¬Ñ ¼ÑΓ«ñá. Åα¿ φΓ«¼ φΣΣÑ¬Γ íπñÑΓ Γ«Γ ªÑ, τΓ« ¿ »α¿ ºá»¿ß¿ »ÑαÑñ ßßδ½¬«⌐ ¡á ¬«¼»«¡Ñ¡Γ Self ¿ Γ«τ¬¿. ÅÑαÑ¼Ñ¡¡δÑ-π¬áºáΓÑ½¿ ¿ ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── ç¡áτÑ¡¿Ñ¼ »ÑαÑ¼Ñ¡¡«⌐-π¬áºáΓÑ½∩ ∩ó½∩ÑΓß∩ ¿½¿ nil (Γ« ÑßΓ∞ »πßΓ«Ñ º¡áτÑ¡¿Ñ), ¿½¿ áñαÑß º¡áτÑ¡¿∩, π¬áºδóáεΘ¿⌐ ¡á ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε. æßδ½¬á ¡á ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε, ¡á ¬«Γ«απε π¬áºδóáÑΓ »Ñ- αÑ¼Ñ¡¡á∩-π¬áºáΓÑ½∞, ºá»¿ßδóáÑΓß∩ ó ó¿ñÑ »ÑαÑ¼Ñ¡¡«⌐-π¬áºáΓÑ½∩, »«ß½Ñ ¬«Γ«α«⌐ ßΓáó¿Γß∩ ß¿¼ó«½ π¬áºáΓÑ½∩ (^). ä¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ¿ º¡áτÑ¡¿∩ ¿σ π¬áºáΓÑ½Ñ⌐ ß«ºñáεΓß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡δσ »α«µÑñπα New ¿ GetMem. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ B.Pascal 7 & Objects/LR - 80 - «»Ñαáµ¿ε @ ¿ ßΓá¡ñáαΓ¡πε Σπ¡¬µ¿ε Ptr ñ½∩ ß«ºñá¡¿∩ º¡áτÑ¡¿⌐ π¬áºá- ΓÑ½∩, ¬«Γ«αδÑ αáßß¼áΓα¿óáεΓß∩ ¬á¬ π¬áºáΓÑ½¿ ñ¿¡á¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡- ¡δσ. ç¡áτÑ¡¿Ñ nil ¡Ñ π¬áºδóáÑΓ ¡¿ ¡á ¬á¬πε »ÑαÑ¼Ñ¡¡πε. àß½¿ óδ »«»δΓáÑΓÑß∞ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿ ¡Ñ«»αÑ- ñÑ½Ñ¡¡«¼ º¡áτÑ¡¿¿ π¬áºáΓÑ½∩ ¿½¿ π¬áºáΓÑ½Ñ, αáó¡«¼ nil, αÑºπ½∞ΓáΓ íπñÑΓ ¡Ñ«»αÑñÑ½Ñ¡¡δ¼. Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ßßδ½«¬ (π¬áºáΓÑ½Ñ⌐) ¡á ñ¿¡á¼¿- τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ: P1^ P1.Sibling^ Results[1].Data^ B.Pascal 7 & Objects/LR - 81 - Åα¿óÑñÑ¡¿Ñ Γ¿»«ó »ÑαÑ¼Ñ¡¡δσ ───────────────────────────────────────────────────────────────── æßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε «ñ¡«ú« Γ¿»á ¼«ªÑΓ íδΓ∞ »αÑ«íαáº«óá¡á ó ßßδ½¬π ¡á »ÑαÑ¼Ñ¡¡πε ñαπú«ú« Γ¿»á ß »«¼«Θ∞ε »α¿óÑñÑ¡¿∩ Γ¿»«ó »Ñ- αÑ¼Ñ¡¡δσ. ┌─────────────┐ ┌───┐ ┌──────────┐ ┌───┐ »α¿óÑñÑ¡¿Ñ ───>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├──>│ ( ├──>│ßßδ½¬á ¡á ├──>│ ) ├─> Γ¿»«ó │ Γ¿»á │ └───┘ │»ÑαÑ¼Ñ¡¡πε│ └───┘ └─────────────┘ └──────────┘ è«úñá »α¿óÑñÑ¡¿Ñ Γ¿»«ó »α¿¼Ñ¡∩ÑΓß∩ ¬ ßßδ½¬Ñ ¡á »ÑαÑ¼Ñ¡¡πε, ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε αáßß¼áΓα¿óáÑΓß∩ ¬á¬ φ¬ºÑ¼»½∩α Γ¿»á, »αÑñß- Γáó½Ñ¡¡«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ Γ¿»á. Éáº¼Ñα »ÑαÑ¼Ñ¡¡«⌐ (τ¿ß½« íá⌐Γ, ºá¡¿¼áÑ¼δσ »ÑαÑ¼Ñ¡¡«⌐) ñ«½ªÑ¡ íδΓ∞ αáóÑ¡ αáº¼Ñαπ Γ¿»á, »αÑñßΓáó- ½Ñ¡¡«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ Γ¿»á. Å«ß½Ñ »α¿óÑñÑ¡¿∩ Γ¿»á »ÑαÑ¼Ñ¡¡«⌐ ¼«ª¡« π¬áºáΓ∞ «ñ¿¡ ¿½¿ ¡Ñß¬«½∞¬« ¬óá½¿Σ¿¬áΓ«α«ó, Ñß½¿ φΓ« ñ«»πß- ¬áÑΓß∩ π¬áºá¡¡δ¼ Γ¿»«¼. Åα¿¼Ñτá¡¿Ñ: Ä»αÑñÑ½∩Γ∞ ñ«»πßΓ¿¼«ßΓ∞ »α¿óÑñÑ¡¿∩ Γ¿»á ñ«½ªÑ¡ »α«úαá¼¼¿ßΓ. Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó »α¿óÑñÑ¡¿∩ Γ¿»«ó »ÑαÑ¼Ñ¡¡δσ: type TByteRec = record lo, hi: byte; end; TWordRec = record low, high: word; end; TPtrRec = record ofs, seg: word; end; PByte = ^Byte; var B: byte; W: word; L: longint; P: pointer; begin W := $1234; B := TByteRec(W).lo; TByteRec(W).hi := 0; L := $1234567; W := TWordRec(L).lo; B := PByte(L)^; P := Ptr($40,$49); W := TPtrRec(P).seg; Inc(TPtrRec(P).Ofs,4); end. B.Pascal 7 & Objects/LR - 82 - ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á ¿ß»«½∞º«óá¡¿Ñ ñ½∩ ñ«ßΓπ»á ¬ ¼½áñΦ¿¼ ¿ ßΓáαΦ¿¼ íá⌐Γá¼ ß½«óá Γ¿»á TByteRec: φΓ« ß««ΓóÑΓßΓóπÑΓ óßΓα«Ñ¡¡δ¼ Σπ¡¬µ¿∩¼ Lo ¿ Hi, Γ«½∞¬« ¡áñ ½Ñó«⌐ τáßΓ∞ε ó «»Ñαáµ¿¿ »α¿ßóá¿óá¡¿Ñ ¼«ªÑΓ óδ»«½¡∩Γ∞ß∩ »α¿óÑñÑ¡¿Ñ Γ¿»á. ÄΓ¼ÑΓ¿¼ Γá¬ªÑ, τΓ« ñ½∩ ñ«ßΓπ»á ¬ ¼½áñΦ¿¼ ¿ ßΓáαΦ¿¼ ß½«óá¼ ñ½¿¡¡«ú« µÑ½«ú«, á Γá¬ªÑ ¬ ß¼ÑΘÑ¡¿ε ¿ áñαÑßπ ßÑú¼Ñ¡Γá π¬áºáΓÑ½∩ ¿ß»«½∞ºπεΓß∩ Γ¿»δ TWordRec ¿ TPtrRec. Borland Pascal Γá¬ªÑ »«½¡«ßΓ∞ε »«ññÑαª¿óáÑΓ »α¿óÑñÑ¡¿Ñ Γ¿»«ó ñ½∩ »α«µÑñπα¡δσ Γ¿»«ó. ìá»α¿¼Ñα, ¿¼Ñ∩ ß½ÑñπεΘ¿Ñ «»¿ßá¡¿∩: type Func = function(X: Integer): Integer; var F: Func; P: Pointer; N: Integer; óδ ¼«ªÑΓÑ »«ßΓα«¿Γ∞ ß½ÑñπεΘ¿Ñ »α¿ßóá¿óá¡¿∩: F := Func(P); { »α¿ßó«¿Γ∞ F º¡áτÑ¡¿Ñ »α«µÑñπα¡«ú« Γ¿»á ó P } Func(P) := F; { »α¿ßó«¿Γ∞ P º¡áτÑ¡¿Ñ »α«µÑñπα¡«ú« Γ¿»á ó F } @F := P; { »α¿ßó«¿Γ∞ F º¡áτÑ¡¿Ñ-π¬áºáΓÑ½∞ ó P } P := @F; { »α¿ßó«¿Γ∞ P º¡áτÑ¡¿Ñ-π¬áºáΓÑ½∞ ó F } N := F(N); { óδºóáΓ∞ Σπ¡¬µ¿ε τÑαÑº F } N := Func(P)(N); { óδºóáΓ∞ Σπ¡¬µ¿ε τÑαÑº P } ÄíαáΓ¿ΓÑ ó τáßΓ¡«ßΓ¿ ó¡¿¼á¡¿Ñ ¡á «»Ñαáµ¿ε »«½πτÑ¡¿∩ áñαÑßá @, ¬«Γ«αá∩ »α¿¼Ñ¡∩ÑΓß∩ ¬ »ÑαÑ¼Ñ¡¡«⌐ »α«µÑñπα¡«ú« Γ¿»á. àÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó ½Ñó«⌐ τáßΓ¿ »α¿ßóá¿óá¡¿∩. èα«¼Ñ Γ«ú«, «Γ¼ÑΓ∞ΓÑ »α¿óÑñÑ¡¿Ñ Γ¿»á ¡á »«ß½Ññ¡Ñ⌐ ßΓα«¬Ñ »α¿ óδº«óÑ Σπ¡¬µ¿ε τÑαÑº »Ñ- αÑ¼Ñ¡¡πε-π¬áºáΓÑ½∞. B.Pascal 7 & Objects/LR - 83 - Æ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── Æ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ ¼«ª¡« ßαáó¡¿Γ∞ ß ¿¡¿µ¿á½¿º¿α«óá¡¡δ- ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿ - »ÑαÑ¼Ñ¡¡δ¼¿, º¡áτÑ¡¿∩ ¬«Γ«αδσ «»αÑñÑ½∩εΓß∩ ¡á óσ«ñÑ ó ¿σ í½«¬. é «Γ½¿τ¿Ñ «Γ ¡ÑΓ¿»¿º¿α«óá¡¡δσ ¬«¡ßΓá¡Γ ó «»¿ßá- ¡¿¿ Γ¿»¿º¿α«óá¡¡«⌐ ¬«¡ßΓá¡Γδ π¬áºδóáÑΓß∩ ¬á¬ Γ¿», Γá¬ ¿ º¡áτÑ¡¿Ñ ¬«¡ßΓá¡Γδ. «»¿ßá¡¿Ñ Γ¿»¿º¿α«óá¡¡«⌐ ¬«¡ßΓá¡Γδ │ ┌─────────────┐ ┌───┐ ┌───┐ ┌───┐ ┌──────────────┐ └─>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─>│ : ├─>│Γ¿»├─>│ = ├─>│Γ¿»¿º¿α«óá¡¡á∩├──> └─────────────┘ └───┘ └───┘ └───┘ │ ¬«¡ßΓá¡Γá │ └──────────────┘ Γ¿»¿º¿α«óá¡¡á∩ ┌───────────────────┐ ¬«¡ßΓá¡Γá ──────┬───>│ ¬«¡ßΓá¡Γá ├───────> │ └───────────────────┘ ^ │ ┌───────────────────┐ │ ├───>│ áñαÑß¡á∩ ¬«¡ßΓá¡Γá├───┤ │ └───────────────────┘ │ │ ┌───────────────────┐ │ ├───>│ ¬«¡ßΓá¡Γá-¼áßß¿ó ├───┤ │ └───────────────────┘ │ │ ┌──────────────────┐ │ ├───>│ ¬«¡ßΓá¡Γá-ºá»¿ß∞ ├────┤ │ └──────────────────┘ │ │ ┌───────────────────┐ │ ├───>│ ¬«¡ßΓá¡Γá-«íΩÑ¬Γ ├───┤ │ └───────────────────┘ │ │ ┌───────────────────┐ │ └───>│¬«¡ßΓá¡Γá-¼¡«ªÑßΓó«├───┘ └───────────────────┘ Æ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Γ«τ¡« Γá¬ ªÑ, ¬á¬ »ÑαÑ¼Ñ¡¡δÑ Γ«ú« ªÑ ßá¼«ú« Γ¿»á, ¿ «¡¿ π¬áºδóáεΓß∩ ó ½Ñó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩. ÄΓ¼ÑΓ¿¼, τΓ« Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ß- Γá¡Γδ ¿¡¿µ¿á½¿º¿απεΓß∩ Γ«½∞¬« «ñ¿¡ αáº - ó ¡áτá½Ñ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. Æá¬¿¼ «íαáº«¼, »α¿ ¬áªñ«¼ ¡«ó«¼ óσ«ñÑ ó »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ½«¬á½∞¡« «»¿ßá¡¡δÑ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ ºá¡«ó« ¡Ñ ¿¡¿µ¿á½¿º¿απεΓß∩. èα«¼Ñ «íδτ¡δσ óδαáªÑ¡¿⌐-¬«¡ßΓá¡Γ º¡áτÑ¡¿Ñ Γ¿»¿º¿α«óá¡¡«⌐ ¬«¡ßΓá¡Γδ ¼«ªÑΓ ºáñáóáΓ∞ß∩ ß »«¼«Θ∞ε áñαÑß¡«ú« óδαáªÑ¡¿∩-¬«¡ßΓá¡- Γδ. ÇñαÑß¡«Ñ óδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γá - φΓ« óδαáªÑ¡¿Ñ, »αÑñπß¼áΓα¿óáε- ΘÑÑ »«½πτÑ¡¿Ñ áñαÑßá, ß¼ÑΘÑ¡¿∩ ¿½¿ ßÑú¼Ñ¡Γá ú½«íá½∞¡«⌐ »ÑαÑ¼Ñ¡- ¡«⌐, Γ¿»¿º¿α«óá¡¡«⌐ ¬«¡ßΓá¡Γδ, »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. ÇñαÑß¡δÑ óδαáªÑ¡¿∩-¬«¡ßΓá¡Γδ ¡Ñ ¼«úπΓ ßßδ½áΓ∞ß∩ ¡á ½«¬á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ (αáß»«½«ªÑ¡¡δÑ ó ßΓÑ¬Ñ) ¿½¿ ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ (αáº¼ÑΘÑ¡¡δÑ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿), »«ß¬«½∞¬π ¿σ áñαÑßá ¡Ñ½∞º∩ óδτ¿ß½¿Γ∞ ¡á φΓá»Ñ ¬«¼»¿½∩µ¿¿. B.Pascal 7 & Objects/LR - 84 - è«¡ßΓá¡Γδ »α«ßΓ«ú« Γ¿»á ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ Γ¿»¿º¿α«óá¡¡«⌐ ¬«¡ßΓá¡Γδ ß »α«ßΓδ¼ Γ¿»«¼ «º¡áτáÑΓ π¬áºá¡¿Ñ º¡áτÑ¡¿∩ ¬«¡ßΓá¡Γδ: const Maximum : integer = 9999; Factor : real = -0.1; Breakchar : char = #3; èá¬ πªÑ π»«¼¿¡á½«ß∞ αá¡ÑÑ, º¡áτÑ¡¿Ñ Γ¿»¿º¿α«óá¡¡«⌐ ¬«¡ßΓá¡Γδ ¼«ª¡« ºáñáΓ∞ ß »«¼«Θ∞ε áñαÑß¡«ú« óδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γδ, Γ« ÑßΓ∞ óδ- αáªÑ¡¿∩, ó ¬«Γ«α«¼ ¿ß»«½∞ºπεΓß∩ áñαÑß, ß¼ÑΘÑ¡¿Ñ ¿½¿ ßÑú¼Ñ¡Γ ú½«- íá½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, Γ¿»¿º¿α«óá¡¡«⌐ ¬«¡ßΓá¡Γδ, »α«µÑñπαδ ¿½¿ Σπ¡¬- µ¿¿. ìá»α¿¼Ñα: var Buffer: array[0..1023] of Byte; const BufferOfs: Word = Ofs(Buffer); BufferSeg: Word = Seg(Buffer); Å«ß¬«½∞¬π Γ¿»¿º¿α«óá¡¡á∩ ¬«¡ßΓá¡Γá Σá¬Γ¿τÑß¬¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »ÑαÑ¼Ñ¡¡πε ß« º¡áτÑ¡¿Ñ¼ ¬«¡ßΓá¡Γδ, «¡á ¡Ñ ∩ó½∩ÑΓß∩ óºá¿¼«- ºá¼Ñ¡∩Ñ¼«⌐ ñ½∩ «íδτ¡δσ ¬«¡ßΓá¡Γ. ìá»α¿¼Ñα, «¡á ¡Ñ ¼«ªÑΓ ¿ß»«½∞º«- óáΓ∞ß∩ ó «»¿ßá¡¿¿ ñαπú¿σ ¬«¡ßΓá¡Γ ¿½¿ Γ¿»«ó. const Min : integer = 0; Max : integer = 99; type Vector = array[Min..Max] of integer; Ä»¿ßá¡¿Ñ Vector ∩ó½∩ÑΓß∩ ¡Ññ«»πßΓ¿¼δ¼, »«ß¬«½∞¬π Min ¿ Max ∩ó½∩εΓß∩ Γ¿»¿º¿α«óá¡¡δ¼¿ ¬«¡ßΓá¡Γá¼¿. è«¡ßΓá¡Γδ ßΓα«¬«ó«ú« Γ¿»á ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ Γ¿»¿º¿α«óá¡¡«⌐ ¬«¡ßΓá¡Γδ ßΓα«¬«ó«ú« Γ¿»á ß«ñÑαª¿Γ ¼á¬ß¿¼á½∞¡πε ñ½¿¡π ßΓα«¬¿ ¿ ÑÑ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ: const Heading : string[7] = 'Section'; NewLine : string[2] = #13#10; TrueStr : string[5] = 'Yes'; FalseStr : string[5] = 'No'; B.Pascal 7 & Objects/LR - 85 - è«¡ßΓá¡Γδ ßΓαπ¬Γπα¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ ßΓαπ¬Γπα¡«ú« Γ¿»á «»αÑñÑ½∩ÑΓ º¡áτÑ¡¿Ñ ¬áªñ«ú« ¬«¼»«¡Ñ¡Γá ßΓαπ¬Γπαδ. Borland Pascal »«ññÑαª¿óáÑΓ «»¿ßá- ¡¿∩ ¬«¡ßΓá¡Γ Γ¿»á ¼áßß¿ó, ºá»¿ß∞, ¼¡«ªÑßΓó« ¿ π¬áºáΓÑ½∞. è«¡ßΓá¡- Γδ Σá⌐½«ó«ú« Γ¿»á ¿ ¬«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó ¿½¿ ºá»¿ß∞, ß«ñÑαªáΘ¿Ñ ¬«¼»«¡Ñ¡Γδ Σá⌐½«ó«ú« Γ¿»á, ¡Ñ ñ«»πß¬áεΓß∩. B.Pascal 7 & Objects/LR - 86 - è«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó ß«ñÑαª¿Γ º¡áτÑ¡¿∩ φ½Ñ¼Ñ¡Γ«ó, ºá¬½ετÑ¡¡δÑ ó ß¬«í¬¿ ¿ αáºñÑ½Ñ¡¡δÑ ºá»∩Γδ¼¿. ┌───┐ ┌──────────────┐ ┌───┐ ¬«¡ßΓá¡Γá-¼áßß¿ó ───>│ ( ├────>│Γ¿»¿º¿α«óá¡¡á∩├──┬─>│ ) ├──> └───┘ ^ │ ¬«¡ßΓá¡Γá │ │ └───┘ │ └──────────────┘ │ │ ┌───┐ │ └──────┤ , │<────────┘ └───┘ Åα¿óÑñÑ¼ »α¿¼Ñα ¬«¡ßΓá¡Γδ Γ¿»á ¼áßß¿ó: type Status = (Active,Passive,Waiting); StatusMap = array[Status] of string[7]; const StatStr: StatusMap = ('Active','Passive','Waiting'); é φΓ«¼ »α¿¼ÑαÑ «»αÑñÑ½∩ÑΓß∩ ¬«¡ßΓá¡Γá-¼áßß¿ó StarStr, ¬«Γ«- αá∩ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ »αÑ«íαáº«óá¡¿∩ º¡áτÑ¡¿⌐ Γ¿»á Status ó ß««ΓóÑΓßΓóπεΘ¿Ñ ¿¼ ßΓα«¬«óδÑ »αÑñßΓáó½Ñ¡¿∩. ¥½Ñ¼Ñ¡Γá¼¿ ¼áßß¿óá StarStr ∩ó½∩εΓß∩: StatStr[Active] = 'Active' StatStr[Passive] = 'Passive' StatStr[Waiting] = 'Waiting' Æ¿» φ½Ñ¼Ñ¡Γá ¬«¡ßΓá¡Γδ-¼áßß¿óá ¼«ªÑΓ íδΓ∞ ½εíδ¼, ¬α«¼Ñ Σá⌐- ½«ó«ú« Γ¿»á. ô»á¬«óá¡¡δÑ ¬«¡ßΓá¡Γδ ßΓα«¬«ó«ú« Γ¿»á (ß¿¼ó«½∞¡δÑ ¼áßß¿óδ) ¼«úπΓ íδΓ∞ «»αÑñÑ½Ñ¡δ ¿ ¬á¬ «ñ¿¡«τ¡δÑ ß¿¼ó«½δ, ¿ ¬á¬ ßΓα«¬¿. Ä»αÑñÑ½Ñ¡¿Ñ: const Digits:array[0..9] of char=('0','1','2','3','4','5','6','7','8','9'); ¼«ª¡« »αÑñßΓáó¿Γ∞ ó í«½ÑÑ πñ«í¡«¼ ó¿ñÑ: const Digits: array[0..9] of char = '0123456789'; Åα¿ αáºαÑΦÑ¡¿¿ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá (ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$X+}) ¼áßß¿óδ ß ¡π½Ñó«⌐ íáº«⌐ ¼«úπΓ ¿¡¿µ¿á½¿º¿α«óá- Γ∞ß∩ ßΓα«¬«⌐, ¬«Γ«αá∩ ¬«α«τÑ, τÑ¼ «»¿ßá¡¡á∩ ñ½¿¡á ¼áßß¿óá, ¡á»α¿- ¼Ñα: const FileName = array[0..79] of Char = 'TEXT.PAS'; B.Pascal 7 & Objects/LR - 87 - é Γá¬¿σ ß½πτá∩σ «ßΓáóΦ¿Ñß∩ ß¿¼ó«½δ πßΓá¡áó½¿óáεΓß∩ ó NULL (#0), ¿ ¼áßß¿ó ß«ñÑαª¿Γ ßΓα«¬π ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼. Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡ÑÑ « ßΓα«¬áσ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ αáßß¬áºδóáÑΓß∩ ó â½áóÑ 18. Åα¿ «»¿ßá¡¿¿ ¬«¡ßΓá¡Γδ Γ¿»á "¼¡«ú«¼Ñα¡δ⌐ ¼áßß¿ó" ¬«¡ßΓá¡Γδ ¬áªñ«⌐ αáº¼Ñα¡«ßΓ¿ ºá¬½ετáεΓß∩ ó «ΓñÑ½∞¡δÑ ß¬«í¬¿ ¿ αáºñÑ½∩εΓß∩ ºá»∩Γδ¼¿. Éáß»«½«ªÑ¡¡δÑ ó ßÑαÑñ¿¡Ñ ¬«¡ßΓá¡Γδ ß««ΓóÑΓßΓóπεΓ ßá¼δ¼ »αáóδ¼ αáº¼Ñα¡«ßΓ∩¼. Ä»¿ßá¡¿Ñ: type Cube = array[0..1,0..1,0..1] of integer; const Maze: Cube = (((0,1),(2,3)),((4,5),(6,7))); ºáñáÑΓ ß½ÑñπεΘ¿Ñ ¡áτá½∞¡δÑ º¡áτÑ¡¿∩ ¼áßß¿óá Maze: Maze[0, 0, 0] = 0 Maze[0, 0, 1] = 1 Maze[0, 1, 0] = 2 Maze[0, 1, 1] = 3 Maze[1, 0, 0] = 4 Maze[1, 0, 1] = 5 Maze[1, 1, 0] = 6 Maze[1, 1, 1] = 7 B.Pascal 7 & Objects/LR - 88 - è«¡ßΓá¡Γδ Γ¿»á ºá»¿ß∞ ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ Γ¿»á ºá»¿ß∞ ß«ñÑαª¿Γ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¿ º¡á- τÑ¡¿Ñ ¬áªñ«ú« »«½∩, ºá¬½ετÑ¡¡δÑ ó ß¬«í¬¿ ¿ αáºñÑ½Ñ¡¡δÑ Γ«τ¬á¼¿ ß ºá»∩Γ«⌐. ¬«¡ßΓá¡Γá-ºá»¿ß∞ │ ┌───┐ ┌─────────────┐ ┌───┐ ┌──────────────┐ ┌───┐ └─>│ ( ├───>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─>│ : ├─>│Γ¿»¿º¿α«óá¡¡á∩├─┬─>│ ) ├─> └───┘ ^ │ »«½∩ │ └───┘ │ ¬«¡ßΓá¡Γá │ │ └───┘ │ └─────────────┘ └──────────────┘ │ │ ┌───┐ │ └───────────────────┤ ; │<──────────────────┘ └───┘ Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ¬«¡ßΓá¡Γ-ºá»¿ßÑ⌐: type Point = record x,y: real; end; Vector = array[0..1] of Point; Month = (Jan,Feb,Mar,Apr,May,Jun,Jly,Aug,Sep,Oct,Nov,Dec); Date = record d: 1..31; m: Month; y: 1900..1999; end; const Origin : Point = (x: 0.0; y: 0.0); Line : Vector = ((x: -3.1; y: 1.5),(x: 5.8; y: 3.0)); SomeDay : Date = (d: 2; m: Dec; y: 1960); Å«½∩ ñ«½ª¡δ π¬áºδóáΓ∞ß∩ ó Γ«¼ ªÑ »«α∩ñ¬Ñ, ¬á¬ «¡¿ ß½ÑñπεΓ ó «»¿ßá¡¿¿ Γ¿»á ºá»¿ß∞. àß½¿ ºá»¿ß∞ ß«ñÑαª¿Γ »«½∩ Σá⌐½«ó«ú« Γ¿»á, Γ« ñ½∩ φΓ«ú« Γ¿»á ºá»¿ß∞ ¡Ñ½∞º∩ «»¿ßáΓ∞ ¬«¡ßΓá¡Γπ. àß½¿ ºá»¿ß∞ ß«ñÑαª¿Γ óáα¿á¡Γ, Γ« ¼«ª¡« π¬áºδóáΓ∞ Γ«½∞¬« »«½∩ óδíαá¡¡«ú« óáα¿- á¡Γá. àß½¿ óáα¿á¡Γ ß«ñÑαª¿Γ »«½Ñ »α¿º¡á¬á, Γ« Ñú« º¡áτÑ¡¿Ñ ñ«½ª¡« íδΓ∞ «»αÑñÑ½Ñ¡«. B.Pascal 7 & Objects/LR - 89 - è«¡ßΓá¡Γδ «íΩÑ¬Γ¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── Åα¿ «»¿ßá¡¿¿ ¬«¡ßΓá¡Γδ «íΩÑ¬Γ¡«ú« Γ¿»á ¿ß»«½∞ºπÑΓß∩ Γ«Γ ªÑ ß¿¡Γá¬ß¿ß, τΓ« ¿ »α¿ «»¿ßá¡¿¿ ¬«¡ßΓá¡Γδ Γ¿»á ºá»¿ß∞. ç¡áτÑ¡¿∩ ñ½∩ φ½Ñ¼Ñ¡Γ«ó (¬«¼»«¡Ñ¡Γ«ó) ¼ÑΓ«ñá ºáñáóáΓ∞ß∩ ¡Ñ ¼«úπΓ. æ πτÑΓ«¼ »α¿- ó«ñ¿¼δσ αá¡ÑÑ «»¿ßá¡¿⌐ «íΩÑ¬Γ¡δσ Γ¿»«ó, »α¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñ- αδ ¬«¡ßΓá¡Γ «íΩÑ¬Γ¡«ú« Γ¿»á: const ZeroPoint: Point = (X: 0; Y: 0) ScreenRect: Rect = (A: (X: 0; Y: 0); B: (X: 80; Y: 25); CountField: NumField = (X: 5; Y: 20; Len: 4; Name: nil; Value: 0; Min: -999; Max: 999); è«¡ßΓá¡Γδ «íΩÑ¬Γ¡«ú« Γ¿»á, ¬«Γ«αδÑ ß«ñÑαªáΓ ó¿αΓπá½∞¡δÑ ¼Ñ- Γ«ñδ, ¡Ñ ΓαÑíπÑΓß∩ ¿¡¿µ¿á½¿º¿α«óáΓ∞ ß »«¼«Θ∞ε óδº«óá ¬«¡ßΓαπ¬Γ«- αá. ¥Γá ¿¡¿µ¿á½¿ºáµ¿∩ áóΓ«¼áΓ¿τÑß¬¿ óδ»«½¡∩ÑΓß∩ ¬«¼»¿½∩Γ«α«¼. B.Pascal 7 & Objects/LR - 90 - è«¡ßΓá¡Γδ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ¼«ªÑΓ ß«ñÑαªáΓ∞ ¡Ñß- ¬«½∞¬« φ½Ñ¼Ñ¡Γ«ó, ºá¬½ετÑ¡¡δσ ó ¬óáñαáΓ¡δÑ ß¬«í¬¿ ¿ αáºñÑ½Ñ¡¡δσ ºá»∩Γδ¼¿. èáªñδ⌐ φ½Ñ¼Ñ¡Γ Γá¬«⌐ ¬«¡ßΓá¡Γδ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¬«¡ß- Γá¡Γπ ¿½¿ «ΓαÑº«¬ Γ¿»á, ß«ßΓ«∩Θ¿⌐ ¿º ñóπσ ¬«¡ßΓá¡Γ, αáºñÑ½Ñ¡¡δσ ñóπ¼∩ Γ«τ¬á¼¿. ┌───┐ ┌───┐ ¬«¡ßΓá¡Γá-¼¡«ªÑßΓó« ─>│ [ ├─┬────────────────────────────>│ ] ├> └───┘ │ ┌─────────────────┐ ^ └───┘ └───>│¬«¡ßΓá¡Γá-φ½Ñ¼Ñ¡Γ├─┬─┘ ^ └─────────────────┘ │ │ ┌───┐ │ └────────┤ , │<────────┘ └───┘ ┌─────────┐ ¬«¡ßΓá¡Γá-φ½Ñ¼Ñ¡Γ ────>│¬«¡ßΓá¡Γá├──┬─────────────────────────> └─────────┘ │ ┌──┐ ┌─────────┐ ^ └─>│..├──>│¬«¡ßΓá¡Γá├──┘ └──┘ └─────────┘ Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ¬«¡ßΓá¡Γ-¼¡«ªÑßΓó: type Digits = set of 0..9; Letters = set of 'A'..'Z'; const EvenDigits: Digits = [0,2,4,6,8]; Vowels : Letters = ['A','E','I','O','U','Y']; HexDigits : set of '0'..'z' = ['0'..'9','A'..'F','a'..'f']; B.Pascal 7 & Objects/LR - 91 - è«¡ßΓá¡Γδ ßßδ½«τ¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ ¬«¡ßΓá¡Γδ ßßδ½«τ¡«ú« Γ¿»á ¼«ªÑΓ ß«ñÑαªáΓ∞ Γ«½∞¬« º¡áτÑ¡¿Ñ nil (»πßΓ«). Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó: type TDirection = (Left, Right, Up, Down); TStringPtr = ^String; TNodePtr = ^Node; TNode = record Next: NodePtr; Symbol: StringPtr; Value: Direction; end; const S1: string[4] = 'DOWN'; S2: string[2] = 'UP'; S3: string[5] = 'RIGHT'; S4: string[4] = 'LEFT'; N1: Node = (Next: nil; Symbol: @S1; Value: Down); N2: Node = (Next: @N1; Symbol: @S2; Value: Up); N3: Node = (Next: @N2; Symbol: @S3; Value: Right); N2: Node = (Next: @N3; Symbol: @S4; Value: Left); DirectionTable: NodePtr = @N4; àß½¿ αáºαÑΦÑ¡ αáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß (π¬áºá¡á ñ¿αÑ¬Γ¿óá ¬«¼- »¿½∩Γ«αá {$X+}), Γ¿»¿º¿α«óá¡¡á∩ ¬«¡ßΓá¡Γá Γ¿»á PChar ¼«ªÑΓ ¿¡¿µ¿- á½¿º¿α«óáΓ∞ß∩ ßΓα«¬«ó«⌐ ¬«¡ßΓá¡Γ«⌐, ¡á»α¿¼Ñα: const Message: PChar = 'Åα«úαá¼¼á ºáóÑαΦÑ¡á'; Prompt: PChar = 'éóÑñ¿ΓÑ º¡áτÑ¡¿∩: '; Digits: array[0..9] of PChar = ( 'ì«½∞', 'Äñ¿¡', 'äóá', 'Æα¿', 'ùÑΓδαÑ', 'Å∩Γ∞', 'ÿÑßΓ∞', 'æÑ¼∞', 'é«ßÑ¼∞', 'äÑó∩Γ∞'); ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ Γ«, τΓ« π¬áºáΓÑ½∞ ΓÑ»Ñα∞ π¬áºδóáÑΓ ¡á «í- ½áßΓ∞ »á¼∩Γ¿, ß«ñÑαªáΘπε ¬«»¿ε ßΓα«¬«ó«ú« ½¿ΓÑαá½á ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼. Å«ñα«í¡«ßΓ¿ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó â½áóÑ 18 "æΓα«¬¿ ß ºáóÑαΦáε- Θ¿¼ ¡π½Ñ¼". B.Pascal 7 & Objects/LR - 92 - è«¡ßΓá¡Γδ »α«µÑñπα¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── è«¡ßΓá¡Γδ »α«µÑñπα¡«ú« Γ¿»á ñ«½ª¡δ «»αÑñÑ½∩Γ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ß«ó¼ÑßΓ¿¼δ⌐ »« »α¿ßóá¿óá¡¿ε ß Γ¿»«¼ ¬«¡ß- Γá¡Γδ. ┌─────────────────┐ »α«µÑñπα¡á∩ ¬«¡ßΓá¡Γá ──────┬───>│¬«¡ßΓá¡Γá-φ½Ñ¼Ñ¡Γ├───────────> │ └─────────────────┘ ^ │ ┌─────────────────┐ │ ├───>│¬«¡ßΓá¡Γá-φ½Ñ¼Ñ¡Γ├───┤ │ └─────────────────┘ │ │ ┌───┐ │ └─────────>│nil├───────────┘ └───┘ Åα¿óÑñÑ¼ ß½ÑñπεΘ¿⌐ »α¿¼Ñα: type ErrorProc = procedure(ErrorCode: Integer); procedure DefaultError(ErrorCode: Integer); far; begin WriteLn('Error ', ErrorCode, '.'); end; const ErrorHandler: ErrorProc = DefaultError; B.Pascal 7 & Objects/LR - 93 - ─────────────────────────────────────────────────────────────────────── â½áóá 6. éδαáªÑ¡¿∩ ───────────────────────────────────────────────────────────────── éδαáªÑ¡¿∩ ß«ßΓ«∩Γ ¿º «»Ñαáµ¿⌐ ¿ «»Ñαá¡ñ«ó. ü«½∞Φ¿¡ßΓó« «»Ñ- αáµ¿⌐ ó ∩ºδ¬Ñ Åáß¬á½∞ ∩ó½∩εΓß∩ í¿¡áα¡δ¼¿, Γ« ÑßΓ∞ ß«ñÑαªáΓ ñóá «»Ñαá¡ñá. ÄßΓá½∞¡δÑ «»Ñαáµ¿¿ ∩ó½∩εΓß∩ π¡áα¡δ¼¿ ¿ ß«ñÑαªáΓ Γ«½∞¬« «ñ¿¡ «»Ñαá¡ñ. é í¿¡áα¡δσ «»Ñαáµ¿∩σ ¿ß»«½∞ºπÑΓß∩ «íδτ¡«Ñ á½úÑíαá¿- τÑß¬«Ñ »αÑñßΓáó½Ñ¡¿Ñ, ¡á»α¿¼Ñα: a+b. é π¡áα¡δσ «»Ñαáµ¿∩σ «»Ñαáµ¿∩ óßÑúñá »αÑñΦÑßΓóπÑΓ «»Ñαá¡ñπ, ¡á»α¿¼Ñα: -b. é í«½ÑÑ ß½«ª¡δσ óδαáªÑ¡¿∩σ »«α∩ñ«¬, ó ¬«Γ«α«¼ óδ»«½¡∩εΓß∩ «»Ñαáµ¿¿, ß««ΓóÑΓßΓóπÑΓ »α¿«α¿ΓÑΓπ «»Ñαáµ¿⌐ (ß¼. Æáí½¿µπ 6.1). æΓáαΦ¿¡ßΓó« «»Ñαáµ¿⌐ Æáí½¿µá 6.1 ┌────────────────────┬─────────────────────┬────────────────────┐ │ Ä»Ñαáµ¿∩ │ Åα¿«α¿ΓÑΓ │ é¿ñ «»Ñαáµ¿¿ │ ├────────────────────┼─────────────────────┼────────────────────┤ │ @, not │ »Ñαóδ⌐ (óδßΦ¿⌐) │ π¡áα¡á∩ «»Ñαáµ¿∩ │ ├────────────────────┼─────────────────────┼────────────────────┤ │ *, /, div, mod, │ óΓ«α«⌐ │ «»Ñαáµ¿∩ π¼¡«ªÑ¡¿∩,│ │ and, shl, shr │ │ ñÑ½Ñ¡¿∩, ßñó¿úá... │ ├────────────────────┼─────────────────────┼────────────────────┤ │ +, -, or, xor │ ΓαÑΓ¿⌐ │ «»Ñαáµ¿∩ ß½«ªÑ¡¿∩ │ ├────────────────────┼─────────────────────┼────────────────────┤ │ =, <>, <, >, │ τÑΓóÑαΓδ⌐ (¡¿ºΦ¿⌐) │ «»Ñαáµ¿∩ «Γ¡«ΦÑ¡¿∩ │ │ <=, >=, in │ │ │ └────────────────────┴─────────────────────┴────────────────────┘ ä½∩ «»αÑñÑ½Ñ¡¿¿ ßΓáαΦ¿¡ßΓóá «»Ñαáµ¿⌐ ¿¼ÑÑΓß∩ Γα¿ «ß¡«ó¡δσ »αáó¿½á: 1. é«-»Ñαóδσ, «»Ñαá¡ñ, ¡áσ«ñ∩Θ¿⌐ß∩ ¼Ñªñπ ñóπ¼∩ «»Ñαáµ¿∩¼¿ ß αáº½¿τ¡δ¼¿ »α¿«α¿ΓÑΓá¼¿, ßó∩ºδóáÑΓß∩ ß «»Ñαáµ¿Ñ⌐, ¿¼Ñε- ΘÑ⌐ í«½ÑÑ óδß«¬¿⌐ »α¿«α¿ΓÑΓ. 2. é«-óΓ«αδσ, «»Ñαáµ¿∩, ¡áσ«ñ∩Θá∩ß∩ ¼Ñªñπ ñóπ¼∩ «»Ñαáµ¿∩¼¿ ß αáó¡δ¼¿ »α¿«α¿ΓÑΓá¼¿, ßó∩ºδóáÑΓß∩ ß Γ«⌐ «»Ñαáµ¿Ñ⌐, ¬«- Γ«αá∩ ¡áσ«ñ¿Γß∩ ß½Ñóá «Γ ¡Ñú«. 3. é-ΓαÑΓ∞¿σ, óδαáªÑ¡¿Ñ, ºá¬½ετÑ¡¡«Ñ ó ß¬«í¬¿, »ÑαÑñ óδ»«½- ¡Ñ¡¿Ñ¼ óδτ¿ß½∩ÑΓß∩, ¬á¬ «ΓñÑ½∞¡δ⌐ «»Ñαá¡ñ. Ä»Ñαáµ¿¿ ß αáó¡δ¼ »α¿«α¿ΓÑΓ«¼ «íδτ¡« óδ»«½¡∩εΓß∩ ß½Ñóá-¡á»- αáó«, σ«Γ∩ ¿¡«úñá ¬«¼»¿½∩Γ«α »α¿ úÑ¡Ñαáµ¿¿ «»Γ¿¼á½∞¡«ú« ¬«ñá ¼«- ªÑΓ »ÑαÑπ»«α∩ñ«τ¿Γ∞ «»Ñαá¡ñδ. B.Pascal 7 & Objects/LR - 94 - æ¿¡Γá¬ß¿ß óδαáªÑ¡¿⌐ ───────────────────────────────────────────────────────────────── Åαáó¿½á, «»αÑñÑ½∩εΘ¿Ñ »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ «»Ñαáµ¿⌐, óδΓÑ¬áεΓ ¿º ß¿¡Γá¬ß¿ßá óδαáªÑ¡¿⌐, ¬«Γ«αδÑ ßΓα«∩Γß∩ ¿º ¼¡«ª¿ΓÑ½Ñ⌐, ΓÑα¼«ó ¿ »α«ßΓδσ óδαáªÑ¡¿⌐. î¡«ª¿ΓÑ½∞ ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: ┌───────────────┐ ¼¡«ª¿ΓÑ½∞ ───┬──────────────>│ ßßδ½¬á ¡á ├───────────> │ │ »ÑαÑ¼Ñ¡¡πε │ ^ │ └───────────────┘ │ │ ┌─────────┐ │ ├────>│¬«¡ßΓá¡Γá├──────────────────────┤ │ │íÑº º¡á¬á│ │ │ └─────────┘ │ │ ┌───┐ ┌─────────┐ ┌───┐ │ ├────>│ ( ├────>│óδαáªÑ¡¿Ñ│───>│ ) ├───┤ │ └───┘ └─────────┘ └───┘ │ │ ┌───┐ ┌─────────┐ │ ├────>│not├────>│¼¡«ª¿ΓÑ½∞├────────────┤ │ └───┘ └─────────┘ │ │ ┌────┐ ┌─────────┐ │ ├────>│º¡á¬├───>│¼¡«ª¿ΓÑ½∞├────────────┤ │ └────┘ └─────────┘ │ │ ┌─────────┐ │ ├────>│ óδº«ó ├──────────────────────┤ │ │ Σπ¡¬µ¿¿ │ │ │ └─────────┘ │ │ ┌───────────┐ │ ├────>│¬«¡ßΓαπ¬Γ«α├────────────────────┤ │ │ ¼¡«ªÑßΓóá │ │ │ └───────────┘ │ │ ┌───────────┐ │ ├────>│ áñαÑß¡δ⌐ ├────────────────────┤ │ │ ¼¡«ª¿ΓÑ½∞ │ │ │ └───────────┘ │ │ ┌──────────────┐ │ └────>│ »α¿óÑñÑ¡¿Ñ ├─────────────────┘ │Γ¿»á º¡áτÑ¡¿∩ │ └──────────────┘ éδº«ó Σπ¡¬µ¿¿ á¬Γ¿ó¿º¿απÑΓ Σπ¡¬µ¿ε ¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ º¡á- τÑ¡¿∩, ó«ºóαáΘáÑ¼δÑ Σπ¡¬µ¿Ñ⌐ (ß¼. ñá½ÑÑ ó φΓ«⌐ ú½áóÑ αáºñÑ½ "éδ- º«óδ Σπ¡¬µ¿⌐"). Ä»¿ßáΓÑ½∞ ¼¡«ªÑßΓóá »αÑñßΓáó½∩ÑΓ ß«í«⌐ º¡áτÑ¡¿Ñ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á (ß¼. αáºñÑ½, «ºáú½áó½Ñ¡¡δ⌐, ¬á¬ "Ä»¿ßá¡¿Ñ ¼¡«ªÑßΓó"). Åα¿óÑñÑ¡¿Ñ Γ¿»á ¿º¼Ñ¡∩ÑΓ Γ¿» º¡áτÑ¡¿∩ (ß¼. "Åα¿óÑñÑ- ¡¿Ñ Γ¿»á"). ÇñαÑß¡δ⌐ ¼¡«ª¿ΓÑ½∞ óδτ¿ß½∩ÑΓ áñαÑß »ÑαÑ¼Ñ¡¡«⌐, »α«µÑñπαδ, Σπ¡¬µ¿¿ ¿½¿ ¼ÑΓ«ñá. æ¼. αáºñÑ½ "Ä»Ñαáµ¿∩ @". B.Pascal 7 & Objects/LR - 95 - üÑºº¡á¬«óá∩ ¬«¡ßΓá¡Γá ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: ┌─────────┐ ¬«¡ßΓá¡Γá íÑº º¡á¬á ───┬────>│ τ¿ß½« ├─────────────> │ │íÑº º¡á¬á│ ^ │ └─────────┘ │ │ ┌──────────┐ │ ├────>│ß¿¼ó«½∞¡á∩├────────┤ │ │ ßΓα«¬á │ │ │ └──────────┘ │ │ ┌─────────────┐ │ ├────>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─────┤ │ │ ¬«¡ßΓá¡Γδ │ │ │ └─────────────┘ │ │ ┌───┐ │ └────>│nil├───────────────┘ └───┘ ìÑ¬«Γ«αδÑ »α¿¼Ñαδ ¼¡«ª¿ΓÑ½Ñ⌐ ¼«úπΓ ó¬½ετáΓ∞ ó ßÑí∩: ò { ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε } @ò { π¬áºáΓÑ½∞ ¡á »ÑαÑ¼Ñ¡¡πε } 15 { ¬«¡ßΓá¡Γá íÑº º¡á¬á } (ò+Y+Z) { »«ñóδαáªÑ¡¿Ñ } SIN(ò/2) { óδº«ó Σπ¡¬µ¿¿ } ['0..''9','Ç'..'Z'] { «»¿ßáΓÑ½∞ ¼¡«ªÑßΓóá } not Done { «Γα¿µá¡¿Ñ íπ½Ñóß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐ } ßhar(Digit+48) { ¡áº¡áτÑ¡¿Ñ Γ¿»á } B.Pascal 7 & Objects/LR - 96 - ÆÑα¼δ ¿ß»«½∞ºπεΓß∩ ó «»Ñαáµ¿∩σ π¼¡«ªÑ¡¿∩ ¡á ¼¡«ª¿ΓÑ½∞: ┌─────────┐ ΓÑα¼ ────────>│¼¡«ª¿ΓÑ½∞├───┬──────> ^ └─────────┘ │ │ ┌───┐ │ ├─────┤ * │<────────┤ │ └───┘ │ │ ┌───┐ │ ├─────┤ / │<────────┤ │ └───┘ │ │ ┌───┐ │ ├─────┤div│<────────│ │ └───┘ │ │ ┌───┐ │ ├─────┤mod│<────────│ │ └───┘ │ │ ┌───┐ │ ├─────┤and│<────────│ │ └───┘ │ │ ┌───┐ │ ├─────┤shl│<────────│ │ └───┘ │ │ ┌───┐ │ └─────┤shr│<────────┘ └───┘ B.Pascal 7 & Objects/LR - 97 - Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ΓÑα¼«ó: ò * Y Z / (1 - Z) Done or Error (ò <= Y) and (Y < Z) é »α«ßΓδσ óδαáªÑ¡¿∩σ ¬ ΓÑα¼á¼ »α¿¼Ñ¡∩εΓß∩ «»Ñαáµ¿¿ ß½«ªÑ¡¿∩ ¿ »α¿ßóá¿óá¡¿∩ º¡á¬á: ┌───────┐ »α«ßΓ«Ñ óδαáªÑ¡¿Ñ ────────>│ ΓÑα¼ ├───┬────> ^ └───────┘ │ │ ┌───┐ │ ├─────┤ + │<──────┤ │ └───┘ │ │ ┌───┐ │ ├─────┤ - │<──────┤ │ └───┘ │ │ ┌───┐ │ ├─────┤ or│<──────│ │ └───┘ │ │ ┌───┐ │ └─────┤xor│<──────┘ └───┘ Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó »α«ßΓδσ óδαáªÑ¡¿⌐: ò + Y -ò Hue1 + Hue2 I * J + 1 B.Pascal 7 & Objects/LR - 98 - é óδαáªÑ¡¿∩σ ¬ »α«ßΓδ¼ óδαáªÑ¡¿∩¼ »α¿¼Ñ¡∩εΓß∩ «»Ñαáµ¿¿ «Γ¡«- ΦÑ¡¿∩. ┌─────────┐ óδαáªÑ¡¿Ñ ────>│ »α«ßΓ«Ñ ├──┬───────────────────────────────> │óδαáªÑ¡¿Ñ│ │ ^ └─────────┘ │ ┌───┐ ┌─────────┐ │ ├─>│ < ├──────>│ »α«ßΓ«Ñ ├──┘ │ └───┘ ^ │óδαáªÑ¡¿Ñ│ │ ┌───┐ │ └─────────┘ ├─>│<= ├──┤ │ └───┘ │ │ ┌───┐ │ ├─>│ > ├──┤ │ └───┘ │ │ ┌───┐ │ ├─>│>= ├──┤ │ └───┘ │ │ ┌───┐ │ ├─>│ = ├──┤ │ └───┘ │ │ ┌───┐ │ ├─>│<> ├──┤ │ └───┘ │ │ ┌───┐ │ └─>│in ├──┘ └───┘ Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ óδαáªÑ¡¿⌐: ò = 1.5 Done <> Error (I < J) = (J < è) C in Huel B.Pascal 7 & Objects/LR - 99 - Ä»Ñαáµ¿¿ ───────────────────────────────────────────────────────────────── Ä»Ñαáµ¿¿ »«ñαáºñÑ½∩εΓß∩ ¡á áα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿, ½«ú¿τÑß- ¬¿Ñ «»Ñαáµ¿¿, «»Ñαáµ¿¿ ß« ßΓα«¬á¼¿, «»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓóá¼¿, «»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ ¿ «»Ñαáµ¿ε @ («»Ñαáµ¿∩ »«½πτÑ¡¿∩ áñαÑßá). Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ ───────────────────────────────────────────────────────────────── é ß½ÑñπεΘÑ⌐ Γáí½¿µÑ »α¿óÑñÑ¡δ Γ¿»δ «»Ñαá¡ñ«ó ¿ αÑºπ½∞ΓáΓδ ñ½∩ í¿¡áα¡δσ ¿ π¡áα¡δσ áα¿Σ¼ÑΓ¿τÑß¬¿σ «»Ñαáµ¿⌐: ü¿¡áα¡δÑ áα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ Æáí½¿µá 6.2 ┌───────────┬──────────────┬──────────────────┬─────────────────┐ │ Ä»Ñαáµ¿∩ │ äÑ⌐ßΓó¿Ñ │ Æ¿»δ «»Ñαá¡ñ«ó │ Æ¿» αÑºπ½∞ΓáΓá │ ├───────────┼──────────────┼──────────────────┼─────────────────┤ │ + │ æ½«ªÑ¡¿Ñ │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ │ │ éÑΘÑßΓóÑ¡¡δ⌐ │ éÑΘÑßΓóÑ¡¡δ⌐ │ ├───────────┼──────────────┼──────────────────┼─────────────────┤ │ - │ éδτ¿Γá¡¿Ñ │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ │ │ éÑΘÑßΓóÑ¡¡δ⌐ │ éÑΘÑßΓóÑ¡¡δ⌐ │ ├───────────┼──────────────┼──────────────────┼─────────────────┤ │ * │ ô¼¡«ªÑ¡¿Ñ │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ │ │ éÑΘÑßΓóÑ¡¡δ⌐ │ éÑΘÑßΓóÑ¡¡δ⌐ │ ├───────────┼──────────────┼──────────────────┼─────────────────┤ │ / │ äÑ½Ñ¡¿Ñ │ ûÑ½δ⌐ │ éÑΘÑßΓóÑ¡¡δ⌐ │ │ │ │ éÑΘÑßΓóÑ¡¡δ⌐ │ éÑΘÑßΓóÑ¡¡δ⌐ │ ├───────────┼──────────────┼──────────────────┼─────────────────┤ │ div │ ûÑ½«τ¿ß½Ñ¡¡«Ñ│ │ │ │ │ ñÑ½Ñ¡¿Ñ │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ ├───────────┼──────────────┼──────────────────┼─────────────────┤ │ mod │ ÄßΓáΓ«¬ │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ └───────────┴──────────────┴──────────────────┴─────────────────┘ Åα¿¼Ñτá¡¿Ñ: Ä»Ñαáµ¿∩ + ¿ß»«½∞ºπÑΓß∩ Γá¬ªÑ, ¬á¬ «»Ñαá- µ¿∩ ñ½∩ αáí«Γδ ß« ßΓα«¬á¼¿ ¿ ¼¡«ªÑßΓóá¼¿. Ä»Ñαáµ¿¿ +, - ¿ * ¿ß»«½∞ºπεΓß∩ Γá¬ªÑ ñ½∩ «»Ñαáµ¿⌐ ¡áñ ¼¡«ªÑßΓóá¼¿. B.Pascal 7 & Objects/LR - 100 - ô¡áα¡δÑ áα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ Æáí½¿µá 6.3 ┌───────────┬──────────────┬──────────────────┬─────────────────┐ │ Ä»Ñαáµ¿∩ │ äÑ⌐ßΓó¿Ñ │ Æ¿» «»Ñαá¡ñá │ Æ¿» αÑºπ½∞ΓáΓá │ ├───────────┼──────────────┼──────────────────┼─────────────────┤ │ + │ æ«σαá¡Ñ¡¿Ñ │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ │ º¡á¬á │ éÑΘÑßΓóÑ¡¡δ⌐ │ éÑΘÑßΓóÑ¡¡δ⌐ │ ├───────────┼──────────────┼──────────────────┼─────────────────┤ │ - │ ÄΓα¿µá¡¿Ñ │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ │ º¡á¬á │ éÑΘÑßΓóÑ¡¡δ⌐ │ éÑΘÑßΓóÑ¡¡δ⌐ │ └───────────┴──────────────┴──────────────────┴─────────────────┘ ïεíá∩ «»Ñαáµ¿∩, ó¬½ετáεΘá∩ «»Ñαá¡ñ, Γ¿» ¬«Γ«α«ú« ∩ó½∩ÑΓß∩ »«ñ¼¡«ªÑßΓó«¼ »«α∩ñ¬«ó«ú« Γ¿»á, «íαáíáΓδóáÑΓß∩ Γá¬ªÑ, ¬á¬ Ñß½¿ íδ «¡ íδ½ »«α∩ñ¬«ó«ú« Γ¿»á. àß½¿ «íá «»Ñαá¡ñá ó «»Ñαáµ¿∩σ +, -, *, div ¿½¿ ¼«d ∩ó½∩εΓß∩ «»Ñαá¡ñá¼¿ µÑ½«ú« Γ¿»á, Γ« Γ¿» αÑºπ½∞ΓáΓá íπñÑΓ Γá¬¿¼ ªÑ, ¬á¬ «í- Θ¿⌐ Γ¿» «í«¿σ «»Ñαá¡ñ«ó. (Ä»αÑñÑ½Ñ¡¿Ñ «íΘÑú« Γ¿»á ß¼. ó αáºñÑ½Ñ "ûÑ½δ⌐ Γ¿»" ó â½áóÑ 3). àß½¿ «ñ¿¡ ¿½¿ í«½ÑÑ «»Ñαá¡ñ«ó ó «»Ñαáµ¿∩σ +, -, ¿½¿ * ¿¼ÑεΓ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿», Γ« Γ¿» αÑºπ½∞ΓáΓá íπñÑΓ óÑΘÑßΓóÑ¡¡δ¼, Ñß½¿ ¿ß- »«½∞º«óá¡á ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá {$N-}, ¿½¿ Γ¿»«¼ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε »α¿ ¿ß»«½∞º«óá¡¿¿ ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$N+}. àß½¿ »α¿ ¿ß»«½∞º«óá¡¿¿ «»Ñαáµ¿¿ ß«σαá¡Ñ¡¿∩ º¡á¬á ¿½¿ «»Ñαá- µ¿¿ «Γα¿µá¡¿∩ º¡á¬á «»Ñαá¡ñ ¿¼ÑÑΓ µÑ½δ⌐ Γ¿», Γ« αÑºπ½∞ΓáΓ íπñÑΓ Γ«ªÑ µÑ½«ú« Γ¿»á. àß½¿ «»Ñαá¡ñ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á, Γ« Γ¿» αÑºπ½∞- ΓáΓá íπñÑΓ óÑΘÑßΓóÑ¡¡δ¼ ¿½¿ Γ¿»«¼ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε (extended). ç¡áτÑ¡¿Ñ óδαáªÑ¡¿∩ σ/π óßÑúñá íπñÑΓ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á (real) ¿½¿ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε (extended), ¡Ñºáó¿ß¿¼« «Γ Γ¿»«ó «»Ñαá¡ñ«ó. àß½¿ π αáó¡« 0, Γ« αÑºπ½∞ΓáΓ íπñÑΓ «Φ¿í«τ¡δ¼. ç¡áτÑ¡¿Ñ óδαáªÑ¡¿Ñ i div j »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¼áΓÑ¼áΓ¿τÑß¬«Ñ τáßΓ¡«Ñ «Γ i/j, «¬απú½Ñ¡¡«Ñ ó ¼Ñ¡∞Φπε ßΓ«α«¡π ñ« º¡áτÑ¡¿∩ µÑ½«ú« Γ¿»á. àß½¿ j αáó¡« 0, αÑºπ½∞ΓáΓ íπñÑΓ «Φ¿í«τ¡δ¼. Ä»Ñαáµ¿∩ mod ó«ºóαáΘáÑΓ «ßΓáΓ«¬, »«½πτÑ¡¡δ⌐ »πΓÑ¼ ñÑ½Ñ¡¿∩ ñóπσ ÑÑ «»Ñαá¡ñ«ó, Γ« ÑßΓ∞: i mod j = i - (i div j) * j ç¡á¬ αÑºπ½∞ΓáΓá «»Ñαáµ¿¿ mod íπñÑΓ ΓÑ¼ ªÑ, τΓ« ¿ º¡á¬ i. àß- ½¿ j αáó¡« ¡π½ε, Γ« αÑºπ½∞ΓáΓ«¼ íπñÑΓ «Φ¿í¬á. B.Pascal 7 & Objects/LR - 101 - ï«ú¿τÑß¬¿Ñ «»Ñαáµ¿¿ ───────────────────────────────────────────────────────────────── Æ¿»δ ½«ú¿τÑß¬¿σ «»Ñαáµ¿⌐ »«¬áºá¡δ ó Æáí½¿µÑ 6.4. ï«ú¿τÑß¬¿Ñ «»Ñαáµ¿¿ Æáí½¿µá 6.4 ┌──────────┬─────────────────────┬──────────────┬───────────────┐ │ Ä»Ñαáµ¿∩ │ äÑ⌐ßΓó¿Ñ │Æ¿»δ «»Ñαá¡ñ«ó│ Æ¿» αÑºπ½∞ΓáΓá│ ├──────────┼─────────────────────┼──────────────┼───────────────┤ │ not │ ÄΓα¿µá¡¿Ñ (í¿Γ«ó«Ñ) │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ and │ ê (í¿Γ«ó«Ñ) │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ or │ êïê (í¿Γ«ó«Ñ) │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ xor │ êß¬½ετáεΘÑÑ êïê │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ │ (í¿Γ«ó«Ñ) │ │ │ │ shl │ æñó¿ú ó½Ñó« │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ │ shr │ æñó¿ú ó»αáó« │ ûÑ½δ⌐ │ ûÑ½δ⌐ │ └──────────┴─────────────────────┴──────────────┴───────────────┘ Åα¿¼Ñτá¡¿Ñ: Ä»Ñαáµ¿∩ not ∩ó½∩ÑΓß∩ π¡áα¡«⌐ «»Ñαáµ¿Ñ⌐. àß½¿ «»Ñαá¡ñ«¼ «»Ñαáµ¿¿ not ∩ó½∩ÑΓß∩ «»Ñαá¡ñ µÑ½«ú« Γ¿»á, Γ« αÑºπ½∞ΓáΓ íπñÑΓ Γá¬ªÑ µÑ½«ú« Γ¿»á. àß½¿ «íá «»Ñαá¡ñá ó «»Ñαáµ¿∩σ or, and ¿½¿ xor µÑ½«ú« Γ¿»á, Γ« Γ¿» αÑºπ½∞ΓáΓá íπñÑΓ Γá¬¿¼ ªÑ, ¬á¬ Γ¿» «í«¿σ «»Ñαá¡ñ«ó. Ä»Ñαáµ¿¿ i shl j ¿ i shr j ßñó¿úáεΓ º¡áτÑ¡¿Ñ i ó½Ñó« ¿½¿ ó»αáó« ¡á j í¿Γ«ó. Æ¿» αÑºπ½∞ΓáΓá íπñÑΓ Γá¬¿¼ ªÑ, ¬á¬ Γ¿» i. üπ½Ñóß¬¿Ñ «»Ñαáµ¿¿ ───────────────────────────────────────────────────────────────── Æ¿»δ «»Ñαá¡ñ«ó ¿ αÑºπ½∞ΓáΓ ñ½∩ íπ½Ñóß¬¿σ «»Ñαáµ¿⌐ »«¬áºá¡δ ó Æáí½¿µÑ 6.5. Æáí½¿µá 6.5 üπ½Ñóß¬¿Ñ «»Ñαáµ¿¿ ┌──────────┬──────────────────┬─────────────────┬───────────────┐ │ Ä»Ñαáµ¿∩ │ äÑ⌐ßΓó¿Ñ │ Æ¿»δ «»Ñαá¡ñ«ó │ Æ¿» αÑºπ½∞ΓáΓá│ ├──────────┼──────────────────┼─────────────────┼───────────────┤ │ not │ ÄΓα¿µá¡¿Ñ │ üπ½Ñóß¬¿⌐ │ üπ½Ñóß¬¿⌐ │ │ and │ ï«ú¿τÑß¬«Ñ ê │ üπ½Ñóß¬¿⌐ │ üπ½Ñóß¬¿⌐ │ │ or │ ï«ú¿τÑß¬«Ñ êïê │ üπ½Ñóß¬¿⌐ │ üπ½Ñóß¬¿⌐ │ │ xor │ ï«ú¿τÑß¬«Ñ │ │ │ │ │ ¿ß¬½ετáεΘÑÑ êïê │ üπ½Ñóß¬¿⌐ │ üπ½Ñóß¬¿⌐ │ └──────────┴──────────────────┴─────────────────┴───────────────┘ Åα¿¼Ñτá¡¿Ñ: Ä»Ñαáµ¿∩ not ∩ó½∩ÑΓß∩ π¡áα¡«⌐ «»Ñαáµ¿Ñ⌐. ÉÑºπ½∞ΓáΓδ φΓ¿σ «»Ñαáµ¿⌐ ß««ΓóÑΓßΓóπεΓ «íδτ¡«⌐ íπ½Ñó«⌐ ½«ú¿- ¬Ñ. ìá»α¿¼Ñα, óδαáªÑ¡¿Ñ a and b ∩ó½∩ÑΓß∩ ¿ßΓ¿¡¡δ¼ (»α¿¡¿¼áÑΓ º¡á- τÑ¡¿Ñ ÆruÑ) Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ «íá «»Ñαá¡ñá a ¿ b ¿¼ÑεΓ ¿ßΓ¿¡¡«Ñ º¡áτÑ¡¿Ñ (ÆruÑ). B.Pascal 7 & Objects/LR - 102 - é Borland Pascal »«ññÑαª¿óáεΓß∩ ñóÑ αáº½¿τ¡δÑ ¼«ñÑ½¿ úÑ¡Ñαá- µ¿¿ ¬«ñá ñ½∩ «»Ñαáµ¿⌐ or ¿ and - »«½¡«Ñ óδτ¿ß½Ñ¡¿Ñ ¿ óδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ (τáßΓ¿τ¡«Ñ óδτ¿ß½Ñ¡¿Ñ). Åα¿ »«½¡«¼ óδτ¿ß½Ñ¡¿¿ »«ñαáºπ¼ÑóáÑΓß∩, τΓ« ¬áªñδ⌐ «»Ñαá¡ñ íπ½Ñóß¬«ú« óδαáªÑ¡¿∩, »«ßΓα«Ñ¡¡δ⌐ ß »«¼«Θ∞ε «»Ñαáµ¿⌐ or ¿ and, óßÑúñá íπñÑΓ óδτ¿ß½∩Γ∞ß∩, ñáªÑ Ñß½¿ αÑºπ½∞ΓáΓ óßÑú« óδαáªÑ¡¿∩ πªÑ ¿ºóÑßΓÑ¡. ¥Γá ¼«ñÑ½∞ »«½Ñº¡á ó Γ«¼ ß½πτáÑ, ¬«úñá «ñ¿¡ ¿½¿ í«½ÑÑ «»Ñαá¡ñ«ó ó óδαáªÑ¡¿¿ »αÑñßΓáó½∩εΓ ß«í«⌐ Σπ¡¬µ¿¿ ß »«í«τ¡δ¼¿ φΣ- ΣÑ¬Γá¼¿, ¬«Γ«αδÑ ¿º¼Ñ¡∩εΓ ß¼δß½ »α«úαá¼¼δ. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ «íÑß»Ñτ¿óáÑΓ ßΓα«ú«Ñ óδτ¿ß½Ñ¡¿Ñ ß½Ñóá ¡á»αáó«. ¥Γ« óδτ¿ß½Ñ¡¿Ñ »αÑ¬αáΘáÑΓß∩, ¬á¬ Γ«½∞¬« αÑºπ½∞ΓáΓ óßÑú« óδαáªÑ¡¿∩ ßΓá¡«ó¿Γß∩ «τÑó¿ñÑ¡. é« ¼¡«ú¿σ ß½πτá∩σ φΓá ¼«ñÑ½∞ πñ«í¡á, »«ß¬«½∞¬π «¡á «íÑß»Ñτ¿óáÑΓ ¼¿¡¿¼á½∞¡«Ñ óαÑ¼∩ óδ»«½¡Ñ¡¿∩ ¿, ¬á¬ »αáó¿½«, ¼¿¡¿¼á½∞¡δ⌐ «íΩÑ¼ ¬«ñá. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ñÑ½áÑΓ Γá¬ªÑ ó«º¼«ª¡δ¼¿ Γá¬¿Ñ ¬«¡ßΓαπ¬µ¿¿, ¬«Γ«αδÑ ó »α«- Γ¿ó¡«¼ ß½πτáÑ íδ½¿ íδ ¡Ññ«»πßΓ¿¼δ, ¡á»α¿¼Ñα: while (I<=Lenght(S)) and (S[I]<>' ') do Inc(I); while (P<>nil) and (P^.Value<>5) do P:=P^.Next; é «í«¿σ ß½πτá∩σ, Ñß½¿ αÑºπ½∞ΓáΓ«¼ »Ñαó«ú« óδτ¿ß½Ñ¡¿∩ íπñÑΓ º¡áτÑ¡¿Ñ False, óδτ¿ß½Ñ¡¿Ñ óΓ«α«ú« óδαáªÑ¡¿∩ ¡Ñ óδ»«½¡∩ÑΓß∩. æσÑ¼π óδτ¿ß½Ñ¡¿∩ ¼«ª¡« ºáñáóáΓ∞ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩- Γ«αá $B. ç¡áτÑ¡¿Ñ¼ »« π¼«½τá¡¿ε ∩ó½∩ÑΓß∩ ß«ßΓ«∩¡¿Ñ {$B-} (»«¬á «¡« ¡Ñ íπñÑΓ ¿º¼Ñ¡Ñ¡« ß »«¼«Θ∞ε "¼Ñ¡ε" ó«º¼«ª¡«ßΓÑ⌐ ¬«¼»¿½∩Γ«αá). é φΓ«¼ ß½πτáÑ úÑ¡Ñα¿απÑΓß∩ ¬«ñ ß óδτ¿ß½Ñ¡¿Ñ¼ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ. é ß½πτáÑ ñ¿αÑ¬Γ¿óδ {$B+} úÑ¡Ñα¿απÑΓß∩ ¬«ñ ß »«½¡δ¼ óδτ¿ß½Ñ¡¿Ñ¼. Å«ß¬«½∞¬π ó ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ ¡Ñ «»αÑñÑ½∩ÑΓß∩, ¬á¬πε ßσÑ¼π ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ ñ½∩ óδτ¿ß½Ñ¡¿∩ íπ½Ñóß¬¿σ óδαáªÑ¡¿⌐, Γ« »α«ú- αá¼¼δ, ºáó¿ß∩Θ¿Ñ «Γ ñÑ⌐ßΓó¿∩ ¬á¬«⌐-½¿í« ¬«¡¬αÑΓ¡«⌐ ßσÑ¼δ, ó ñÑ⌐ß- Γó¿ΓÑ½∞¡«ßΓ¿ ¡Ñ ∩ó½∩εΓß∩ »ÑαÑ¡«ß¿¼δ¼¿. Äñ¡á¬«, Ñß½¿ »«ªÑαΓó«óáΓ∞ »ÑαÑ¡«ß¿¼«ßΓ∞ε, Γ« «τÑ¡∞ τáßΓ« ¼«ª¡« »«½πτ¿Γ∞ º¡áτ¿ΓÑ½∞¡δ⌐ óδ¿ú- αδΦ ó« óαÑ¼Ñ¡¿ óδ»«½¡Ñ¡¿∩ ¿ »α«ßΓ«ΓÑ, ¬«Γ«απε »«ºó«½∩ÑΓ »«½πτ¿Γ∞ óδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ. B.Pascal 7 & Objects/LR - 103 - Ä»Ñαáµ¿∩ ß« ßΓα«¬á¼¿ ───────────────────────────────────────────────────────────────── Æ¿»δ «»Ñαá¡ñ«ó ¿ αÑºπ½∞ΓáΓδ ñ½∩ «»Ñαáµ¿¿ ß« ßΓα«¬á¼¿ »«¬áºá- ¡δ ó Æáí½¿µÑ 6.6. Ä»Ñαáµ¿¿ ß« ßΓα«¬á¼¿ Æáí½¿µá 6.6 ┌───────────┬──────────────┬─────────────────────┬──────────────┐ │ Ä»Ñαáµ¿∩ │ äÑ⌐ßΓó¿Ñ │ Æ¿»δ «»Ñαá¡ñ«ó │Æ¿» αÑºπ½∞ΓáΓá│ ├───────────┼──────────────┼─────────────────────┼──────────────┤ │ + │ è«¡¬áΓÑ¡áµ¿∩ │ æΓα«¬«óδ⌐, │ æΓα«¬«óδ⌐ │ │ │ │ ß¿¼ó«½∞¡δ⌐ ¿½¿ │ │ │ │ │π»á¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐│ │ └───────────┴──────────────┴─────────────────────┴──────────────┘ Borland Pascal »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ «»Ñαáµ¿ε + ñ½∩ «íΩÑñ¿- ¡Ñ¡¿∩ ñóπσ ßΓα«¬«óδσ «»Ñαá¡ñ«ó. ÉÑºπ½∞ΓáΓ«¼ «»Ñαáµ¿¿ s + t, úñÑ s ¿ t ¿¼ÑεΓ ßΓα«¬«óδ⌐ Γ¿», ß¿¼ó«½∞¡δ⌐ Γ¿» (Char) ¿½¿ π»á¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ Γ¿», íπñÑΓ ¬«¡¬áΓÑ¡áµ¿∩ s ¿ t. ÉÑºπ½∞ΓáΓ íπñÑΓ ß«ó¼Ñß- Γ¿¼ ß ½εíδ¼ ßΓα«¬«óδ¼ Γ¿»«¼ (¡« ¡Ñ ß ß¿¼ó«½∞¡δ¼ Char ¿ ¡Ñ ß π»á- ¬«óá¡¡δ¼ ßΓα«¬«óδ¼ Γ¿»«¼). àß½¿ ñ½¿¡á αÑºπ½∞Γ¿απεΘÑ⌐ ßΓα«¬¿ »αÑ- óδΦáÑΓ 255 ß¿¼ó«½«ó, Γ« «¡á πßÑ¬áÑΓß∩ ñ« 255 ß¿¼ó«½«ó. B.Pascal 7 & Objects/LR - 104 - Ä»Ñαáµ¿¿ ¡áñ ß¿¼ó«½∞¡δ¼¿ π¬áºáΓÑ½∩¼¿ ───────────────────────────────────────────────────────────────── ÉáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß (αáºαÑΦÑ¡¡δ⌐ »« ñ¿αÑ¬Γ¿óÑ ¬«¼»¿½∩Γ«αá {$X+}) »«ññÑαª¿óáÑΓ ¡Ñß¬«½∞¬« «»Ñαáµ¿⌐ ß π¬áºáΓÑ½∩¼¿ ¡á PChar. ä½∩ πóÑ½¿τÑ¡¿∩ ¿ π¼Ñ¡∞ΦÑ¡¿∩ ß¼ÑΘÑ¡¿∩ π¬áºáΓÑ½∩ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ «»Ñαáµ¿¿ + ¿ -. î¿¡πß ¼«ª¡« Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ ñ½∩ óδτ¿ß½Ñ¡¿∩ αáßßΓ«∩¡¿∩ (αáº¡«ßΓ¿) ¼Ñªñπ ñóπ¼∩ ß¿¼ó«½∞¡δ¼¿ π¬áºáΓÑ½∩¼¿. àß½¿ P ¿ Q - φΓ« º¡áτÑ¡¿∩ Γ¿»á PChar, á I - º¡áτÑ¡¿Ñ Γ¿»á Word, Γ« ñ«- »πßΓ¿¼δ ß½ÑñπεΘ¿Ñ ¬«¡ßΓαπ¬µ¿¿: ä«»πßΓ¿¼δÑ ¬«¡ßΓαπ¬µ¿¿ PChar Æáí½¿µá 6.7 ┌───────────────┬───────────────────────────────────────────────┐ │ Ä»Ñαáµ¿∩ │ ÉÑºπ½∞ΓáΓ │ ├───────────────┼───────────────────────────────────────────────┤ │ P + I │ æ½«ªÑ¡¿Ñ I ß« ß¼ÑΘÑ¡¿Ñ¼ P. │ │ I + P │ æ½«ªÑ¡¿Ñ I ß« ß¼ÑΘÑ¡¿Ñ¼ P. │ │ P - I │ éδτ¿Γá¡¿Ñ I ¿º ß¼ÑΘÑ¡¿∩ P. │ │ P - Q │ éδτ¿ΓáÑΓ ß¼ÑΘÑ¡¿Ñ Q ¿º ß¼ÑΘÑ¡¿∩ P. │ └───────────────┴───────────────────────────────────────────────┘ Ä»Ñαáµ¿¿ P + I ¿ I + P ß¬½áñδóáÑΓ I c áñαÑß«¼, ºáñá¡¡δ¼ P, ß«ºñáóá∩ π¬áºáΓÑ½∞, ßßδ½áεΘ¿⌐ß∩ ¡á I ß¿¼ó«½«ó »«ß½Ñ P. Ä»Ñαáµ¿∩ P - I óδτ¿ΓáÑΓ I ¿º áñαÑßá, ºáñá¡¡«ú« P, ß«ºñáóá∩ π¬áºáΓÑ½∞, ßßδ½á- εΘ¿⌐ß∩ ¡á I ß¿¼ó«½«ó »ÑαÑñ P. Ä»Ñαáµ¿∩ P - Q óδτ¿ΓáÑΓ αáßßΓ«∩¡¿Ñ ¼Ñªñπ Q (¼½áñΦ¿⌐ áñαÑß) ¿ P (ßΓáαΦ¿⌐ áñαÑß), ß«ºñáóá∩ ó αÑºπ½∞ΓáΓÑ º¡áτÑ¡¿Ñ Γ¿»á Word, »«- ¬áºδóáεΘÑÑ τ¿ß½« ß¿¼ó«½«ó ¼Ñªñπ Q ¿ P. ¥Γá «»Ñαáµ¿∩ »«ñαáºπ¼Ñóá- ÑΓ, τΓ« P ¿ Q ßßδ½áεΓß∩ ¡á «ñ¿¡ ß¿¼ó«½∞¡δ⌐ ¼áßß¿ó. àß½¿ ñóá ß¿¼- ó«½∞¡δ⌐ π¬áºáΓÑ½∩ ßßδ½áεΓß∩ ¡á αáº¡δÑ ¼áßß¿óδ, Γ« αÑºπ½∞ΓáΓ íπñÑΓ ¡Ñ «»αÑñÑ½Ñ¡. B.Pascal 7 & Objects/LR - 105 - Ä»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓóá¼¿ ───────────────────────────────────────────────────────────────── Æ¿»δ «»Ñαá¡ñ«ó ñ½∩ «»Ñαáµ¿⌐ ¡áñ ¼¡«ªÑßΓóá¼¿ »«¬áºá¡δ ó Æáí- ½¿µÑ 6.7. Ä»Ñαáµ¿¿ ¡áñ ¼¡«ªÑßΓóá¼¿ Æáí½¿µá 6.7 ┌───────────────┬─────────────┬─────────────────────────────────┐ │ Ä»Ñαáµ¿∩ │ äÑ⌐ßΓó¿Ñ │ Æ¿»δ «»Ñαá¡ñ«ó │ ├───────────────┼─────────────┼─────────────────────────────────┤ │ + │ ÄíΩÑñ¿¡Ñ¡¿Ñ │ î¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿ │ │ - │ Éáº¡«ßΓ∞ │ î¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿ │ │ * │ ÅÑαÑßÑτÑ¡¿Ñ │ î¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿ │ └───────────────┴─────────────┴─────────────────────────────────┘ ÉÑºπ½∞ΓáΓδ «»Ñαáµ¿⌐ ß««ΓóÑΓßΓóπεΓ »αáó¿½á¼ ½«ú¿¬¿ αáí«Γδ ß ¼¡«ªÑßΓóá¼¿: 1. Å«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ c ß«ñÑαª¿Γß∩ ó a+b Γ«½∞¬« Γ«úñá, ¬«úñá «¡« ß«ñÑαª¿Γß∩ ó a ¿½¿ ó b. 2. Å«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ c ß«ñÑαª¿Γß∩ ó a-b Γ«½∞¬« Γ«úñá, ¬«úñá «¡« ß«ñÑαª¿Γß∩ ó a ¿ ¡Ñ ß«ñÑαª¿Γß∩ ó b. 3. Å«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ c ß«ñÑαª¿Γß∩ ó a*b Γ«½∞¬« Γ«úñá, ¬«úñá «¡ ß«ñÑαª¿Γß∩ ó «í«¿σ ¼¡«ªÑßΓóáσ a ¿ b. àß½¿ ¡á¿¼Ñ¡∞Φ¿¼ »«α∩ñ¬«óδ¼ º¡áτÑ¡¿Ñ¼, ¬«Γ«α«Ñ ∩ó½∩ÑΓß∩ τ½Ñ- ¡«¼ αÑºπ½∞ΓáΓá «»Ñαáµ¿⌐ ¡áñ ¼¡«ªÑßΓóá¼¿, ∩ó½∩ÑΓß∩ a, á ¡á¿í«½∞Φ¿¼ - b, Γ« Γ¿»«¼ αÑºπ½∞ΓáΓá íπñÑΓ ¼¡«ªÑßΓó« a..b. B.Pascal 7 & Objects/LR - 106 - Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ ───────────────────────────────────────────────────────────────── Æ¿»δ «»Ñαá¡ñ«ó ¿ αÑºπ½∞ΓáΓδ «»Ñαáµ¿⌐ «Γ¡«ΦÑ¡¿∩ »α¿óÑñÑ¡δ ó Æáí½¿µÑ 6.8. Æáí½¿µá 6.8 Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ ┌─────────┬────────────┬────────────────────────┬───────────────┐ │ Ä»Ñαáµ¿∩│ äÑ⌐ßΓó¿Ñ │ Æ¿»δ «»Ñαá¡ñ«ó │ Æ¿» αÑºπ½∞ΓáΓá│ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ = │ Éáó¡« │ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, │ üπ½Ñóß¬¿⌐ │ │ │ │ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- │ │ │ │ │ ¡δ⌐ ßΓα«¬«óδ⌐ ¿½¿ π»á- │ │ │ │ │ ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ │ │ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ <> │ ìÑ αáó¡« │ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, │ üπ½Ñóß¬¿⌐ │ │ │ │ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- │ │ │ │ │ ¡δ⌐, ßΓα«¬«óδ⌐ ¿½¿ π»á-│ │ │ │ │ ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ │ │ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ < │ îÑ¡∞ΦÑ τÑ¼ │ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, │ üπ½Ñóß¬¿⌐ │ │ │ │ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- │ │ │ │ │ ¡δ⌐, ßΓα«¬«óδ⌐ ¿½¿ π»á-│ │ │ │ │ ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ │ │ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ > │ ü«½∞ΦÑ τÑ¼ │ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, │ üπ½Ñóß¬¿⌐ │ │ │ │ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- │ │ │ │ │ ¡δ⌐ ßΓα«¬«óδ⌐ ¿½¿ π»á- │ │ │ │ │ ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ │ │ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ <= │ îÑ¡∞ΦÑ │ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, │ üπ½Ñóß¬¿⌐ │ │ │ ¿½¿ αáó¡« │ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- │ │ │ │ │ ¡δ⌐ ßΓα«¬«óδ⌐ ¿½¿ π»á- │ │ │ │ │ ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ │ │ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ >= │ ü«½∞ΦÑ │ æ«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, │ üπ½Ñóß¬¿⌐ │ │ │ ¿½¿ αáó¡« │ π¬áºáΓÑ½∞, ¼¡«ªÑßΓóÑ¡- │ │ │ │ │ ¡δ⌐ ßΓα«¬«óδ⌐ ¿½¿ π»á- │ │ │ │ │ ¬«óá¡¡δ⌐ ßΓα«¬«óδ⌐ │ │ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ <= │Å«ñ¼¡«ªÑßΓó«│ î¡«ªÑßΓóá ß«ó¼ÑßΓ¿¼δσ │ üπ½Ñóß¬¿⌐ │ │ │ │ Γ¿»«ó │ │ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ >= │ìáñ¼¡«ªÑßΓó«│ î¡«ªÑßΓóá ß«ó¼ÑßΓ¿¼δσ │ üπ½Ñóß¬¿⌐ │ │ │ │ Γ¿»«ó │ │ ├─────────┼────────────┼────────────────────────┼───────────────┤ │ in │ ¥½Ñ¼Ñ¡Γ │ ïÑóδ⌐ «»Ñαá¡ñ: ½εí«⌐ │ üπ½Ñóß¬¿⌐ │ │ │ ¼¡«ªÑßΓóá │ »ÑαÑτ¿ß½¿¼δ⌐ Γ¿» t; │ │ │ │ │ »αáóδ⌐: ¼¡«ªÑßΓó«, │ │ │ │ │ ß«ó¼ÑßΓ¿¼«Ñ ß t. │ │ └─────────┴────────────┴────────────────────────┴───────────────┘ B.Pascal 7 & Objects/LR - 107 - æαáó¡Ñ¡¿Ñ »α«ßΓδσ Γ¿»«ó ───────────────────────────────────────────────────────────────── è«úñá «»Ñαáµ¿¿ =, <>, <, >, >= ¿½¿ <= »α¿¼Ñ¡∩εΓß∩ ñ½∩ «»Ñ- αá¡ñ«ó »α«ßΓδσ Γ¿»«ó, Γ« φΓ« ñ«½ª¡δ íδΓ∞ ß«ó¼ÑßΓ¿¼δÑ Γ¿»δ. Äñ¡á- ¬«, Ñß½¿ «ñ¿¡ «»Ñαá¡ñ ¿¼ÑÑΓ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿», Γ« ñαπú«⌐ ¼«ªÑΓ íδΓ∞ µÑ½«ú« Γ¿»á. æαáó¡Ñ¡¿Ñ ßΓα«¬ ───────────────────────────────────────────────────────────────── Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ =, <>, <, >, >= ¿½¿ <= ¼«úπΓ »α¿¼Ñ¡∩Γß∩ ñ½∩ ßαáó¡Ñ¡¿∩ ßΓα«¬ ß«ú½áß¡« »«α∩ñ¬π αáßΦ¿αÑ¡¡«ú« ¡áí«αá ß¿¼ó«½«ó ¬«ñá ASæII. ïεíδÑ ñóá º¡áτÑ¡¿∩ ßΓα«¬«óδσ ñá¡¡δσ ¼«ª¡« ßαáó¡¿Γ∞, »«ß¬«½∞¬π óßÑ º¡áτÑ¡¿∩ ßΓα«¬«óδσ ñá¡¡δσ ß«ó¼ÑßΓ¿¼δ. ç¡áτÑ¡¿∩ ß¿¼ó«½∞¡«ú« Γ¿»á ß«ó¼ÑßΓ¿¼δ ß« º¡áτÑ¡¿∩¼¿ ßΓα«¬«ó«- ú« Γ¿»á, ¿ »α¿ ¿σ ßαáó¡Ñ¡¿¿ ß¿¼ó«½∞¡«Ñ º¡áτÑ¡¿Ñ «íαáíáΓδóáÑΓß∩ ¬á¬ ßΓα«¬«ó«Ñ º¡áτÑ¡¿Ñ ß ñ½¿¡«⌐ 1. è«úñá ß« º¡áτÑ¡¿Ñ¼ ßΓα«¬«ó«ú« Γ¿»á ßαáó¡¿óáÑΓß∩ π»á¬«óá¡¡«Ñ ßΓα«¬«ó«Ñ º¡áτÑ¡¿Ñ ¿º N φ½Ñ¼Ñ¡Γ«ó, Γ« «¡« «íαáíáΓδóáÑΓß∩, ¬á¬ º¡áτÑ¡¿Ñ ßΓα«¬«ó«ú« Γ¿»á ñ½¿¡«⌐ N. æαáó¡Ñ¡¿Ñ π»á¬«óá¡¡δσ ßΓα«¬ ───────────────────────────────────────────────────────────────── Ä»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ =, <>, <, >, >= ¿½¿ <= ¼«úπΓ »α¿¼Ñ¡∩Γß∩ Γá¬ªÑ ñ½∩ ñóπσ π»á¬«óá¡¡δσ º¡áτÑ¡¿⌐ ßΓα«¬«ó«ú« Γ¿»á, Ñß½¿ «¡¿ ß«- ñÑαªáΓ «ñ¿¡á¬«ó«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó. àß½¿ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó αáó¡« n, Γ« «»Ñαáµ¿∩ ß««ΓóÑΓßΓóπÑΓ ßαáó¡Ñ¡¿ε ñóπσ ßΓα«¬, ¬áªñá∩ ¿º ¬«Γ«αδσ ¿¼ÑÑΓ ñ½¿¡π n. æαáó¡Ñ¡¿Ñ π¬áºáΓÑ½Ñ⌐ ───────────────────────────────────────────────────────────────── Ä»Ñαáµ¿¿ = ¿ <> ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ ßαáó¡Ñ¡¿∩ «»Ñαá¡ñ«ó Γ¿»á π¬áºáΓÑ½∞. äóá π¬áºáΓÑ½∩ αáó¡δ Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ «¡¿ ßßδ½áεΓß∩ ¡á «ñ¿¡ ¿ Γ«Γ ªÑ «íΩÑ¬Γ. B.Pascal 7 & Objects/LR - 108 - æαáó¡Ñ¡¿Ñ ß¿¼ó«½∞¡δσ π¬áºáΓÑ½Ñ⌐ ───────────────────────────────────────────────────────────────── Åα¿ αáºαÑΦÑ¡¿¿ »« ñ¿αÑ¬Γ¿óÑ ¬«¼»¿½∩Γ«αá {$X+} αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá «»Ñαáµ¿¿ =, <>, <, >, >= ¿½¿ <= ¼«úπΓ »α¿¼Ñ¡∩Γß∩ ¬ º¡áτÑ¡¿∩¼ PChar. çá¼ÑΓ¿¼, «ñ¡á¬«, τΓ« φΓ¿ «»Ñαáµ¿¿ «Γ¡«ΦÑ¡¿∩ »αÑñ»«½áúáεΓ, τΓ« ñóá ßαáó¡¿óáÑ¼δÑ π¬áºáΓÑ½∩ ßßδ½áεΓß∩ ¡á «ñ¿¡ ¿ Γ«Γ ªÑ ß¿¼ó«½∞¡δ⌐ ¼áßß¿ó.. Å« φΓ«⌐ »α¿τ¿¡Ñ ó ßαáó¡Ñ¡¿¿ πτáßΓóπεΓ Γ«½∞¬« ß¼ÑΘÑ¡¿∩ ñóπσ º¡áτÑ¡¿⌐-π¬áºáΓÑ½Ñ⌐. àß½¿ π¬áºáΓÑ½¿ ßßδ½áεΓ- ß∩ ¡á αáº¡δÑ ß¿¼ó«½∞¡δÑ ¼áßß¿óδ, αÑºπ½∞ΓáΓ íπñÑΓ ¡Ñ «»αÑñÑ½Ñ¡. æαáó¡Ñ¡¿Ñ ¼¡«ªÑßΓó ───────────────────────────────────────────────────────────────── àß½¿ «»Ñαá¡ñá¼¿ ∩ó½∩εΓß∩ ¼¡«ªÑßΓóá a ¿ b, Γ« »α¿ ¿σ ßαáó¡Ñ- ¡¿¿ »«½πτáεΓß∩ ß½ÑñπεΘ¿Ñ αÑºπ½∞ΓáΓδ: 1. éδαáªÑ¡¿Ñ a=b ¿ßΓ¿¡¡« (= True) Γ«½∞¬« ¬«úñá a ¿ b ß«ñÑα- ªáΓ «ñ¡¿ ¿ ΓÑ ªÑ φ½Ñ¼Ñ¡Γδ, ó »α«Γ¿ó¡«¼ ß½πτáÑ a<>b. 2. éδαáªÑ¡¿Ñ a = b ¿ßΓ¿¡¡«, ¬«úñá ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ ¼¡«ªÑßΓóá á ∩ó½∩ÑΓß∩ Γá¬ªÑ φ½Ñ¼Ñ¡Γ«¼ ¼¡«ªÑßΓóá b. 3. éδαáªÑ¡¿Ñ a = b ¿ßΓ¿¡¡«, ¬«úñá ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ ¼¡«ªÑßΓóá b ∩ó½∩ÑΓß∩ Γá¬ªÑ φ½Ñ¼Ñ¡Γ«¼ ¼¡«ªÑßΓóá a. Åα«óÑα¬á ¡á »α¿¡áñ½Ñª¡«ßΓ∞ ¬ ¼¡«ªÑßΓóπ ───────────────────────────────────────────────────────────────── Ä»Ñαáµ¿∩ in ó«ºóαáΘáÑΓ ¿ßΓ¿¡¡«Ñ º¡áτÑ¡¿Ñ (True), ¬«úñá º¡á- τÑ¡¿Ñ φ½Ñ¼Ñ¡Γá »«α∩ñ¬«ó«ú« Γ¿»á ∩ó½∩ÑΓß∩ φ½Ñ¼Ñ¡Γ«¼ «»Ñαá¡ñá ¼¡«- ªÑßΓóÑ¡¡«ú« Γ¿»á, ó »α«Γ¿ó¡«¼ ß½πτáÑ «¡ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ False. B.Pascal 7 & Objects/LR - 109 - Ä»Ñαáµ¿∩ @ ───────────────────────────────────────────────────────────────── Ä»Ñαáµ¿∩ @ ¿ß»«½∞ºπÑΓß∩ ó áñαÑß¡«¼ ¬«φΣΣ¿µ¿Ñ¡ΓÑ ñ½∩ óδτ¿ß½Ñ- ¡¿∩ áñαÑßá »ÑαÑ¼Ñ¡¡«⌐, »α«µÑñπαδ, Σπ¡¬µ¿¿ ¿½¿ ¼ÑΓ«ñá. é Æáí½¿µÑ 6.9 »«¬áºá¡ «»Ñαá¡ñ ¿ Γ¿»δ αÑºπ½∞ΓáΓá. áñαÑß¡δ⌐ ¬«φΣΣ¿µ¿Ñ¡Γ │ ┌───┐ ┌──────────────────────┐ └──│ @ ├──┬─────│ ßßδ½¬á ¡Ñ »ÑαÑ¼Ñ¡¡πε ├───────────────────────> └───┘ │ └──────────────────────┘ ^ │ ┌─────────────────────────┐ │ ├────>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ ├───────────┤ │ └─────────────────────────┘ │ │ ┌───────────────────────┐ │ ├────>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ ├─────────────┤ │ └───────────────────────┘ │ │ ┌─────────────────────────────────┐ │ └────>│ πΓ«τ¡Ñ¡¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá ├───┘ └─────────────────────────────────┘ Ä»Ñαáµ¿∩ ß«ºñá¡¿∩ π¬áºáΓÑ½∩ Æáí½¿µá 6.9 ┌────────────┬───────────┬───────────────────────┬──────────────┐ │ Ä»Ñαáµ¿∩ │ äÑ⌐ßΓó¿Ñ │ Æ¿»δ «»Ñαá¡ñ«ó │Æ¿» αÑºπ½∞ΓáΓá│ ├────────────┼───────────┼───────────────────────┼──────────────┤ │ @ │ Å«½πτÑ¡¿Ñ │ æßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε, │ ô¬áºáΓÑ½∞ │ │ │ π¬áºáΓÑ½∩ │ »α«µÑñπαπ ¿½¿ ¿ñÑ¡Γ¿- │ (ß«ó¼ÑßΓ¿- │ │ │ │ Σ¿¬áΓ«α Σπ¡¬µ¿¿. │ ¼δ⌐ ß nil) │ └────────────┴───────────┴───────────────────────┴──────────────┘ Ä»Ñαáµ¿∩ @ ó«ºóαáΘáÑΓ áñαÑß «»Ñαá¡ñá, Γ« ÑßΓ∞ ßΓα«¿Γ º¡áτÑ- ¡¿Ñ-π¬áºáΓÑ½∞, ßßδ½áεΘÑÑß∩ ¡á φΓ«Γ «»Ñαá¡ñ. B.Pascal 7 & Objects/LR - 110 - êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ ───────────────────────────────────────────────────────────────── êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ «íδτ¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ (¡Ñ »áαá¼ÑΓ- αá) ¡Ñ óδºδóáÑΓ ¡¿¬á¬¿σ ß½«ª¡«ßΓÑ⌐. Åα¿¼Ñ¡Ñ¡¿Ñ @ ¬ ßßδ½¬Ñ ¡á »Ñ- αÑ¼Ñ¡¡πε ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á »ÑαÑ¼Ñ¡¡πε. éóÑñÑ¼ «»¿ßá¡¿∩: type TwoChar = array[0..1] of char; var Int: integer; TwoCharPtr: ^TwoChar; Γ«úñá «»ÑαáΓ«α: TwoCharPtr := @Int; »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« TwoCharPtr ñ½∩ »«½πτÑ¡¿∩ ßßδ½¬¿ ¡á TwoCharPtr^ ßΓá¡«ó¿Γß∩ »«óΓ«α¡«⌐ ¿¡ΓÑα»αÑΓáµ¿Ñ⌐ º¡áτÑ¡¿∩ Int, ¬á¬ Ñß½¿ íδ «¡« íδ½« ß¿¼ó«½∞¡δ¼ ¼áßß¿ó«¼ array[0..1]. Æ¿» »«½πτáÑ¼«ú« ó αÑºπ½∞ΓáΓÑ π¬áºáΓÑ½∞ π»αáó½∩ÑΓß∩ ñ¿αÑ¬Γ¿- ó«⌐ ¬«¼»¿½∩Γ«αá $T: ó ß«ßΓ«∩¡¿¿ {$T-} (»« π¼«½τá¡¿ε) Γ¿»«¼ αÑ- ºπ½∞ΓáΓá íπñÑΓ Pointer. äαπú¿¼¿ ß½«óá¼¿, αÑºπ½∞ΓáΓ «¼ ∩ó½∩ÑΓß∩ ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ π¬áºáΓÑ½∞, ß«ó¼ÑßΓ¿¼δ⌐ ß« óßÑ¼¿ ñαπú¿¼¿ Γ¿»á¼¿ π¬áºáΓÑ½Ñ⌐. é ß«ßΓ«∩¡¿¿ {$T+} Γ¿»«¼ αÑºπ½∞ΓáΓá íπñÑΓ ^T, úñÑ T - Γ¿» ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε. Æ« ÑßΓ∞ Γ¿» αÑºπ½∞ΓáΓá íπñÑΓ ß«ó¼ÑßΓ¿¼ ß« óßÑ¼¿ ñαπú¿¼¿ π¬áºáΓÑ½∩¼¿ ¡á Γ¿» φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐. Åα¿¼Ñτá¡¿Ñ: è ¿ß»«½∞º«óá¡¿ε «»Ñαáµ¿¿ @ ß »α«µÑñπα¡δ¼ Γ¿»«¼ »α¿¼Ñ¡∩εΓß∩ ß»Ñµ¿á½∞¡δÑ »αáó¿½á. æ¼. ¡¿ªÑ αáºñÑ½ "Åα«µÑñπα¡δ⌐ Γ¿»δ ó óδαáªÑ¡¿∩σ". B.Pascal 7 & Objects/LR - 111 - êß»«½∞º«óá¡¿Ñ «»Ñαáµ¿¿ @ ñ½∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¿½¿ ¼ÑΓ«ñá ───────────────────────────────────────────────────────────────── éδ ¼«ªÑΓÑ »α¿¼Ñ¡∩Γ∞ «»Ñαáµ¿ε @ ¬ »α«µÑñπαÑ, Σπ¡¬µ¿¿ ¿½¿ ¼Ñ- Γ«ñπ. Åα¿ φΓ«¼ óδ »«½πτ¿ΓÑ π¬áºáΓÑ½∞ ¡á Γ«τ¬π óσ«ñá »«ñ»α«úαá¼¼δ. ìÑºáó¿ß¿¼« «Γ ß«ßΓ«∩¡¿∩ $T, Γ¿»«¼ »«½πτÑ¡¡«ú« ó αÑºπ½∞ΓáΓÑ π¬áºá- ΓÑ½∩ óßÑúñá íπñÑΓ Pointer. äαπú¿¼¿ ß½«óá¼¿, αÑºπ½∞ΓáΓ«¼ óßÑúñá ∩ó½∩ÑΓß∩ ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ π¬áºáΓÑ½∞, ß«ó¼ÑßΓ¿¼δ⌐ ß« óßÑ¼¿ ñαπú¿¼¿ ßßδ½«τ¡δ¼¿ Γ¿»á¼¿. Åα¿ »α¿¼Ñ¡Ñ¡¿¿ «»Ñαáµ¿¿ @ ¬ ¼ÑΓ«ñπ ¼ÑΓ«ñ ñ«½ªÑ¡ ºáñáóáΓ∞ß∩ ß »«¼«Θ∞ε πΓ«τ¡Ñ¡¡«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«αá (¿ñÑ¡Γ¿Σ¿¬áΓ«αá «íΩÑ¬Γ¡«ú« Γ¿- »á, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ Γ«τ¬á ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá). éδº«óδ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── éδº«óδ Σπ¡¬µ¿¿ »α¿ó«ñ∩Γ ¬ á¬Γ¿ó¿ºáµ¿¿ Σπ¡¬µ¿¿, ºáñá¡¡«⌐ ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Σπ¡¬µ¿¿. êñÑ¡Γ¿Σ¿¬áΓ«α«¼ Σπ¡¬µ¿¿ ∩ó½∩ÑΓß∩ ½εí«⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¿ß»«½∞º«óá¡¡δ⌐ ñ½∩ «í«º¡áτÑ¡¿∩ Σπ¡¬µ¿¿. àß½¿ ó ß««ΓóÑΓßΓóπεΘÑ¼ «»¿ßá¡¿¿ Σπ¡¬µ¿¿ ß«ñÑαª¿Γß∩ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó Γ« ó óδº«óÑ Σπ¡¬µ¿¿ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ß∩ ß»¿- ß«¬ Σá¬Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó. èáªñδ⌐ »áαá¼ÑΓα »«ñßΓáó½∩ÑΓß∩ ó¼ÑßΓ« ß««ΓóÑΓßΓóπεΘÑú« Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá ó ß««ΓóÑΓßΓó¿¿ ß ¡áí«α«¼ »αáó¿½, ¬«Γ«αδ⌐ óó«ñ¿Γß∩ ó â½áóÑ 9 ("Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿"). Åα¿¼Ñτá¡¿Ñ: æ¼. óδΦÑ αáºñÑ½δ "Ç¬Γ¿ó¿ºáµ¿∩ ¼ÑΓ«ñ«ó", "Ç¬Γ¿ó¿ºáµ¿∩ πΓ«τ¡Ñ¡¡δσ ¼ÑΓ«ñ«ó" ¿ "Åα«µÑñπα¡δÑ Γ¿»δ". ┌─────────────┐ óδº«ó Σπ¡¬µ¿¿ ─┬─>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─┬┬───────────────────────────> │ │ Σπ¡¬µ¿¿ │ ││ ^ │ └─────────────┘ ││ ┌──────────────────┐ │ │ ┌─────────────┐ │└──>│ß»¿ß«¬ Σá¬Γ¿τÑß¬¿σ├──┘ ├─>│ ñÑß¿ú¡áΓ«α ├─┤ │ »áαá¼ÑΓα«ó │ │ │ ¼ÑΓ«ñá │ │ └──────────────────┘ │ └─────────────┘ │ │ ┌─────────────┐ │ │ │ πΓ«τ¡Ñ¡¡δ⌐ │ │ ├─>│ ñÑß¿ú¡áΓ«α ├─┤ │ │ ¼ÑΓ«ñá │ │ │ └─────────────┘ │ │ ┌─────────────┐ │ └─>│ ßßδ½¬á ¡á ├─┘ │ »ÑαÑ¼Ñ¡¡πε │ └─────────────┘ B.Pascal 7 & Objects/LR - 112 - ┌───┐ ┌───────────┐ ┌───┐ ß»¿ß«¬ Σá¬Γ¿τÑß¬¿σ ────>│ ( ├─────>│Σá¬Γ¿τÑß¬¿⌐├──┬─>│ ) ├───> »áαá¼ÑΓα«ó └───┘ ^ │ »áαá¼ÑΓα │ │ └───┘ │ └───────────┘ │ │ ┌───┐ │ └───┤ , │<────────┘ └───┘ ┌────────────┐ Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ──┬──>│ óδαáªÑ¡¿Ñ ├────────> │ └────────────┘ ^ │ ┌────────────┐ │ └──>│ ßßδ½¬á ¡á ├───┘ │ »ÑαÑ¼Ñ¡¡πε │ └────────────┘ Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ óδº«ó«ó Σπ¡¬µ¿⌐: Sum(A,63) Maximum(147,J) Sin(X+Y) Eof(F) Volume(Radius, Height) é αÑª¿¼Ñ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá ($X+) óδº«óδ Σπ¡¬µ¿⌐ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ «»ÑαáΓ«α«ó, Γ« ÑßΓ∞ αÑºπ½∞ΓáΓ óδº«óá Σπ¡¬µ¿¿ ¼«ªÑΓ «ΓíαáßδóáΓ∞ß∩. B.Pascal 7 & Objects/LR - 113 - Ä»¿ßáΓÑ½¿ ¼¡«ªÑßΓóá ───────────────────────────────────────────────────────────────── Ä»¿ßáΓÑ½∞ ¼¡«ªÑßΓóá «»αÑñÑ½∩ÑΓ º¡áτÑ¡¿∩ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ¿ »«½πτáÑΓß∩ »πΓÑ¼ ºá»¿ß¿ óδαáªÑ¡¿⌐, ºá¬½ετÑ¡¡δσ ó ¬óáñαáΓ¡δÑ ß¬«í¬¿ ([]). èáªñ«Ñ óδαáªÑ¡¿Ñ «»αÑñÑ½∩ÑΓ º¡áτÑ¡¿Ñ ¼¡«ªÑßΓóá. ┌───┐ ┌───┐ «»¿ßáΓÑ½∞ ───>│ [ ├──┬────────────────────────>│ ] ├───> ¼¡«ªÑßΓóá └───┘ │ ┌────────────┐ ^ └───┘ └───>│ úαπ»»á ├──┬─┘ ^ │ φ½Ñ¼Ñ¡Γ«ó │ │ │ └────────────┘ │ │ ┌───┐ │ └────┤ , │<────────┘ └───┘ ┌───────────┐ úαπ»»á φ½Ñ¼Ñ¡Γ«ó ──>│ óδαáªÑ¡¿Ñ ├──┬───────────────────────────> └───────────┘ │ ^ │ ┌──┐ ┌───────────┐ │ └─>│..├──>│ óδαáªÑ¡¿Ñ ├─┘ └──┘ └───────────┘ Äí«º¡áτÑ¡¿Ñ [ ] «º¡áτáÑΓ »πßΓ«Ñ ¼¡«ªÑßΓó«, Γ¿» ¬«Γ«α«ú« ß«ó- ¼ÑßΓ¿¼ »« »α¿ßóá¿óá¡¿ε ß Γ¿»«¼ ½εí«ú« ¼¡«ªÑßΓóá. ïεíá∩ úαπ»»á φ½Ñ¼Ñ¡Γ«ó, «»¿ßá¡¡á∩, ¬á¬ σ..π, «íΩ∩ó½∩ÑΓ φ½Ñ¼Ñ¡Γá¼¿ ¼¡«ªÑßΓóá óßÑ º¡áτÑ¡¿∩ ó ñ¿á»áº«¡Ñ σ..π. àß½¿ σ í«½∞ΦÑ, τÑ¼ π, Γ« σ..π ¡Ñ «»¿ßδóáÑΓ ¡¿¬á¬¿σ φ½Ñ¼Ñ¡Γ«ó ¿ [x..y] «í«º¡áτáÑΓ »πßΓ«Ñ ¼¡«ªÑßΓó«. é ¬«¡¬αÑΓ¡«¼ «»¿ßáΓÑ½Ñ ¼¡«ªÑßΓóá óßÑ º¡áτÑ¡¿∩ óδαáªÑ¡¿∩ ó úαπ»»áσ φ½Ñ¼Ñ¡Γ«ó ñ«½ª¡δ íδΓ∞ «ñ¡«ú« »«α∩ñ¬«ó«ú« Γ¿»á. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»¿ßáΓÑ½Ñ⌐ ¼¡«ªÑßΓó: [red, C, green] [1,5,10..K mod 12, 13, 23] ['A'..'Z', 'a'..'z', Chr(Digit+48)] B.Pascal 7 & Objects/LR - 114 - Åα¿óÑñÑ¡¿Ñ Γ¿»á º¡áτÑ¡¿⌐ ───────────────────────────────────────────────────────────────── Æ¿» óδαáªÑ¡¿∩ ¼«ª¡« ¿º¼Ñ¡¿Γ∞ ¡á ñαπú«⌐ Γ¿» ß »«¼«Θ∞ε »α¿óÑ- ñÑ¡¿∩ Γ¿»á º¡áτÑ¡¿⌐. ┌─────────────┐ ┌───┐ ┌─────────┐ ┌───┐ »α¿óÑñÑ¡¿Ñ ───>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├──>│ ( ├──>│óδαáªÑ¡¿Ñ├──>│ ) ├─> Γ¿»á º¡áτÑ¡¿∩ │ Γ¿»á │ └───┘ └─────────┘ └───┘ └─────────────┘ Æ¿» óδαáªÑ¡¿∩ ¿ ºáñáóáÑ¼δ⌐ Γ¿» ñ«½ª¡δ «íá ¿¼ÑΓ∞ »ÑαÑτ¿ß½¿¼δ⌐ Γ¿» ¿½¿ Γ¿» π¬áºáΓÑ½Ñ⌐. ä½∩ »ÑαÑτ¿ß½¿¼δσ Γ¿»«ó αÑºπ½∞Γ¿απεΘÑÑ º¡áτÑ¡¿Ñ »«½πτáÑΓß∩ »πΓÑ¼ »αÑ«íαáº«óá¡¿∩ óδαáªÑ¡¿∩ (¿ ó«º¼«ª¡«⌐ »α«óÑα¬¿ ¡á ¡áσ«ªñÑ¡¿Ñ ó ñ«»πßΓ¿¼δσ úαá¡¿µáσ). ÅαÑ«íαáº«óá¡¿Ñ ¼«- ªÑΓ »α¿óÑßΓ¿ ¬ πßÑτÑ¡¿ε ¿½¿ πóÑ½¿τÑ¡¿ε αáº¼Ñαá ¿ßσ«ñ¡«ú« º¡áτÑ¡¿∩ ó Γ«¼ ß½πτáÑ, Ñß½¿ ó¡«ó∞ «»αÑñÑ½∩Ñ¼δ⌐ Γ¿» «Γ½¿τáÑΓß∩ «Γ Γ¿»á óδ- αáªÑ¡¿∩. é Γ«¼ ß½πτáÑ, ¬«úñá º¡áτÑ¡¿Ñ αáßΦ¿α∩ÑΓß∩, Ñú« º¡á¬ óßÑú- ñá ß«σαá¡∩ÑΓß∩. Æá¬¿¼ «íαáº«¼, º¡áτÑ¡¿Ñ ∩ó½∩ÑΓß∩ αáßΦ¿α∩Ñ¼δ¼ »« º¡á¬π. æ¿¡Γá¬ß¿ß »α¿óÑñÑ¡¿∩ Γ¿»á º¡áτÑ¡¿⌐ »«τΓ¿ ß«ó»áñáÑΓ ß ß¿¡Γá¬- ß¿ß«¼ »α¿óÑñÑ¡¿∩ Γ¿»á »ÑαÑ¼Ñ¡¡δσ (ß¼. αáºñÑ½ "Åα¿óÑñÑ¡¿Ñ Γ¿»á »Ñ- αÑ¼Ñ¡¡δσ" ó â½áóÑ 5). Äñ¡á¬« »α¿ »α¿óÑñÑ¡¿¿ Γ¿»á º¡áτÑ¡¿⌐ «»Ñαá- µ¿¿ »α«¿ºó«ñ∩Γß∩ ß« º¡áτÑ¡¿∩¼¿, á ¡Ñ ß »ÑαÑ¼Ñ¡¡δ¼¿ ¿, Γá¬¿¼ «íαáº«¼, ¼«úπΓ ¡Ñ πτáßΓó«óáΓ∞ ó ßßδ½¬áσ ¡á »ÑαÑ¼Ñ¡¡δÑ. Æ« ÑßΓ∞ ºá »α¿óÑñÑ¡¿Ñ¼ Γ¿»á º¡áτÑ¡¿∩ ¡Ñ «í∩ºáΓÑ½∞¡« ß½ÑñπεΓ ¬óá½¿Σ¿¬áΓ«αδ. é τáßΓ¡«ßΓ¿, »α¿óÑñÑ¡¿Ñ Γ¿»á º¡áτÑ¡¿⌐ ¡Ñ ñ«½ª¡« óßΓαÑτáΓ∞ß∩ ó ½Ñó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩. ìÑ¬«Γ«αδÑ »α¿¼Ñαδ »α¿óÑñÑ¡¿∩ Γ¿»á º¡áτÑ¡¿⌐ ó¬½ετáεΓ ó ßÑí∩: Intereg('A') Char(48) Boolean(0) Color(2) IntPtr(@Buffer) BytePtr(Ptr($40,$49)) B.Pascal 7 & Objects/LR - 115 - Åα«µÑñπα¡δÑ Γ¿»δ ó óδαáªÑ¡¿∩σ ───────────────────────────────────────────────────────────────── é «íΘÑ¼ ß½πτáÑ ¿ß»«½∞º«óá¡¿Ñ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó «»Ñαá- Γ«αÑ ¿½¿ óδαáªÑ¡¿¿ «º¡áτáÑΓ óδº«ó »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, σαá¡∩- ΘÑ⌐ß∩ ó φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐. Äñ¡á¬«, ¿¼ÑÑΓß∩ ¿ß¬½ετÑ¡¿Ñ. è«úñá ¬«¼»¿- ½∩Γ«α ó¿ñ¿Γ, τΓ« »α«µÑñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¡áσ«ñ¿Γß∩ ó ½Ñó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩, «¡ º¡áÑΓ, τΓ« »αáóá∩ τáßΓ∞ ñ«½ª¡á »αÑñß- Γáó½∩Γ∞ ß«í«⌐ »α«µÑñπα¡«Ñ º¡áτÑ¡¿Ñ. Éáßß¼«Γα¿¼ ó ¬áτÑßΓóÑ »α¿¼Ñαá ß½ÑñπεΘπε »α«úαá¼¼π: type IntFunc = function: Integer; var F: IntFunc; N: Integer; function ReadInt: Integer; far; var I: Integer; begin Read(I); ReadInt := I; end; begin F := ReadInt; { »α¿ßóá¿óá¡¿Ñ »α«µÑñπα¡«ú« º¡áτÑ¡¿∩ } N := ReadInt; { »α¿ßóá¿óá¡¿Ñ αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿ } end. ÅÑαóδ⌐ «»ÑαáΓ«α «ß¡«ó¡«⌐ »α«úαá¼¼δ »α¿ßóá¿óáÑΓ »α«µÑñπα¡«Ñ º¡áτÑ¡¿Ñ (áñαÑß »α«µÑñπαδ) ReadInt »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ F, óΓ«- α«⌐ «»ÑαáΓ«α óδºδóáÑΓ ReadInt ¿ »α¿ßóá¿óáÑΓ N ó«ºóαáΘáÑ¼«Ñ º¡áτÑ- ¡¿Ñ. Éáº½¿τ¿Ñ ¼Ñªñπ »«½πτÑ¡¿Ñ¼ »α«µÑñπα¡«ú« º¡áτÑ¡¿∩ ¿½¿ óδº«ó«¼ Σπ¡¬µ¿¿ «ßπΘÑßΓó½∩ÑΓß∩ »« Γ¿»π »ÑαÑ¼Ñ¡¡«⌐, ¬«Γ«α«⌐ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ (F ¿½¿ N). è ß«ªá½Ñ¡¿ε, ÑßΓ∞ ß¿Γπáµ¿¿, ¬«úñá ¬«¼»¿½∩Γ«α ¡Ñ ¼«ªÑΓ «»αÑ- ñÑ½¿Γ∞ ¿º ¬«¡ΓÑ¬ßΓá ªÑ½áÑ¼«Ñ ñÑ⌐ßΓó¿Ñ. ìá»α¿¼Ñα, ó ß½ÑñπεΘÑ¼ «»Ñ- αáΓ«αÑ ñ½∩ ¬«¼»¿½∩Γ«αá ¡Ñ «τÑó¿ñ¡«, τΓ« ¡πª¡« ßñÑ½áΓ∞: ßαáó¡¿Γ∞ »α«µÑñπα¡«Ñ º¡áτÑ¡¿Ñ ó F ß »α«µÑñπα¡δ¼ º¡áτÑ¡¿Ñ¼ ReadInt, τΓ«íδ «»αÑñÑ½¿Γ∞, τΓ« F π¬áºδóáÑΓ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ ¡á ReadInt, ¿½¿ óδº- óáΓ∞ F ¿ ReadInt, á ºáΓÑ¼ ßαáó¡¿Γ∞ ó«ºóαáΘáÑ¼δÑ º¡áτÑ¡¿∩: if F = ReadInt then WriteLn('Equal'); Äñ¡á¬«, ßΓá¡ñáαΓ¡δ⌐ ß¿¡Γá¬ß¿ß Åáß¬á½∩ «»αÑñÑ½∩ÑΓ, τΓ« óσ«ª- ñÑ¡¿Ñ ó óδαáªÑ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Σπ¡¬µ¿¿ «º¡áτáÑΓ óδº«ó φΓ«⌐ Σπ¡¬µ¿¿, »«φΓ«¼π ó αÑºπ½∞ΓáΓÑ »αÑñδñπΘÑú« «»ÑαáΓ«αá íπñÑΓ óδ»«½- ¡Ñ¡ óδº«ó F ¿ ReadInt, á ºáΓÑ¼ íπñπΓ ßαáó¡¿óáΓ∞ß∩ ó«ºóαáΘáÑ¼δÑ º¡áτÑ¡¿∩. ùΓ«íδ ßαáó¡¿Γ∞ »α«µÑñπα¡«Ñ º¡áτÑ¡¿Ñ ó F ß »α«µÑñπα¡δ¼ º¡áτÑ¡¿Ñ¼ ó ReadInt, ¡πª¡« ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘπε ¬«¡ßΓαπ¬µ¿ε: B.Pascal 7 & Objects/LR - 116 - if @F = @ReadInt then WriteLn('Equal'); Åα¿ »α¿¼Ñ¡Ñ¡¿¿ ¬ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¿ñÑ¡Γ¿Σ¿¬áΓ«απ »α«- µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ «»Ñαáµ¿¿ »«½πτÑ¡¿∩ áñαÑßá @, φΓá «»Ñαáµ¿∩ »αÑ- ñ«ΓóαáΘáÑΓ óδº«ó ¬«¼»¿½∩Γ«α«¼ »α«µÑñπαδ ¿ ó Γ« ªÑ óαÑ¼∩ »αÑ«íαá- ºπÑΓ áαúπ¼Ñ¡Γ ó π¬áºáΓÑ½∞. Æá¬¿¼ «íαáº«¼, @F »αÑ«íαáºπÑΓ F ó ¡Ñ- Γ¿»¿º«óá¡¡δ⌐ π¬áºáΓÑ½∞-»ÑαÑ¼Ñ¡¡πε, ¬«Γ«αá∩ ß«ñÑαª¿Γ áñαÑß ReadInt. ä½∩ «»αÑñÑ½Ñ¡¿∩ Γ«ú«, τΓ« F ßßδ½áÑΓß∩ ¡á ReadInt ¼«ª¡« ßαáó¡¿Γ∞ ñóá º¡áτÑ¡¿∩-π¬áºáΓÑ½∩. Ä»Ñαáµ¿∩ @ τáßΓ« ¿ß»«½∞ºπÑΓß∩ »α¿ »α¿ßóá¿óá¡¿¿ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¡ÑΓ¿»¿º¿α«óá¡¡«ú« º¡áτÑ¡¿∩-π¬áºáΓÑ½∩. ìá»α¿¼Ñα, «»αÑ- ñÑ½Ñ¡¡á∩ ó Windows (ó ¼«ñπ½Ñ WinProcs) Σπ¡¬µ¿∩ GetProcAddress ó«ºóαáΘáÑΓ áñαÑß φ¬ß»«αΓ¿απÑ¼«⌐ Σπ¡¬µ¿¿ ó DLL ¬á¬ ¡ÑΓ¿»¿º¿α«óá¡- ¡«⌐ º¡áτÑ¡¿Ñ-π¬áºáΓÑ½∞. æ »«¼«Θ∞ε «»Ñαáµ¿¿ @ óδº«ó GetProcAddress ¼«ª¡« »α¿ßó«¿Γ∞ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐: type TStrComp = function(Str1, Str2: PChar): Integer; var StrComp: TStrComp: . . . begin . . . @StrComp := GetProcAddress(KernelHandle, 'Lstrcmpi'); . . . end. ùΓ«íδ »«½πτ¿Γ∞ áñαÑß ó »á¼∩Γ¿ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, á ¡Ñ áñαÑß, ó ¡Ñ⌐ ºá»¿ßá¡¡δ⌐, ¿ß»«½∞ºπ⌐ΓÑ ñó«⌐¡πε «»Ñαáµ¿ε @ (@@). ìá»α¿¼Ñα, @P «º¡áτáÑΓ »αÑ«íαáº«óá¡¿Ñ P ó ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ π¬áºá- ΓÑ½∞-»ÑαÑ¼Ñ¡¡πε, ó @@P «º¡áτáÑΓ ó«ºóαáΘÑ¡¿Ñ Σ¿º¿τÑß¬«ú« áñαÑßá »ÑαÑ¼Ñ¡¡«⌐ P. B.Pascal 7 & Objects/LR - 117 - ─────────────────────────────────────────────────────────────────────── â½áóá 7. Ä»ÑαáΓ«αδ ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«αδ «»¿ßδóáεΓ ΓÑ á½ú«α¿Γ¼¿τÑß¬¿Ñ ñÑ⌐ßΓó¿∩, ¬«Γ«αδÑ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩. Ä»ÑαáΓ«αá¼ ¼«úπΓ »αÑñΦÑßΓó«óáΓ∞ ¼ÑΓ¬¿, ¬«Γ«- αδÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ ßßδ½«¬ ó «»ÑαáΓ«αáσ »ÑαÑσ«ñá goto. «»ÑαáΓ«α ──┬────────────────────┬──────────────────────────> │ ┌─────┐ ┌───┐ ^ │ ┌────────────────┐ ^ └─>│¼ÑΓ¬á├──>│ : ├─┘ ├──>│»α«ßΓ«⌐ «»ÑαáΓ«α├──┤ └─────┘ └───┘ │ └────────────────┘ │ │ ┌────────────────┐ │ └──>│ ßΓαπ¬Γπα¡δ⌐ ├──┘ │ «»ÑαáΓ«α │ └────────────────┘ îÑΓ¬á - φΓ« »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ µ¿Σα ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 9999 ¿½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α. æπΘÑßΓóπÑΓ ñóá «ß¡«ó¡δσ ó¿ñá «»ÑαáΓ«α«ó: »α«ßΓδÑ «»ÑαáΓ«αδ ¿ ßΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ. Åα«ßΓδÑ «»ÑαáΓ«αδ ───────────────────────────────────────────────────────────────── Åα«ßΓδ¼ «»ÑαáΓ«α«¼ ∩ó½∩ÑΓß∩ Γá¬«⌐ «»ÑαáΓ«α, ¬«Γ«αδ⌐ ¡Ñ ß«- ñÑαª¿Γ ó ßÑíÑ ñαπú¿σ «»ÑαáΓ«α«ó. ┌─────────────────────┐ »α«ßΓ«⌐ «»ÑαáΓ«α ────┬───>│«»ÑαáΓ«α »α¿ßóá¿óá¡¿∩├───────> │ └─────────────────────┘ ^ │ ┌─────────────────────┐ │ ├───>│ «»ÑαáΓ«α »α«µÑñπαδ ├───┤ │ └─────────────────────┘ │ │ ┌─────────────────────┐ │ └───>│ «»ÑαáΓ«α »ÑαÑσ«ñá ├───┘ └─────────────────────┘ B.Pascal 7 & Objects/LR - 118 - Ä»ÑαáΓ«α »α¿ßóá¿óá¡¿∩ ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α »α¿ßóá¿óá¡¿∩ ºá¼Ñ¡∩ÑΓ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ ¡«óδ¼ º¡áτÑ¡¿Ñ¼, ¬«Γ«α«Ñ «»αÑñÑ½∩ÑΓß∩ óδαáªÑ¡¿Ñ¼, ¿½¿ «»αÑñÑ½∩ÑΓ óδαáªÑ¡¿Ñ, º¡áτÑ¡¿Ñ ¬«Γ«α«ú« ñ«½ª¡« ó«ºóαáΘáΓ∞ß∩ Σπ¡¬µ¿Ñ⌐. ┌───────────┐ ┌──┐ ┌─────────┐ «»ÑαáΓ«α ─────┬──>│ßßδ½¬á ¡á ├──────>│:=├──>│óδαáªÑ¡¿Ñ├──> »α¿ßóá¿óá¡¿∩ │ │»ÑαÑ¼Ñ¡¡πε │ ^ └──┘ └─────────┘ │ └───────────┘ │ │ ┌─────────────┐ │ └──>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─┘ │ Σπ¡¬µ¿¿ │ └─────────────┘ éδαáªÑ¡¿Ñ ñ«½ª¡« íδΓ∞ ß«ó¼ÑßΓ¿¼« »« »α¿ßóá¿óá¡¿ε ß Γ¿»«¼ »Ñ- αÑ¼Ñ¡¡«⌐ ¿½¿ Γ¿»«¼ º¡áτÑ¡¿∩, ó«ºóαáΘáÑ¼«ú« Σπ¡¬µ¿Ñ⌐ ó ¬áτÑßΓóÑ αÑºπ½∞ΓáΓá (ß¼. αáºñÑ½ "æ«ó¼ÑßΓ¿¼«ßΓ∞ Γ¿»«ó" ó â½áóÑ 4). Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«α«ó »α¿ßóá¿óá¡¿∩: X := Y + Z Done := (I >= 1) and (I < 100); Huel := [blue, Succ(C)]; I := Sqr(J) - I * K; Åα¿ßóá¿óá¡¿∩ «íΩÑ¬Γ¡«ú« Γ¿»á Åαáó¿½á ß«ó¼ÑßΓ¿¼«ßΓ¿ »« »α¿ßóá¿óá¡¿ε «íΩÑ¬Γ¡δσ Γ¿»«ó »«ºó«- ½∩εΓ »α¿ßóá¿óáΓ∞ φ¬ºÑ¼»½∩απ «íΩÑ¬Γá φ¬ºÑ¼»½∩α ½εí«ú« ¿º Ñú« ñ«- τÑα¡¿σ Γ¿»«ó. Æá¬«Ñ »α¿ßóá¿óá¡¿Ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«Ñ¬µ¿ε »«Γ«¼¬á ¡á »α«ßΓαá¡ßΓó« Ñú« »αÑñ¬á. é »α¿¼ÑαÑ ¿ßσ«ñ¡«ú« ¬«ñá ó â½áóÑ 4 ß πτÑΓ«¼ φ¬ºÑ¼»½∩αá F Γ¿»á TField ¿ φ¬ºÑ¼»½∩αá Z Γ¿»á TZipField »α¿ßóá¿óá¡¿Ñ F := Z ¬«»¿απÑΓ Γ«½∞¬« »«½∩ X, Y, Len ¿ Name. Åα¿ßóá¿óá¡¿Ñ φ¬ºÑ¼»½∩απ «íΩÑ¬Γ¡«ú« Γ¿»á ¡Ñ ¿¡¿µ¿á½¿º¿απÑΓ φ¬ºÑ¼»½∩α. ìá»α¿¼Ñα, ó »αÑñδñπΘÑ¼ »α¿¼ÑαÑ »α¿ßóá¿óá¡¿Ñ F := Z «º- ¡áτáÑΓ, τΓ« óδº«ó ¬«¡ßΓαπ¬Γ«αá ñ½∩ F ¼«ª¡« «»πßΓ¿Γ∞. B.Pascal 7 & Objects/LR - 119 - Ä»ÑαáΓ«αδ »α«µÑñπαδ ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α »α«µÑñπαδ «»αÑñÑ½∩ÑΓ á¬Γ¿ó¿ºáµ¿ε »α«µÑñπαδ, «í«º¡á- τÑ¡¡πε ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »α«µÑñπαδ. àß½¿ ß««ΓóÑΓßΓóπεΘÑÑ «»¿ßá¡¿Ñ »α«µÑñπαδ ß«ñÑαª¿Γ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó, Γ« «»Ñ- αáΓ«α »α«µÑñπαδ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ ó ßÑíÑ ß««ΓóÑΓßΓóπεΘ¿⌐ Ñ¼π ß»¿- ß«¬ Σá¬Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó (»áαá¼ÑΓαδ, ß»¿ß«¬ ¬«Γ«αδσ »α¿ó«ñ¿Γß∩ ó «»αÑñÑ½Ñ¡¿¿, ∩ó½∩εΓß∩ Σ«α¼á½∞¡δ¼¿ »áαá¼ÑΓαá¼¿, á ó «»ÑαáΓ«αÑ óδº«óá »α«µÑñπαδ «¡¿ ∩ó½∩εΓß∩ Σá¬Γ¿τÑß¬¿¼¿ »áαá¼ÑΓαá¼¿). Åα¿ óδ- º«óÑ »α«¿ßσ«ñ¿Γ »ÑαÑñáτá Σá¬Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó Σ«α¼á½∞¡δ¼ »áαá- ¼ÑΓαá¼. ┌─────────────┐ «»ÑαáΓ«α ──┬─>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─┬┬──────────────────────────> »α«µÑñπαδ │ │ »α«µÑñπαδ │ ││ ┌──────────────────┐ ^ │ └─────────────┘ │└─>│ß»¿ß«¬ Σá¬Γ¿τÑß¬¿σ├─┘ │ ┌─────────────┐ │ │ »áαá¼ÑΓα«ó │ ├─>│ ñÑß¿ú¡áΓ«α ├─┤ └──────────────────┘ │ │ ¼ÑΓ«ñá │ │ │ └─────────────┘ │ │ ┌─────────────┐ │ ├─>│ πΓ«τ¡Ñ¡¡δ⌐ ├─┤ │ │ ñÑß¿ú¡áΓ«α │ │ │ │ ¼ÑΓ«ñá │ │ │ └─────────────┘ │ │ ┌─────────────┐ │ └─>│ ßßδ½¬á ¡á ├─┘ │ »ÑαÑ¼Ñ¡¡πε │ └─────────────┘ Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«α«ó »α«µÑñπα: PrintHeaing; Transpose(A,N,M); Fin(Name,Address); B.Pascal 7 & Objects/LR - 120 - Ä»ÑαáΓ«αδ »ÑαÑσ«ñá ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α »ÑαÑσ«ñá goto óδºδóáÑΓ »ÑαÑñáτπ π»αáó½Ñ¡¿∩ «»ÑαáΓ«- απ, ¬«Γ«α«¼π »αÑñΦÑßΓóπÑΓ ¼ÑΓ¬á, π¬áºá¡¡á∩ ó ñá¡¡«¼ «»ÑαáΓ«αÑ »Ñ- αÑσ«ñá. æ¿¡Γá¬ß¿τÑß¬á∩ ßσÑ¼á «»ÑαáΓ«αá »ÑαÑσ«ñá ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ó¿ñ: ┌────┐ ┌─────┐ «»ÑαáΓ«α »ÑαÑσ«ñá ───>│goto├───>│¼ÑΓ¬á├───> └────┘ └─────┘ Åα¿ ¿ß»«½∞º«óá¡¿¿ «»ÑαáΓ«αá »ÑαÑσ«ñá ñ«½ª¡δ ß«í½εñáΓ∞ß∩ ß½Ñ- ñπεΘ¿Ñ »αáó¿½á: 1. îÑΓ¬á, ¬«Γ«αá∩ π¬áºδóáÑΓß∩ ó «»ÑαáΓ«αÑ »ÑαÑσ«ñá, ñ«½ª¡á ¡áσ«ñ¿Γ∞ß∩ ó Γ«¼ ªÑ í½«¬Ñ ¿½¿ ¼«ñπ½Ñ, τΓ« ¿ ßá¼ «»ÑαáΓ«α »ÑαÑσ«ñá. äαπú¿¼¿ ß½«óá¼¿, ¡Ñ ñ«»πß¬áεΓß∩ »ÑαÑσ«ñδ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¿½¿ ó¡πΓα∞ ¡ÑÑ. 2. ÅÑαÑσ«ñ ¿ºó¡Ñ ó¡πΓα∞ ßΓαπ¬Γπα¡«ú« «»ÑαáΓ«αá (Γ« ÑßΓ∞ »Ñ- αÑσ«ñ ¡á í«½ÑÑ ú½πí«¬¿⌐ πα«óÑ¡∞ ó½«ªÑ¡¡«ßΓ¿) ¼«ªÑΓ óδº- óáΓ∞ ¡Ñ»αÑñß¬áºπÑ¼δÑ φΣΣÑ¬Γδ, σ«Γ∩ ¬«¼»¿½∩Γ«α ¡Ñ óδñáÑΓ ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ. ìá»α¿¼Ñα, óδ ¡Ñ ñ«½ª¡δ »ÑαÑσ«ñ¿Γ∞ ó ΓÑ½« µ¿¬½á for. Åα¿¼Ñτá¡¿Ñ: ò«α«Φá∩ »αá¬Γ¿¬á »α«úαá¼¼¿α«óá¡¿∩ ΓαÑíπÑΓ ¼¿¡¿¼á½∞¡«ú« ¿ß»«½∞º«óá¡¿∩ »ÑαÑσ«ñ«ó. æΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ ───────────────────────────────────────────────────────────────── æΓαπ¬Γπα¡δÑ «»ÑαáΓ«αδ ßΓα«∩Γß∩ ¿º ñαπú¿σ «»ÑαáΓ«α«ó, »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ ¬«Γ«αδσ ñ«½ªÑ¡ íδΓ∞ »«ß½Ññ«óáΓÑ½∞¡δ¼ (ß«ßΓáó¡δÑ «»Ñαá- Γ«αδ ¿ «»ÑαáΓ«αδ ¡áñ ºá»¿ß∩¼¿), «»αÑñÑ½∩Ñ¼δ¼ πß½«ó¡«⌐ »ÑαÑñáτÑ⌐ π»αáó½Ñ¡¿∩ (πß½«ó¡δÑ «»ÑαáΓ«αδ) ¿½¿ »«óΓ«α∩εΘ¿¼ß∩ («»ÑαáΓ«αδ µ¿¬- ½á). ┌───────────────────────┐ ßΓαπ¬Γπα¡δ⌐ ────┬────>│ ß«ßΓáó¡«⌐ «»ÑαáΓ«α ├───────> «»ÑαáΓ«α │ └───────────────────────┘ ^ │ ┌───────────────────────┐ │ ├────>│ πß½«ó¡δ⌐ «»ÑαáΓ«α ├───┤ │ └───────────────────────┘ │ │ ┌───────────────────────┐ │ ├────>│ «»ÑαáΓ«α µ¿¬½á ├───┤ │ └───────────────────────┘ │ │ ┌───────────────────────┐ │ └────>│ «»ÑαáΓ«α ¡áñ ºá»¿ß∩¼¿ ├───┘ └───────────────────────┘ B.Pascal 7 & Objects/LR - 121 - æ«ßΓáó¡δÑ «»ÑαáΓ«αδ ───────────────────────────────────────────────────────────────── æ«ßΓáó¡δÑ «»ÑαáΓ«αδ ºáñáεΓ »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«α«ó, ∩ó½∩εΘ¿σß∩ ¿σ φ½Ñ¼Ñ¡Γá¼¿. Ä¡¿ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩ ó Γ«¼ »«α∩ñ¬Ñ, ó ¬«Γ«α«¼ «¡¿ ºá»¿ßá¡δ. æ«ßΓáó¡δÑ «»ÑαáΓ«αδ «íαáíáΓδóáεΓß∩, ¬á¬ «ñ¿¡ «»ÑαáΓ«α, τΓ« ¿¼ÑÑΓ αÑΦáεΘÑÑ º¡áτÑ¡¿Ñ Γá¼, úñÑ ß¿¡Γá¬ß¿ß Åáß¬á½∩ ñ«»πß¬áÑΓ ¿ß»«½∞º«óá¡¿Ñ Γ«½∞¬« «ñ¡«ú« «»ÑαáΓ«αá. Ä»ÑαáΓ«- αδ ºá¬½ετáεΓß∩ ó «úαá¡¿τ¿ΓÑ½¿ begin ¿ end, ¿ «ΓñÑ½∩εΓß∩ ñαπú «Γ ñαπúá Γ«τ¬«⌐ ß ºá»∩Γ«⌐. ┌─────┐ ┌────────┐ ┌───┐ ß«ßΓáó¡«⌐ ────>│begin├──────>│«»ÑαáΓ«α├────┬──>│end├──> «»ÑαáΓ«α └─────┘ ^ └────────┘ │ └───┘ │ ┌───┐ │ └─────┤ ; │<──────┘ └───┘ Åα¿óÑñÑ¼ »α¿¼Ñα ß«ßΓáó¡«ú« «»ÑαáΓ«αá: begin Z := X; X := Y; Y := Z; end; ôß½«ó¡δÑ «»ÑαáΓ«αδ ───────────────────────────────────────────────────────────────── ôß½«ó¡δÑ «»ÑαáΓ«αδ »«ºó«½∩εΓ óδíαáΓ∞ ñ½∩ óδ»«½¡Ñ¡¿∩ «ñ¿¡ ¿º ß«ßΓáó¡δσ «»ÑαáΓ«α«ó (¿½¿ ¡Ñ óδíαáΓ∞ ¡¿ «ñ¡«ú«). ┌───────────────┐ πß½«ó¡δ⌐ «»ÑαáΓ«α ──┬──>│ «»ÑαáΓ«α if ├───────> │ └───────────────┘ ^ │ ┌───────────────┐ │ └──>│ «»ÑαáΓ«α case ├───┘ └───────────────┘ B.Pascal 7 & Objects/LR - 122 - Ä»ÑαáΓ«α πß½«ó¿∩ (if) ───────────────────────────────────────────────────────────────── æ¿¡Γá¬ß¿ß «»ÑαáΓ«αá if ¼«ª¡« »αÑñßΓáó¿Γ∞ ß½ÑñπεΘ¿¼ «íαáº«¼: ┌──┐ ┌─────────┐ ┌────┐ ┌────────┐ «»ÑαáΓ«α if ─>│if├──>│óδαáªÑ¡¿Ñ├──>│then├──>│«»ÑαáΓ«α├──┬──┐ └──┘ └─────────┘ └────┘ └────────┘ │ │ ┌────────────────────────┘ │ │ ┌────┐ ┌────────┐ v └──>│else├──>│«»ÑαáΓ«α├─────────> └────┘ └────────┘ é óδαáªÑ¡¿¿ ñ«½ªÑ¡ »«½πτáΓ∞ß∩ αÑºπ½∞ΓáΓ, ¿¼ÑεΘ¿⌐ ßΓá¡ñáαΓ¡δ⌐ íπ½Ñóß¬¿⌐ Γ¿». àß½¿ αÑºπ½∞ΓáΓ«¼ óδαáªÑ¡¿∩ ∩ó½∩ÑΓß∩ ¿ßΓ¿¡¡«Ñ º¡á- τÑ¡¿Ñ (True), Γ« óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«- ó«¼ then. àß½¿ αÑºπ½∞ΓáΓ«¼ óδαáªÑ¡¿∩ ∩ó½∩ÑΓß∩ º¡áτÑ¡¿Ñ False ¿ »α¿- ßπΓßΓóπÑΓ ¬½ετÑó«Ñ ß½«ó« else, Γ« óδ»«½¡∩Γß∩ «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«ó«¼ else. àß½¿ ¬½ετÑó«Ñ ß½«ó« else «ΓßπΓßΓóπÑΓ, Γ« ¡¿¬á¬«⌐ «»ÑαáΓ«α ¡Ñ óδ»«½¡∩ÑΓß∩. æ¿¡Γá¬ß¿τÑß¬á∩ ¡Ñ«ñ¡«º¡áτ¡«ßΓ∞, ó«º¡¿¬áεΘá∩ ó ¬«¡ßΓαπ¬µ¿¿: if e1 then e2 else e3 αáºαÑΦáÑΓß∩ »πΓÑ¼ ß½ÑñπεΘÑ⌐ ¿¡ΓÑα»αÑΓáµ¿¿ φΓ«⌐ ¬«¡ßΓαπ¬µ¿¿: if e1 then begin if e2 then s1 else s2 end Åα¿¼Ñτá¡¿Ñ: é »αÑñΦÑßΓóπεΘÑ¼ «»ÑαáΓ«αÑ else ñó«ÑΓ«τ¿Ñ ¡Ñ π¬áºδóáÑΓß∩. é «íΘÑ¼ ß½πτáÑ ¬½ετÑó«Ñ ß½«ó« else ßó∩ºδóáÑΓß∩ ß í½¿ªá⌐Φ¿¼ ¬½ετÑóδ¼ ß½«ó«¼ if, ¬«Γ«α«Ñ ÑΘÑ ¡Ñ ßó∩ºá¡« ß ¬½ετÑóδ¼ ß½«ó«¼ else. Åα¿óÑñÑ¼ ñóá »α¿¼Ñαá «»ÑαáΓ«αá if: if X < 1.5 then Z := X+Y else Z := 1.5; if P1 <> nil then P1 := P1^.father; B.Pascal 7 & Objects/LR - 123 - Ä»ÑαáΓ«α óáα¿á¡Γá (case) ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α óáα¿á¡Γá (casÑ) ß«ßΓ«¿Γ ¿º óδαáªÑ¡¿∩ (»ÑαÑ¬½ετáΓÑ- ½∩) ¿ ß»¿ß¬á «»ÑαáΓ«α«ó, ¬áªñ«¼π ¿º ¬«Γ«αδσ »αÑñΦÑßΓóπÑΓ «ñ¡á ¿½¿ í«½ÑÑ ¬«¡ßΓá¡Γ («¡¿ ¡áºδóáεΓß∩ ¬«¡ßΓá¡Γá¼¿ óδí«αá) ¿½¿ ¬½ετÑó«Ñ ß½«ó« else. ÅÑαÑ¬½ετáΓÑ½∞ (ßÑ½Ñ¬Γ«α) ñ«½ªÑ¡ ¿¼ÑΓ∞ »«α∩ñ¬«óδ⌐ Γ¿» (αáº¼Ñα«¼ ó íá⌐Γ ¿½¿ ß½«ó«). Æá¬¿¼ «íαáº«¼, ßΓα«¬«óδ⌐ Γ¿» ¿ ñ½¿¡- ¡δ⌐ µÑ½δ⌐ Γ¿» ∩ó½∩εΓß∩ ¡Ññ«»πßΓ¿¼δ¼¿ Γ¿»á¼¿ »ÑαÑ¬½ετáΓÑ½∩. éßÑ ¬«¡ßΓá¡Γδ óδí«αá ñ«½ª¡δ íδΓ∞ π¡¿¬á½∞¡δ¼¿ ¿ ¿¼ÑΓ∞ »«α∩ñ¬«óδ⌐ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ ß Γ¿»«¼ »ÑαÑ¬½ετáΓÑ½∩. ┌────┐ ┌─────────┐ ┌──┐ ┌────┐ «»ÑαáΓ«α case ─>│case├──>│óδαáªÑ¡¿Ñ├──>│of├─────>│case├──┬──┐ └────┘ └─────────┘ └──┘ ^ └────┘ │ │ │ ┌────┐ │ │ └───┤ ; │<─┘ │ └────┘ │ ┌───────────────────────────────────────┘ │ ┌───┐ └─┬────────────────────┬──────────>│end├──> │ ┌──────────┐ ^ │ ┌───┐ ^ └───┘ └──>│óÑΓó∞ else├──┘ └─>│ ; ├──┘ └──────────┘ └───┘ ┌────────────────────┐ ┌─────────┐ │ ┌──┐ ┌─────────┐ v ┌───┐ ┌────────┐ case ──>│¬«¡ßΓá¡Γá├─┴─>│..├─>│¬«¡ßΓá¡Γá├──┬─>│ : ├─>│«»ÑαáΓ«α├─> ^ └─────────┘ └──┘ └─────────┘ │ └───┘ └────────┘ │ ┌───┐ │ └─────────────────┤ , │<─────────────┘ └───┘ ┌────┐ ┌────────┐ óÑΓó∞ else ────>│else├───>│«»ÑαáΓ«α├───> └────┘ └────────┘ Ä»ÑαáΓ«α óáα¿á¡Γá case »α¿ó«ñ¿Γ ¬ óδ»«½¡Ñ¡¿ε «»ÑαáΓ«αá, ¬«- Γ«α«¼π »αÑñΦÑßΓóπÑΓ ¬«¡ßΓá¡Γá óδí«αá, αáó¡á∩ º¡áτÑ¡¿ε »ÑαÑ¬½ετá- ΓÑ½∩ ¿½¿ ñ¿á»áº«¡π óδí«αá, ó ¬«Γ«α«¼ ¡áσ«ñ¿Γß∩ º¡áτÑ¡¿Ñ »ÑαÑ¬½ε- τáΓÑ½∩. àß½¿ Γá¬«⌐ ¬«¡ßΓá¡Γδ óδí«αá ¿½¿ Γá¬«ú« ñ¿á»áº«¡á óδí«αá ¡Ñ ßπΘÑßΓóπÑΓ ¿ »α¿ßπΓßΓóπÑΓ óÑΓó∞ else, Γ« óδ»«½¡∩Γß∩ «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ºá ¬½ετÑóδ¼ ß½«ó«¼ else. àß½¿ ªÑ óÑΓó∞ else «ΓßπΓßΓóπ- ÑΓ, Γ« ¡¿¬á¬«⌐ «»ÑαáΓ«α ¡Ñ óδ»«½¡∩ÑΓß∩. B.Pascal 7 & Objects/LR - 124 - Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«αá óáα¿á¡Γá: case Operator of plus: X := X+Y; minus: X := X-Y; times: X := X*Y; end; case I of 0, 2, 4, 6, 8: Writeln('ùÑΓ¡á∩ µ¿Σαá'); 1, 3, 5, 7, 9: Writeln('ìÑτÑΓ¡á∩ µ¿Σαá'); 10..100: Writeln('îÑªñπ 10 ¿ 100'); end; B.Pascal 7 & Objects/LR - 125 - Ä»ÑαáΓ«α µ¿¬½á ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α µ¿¬½á ºáñáÑΓ »«óΓ«α¡«Ñ óδ»«½¡Ñ¡¿Ñ «»αÑñÑ½Ñ¡¡δσ «»Ñ- αáΓ«α«ó. ┌─────────────────┐ «»ÑαáΓ«α µ¿¬½á ───┬──>│ «»ÑαáΓ«α repeat ├──────> │ └─────────────────┘ ^ │ ┌─────────────────┐ │ ├──>│ «»ÑαáΓ«α while ├──┤ │ └─────────────────┘ │ │ ┌─────────────────┐ │ └──>│ «»ÑαáΓ«α for ├──┘ └─────────────────┘ àß½¿ τ¿ß½« »«óΓ«αÑ¡¿⌐ ºáαá¡ÑÑ ¿ºóÑßΓ¡«, Γ« »«ñσ«ñ∩ΘÑ⌐ ¬«¡ß- Γαπ¬µ¿⌐ ∩ó½∩ÑΓß∩ «»ÑαáΓ«α for. é »α«Γ¿ó¡«¼ ß½πτáÑ ß½ÑñπÑΓ ¿ß»«½∞- º«óáΓ∞ «»ÑαáΓ«αδ while ¿½¿ repeat. ä½∩ π»αáó½Ñ¡¿∩ »«óΓ«αÑ¡¿Ñ¼ «»ÑαáΓ«α«ó ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ Break ¿ Continue. Break ºáóÑαΦáÑΓ «»ÑαáΓ«α µ¿¬½á, á Continue »α«ñ«½ªáÑΓ ß« ß½ÑñπεΘÑ⌐ ¿ΓÑαáµ¿¿ φΓ«ú« «»ÑαáΓ«- αá. Å«ñα«í¡«ßΓ¿ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó â½áóÑ 1 "æ»αáó«τ¡«ú« απ¬«ó«ñß- Γóá »α«úαá¼¼¿ßΓá". Ä»ÑαáΓ«α µ¿¬½á ß »«ßΓπß½«ó¿Ñ¼ (repeat) ───────────────────────────────────────────────────────────────── é «»ÑαáΓ«αÑ µ¿¬½á ß »«ßΓπß½«ó¿Ñ¼ (¡áτ¿¡áεΘ¿¼ß∩ ß« ß½«óá repeat) óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ π»αáó½∩ÑΓ »«óΓ«α¡δ¼ óδ»«½¡Ñ¡¿Ñ¼ »«ß½Ñ- ñ«óáΓÑ½∞¡«ßΓ¿ «»ÑαáΓ«α«ó ß«ñÑαª¿Γß∩ ó¡πΓα¿ «»ÑαáΓ«αá repeat. ┌──────┐ ┌────────┐ ┌─────┐ ┌─────────┐ «»ÑαáΓ«α ─>│repeat├────>│«»ÑαáΓ«α├──┬─>│until├──>│óδαáªÑ¡¿Ñ├──> repeat └──────┘ ^ └────────┘ │ └─────┘ └─────────┘ │ ┌───┐ │ └────┤ ; │<────┘ └───┘ ÉÑºπ½∞ΓáΓ óδαáªÑ¡¿∩ ñ«½ªÑ¡ íδΓ∞ íπ½Ñóß¬«ú« Γ¿»á. Ä»ÑαáΓ«αδ, ºá¬½ετÑ¡¡δÑ ¼Ñªñπ ¬½ετÑóδ¼¿ ß½«óá¼¿ repeat ¿ until, óδ»«½¡∩εΓß∩ »«ß½Ññ«óáΓÑ½∞¡« ñ« ΓÑσ »«α, »«¬á αÑºπ½∞ΓáΓ óδαáªÑ¡¿∩ ¡Ñ »α¿¼ÑΓ º¡áτÑ¡¿Ñ True. Å«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ «»ÑαáΓ«α«ó óδ»«½¡¿Γß∩ »« ¬αá⌐- ¡Ñ⌐ ¼ÑαÑ «ñ¿¡ αáº, »«ß¬«½∞¬π óδτ¿ß½Ñ¡¿Ñ óδαáªÑ¡¿∩ »α«¿ºó«ñ¿Γß∩ »«ß½Ñ ¬áªñ«ú« óδ»«½¡Ñ¡¿∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ «»ÑαáΓ«α«ó. B.Pascal 7 & Objects/LR - 126 - Åα¿óÑñÑ¼ »α¿¼Ñαδ «»ÑαáΓ«αá µ¿¬½á ß »«ßΓπß½«ó¿Ñ¼: repeat K := I mod J; I := J; J := K; until J = 0; repeat Write('éóÑñ¿ΓÑ º¡áτÑ¡¿Ñ (0..9):'); Readln(I); until (I >= 0) and (I <= 9); B.Pascal 7 & Objects/LR - 127 - Ä»ÑαáΓ«αδ µ¿¬½á ß »αÑñπß½«ó¿Ñ¼ (while) ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α µ¿¬½á ß »αÑñπß½«ó¿Ñ¼ (¡áτ¿¡áεΘ¿⌐ß∩ ß ¬½ετÑó«ú« ß½«- óá while) ß«ñÑαª¿Γ ó ßÑíÑ óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ π»αáó½∩ÑΓ »«óΓ«α¡δ¼ óδ»«½¡Ñ¡¿Ñ¼ «»ÑαáΓ«αá (¬«Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ ß«ßΓáó¡δ¼ «»ÑαáΓ«α«¼). ┌─────┐ ┌─────────┐ ┌──┐ ┌────────┐ «»ÑαáΓ«α ───>│while├──>│óδαáªÑ¡¿Ñ├──>│do├──>│«»ÑαáΓ«α├──> while └─────┘ └─────────┘ └──┘ └────────┘ éδαáªÑ¡¿Ñ, ß »«¼«Θ∞ε ¬«Γ«α«ú« «ßπΘÑßΓó½∩ÑΓß∩ π»αáó½Ñ¡¿Ñ »«ó- Γ«αÑ¡¿Ñ¼ «»ÑαáΓ«αá, ñ«½ª¡« ¿¼ÑΓ∞ íπ½Ñóß¬¿⌐ Γ¿». éδτ¿ß½Ñ¡¿Ñ Ñú« »α«¿ºó«ñ¿Γß∩ ñ« Γ«ú«, ¬á¬ ó¡πΓαÑ¡¡¿⌐ «»ÑαáΓ«α íπñÑΓ óδ»«½¡Ñ¡. é¡πΓαÑ¡¡¿⌐ «»ÑαáΓ«α óδ»«½¡∩Γß∩ »«óΓ«α¡« ñ« ΓÑσ »«α, »«¬á óδαáªÑ- ¡¿Ñ »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ ÆruÑ. àß½¿ óδαáªÑ¡¿Ñ ß ßá¼«ú« ¡áτá½á »α¿- ¡¿¼áÑΓ º¡áτÑ¡¿Ñ False, Γ« «»ÑαáΓ«α, ß«ñÑαªáΘ¿⌐ß∩ ó¡πΓα¿ «»ÑαáΓ«αá µ¿¬½á ß »αÑñπß½«ó¿Ñ¼, ¡Ñ óδ»«½¡∩ÑΓß∩. Åα¿¼Ñαá¼¿ «»ÑαáΓ«α«ó µ¿¬½á ß »αÑñπß½«ó¿Ñ¼ ¼«úπΓ ß½πª¿Γ∞ ß½Ñ- ñπεΘ¿Ñ «»ÑαáΓ«αδ: while Data[I] <> X do I := I + 1; While I > 0 do begin if Odd(I) then Z := Z * X; I := I div 2; X := Sqr(X); end; while not Eof(InFile) do begin Readln(InFile,Line); Process(Line); end; B.Pascal 7 & Objects/LR - 128 - Ä»ÑαáΓ«αδ µ¿¬½á ß »áαá¼ÑΓα«¼ (for) ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«αδ µ¿¬½á ß »áαá¼ÑΓα«¼ (¬«Γ«αδÑ ¡áτ¿¡áεΓß∩ ß« ß½«óá for) óδºδóáÑΓ »«óΓ«α∩εΘÑÑß∩ óδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá (¬«Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ ß«ßΓáó¡δ¼ «»ÑαáΓ«α«¼) »«¬á π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿ßóá¿óá- ÑΓß∩ ó«ºαáßΓáεΘá∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ º¡áτÑ¡¿⌐. ┌───┐ ┌───────────┐ ┌──┐ ┌────────┐ «»ÑαáΓ«α ───>│for├──>│π»αáó½∩εΘá∩├──>│:=├──>│¿ßσ«ñ¡«Ñ├───┐ for └───┘ │»ÑαÑ¼Ñ¡¡á∩ │ └──┘ │º¡áτÑ¡¿Ñ│ │ └───────────┘ └────────┘ │ ┌────────────────────────────────────────────────┘ │ ┌──┐ │ ┌─>│to├─────┐ ┌────────┐ ┌──┐ ┌────────┐ └───┤ └──┘ ├──>│¬«¡Ñτ¡«Ñ├──>│do├──>│«»ÑαáΓ«α├───> │ ┌──────┐ │ │º¡áτÑ¡¿Ñ│ └──┘ └────────┘ └─>│downto├─┘ └────────┘ └──────┘ ┌────────────────────────┐ π»αáó½∩εΘá∩ »ÑαÑ¼Ñ¡¡á∩ ───>│¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαÑ¼Ñ¡¡«⌐├───> └────────────────────────┘ ┌─────────┐ ¿ßσ«ñ¡«Ñ º¡áτÑ¡¿Ñ ────>│óδαáªÑ¡¿Ñ├───> └─────────┘ ┌─────────┐ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ ────>│óδαáªÑ¡¿Ñ├───> └─────────┘ é ¬áτÑßΓóÑ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ ñ«½ªÑ¡ ¿ß»«½∞º«óáΓ∞ß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαÑ¼Ñ¡«⌐ (íÑº ¬á¬«ú«-½¿í« ¬óá½¿Σ¿¬áΓ«αá), ¬«Γ«αδ⌐ «í«º¡áτáÑΓ »ÑαÑ¼Ñ¡¡πε, «íΩ∩ó½Ñ¡¡πε ½«¬á½∞¡«⌐ ó í½«¬Ñ, ó ¬«Γ«α«¼ ß«ñÑαª¿Γß∩ «»ÑαáΓ«α for. ô»αáó½∩εΘá∩ »ÑαÑ¼Ñ¡¡á∩ ñ«½ª¡á ¿¼ÑΓ∞ »Ñ- αÑτ¿ß½¿¼δ⌐ Γ¿». ìáτá½∞¡«Ñ ¿ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿∩ ñ«½ª¡δ ¿¼ÑΓ∞ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ »« »α¿ßóá¿óá¡¿ε ß »ÑαÑτ¿ß½¿¼δ¼ Γ¿»«¼. Åα¿¼Ñτá¡¿Ñ: Ä ½«¬á½∞¡«ßΓ¿ ¿ «í½áßΓ¿ ñÑ⌐ßΓó¿∩ αáßß¬áºδ- óáÑΓß∩ ó â½áóÑ 8. è«úñá ¡áτ¿¡áÑΓ óδ»«½¡∩Γ∞ß∩ «»ÑαáΓ«α for, ¡áτá½∞¡«Ñ ¿ ¬«¡Ñτ- ¡«Ñ º¡áτÑ¡¿∩ «»αÑñÑ½∩εΓß∩ «ñ¿¡ αáº, ¿ φΓ¿ º¡áτÑ¡¿∩ ß«σαá¡∩εΓß∩ ¡á »α«Γ∩ªÑ¡¿¿ óßÑú« óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«αá for. Ä»ÑαáΓ«α, ¬«Γ«αδ⌐ ß«ñÑαª¿Γß∩ ó ΓÑ½Ñ «»ÑαáΓ«αá for, óδ»«½¡∩- ÑΓß∩ «ñ¿¡ αáº ñ½∩ ¬áªñ«ú« º¡áτÑ¡¿∩ ó ñ¿á»áº«¡Ñ ¼Ñªñπ ¡áτá½∞¡δ¼ ¿ ¬«¡Ñτ¡δ¼ º¡áτÑ¡¿Ñ¼. ô»αáó½∩εΘá∩ »ÑαÑ¼Ñ¡¡á∩ óßÑúñá ¿¡¿µ¿á½¿º¿απÑΓ- ß∩ ¡áτá½∞¡δ¼ º¡áτÑ¡¿Ñ¼. è«úñá αáí«ΓáÑΓ «»ÑαáΓ«α for, º¡áτÑ¡¿Ñ π»- αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ (ßτÑΓτ¿¬á µ¿¬½«ó) πóÑ½¿τ¿óáÑΓß∩ »α¿ ¬áªñ«¼ »«óΓ«αÑ¡¿¿ ¡á Ññ¿¡¿µπ. àß½¿ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ »αÑóδΦáÑΓ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ, Γ« ß«ñÑαªáΘ¿⌐ß∩ ó ΓÑ½Ñ «»ÑαáΓ«αá for «»ÑαáΓ«α ¡Ñ óδ»«½- B.Pascal 7 & Objects/LR - 129 - ¡∩Γß∩. è«úñá ó «»ÑαáΓ«αÑ µ¿¬½á ¿ß»«½∞ºπÑΓß∩ ¬½ετÑó«Ñ ß½«ó« downto, º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ π¼Ñ¡∞ΦáÑΓß∩ »α¿ ¬áªñ«¼ »«óΓ«αÑ¡¿¿ ¡á Ññ¿¡¿µπ. àß½¿ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ ó Γá¬«¼ «»ÑαáΓ«αÑ ¼Ñ¡∞ΦÑ, τÑ¼ ¬«¡Ñτ¡«Ñ º¡áτÑ¡¿Ñ, Γ« ß«ñÑαªáΘ¿⌐ß∩ ó ΓÑ½Ñ «»ÑαáΓ«αá µ¿¬½á «»ÑαáΓ«α ¡Ñ óδ»«½¡∩Γß∩. àß½¿ «»ÑαáΓ«α, ß«ñÑαªáΘ¿⌐ß∩ ó ΓÑ½Ñ «»ÑαáΓ«αá for, ¿º¼Ñ¡∩ÑΓ º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐, Γ« φΓ« ∩ó½∩ÑΓß∩ «Φ¿í¬«⌐. Å«ß½Ñ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«αá for º¡áτÑ¡¿Ñ π»αáó½∩εΘÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ ßΓá¡«- ó¿Γß∩ ¡Ñ«»αÑñÑ½Ñ¡¡δ¼, Ñß½¿ Γ«½∞¬« óδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá for ¡Ñ íδ- ½« »αÑαóá¡« ß »«¼«Θ∞ε «»ÑαáΓ«αá »ÑαÑσ«ñá. àß½¿ »α¿¡∩Γ∞ ó« ó¡¿¼á¡¿Ñ φΓ¿ «úαá¡¿τÑ¡¿∩, Γ« «»ÑαáΓ«α for V := Expr1 to Expr2 do Body; φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«απ: begin Temp1 := Expr1; Temp2 := Expr2; if Temp1 <= Temp2 then begin V := Temp1; Body; while V <> Temp2 do begin V := Succ(V); Body; end; end; end; ¿ «»ÑαáΓ«α µ¿¬½á: for V := Expr1 downto Exp2 do Body; φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«αá¼: begin Temp1 := Expr1; Temp2 := Expr2; if Temp1 >= Temp2 then begin V := Temp1; Body; while V <> Temp2 o begin V := Pred(V); Body; end; end; end; B.Pascal 7 & Objects/LR - 130 - úñÑ Temp1 ¿ Temp2 - óß»«¼«úáΓÑ½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ, Γ¿» ¬«Γ«αδσ ß«ó- »áñáÑΓ ß «ß¡«ó¡δ¼ Γ¿»«¼ »ÑαÑ¼Ñ¡¡«⌐ V ¿ ¬«Γ«αδÑ ¡Ñ óßΓαÑτáεΓß∩ ó ñαπú«¼ ¼ÑßΓÑ »α«úαá¼¼δ. Åα¿óÑñÑ¼ »α¿¼Ñαδ «»ÑαáΓ«αá µ¿¬½á ß »áαá¼ÑΓα«¼: for I := 2 to 63 do if Data[I] > Max then Max := Data[I] for I := 1 to 10 do for J := 1 to 10 do begin X := 0; for K := 1 to 10 do X := X + Mat1[I,K]*Mat2[K,J]; Mat[I,J] := X; end; for C := red to blue do Check(C); B.Pascal 7 & Objects/LR - 131 - Ä»ÑαáΓ«α with ───────────────────────────────────────────────────────────────── é «»Ñαáµ¿∩σ ¡áñ ºá»¿ß∩¼¿ «»ÑαáΓ«α with πñ«í¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ ¬αáΓ¬«ú« «íαáΘÑ¡¿∩ ¬ »«½∩¼ ºá»¿ß¿. é «»ÑαáΓ«αÑ with ¬ »«½∩¼ «ñ¡«⌐ ¿½¿ í«½ÑÑ ¬«¡¬αÑΓ¡δσ »ÑαÑ¼Ñ¡¡δσ Γ¿»á ºá»¿ß∞ ¼«ª¡« «íαáΘáΓ∞- ß∩, ¿ß»«½∞ºπ∩ Γ«½∞¬« ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ »«½Ñ⌐. Ä»ÑαaΓ«α with ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: ┌────┐ ┌───────────────┐ ┌──┐ ┌────────┐ «»ÑαáΓ«α ──>│with├─────>│ ßßδ½¬á ¡á ├──┬─>│do├──>│«»ÑαáΓ«α├> with └────┘ ^ │»ÑαÑ¼Ñ¡¡πε Γ¿»á│ │ └──┘ └────────┘ │ │ ºá»¿ß∞ │ │ │ │ ¿½¿ «íΩÑ¬Γ │ │ │ └───────────────┘ │ │ ┌───┐ │ └────────┤ , │<────────┘ └───┘ ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε ┌────────────────────┐ Γ¿»á ºá»¿ß∞ ¿½¿ «íΩÑ¬Γ ───>│ßßδ½¬á ¡á »ÑαÑ¼Ñ¡¡πε├──> └────────────────────┘ é«º∞¼Ñ¼ ß½ÑñπεΘÑÑ «»¿ßá¡¿Ñ: type TDate = record Day : Integer: Month : Integer; Year : Integer: end; var OrderDate: TDate; æ πτÑΓ«¼ ñá¡¡«ú« «»¿ßá¡¿∩ »α¿óÑñÑ¼ »α¿¼Ñα «»ÑαáΓ«αá with: with OrderDate do if Month = 12 then begin Month := 1; Year := Year + 1 end else Month := Month + 1; ¥Γ« φ¬ó¿óá½Ñ¡Γ¡« ß½ÑñπεΘÑ¼π: if OrderDate.Month = 12 then begin OrderDate.Month := 1; OrderDate.Year := TDate.Year + 1 end else Date.month := TDate.Month + 1; B.Pascal 7 & Objects/LR - 132 - é «»ÑαáΓ«αÑ with ß¡áτá½á »α«¿ºó«ñ¿Γß∩ »α«óÑα¬á ¬áªñ«⌐ ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε, á ¿¼Ñ¡¡«: ¼«ª¡« ½¿ ÑÑ ¿¡ΓÑα»αÑΓ¿α«óáΓ∞, ¬á¬ »«½Ñ ºá»¿ß¿. àß½¿ φΓ« Γá¬, Γ« «¡á óßÑúñá ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¿¼Ñ¡¡« Γá¬¿¼ «íαáº«¼, ñáªÑ Ñß½¿ ¿¼ÑÑΓß∩ ñ«ßΓπ» ¬ »ÑαÑ¼Ñ¡¡«⌐ ß ΓÑ¼ ªÑ ¿¼Ñ¡Ñ¼. ä«»πßΓ¿¼ «»¿ßá¡δ ß½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ: type TPoint = record x,y: Integer; end; var x: Point; y: Integer; é φΓ«¼ ß½πτáÑ ¿ ¬ x, ¿ ¬ y ¼«ª¡« «íαáΘáΓ∞ß∩, ¬á¬ ¬ »ÑαÑ¼Ñ¡- ¡«⌐ ¿½¿ ¬á¬ ¬ »«½ε ºá»¿ß¿. é «»ÑαáΓ«αÑ: with x do begin x := 10; y := 25; end; x ¼Ñªñπ ¬½ετÑóδ¼¿ ß½«óá¼¿ with ¿ d« «Γ¡«ß¿Γß∩ ¬ »ÑαÑ¼Ñ¡¡«⌐ Γ¿»á π¬áºáΓÑ½∞, á ó ß«ßΓáó¡«¼ «»ÑαáΓ«αÑ x ¿ y ßßδ½áεΓß∩ ¡á x.x ¿ y.y. Ä»ÑαáΓ«α: with V1,V2,...Vn do s; φ¬ó¿óá½Ñ¡ΓÑ¡ «»ÑαáΓ«αá¼: with V1 do with V2 do ... with Vn do S; é «í«¿σ ß½πτá∩σ, Ñß½¿ Vn ∩ó½∩ÑΓß∩ »«½Ñ¼ ¿ v1, ¿ v2, Γ« «¡á ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬á¬ v2.Vn, á ¡Ñ ¬á¬ v1.Vn. àß½¿ óδí«α¬á »ÑαÑ¼Ñ¡¡«⌐ Γ¿»á ºá»¿ß∞ ßó∩ºá¡á ß ¿¡ñÑ¬ß¿α«óá¡¿- Ñ¼ ¼áßß¿óá ¿½¿ αáºδ¼Ñ¡«óá¡¿Ñ¼ π¬áºáΓÑ½∩, Γ« φΓ¿ ñÑ⌐ßΓó¿∩ »α«¿ºó«- ñ∩Γß∩ ñ« Γ«ú«, ¬á¬ íπñÑΓ óδ»«½¡∩Γ∞ß∩ ß«ßΓáó¡«⌐ «»ÑαáΓ«α. B.Pascal 7 & Objects/LR - 133 - ─────────────────────────────────────────────────────────────────────── â½áóá 8. ü½«¬¿, ½«¬á½∞¡«ßΓ∞ ¿ «í½áßΓ∞ ñÑ⌐ßΓó¿∩ ───────────────────────────────────────────────────────────────── ü½«¬¿ ß«ßΓ«∩Γ ¿º «»¿ßá¡¿⌐, ¬«Γ«αδÑ ºá»¿ßá¡δ ¿ ß¬«¼í¿¡¿α«óá¡δ ó ½εí«¼ »«α∩ñ¬Ñ, ¿ «»ÑαáΓ«α«ó. èáªñδ⌐ í½«¬ ∩ó½∩ÑΓß∩ τáßΓ∞ε «»¿ßá- ¡¿∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ¿½¿ τáßΓ∞ε »α«úαá¼¼δ ¿½¿ ¼«ñπ½∩. éßÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ¿ ¼ÑΓ¬¿, «íΩ∩ó½Ñ¡¡δÑ ó αáºñÑ½Ñ «»¿ßá¡¿⌐, ∩ó½∩εΓß∩ ñ½∩ í½«¬á ½«¬á½∞¡δ¼¿. æ¿¡Γá¬ß¿ß ───────────────────────────────────────────────────────────────── é «íΘÑ¼ ó¿ñÑ ½εí«⌐ í½«¬ ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ Σ«α¼áΓ: ┌──────────┐ ┌──────────┐ í½«¬ ────>│ αáºñÑ½ ├────>│ αáºñÑ½ ├────> │ «»¿ßá¡¿∩ │ │«»ÑαáΓ«α«ó│ └──────────┘ └──────────┘ αáºñÑ½ ──────────┬────────────────────────────────────┬───> «íΩ∩ó½Ñ¡¿∩ ^ │ ^ │ │ │ ┌──────────────────┐ │ │ │ ├───>│ αáºñÑ½ «»¿ßá¡¿∩ ├──────┤ │ │ │ │ ¼ÑΓ«¬ │ │ │ │ │ └──────────────────┘ │ │ │ │ ┌──────────────────┐ │ │ │ ├───>│ αáºñÑ½ «»¿ßá¡¿∩ ├──────┤ │ │ │ │ ¬«¡ßΓá¡Γ │ │ │ │ │ └──────────────────┘ │ │ │ │ ┌──────────────────┐ │ │ │ ├───>│ αáºñÑ½ «»¿ßá¡¿∩ ├──────┤ │ │ │ │ Γ¿»«ó │ │ │ │ │ └──────────────────┘ │ │ │ │ ┌──────────────────┐ │ │ │ ├───>│ αáºñÑ½ «»¿ßá¡¿∩ ├──────┤ │ │ │ │ »ÑαÑ¼Ñ¡¡δσ │ │ │ │ │ └──────────────────┘ │ │ │ │ ┌──────────────────┐ │ │ │ ├───>│ «»ÑαáΓ«α exports ├──────┤ │ │ │ └──────────────────┘ │ │ │ │ ┌──────────────────┐ │ │ │ └───>│ αáºñÑ½ «»¿ßá¡¿∩ ├──────┘ │ │ │»α«µÑñπα ¿ Σπ¡¬µ¿⌐│ │ │ └──────────────────┘ │ └──────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 134 - ÉáºñÑ½ «»¿ßá¡¿∩ ¼ÑΓ«¬ - φΓ« Γá τáßΓ∞ í½«¬á, úñÑ «»¿ßδóáεΓß∩ ¼ÑΓ¬¿, »α¿ßóá¿óáÑ¼δÑ «»ÑαáΓ«αá¼ ó ß««ΓóÑΓßΓóπεΘÑ¼ αáºñÑ½Ñ «»Ñαá- Γ«α«ó. èáªñá∩ ¼ÑΓ¬á ñ«½ª¡á »«¼ÑτáΓ∞ Γ«½∞¬« «ñ¿¡ «»ÑαáΓ«α. αáºñÑ½ ┌───────┐ ┌───────┐ ┌───┐ «»¿ßá¡¿∩ ───────>│ label ├──────>│ ¼ÑΓ¬á ├──┬──>│ ; ├───> ¼ÑΓ«¬ └───────┘ ^ └───────┘ │ └───┘ │ ┌───┐ │ └───┤ , ├──────┘ └───┘ îÑΓ¬«⌐ ¼«ªÑΓ íδΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¿½¿ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ µ¿Σα. êß»«½∞ºπÑ¼á∩ ó ¬áτÑßΓóÑ ¼ÑΓ¬¿ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ µ¿Σα ñ«½ª¡á ¡á- σ«ñ¿Γ∞ß∩ ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 9999. ÉáºñÑ½ «»¿ßá¡¿∩ ¬«¡ßΓá¡Γ ß«ñÑαª¿Γ «»¿ßá¡¿∩ ¬«¡ßΓá¡Γ, ½«¬á½∞- ¡δσ ñ½∩ φΓ«ú« í½«¬á. αáºñÑ½ ┌───────┐ ┌────────────┐ «»¿ßá¡¿∩ ─────>│ const ├────┬─>│ «»¿ßá¡¿Ñ ├───────────┬───> ¬«¡ßΓá¡Γ └───────┘ ^ │ │ ¬«¡ßΓá¡Γδ │ ^ │ │ │ └────────────┘ │ │ │ │ ┌───────────────────┐ │ │ │ │ │ «»¿ßá¡¿Ñ │ │ │ │ └─>│ Γ¿»¿º¿α«óá¡¡«⌐ ├─┘ │ │ │ ¬«¡ßΓá¡Γδ │ │ │ └───────────────────┘ │ └──────────────────────────────┘ ÉáºñÑ½ «»¿ßá¡¿∩ Γ¿»«ó ó¬½ετáÑΓ «»¿ßá¡¿∩ óßÑσ Γ¿»«ó ó í½«¬Ñ. αáºñÑ½ ┌───────┐ ┌────────────┐ «»¿ßá¡¿∩ ─────>│ type ├──────>│ «»¿ßá¡¿Ñ ├────┬───> Γ¿»«ó └───────┘ ^ │ Γ¿»á │ │ │ └────────────┘ │ └──────────────────────┘ ÉáºñÑ½ «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡δσ ß«ßΓ«¿Γ ¿º «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡¡δσ, ½«¬á½∞¡δσ ñ½∩ φΓ«ú« í½«¬á. αáºñÑ½ ┌─────┐ ┌────────────┐ «»¿ßá¡¿∩ ─────>│ var ├──────>│ «»¿ßá¡¿Ñ ├────┬───> »ÑαÑ¼Ñ¡¡δσ └─────┘ ^ │ »ÑαÑ¼Ñ¡¡«⌐ │ │ │ └────────────┘ │ └──────────────────────┘ B.Pascal 7 & Objects/LR - 135 - ÉáºñÑ½ «»¿ßá¡¿∩ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ß«ßΓ«¿Γ ¿º «»¿ßá¡¿∩ »α«- µÑñπα ¿ Σπ¡¬µ¿⌐, ½«¬á½∞¡δσ ñ½∩ φΓ«ú« í½«¬á. αáºñÑ½ ┌────────────┐ «»¿ßá¡¿∩ ───────────┬─>│ «»¿ßá¡¿Ñ ├─────┬────> »α«µÑñπα ¿ ^ │ │ »α«µÑñπαδ │ ^ │ Σπ¡¬µ¿⌐ │ │ └────────────┘ │ │ │ │ ┌────────────┐ │ │ │ └─>│ «»¿ßá¡¿Ñ ├──┘ │ │ │ Σπ¡¬µ¿¿ │ │ │ └────────────┘ │ │ ┌────────────┐ │ ├────>│ «»¿ßá¡¿Ñ ├─────┤ │ │¬«¡ßΓαπ¬Γ«αá│ │ │ └────────────┘ │ │ ┌────────────┐ │ ├────>│ «»¿ßá¡¿Ñ ├─────┤ │ │ñÑßΓαπ¬Γ«αá │ │ │ └────────────┘ │ └────────────────────────┘ é «»ÑαáΓ«αÑ exports »ÑαÑτ¿ß½∩εΓß∩ óßÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ φ¬ß»«αΓ¿απεΓß∩ ñá¡¡«⌐ »α«úαá¼¼«⌐ ¿½¿ ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡π- Ñ¼«⌐ í¿í½¿«ΓÑ¬«⌐. Ä»ÑαáΓ«α exports ñ«»πß¬áÑΓß∩ Γ«½∞¬« ó« ó¡ÑΦ¡Ñ¼ αáºñÑ½Ñ «»¿ßá¡¿⌐ »α«úαá¼¼δ ¿½¿ ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼«⌐ í¿í½¿«ΓÑ¬¿ - ó αáºñÑ½Ñ «»¿ßá¡¿⌐ »α«µÑñπαδ, Σπ¡¬µ¿¿ ¿½¿ ¼«ñπ½∩ Ñú« ¿ß»«½∞º«- óáΓ∞ ¡Ñ½∞º∩. ÉáºñÑ½ «»ÑαáΓ«α«ó «»αÑñÑ½∩ÑΓ «»ÑαáΓ«αδ ¿½¿ á½ú«α¿Γ¼¿τÑß¬¿Ñ ñÑ⌐ßΓó¿∩, ¬«Γ«αδÑ óδ»«½¡∩εΓß∩ ó í½«¬Ñ. αáºñÑ½ ┌───────────┐ «»ÑαáΓ«α«ó ─────>│ ß«ßΓáó¡«⌐ ├─────> │ «»ÑαáΓ«α │ └───────────┘ B.Pascal 7 & Objects/LR - 136 - Åαáó¿½á ñ½∩ «í½áßΓ¿ ñÑ⌐ßΓó¿∩ ───────────────────────────────────────────────────────────────── ìá½¿τ¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¿½¿ ¼ÑΓ¬¿ ó «»¿ßá¡¿¿ «º¡áτáÑΓ «»αÑñÑ- ½Ñ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¿½¿ ¼ÑΓ¬¿. èáªñδ⌐ αáº, ¬«úñá ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¿½¿ ¼ÑΓ¬á óßΓαÑτáεΓß∩ ó »α«úαá¼¼Ñ, «¡¿ ñ«½ª¡δ ¡áσ«ñ¿Γ∞ß∩ ó «í½áß- Γ¿ ñÑ⌐ßΓó¿∩ φΓ«ú« «»¿ßá¡¿∩. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ñ½∩ í½«¬á ───────────────────────────────────────────────────────────────── Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¿½¿ ¼ÑΓ¬¿ ó «»¿ßá¡¿¿ ¼ÑΓ¬¿, ¬«¡ßΓá¡ΓÑ, Γ¿»á, »ÑαÑ¼Ñ¡¡«⌐, »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ αáß»α«ßΓαá¡∩- ÑΓß∩ «Γ ¿σ «»¿ßá¡¿∩ ñ« ¬«¡µá ΓÑ¬πΘÑú« í½«¬á, ó¬½ετá∩ óßÑ í½«¬¿, óσ«ñ∩Θ¿Ñ ó ΓÑ¬πΘ¿⌐ í½«¬. ì¿ªÑ »α¿ó«ñ¿Γß∩ ¡Ñß¬«½∞¬« ¿ß¬½ετÑ¡¿⌐. êñÑ¡Γ¿Σ¿¬áΓ«α ¿½¿ ¼ÑΓ¬á, «»¿ßá¡¡δÑ ó« ó¡ÑΦ¡Ñ¼ í½«¬Ñ, ¼«úπΓ ºá¡«ó« «»¿ßδóáΓ∞ß∩ ó« ó¡πΓαÑ¡¡Ñ¼ í½«¬Ñ, óσ«ñ∩ΘÑ¼ ó« ó¡ÑΦ¡¿⌐ í½«¬. ä« Γ«τ¬¿ «»¿ßá¡¿∩ ó« ó¡πΓαÑ¡¡Ñ¼ í½«¬Ñ ¿½¿ »«ß½Ñ ¬«¡µá ó½«ªÑ¡¡«ú« í½«¬á ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¿½¿ ¼ÑΓ¬á »αÑñßΓáó½∩εΓ φ½Ñ¼Ñ¡Γ, «»¿ßá¡¡δ⌐ ó« ó¡ÑΦ¡Ñ¼ «σóáΓδóáεΘÑ¼ í½«¬Ñ. program Outer; { ¡áτá½« ó¡ÑΦ¡Ñ⌐ «í½áßΓ¿ ñÑ⌐ßΓó¿∩ Ω type I = Integer; { «»αÑñÑ½∩ÑΓ I ¬á¬ Integer } var T: I; { «»αÑñÑ½∩ÑΓ T ¬á¬ µÑ½«τ¿ß½Ñ¡¡πε »ÑαÑ¼Ñ¡¡πε } procedure Inner; { ¡áτá½« ó¡πΓαÑ¡¡Ñú« í½«¬á } type T = I; { »ÑαÑ«»αÑñÑ½∩ÑΓ T ß Γ¿»«¼ Integer } var I: T; { »ÑαÑ«»αÑñÑ½∩ÑΓ I ¬á¬ µÑ½«τ¿ß½Ñ¡¡πε »ÑαÑ¼Ñ¡¡πε } begin I := 1; { ¬«¡Ñµ ó½«ªÑ¡¡«ú« í½«¬á } end; begin T := 1; { ¬«¡Ñµ ó¡ÑΦ¡Ñú« í½«¬á } end. B.Pascal 7 & Objects/LR - 137 - Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ºá»¿ß¿ ───────────────────────────────────────────────────────────────── Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »«½∩, «»¿ßá¡¡«ú« ó «»αÑñÑ½Ñ- ¡¿¿ ºá»¿ß¿, »α«ßΓ¿αáÑΓß∩ «Γ Γ«τ¬¿ «»¿ßá¡¿∩ ñ« ¬«¡µá «»αÑñÑ½Ñ¡¿∩ Γ¿»á ºá»¿ß∞. èα«¼Ñ Γ«ú«, «í½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó ó¬½ετá- ÑΓ ñÑß¿ú¡áΓ«αδ »«½∩ ¿ «»ÑαáΓ«αδ with ¡áñ ßßδ½¬á¼¿ ¡á »ÑαÑ¼Ñ¡¡πε ñá¡¡«ú« Γ¿»á ºá»¿ß¿. Åα¿¼Ñτá¡¿Ñ: Ä Γ¿»Ñ ºá»¿ß∞ αáßß¬áºδóáÑΓß∩ ó â½áóÑ 4. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ «íΩÑ¬Γá ───────────────────────────────────────────────────────────────── Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá φ½Ñ¼Ñ¡Γá, «»¿ßá¡¡«ú« ó «íΩ- Ñ¬Γ¡«¼ Γ¿»Ñ, »α«ßΓ¿αáÑΓß∩ «Γ Γ«τ¬¿ «»¿ßá¡¿∩ ñ« ¬«¡µá «»αÑñÑ½Ñ¡¿∩ «íΩÑ¬Γ¡«ú« Γ¿»á ¿ αáß»α«ßΓαá¡∩ÑΓß∩ ¡á óßÑ ñ«τÑα¡¿Ñ «íΩÑ¬Γ¡δÑ Γ¿»δ ¿ í½«¬¿ óßÑσ «»¿ßá¡¿⌐ ¼ÑΓ«ñ«ó «íΩÑ¬Γ¡«ú« Γ¿»á. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó φ½Ñ¼Ñ¡Γá ó¬½ετáÑΓ ñÑß¿ú¡áΓ«αδ »«½∩ ¿ «»ÑαáΓ«αδ with ¡áñ ßßδ½¬á¼¿ ¡á »ÑαÑ¼Ñ¡¡πε ñá¡¡«ú« «íΩÑ¬Γ¡«ú« Γ¿»á. Åα¿¼Ñτá¡¿Ñ: « Γ¿»Ñ ºá»¿ß∞ αáßß¬áºδóáÑΓß∩ ó â½áóÑ 4. B.Pascal 7 & Objects/LR - 138 - Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¼«ñπ½∩ ───────────────────────────────────────────────────────────────── Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó, «»¿ßá¡¡δσ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ¼«ñπ½∩, »«ñτ¿¡∩ÑΓß∩ »αáó¿½á¼ «í½áßΓ¿ ñÑ⌐ßΓó¿∩ í½«¬á ¿ αáß»α«ßΓαá¡∩ÑΓß∩ ¡á óßÑσ ¬½¿Ñ¡Γ«ó ¼«ñπ½∩. äαπú¿¼¿ ß½«óá¼¿, »α«ú- αá¼¼δ ¿ ¼«ñπ½¿, ß«ñÑαªáΘ¿Ñ «»ÑαáΓ«αδ uses («»ÑαáΓ«αδ ¿ß»«½∞º«óá- ¡¿∩) ¿¼ÑεΓ ñ«ßΓπ» ¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá¼, ¬«Γ«αδÑ «»¿ßá¡δ ó ¿¡ΓÑαΣÑ⌐ß- ¡«⌐ τáßΓ¿ ¼«ñπ½Ñ⌐, π¬áºá¡¡δσ ó φΓ¿σ «»ÑαáΓ«αáσ uses. èáªñδ⌐ ¼«ñπ½∞ ó «»ÑαáΓ«αÑ uses «»αÑñÑ½∩ÑΓ ßó«ε «í½áßΓ∞ ñÑ⌐ß- Γó¿∩, ¬«Γ«αá∩ «σóáΓδóáÑΓ «ßΓá½∞¡δÑ ¼«ñπ½¿ ¿ »α«úαá¼¼π ó µÑ½«¼. ÅÑαóδ⌐ ¼«ñπ½∞ ó «»ÑαáΓ«αÑ uses »αÑñßΓáó½∩ÑΓ ßá¼πε ó¡ÑΦ¡εε «í½áßΓ∞ ñÑ⌐ßΓó¿∩, á »«ß½Ññ¡¿⌐ ¼«ñπ½∞ »αÑñßΓáó½∩ÑΓ ßá¼πε ó¡πΓαÑ¡¡εε «í- ½áßΓ∞ ñÑ⌐ßΓó¿∩. ¥Γ« «º¡áτáÑΓ, τΓ« Ñß½¿ ñóá ¿½¿ í«½ÑÑ ¼«ñπ½Ñ⌐ ß«- ñÑαªáΓ «»¿ßá¡¿Ñ «ñ¡«ú« ¿ Γ«ú« ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá, Γ« »α¿ ¡ÑπΓ«τ- ¡Ñ¡¡«¼ «íαáΘÑ¡¿¿ ¬ φΓ«¼π ¿ñÑ¡Γ¿Σ¿¬áΓ«απ íπñÑΓ óδíαá¡ Γ«Γ óáα¿á¡Γ, ¬«Γ«αδ⌐ íδ½ «»¿ßá¡ ó »«ß½Ññ¡Ñ¼ ¼«ñπ½Ñ ó «»ÑαáΓ«αÑ uses. Äñ¡á¬«, óδ ¼«ªÑΓÑ óδíαáΓ∞ ½εí«⌐ óáα¿á¡Γ φΓ«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«αá, π¬áºáó πΓ«τ¡Ñ¡¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α. êñÑ¡Γ¿Σ¿¬áΓ«αδ óßΓα«Ñ¡¡δσ ¬«¡ßΓá¡Γ, Γ¿»«ó, »ÑαÑ¼Ñ¡¡δσ, »α«- µÑñπα ¿ Σπ¡¬µ¿⌐ Borland Pascal ñÑ⌐ßΓóπεΓ, ¬á¬ Ñß½¿ íδ «¡¿ íδ½¿ «»¿ßá¡δ ó í½«¬Ñ, «σóáΓδóáεΘÑ¼ óßÑ ¿ß»«½∞ºπÑ¼δÑ ¼«ñπ½¿ ¿ »α«úαá¼¼π ó µÑ½«¼. é ñÑ⌐ßΓó¿ΓÑ½∞¡«ßΓ¿ φΓ¿ ßΓá¡ñáαΓ¡δÑ «íΩÑ¬Γδ «»¿ßá¡δ ó ¼«- ñπ½Ñ System, ¬«Γ«αδ⌐ ¿ß»«½∞ºπÑΓß∩ ½εí«⌐ »α«úαá¼¼«⌐ ¿½¿ ¼«ñπ½Ñ¼ »αÑªñÑ ½εí«ú« ¼«ñπ½∩, π¬áºá¡¡«ú« ó «»ÑαáΓ«αÑ uses. ¥Γ« «º¡áτáÑΓ, τΓ« ½εí«⌐ ¼«ñπ½∞ ¿½¿ »α«úαá¼¼á ¼«úπΓ »ÑαÑ«»αÑñÑ½¿Γ∞ ßΓá¡ñáαΓ¡δÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, á «íαáΘÑ¡¿Ñ ¬ ¡¿¼ ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡« ß »«¼«Θ∞ε πΓ«τ¡Ñ¡¡«ú« (ß«ßΓáó¡«ú«) ¿ñÑ¡Γ¿Σ¿¬áΓ«αá, ¡á»α¿¼Ñα, System.Integer ¿½¿ System.Writeln. B.Pascal 7 & Objects/LR - 139 - ─────────────────────────────────────────────────────────────────────── â½áóá 9. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ »«ºó«½∩εΓ ó¬½ετáΓ∞ ó «ß¡«ó¡«⌐ »α«úαá¼¼- ¡δ⌐ í½«¬ ñ«»«½¡¿ΓÑ½∞¡δÑ í½«¬¿. èáªñ«Ñ «»¿ßá¡¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ß«ñÑαª¿Γ ºáú«½«ó«¬, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ »α«úαá¼¼¡δ⌐ í½«¬. Åα«µÑñπαá á¬Γ¿ó¿º¿απÑΓß∩ ß »«¼«Θ∞ε «»ÑαáΓ«αá »α«µÑñπαδ. öπ¡¬µ¿∩ á¬Γ¿ó¿º¿απÑΓß∩ »α¿ óδτ¿ß½Ñ¡¿¿ óδαáªÑ¡¿∩, ß«ñÑαªáΘÑú« óδº«ó Σπ¡¬- µ¿¿, ¿ ó«ºóαáΘáÑ¼«Ñ Σπ¡¬µ¿Ñ⌐ º¡áτÑ¡¿Ñ »«ñßΓáó½∩ÑΓß∩ ó φΓ« óδαáªÑ- ¡¿Ñ. Åα¿¼Ñτá¡¿Ñ: Ä»αÑñÑ½Ñ¡¿Ñ í½«¬á óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó â½áóÑ 8 "ü½«¬¿, ½«¬á½∞¡«ßΓ∞ ¿ «í½áßΓ∞ ñÑ⌐ßΓó¿∩". é ñá¡¡«⌐ ú½áóÑ «íßπªñáεΓß∩ αáº½¿τ¡δÑ ß»«ß«íδ «»¿ßá¡¿∩ »α«µÑ- ñπαδ ¿½¿ Σπ¡¬µ¿¿ ¿ ¿σ »áαá¼ÑΓαδ. Ä»¿ßá¡¿∩ »α«µÑñπα ───────────────────────────────────────────────────────────────── B.Pascal 7 & Objects/LR - 140 - Ä»¿ßá¡¿Ñ »α«µÑñπαδ »«ºó«½∩ÑΓ ßó∩ºáΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ß »α«µÑ- ñπα¡δ¼ í½«¬«¼. Åα«µÑñπαπ ¼«ª¡« ºáΓÑ¼ á¬Γ¿ó¿º¿α«óáΓ∞ ß »«¼«Θ∞ε «»ÑαáΓ«αá »α«µÑñπαδ. ┌─────────┐ ┌───┐ ┌────────────┐ ┌───┐ «»¿ßá¡¿Ñ ───>│ºáú«½«ó«¬├──>│ ; ├──>│ ΓÑ½« ├──>│ ; ├──> »α«µÑñπαδ │»α«µÑñπαδ│ └───┘ │»«ñ»α«úαá¼¼δ│ └───┘ └─────────┘ └────────────┘ ┌─────────┐ ┌─────────────┐ ºáú«½«ó«¬ ──>│procedure├─┬>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├──┐ »α«µÑñπαδ └─────────┘ │ └─────────────┘ ^├──────────────────> │ ┌─────────────┐ ││ ┌──────────┐ ^ │ │ πΓ«τ¡Ñ¡¡δ⌐ │ ││ │ ß»¿ß«¬ │ │ └>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─┘└─>│Σ«α¼á½∞¡δσ├─┘ │ ¼ÑΓ«ñá │ │»áαá¼ÑΓα«ó│ └─────────────┘ └──────────┘ ┌──────┐ í½«¬ ───┬──────────────────────────────┬──>│¼«ñπ½∞├────────> »«ñ»α«úαá¼¼δ│ ┌─────────┐ ┌───┐ ^ │ └──────┘ ^ ├──>│ near ├─────>│ ; ├───┘ │ ┌───────┐ │ │ └─────────┘ ^ └───┘ │──>│forward├───┤ │ ┌─────────┐ │ │ └───────┘ │ ├──>│ far ├──┤ │ ┌─────────┐ │ │ └─────────┘ │ │──>│ñ¿αÑ¬Γ¿óá├─┤ │ ┌─────────┐ │ │ │ external│ │ ├──>│ export ├──┤ │ └─────────┘ │ │ └─────────┘ │ │ ┌────────┐ │ │ ┌─────────┐ │ └──>│í½«¬ asm├──┤ ├──>│interrupt├──┘ └────────┘ │ │ └─────────┘ ┌─────────┐ │ └─────────────────────────────────>│ñ¿αÑ¬Γ¿óá├─┘ │ inline │ └─────────┘ çáú«½«ó¬¿ »α«µÑñπα ¿¼Ñ¡πεΓ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ »α«µÑñπα ¿ ºáñáεΓ Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ (Ñß½¿ «¡¿ ¿¼ÑεΓß∩). Åα¿¼Ñτá¡¿Ñ: æ¿¡Γá¬ß¿ß ß»¿ß¬á Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó »«- ¬áºá¡ ñá½ÑÑ ó φΓ«⌐ ú½áóÑ ó αáºñÑ½Ñ "Åáαá¼ÑΓαδ". Åα«µÑñπαá á¬Γ¿ó¿º¿απÑΓß∩ ß »«¼«Θ∞ε «»ÑαáΓ«αá »α«µÑñπαδ, ó ¬«Γ«α«¼ ß«ñÑαªáΓß∩ ¿¼∩ »α«µÑñπαδ ¿ ¡Ñ«íσ«ñ¿¼δÑ »áαá¼ÑΓαδ. Ä»Ñαá- Γ«αδ, ¬«Γ«αδÑ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩ »α¿ ºá»πß¬Ñ »α«µÑñπαδ, ß«ñÑαªáΓ- ß∩ ó «»ÑαáΓ«α¡«⌐ τáßΓ¿ ¼«ñπ½∩ »α«µÑñπαδ. àß½¿ ó ß«ñÑαªáΘÑ¼ß∩ ó »α«µÑñπαÑ «»ÑαáΓ«αÑ ó¡πΓα¿ ¼«ñπ½∩ »α«µÑñπαδ ¿ß»«½∞ºπÑΓß∩ ¿ñÑ¡Γ¿- Σ¿¬áΓ«α »α«µÑñπαδ, Γ« »α«µÑñπαá íπñÑΓ óδ»«½¡∩Γ∞ß∩ αÑ¬παß¿ó¡« (íπ- ñÑΓ »α¿ óδ»«½¡Ñ¡¿¿ «íαáΘáΓ∞ß∩ ßá¼á ¬ ßÑíÑ). B.Pascal 7 & Objects/LR - 141 - Åα¿óÑñÑ¼ »α¿¼Ñα «»¿ßá¡¿∩ »α«µÑñπαδ: procedure NumString(N: integer; var S: string); var V: integer; begin V := Abs(N); S := ''; repeat S := Chr(N mod 10 + Ord('0')) + S; N := N div 10; until N = 0; if N < 0 then S := '-' + S; end; Ä»¿ßá¡¿∩ near ¿ far ───────────────────────────────────────────────────────────────── Borland Pascal »«ññÑαª¿óáÑΓ ñóÑ ¼«ñÑ½¿ óδº«óá »α«µÑñπα - í½¿ª¡εε (near) ¿ ñá½∞¡εε (far). æ Γ«τ¬¿ ºαÑ¡¿∩ «íΩÑ¼á »α«úαá¼¼δ ¿ ß¬«α«ßΓ¿ óδ»«½¡Ñ¡¿∩ í½¿ª¡∩∩ ¼«ñÑ½∞ óδº«óá í«½ÑÑ φΣΣÑ¬Γ¿ó¡á, ¡« ß ¡Ñ⌐ ßó∩ºá¡δ «úαá¡¿τÑ¡¿∩: »α«µÑñπαδ Γ¿»á near ¼«úπΓ óδºδóáΓ∞ß∩ Γ«½∞¬« ó Γ«¼ ¼«ñπ½Ñ, úñÑ «¡¿ «»¿ßá¡δ. Åα«µÑñπαδ ªÑ ß ñá½∞¡¿¼ Γ¿- »«¼ óδº«óá ¼«ª¡« óδºδóáΓ∞ ¿º ½εí«ú« ¼«ñπ½∩, ¡« «¡¿ ¡Ñß¬«½∞¬« ¼Ñ- ¡ÑÑ φΣΣÑ¬Γ¿ó¡δ. Åα¿¼Ñτá¡¿Ñ: Ä óδº«óáσ í½¿ª¡Ñú« ¿ ñá½∞¡Ñú« Γ¿»á αáßß¬á- ºδóáÑΓß∩ ó â½áóÑ 22 "é«»α«ßδ π»αáó½Ñ¡¿∩". ìá «ß¡«óÑ «»¿ßá¡¿∩ »α«µÑñπαδ ¬«¼»¿½∩Γ«α íπñÑΓ áóΓ«¼áΓ¿τÑß¬¿ óδí¿αáΓ∞ »αáó¿½∞¡πε ¼«ñÑ½∞ óδº«óá. ä½∩ »α«µÑñπα, «»¿ßá¡¡δσ ó ¿¡- ΓÑαΣÑ⌐ß¡«⌐ τáßΓ¿ ¼«ñπ½∩ (interface), ¿ß»«½∞ºπÑΓß∩ ñá½∞¡∩∩ ¼«ñÑ½∞ óδº«óá - ¿σ ¼«ª¡« óδºδóáΓ∞ ¿º ñαπú¿σ ¼«ñπ½Ñ⌐. Åα«µÑñπαδ, «»¿ßá¡- ¡δÑ ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ ¼«ñπ½∩ (implementation), ¿¼ÑεΓ í½¿ª¡¿⌐ Γ¿» óδº«óá. éδºδóáΓ∞ß∩ «¡¿ ¼«úπΓ Γ«½∞¬« ¿º »α«úαá¼¼ ñá¡¡«ú« ¼«ñπ- ½∩. ä½∩ ¡Ñ¬«Γ«αδσ ß»Ñµ¿á½∞¡δσ µÑ½Ñ⌐ ¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ ¿ß»«½∞- º«óáΓ∞ ¼«ñÑ½∞ ß ñá½∞¡¿¼ Γ¿»«¼ óδº«óá. ìá»α¿¼Ñα, ó «óÑα½Ñ⌐¡δσ ºá- ñáτáσ «íδτ¡« ΓαÑíπÑΓß∩, τΓ«íδ óßÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¿¼Ñ½¿ ñá½∞- ¡¿⌐ Γ¿» óδº«óá. Ç¡á½«ú¿τ¡«, Ñß½¿ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ »α¿ßóá¿óáÑΓß∩ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, Γ« «¡á Γá¬ªÑ ñ«½ª¡á ¿ß»«½∞- º«óáΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«óá. ùΓ«íδ »ÑαÑ«»αÑñÑ½¿Γ∞ áóΓ«¼áΓ¿τÑß¬¿⌐ óδí«α ¼«ñÑ½¿ óδº«óá ¬«¼»¿½∩Γ«α«¼, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ¿αÑ¬Γ¿óπ ¬«¼»¿½∩Γ«αá {$F+}. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«¼»¿½¿απÑ¼δÑ ó ß«ßΓ«∩¡¿¿ {$F+}, óßÑúñá íπñπΓ ¿¼ÑΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«óá (far), á ó ß«ßΓ«∩¡¿¿ {$F-} ¬«¼»¿½∩Γ«α áóΓ«¼áΓ¿τÑß¬¿ óδí¿αáÑΓ ¬«ααÑ¬Γ¡πε ¼«ñÑ½∞. Å« π¼«½τá¡¿ε ¿ß»«½∞ºπÑΓß∩ ñ¿αÑ¬Γ¿óá {$F-}. B.Pascal 7 & Objects/LR - 142 - ùΓ«íδ ºáñáΓ∞ ¬«¡¬αÑΓ¡πε ¼«ñÑ½∞ óδº«óá, ó «»¿ßá¡¿¿ »α«µÑñπαδ »ÑαÑñ ÑÑ í½«¬«¼ ¼«ª¡« π¬áºáΓ∞ ñ¿αÑ¬Γ¿óπ near ¿½¿ far. Åα¿ ¡á½¿τ¿¿ Γá¬«⌐ ñ¿αÑ¬Γ¿óδ «¡á »ÑαÑ«»αÑñÑ½∩ÑΓ ñ¿αÑ¬Γ¿óπ $F ¬«¼»¿½∩Γ«αá ¿ áó- Γ«¼áΓ¿τÑß¬¿⌐ óδí«α ¼«ñÑ½¿ óδº«óá. Ä»¿ßá¡¿∩ export ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ export ñÑ½áÑΓ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε φ¬ß»«αΓ¿απÑ¼«⌐, óδ¡πªñá∩ ¬«¼»¿½∩Γ«α ¿ß»«½∞º«óáΓ∞ ñ½∩ ¡ÑÑ ñá½∞¡¿⌐ Γ¿» óδº«óá ¿ úÑ- ¡Ñα¿α«óáΓ∞ ß»Ñµ¿á½∞¡δ⌐ ¬«ñ óσ«ñδ ¿ óδσ«ñá ¿º »α«µÑñπαδ. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ«½ª¡δ íδΓ∞ φ¬ß»«αΓ¿απÑ¼δ¼¿ ó ß½ÑñπεΘ¿σ ß½πτá∩σ: * Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ φ¬ß»«αΓ¿απεΓß∩ DLL (ñ¿¡á¼¿τÑß¬¿ ¬«¼»«- ¡πÑ¼«⌐ í¿í½¿«ΓÑ¬«⌐). * Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ß¿ßΓÑ¼¡«ú« óδº«óá ó »α«úαá¼¼Ñ Windows. Ä Γ«¼, ¬á¬ φ¬ß»«αΓ¿α«óáΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ó DLL, αáßß¬á- ºδóáÑΓß∩ ó â½áóÑ 11 "ä¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δÑ í¿í½¿«ΓÑ¬¿". ò«Γ∩ »α«µÑñπαá ¿ Σπ¡¬µ¿∩ ¬«¼»¿½¿απÑΓß∩ ß ñ¿αÑ¬Γ¿ó«⌐ export, Σá¬Γ¿τÑß- ¬¿⌐ φ¬ß»«αΓ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¡Ñ »α«¿ßσ«ñ¿Γ, »«¬á »«ñ»α«úαá¼- ¼á ¡Ñ »ÑαÑτ¿ß½∩ÑΓß∩ ó «»ÑαáΓ«αÑ exports í¿í½¿«ΓÑ¬¿. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ß¿ßΓÑ¼¡«ú« óδº«óá - φΓ« ΓÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ óáΦÑ⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ, ¬«Γ«αδÑ óδºδóáεΓß∩ ßá¼«⌐ Windows, á ¡Ñ óáΦÑ⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼«⌐. Å«ñ»α«úαá¼¼δ ß¿ßΓÑ¼¡«- ú« óδº«óá ñ«½ª¡δ ¬«¼»¿½¿α«óáΓ∞ß∩ ß ñ¿αÑ¬Γ¿ó«⌐ export, ¡« ó «»Ñαá- Γ«αÑ exports ¿σ »ÑαÑτ¿ß½∩Γ∞ ¡Ñ ¡πª¡«. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ß¿ßΓÑ¼¡«ú« óδº«óá: * »α«µÑñπαδ Windows; * ñ¿á½«ú«óδÑ »α«µÑñπαδ; * »α«µÑñπαδ ß¿ßΓÑ¼¡«ú« óδº«óá ñ½∩ »ÑαÑτ¿ß½Ñ¡¿∩; * »α«µÑñπαδ πóÑñ«¼½Ñ¡¿∩ «í «íαáΘÑ¡¿¿ ¬ »á¼∩Γ¿; * ß»Ñµ¿á½¿º¿α«óá¡¡δÑ »α«µÑñπαδ Windows (Σ¿½∞Γαδ). Borland Pascal áóΓ«¼áΓ¿τÑß¬¿ úÑ¡Ñα¿απÑΓ ñ½∩ »α«µÑñπα ¿ Σπ¡¬- µ¿⌐, φ¬ß»«αΓ¿απÑ¼δσ »α«úαá¼¼«⌐ Windows, φΣΣÑ¬Γ¿ó¡δÑ ß¿ßΓÑ¼¡δÑ óδ- º«óδ. ¥ΣΣÑ¬Γ¿ó¡δÑ óδº«óδ «ß½áí½∩εΓ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ »α¿ ß«ºñá¡¿¿ »«ñ»α«úαá¼¼ ß¿ßΓÑ¼¡«ú« óδº«óá »«ñ»α«úαá¼¼ API Windows MakeProcInstance ¿ FreeProcInstance. Åα¿¼Ñτá¡¿Ñ: æ¼. αáºñÑ½ "è«ñ óσ«ñá ¿ óδσ«ñá" ó â½áóÑ 22. B.Pascal 7 & Objects/LR - 143 - Ä»¿ßá¡¿∩ interrupt ───────────────────────────────────────────────────────────────── é «»¿ßá¡¿¿ »α«µÑñπαδ »ÑαÑñ í½«¬«¼ «»ÑαáΓ«α«ó ¼«ªÑΓ π¬áºδóá- ÑΓß∩ ñ¿αÑ¬Γ¿óá interrupt. Åα«µÑñπαá ó φΓ«¼ ß½πτáÑ αáßß¼áΓα¿óáÑΓ- ß∩, ¬á¬ »α«µÑñπαá »αÑαδóá¡¿∩. ÄΓ¼ÑΓ¿¼ »«¬á, τΓ« »α«µÑñπαá interrupt ¡Ñ ¼«ªÑΓ óδºδóáΓ∞ß∩ ¿º «»ÑαáΓ«α«ó »α«µÑñπαδ, ¿ τΓ« ¬áª- ñá∩ »α«µÑñπαá interrupt ñ«½ª¡á «»αÑñÑ½∩Γ∞ ß»¿ß«¬ »áαá¼ÑΓα«ó, ¡á»- α¿¼Ñα, ß½ÑñπεΘ¿¼ «íαáº«¼: procedure MyInt(Flags, CS, IP, AX, BX, CX, DX, SI, DI, DS, ES, BP: Word); interrupt; Åα¿¼Ñτá¡¿Ñ: ìÑ ¿ß»«½∞ºπ⌐ΓÑ ñ¿αÑ¬Γ¿óπ interrupt »α¿ αáºαáí«Γ¬Ñ »α«úαá¼¼ ñ½∩ Windows - φΓ« »α¿óÑñÑΓ ¬ ßí«ε. æ»¿ß«¬ »áαá¼ÑΓα«ó ¡Ñ «í∩ºáΓÑ½∞¡« ñ«½ªÑ¡ ß«ó»áñáΓ∞ ß π¬áºá¡- ¡δ¼ ß¿¡Γá¬ß¿ß«¼ - «¡ ¼«ªÑΓ íδΓ∞ ¬«α«τÑ ¿ ¿ß»«½∞º«óáΓ∞ ñαπú¿Ñ ¿¼Ñ- ¡á, ¡« αÑú¿ßΓαδ ñ«½ª¡δ »ÑαÑñáóáΓ∞ß∩ ó π¬áºá¡¡«¼ »«α∩ñ¬Ñ. Ä»¿ßá¡¿Ñ forward ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ »α«µÑñπαδ, ß«ñÑαªáΘÑÑ ó¼ÑßΓ« í½«¬á «»ÑαáΓ«α«ó ñ¿- αÑ¬Γ¿óπ forward, ¡áºδóáÑΓß∩ «»ÑαÑªáεΘ¿¼ «»¿ßá¡¿Ñ¼. é ¬á¬«¼-½¿í« ¼ÑßΓÑ »«ß½Ñ φΓ«ú« «»¿ßá¡¿∩ ß »«¼«Θ∞ε «»αÑñÑ½∩εΘÑú« «»¿ßá¡¿∩ »α«- µÑñπαá ñ«½ª¡á «»αÑñÑ½∩Γ∞ß∩. Ä»αÑñÑ½∩εΘÑÑ «»¿ßá¡¿Ñ - φΓ« «»¿ßá¡¿Ñ, ó ¬«Γ«α«¼ ¿ß»«½∞ºπÑΓß∩ Γ«Γ ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ, ¡« «»πΘÑ¡ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ¿ ó ¬«Γ«α«Ñ ó¬½ετÑ¡ í½«¬ «»ÑαáΓ«α«ó. Ä»¿ßá¡¿Ñ forward ¿ «»αÑñÑ½∩εΘÑÑ «»¿ßá¡¿Ñ ñ«½ª¡δ »α¿ßπΓßΓó«óáΓ∞ ó «ñ¡«⌐ ¿ Γ«⌐ ªÑ τáßΓ¿ «»¿ßá¡¿∩ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. îÑªñπ ¡¿¼¿ ¼«- úπΓ «»¿ßδóáΓ∞ß∩ ñαπú¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ ¼«úπΓ «íαá- ΘáΓ∞ß∩ ¬ »α«µÑñπαÑ ß «»ÑαÑªáεΘ¿¼ «»¿ßá¡¿Ñ¼. Æá¬¿¼ «íαáº«¼ ó«º¼«ª- ¡á óºá¿¼¡á∩ αÑ¬παß¿∩. Ä»ÑαÑªáεΘÑÑ «»¿ßá¡¿Ñ ¿ «»αÑñÑ½∩εΘÑÑ «»¿ßá¡¿Ñ »αÑñßΓáó½∩εΓ ß«í«⌐ »«½¡«Ñ «»¿ßá¡¿Ñ »α«µÑñπαδ. Åα«µÑñπαá ßτ¿ΓáÑΓß∩ «»¿ßá¡¡«⌐ ß »«¼«Θ∞ε «»ÑαÑªáεΘÑú« «»¿ßá¡¿∩. Åα¿¼Ñτá¡¿Ñ: é ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáßΓ¿ ¼«ñπ½∩ «»¿ßá¡¿∩ forward ¡Ñ ñ«»πß¬áεΓß∩. Åα¿óÑñÑ¼ ß½ÑñπεΘ¿⌐ »α¿¼Ñα «»ÑαÑªáεΘÑú« «»¿ßá¡¿∩: procedure Walter(m,n : integer); forward; procedure Clara(x,y : real); begin . . . end; B.Pascal 7 & Objects/LR - 144 - procedure Walter; begin . . Clara(8.3, 2.4); . . end; Ä»αÑñÑ½∩εΘÑÑ «»¿ßá¡¿Ñ »α«µÑñπαδ ¼«ªÑΓ íδΓ∞ ó¡ÑΦ¡¿¼ «»¿ßá¡¿- Ñ¼. Äñ¡á¬«, «¡« ¡Ñ ¼«ªÑΓ íδΓ∞ ó¡πΓαÑ¡¡¿¼ «»¿ßá¡¿Ñ¼ ¿½¿ ñαπú¿¼ «»ÑαÑªáεΘ¿¼ «»¿ßá¡¿Ñ¼. Ä»αÑñÑ½∩εΘÑÑ «»¿ßá¡¿Ñ Γá¬ªÑ ¡Ñ ¼«ªÑΓ ß«- ñÑαªáΓ∞ ñ¿αÑ¬Γ¿óπ interrupt, «»¿ßá¡¿∩ assembler, near, far, export, inline ¿½¿ ñαπú«Ñ «»¿ßá¡¿Ñ forward. B.Pascal 7 & Objects/LR - 145 - Ä»¿ßá¡¿∩ external ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿∩ external »«ºó«½∩εΓ ßó∩ºδóáΓ∞ «ΓñÑ½∞¡« ß¬«¼»¿½¿α«- óá¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¡á»¿ßá¡¡δÑ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá. Ä»¿- ßá¡¿∩ external »«ºó«½∩εΓ Γá¬ªÑ ¿¼»«αΓ¿α«óáΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¿º DLL. Åα¿¼Ñτá¡¿Ñ: ü«½ÑÑ ñÑΓá½∞¡«Ñ «»¿ßá¡¿∩ ¬«¼»«¡«ó¬¿ ß »α«úαá¼¼«⌐ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ß«ñÑαª¿Γß∩ ó â½áóÑ 25. ñ¿αÑ¬Γ¿óá external │ ┌──────────┐ └─>│ external ├┬───────────────────────────────────────────────> └──────────┘│ ┌───────────────────┐ ^ └>│ßΓα«¬«óá∩ ¬«¡ßΓá¡Γá├┬───────────────────────┘ └───────────────────┘│ ┌──────┐ ┌─────────┐^ ├>│ name ├─>│ßΓα«¬«óá∩├┤ │ └──────┘ │¬«¡ßΓá¡Γá││ │ └─────────┘│ │ ┌───────┐ ┌─────────┐│ └>│ index ├>│ µÑ½á∩ ├┘ └───────┘ │¬«¡ßΓá¡Γá│ └─────────┘ ä¿αÑ¬Γ¿óá external, ß«ßΓ«∩Θá∩ Γ«½∞¬« ¿º ºáαÑºÑαó¿α«óá¡¡«ú« ß½«óá external, ¿ß»«½∞ºπÑΓß∩ ó ß«τÑΓá¡¿¿ ß ñ¿αÑ¬Γ¿óá¼¿ {$L ¿¼∩_Σá⌐½á} ñ½∩ ¬«¼»«¡«ó¬¿ ß »α«µÑñπαá¼¿ ¿ Σπ¡¬µ¿∩¼¿, αÑá½¿º«óá¡- ¡δ¼¿ ó Σá⌐½áσ .OBJ. Åα¿óÑñÑ¼ ß½ÑñπεΘ¿Ñ »α¿¼Ñαδ «»¿ßá¡¿⌐ ó¡ÑΦ¡¿σ »α«µÑñπα: procedure MoveWord(var source,dest; count: longint); external; procedure MoveLong(var source,dest; count: longint); external; procedure FillWord(var dest,data: integer; count: longint); external; procedure FillLong(var dest,data: integer; count: longint); external; {$L BLOCK.OBJ} é¡ÑΦ¡¿¼¿ »α«µÑñπαá¼¿ ß½ÑñπÑΓ »«½∞º«óáΓ∞ß∩, ¬«úñá óδ σ«Γ¿ΓÑ «íΩÑñ¿¡¿Γ∞ í«½∞Φ«Ñ ¬«½¿τÑßΓó« «íΩÑ¬Γ¡δσ ¼«ñπ½Ñ⌐. àß½¿ óáΦ¿ »α«ú- αá¼¼δ ¿¼ÑεΓ ¡Ñí«½∞Φ«⌐ «íΩÑ¼, ½πτΦÑ ó¼ÑßΓ« φΓ«ú« ¿ß»«½∞º«óáΓ∞ ó¡πΓαÑ¡¡¿Ñ »α«µÑñπαδ. ä¿αÑ¬Γ¿óδ external, ß»Ñµ¿Σ¿µ¿απεΘ¿Ñ ¿¼∩ ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡π- Ñ¼«⌐ í¿í½¿«ΓÑ¬¿ (¿, ó«º¼«ª¡«, ¿¼»«αΓ¿απÑ¼«Ñ ¿¼∩ ¿½¿ »«α∩ñ¬«óδ⌐ B.Pascal 7 & Objects/LR - 146 - ¡«¼Ñα ¿¼»«αΓá), ¿ß»«½∞ºπεΓß∩ ñ½∩ ¿¼»«αΓá »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ¿º ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δσ í¿í½¿«ΓÑ¬. ìá»α¿¼Ñα, ß½ÑñπεΘá∩ ñ¿αÑ¬Γ¿óá external ¿¼»«αΓ¿απÑΓ ¿º DLL ß ¿¼Ñ¡Ñ¼ KERNEL (∩ñα« Windows) Σπ¡¬- µ¿ε ß ¿¼Ñ¡Ñ¼ GlobalAlloc: function GlobalAlloc(Flags: Word; Bytes: Longint): THandle; far; external 'KERNEL' index 15; é ¿¼»«αΓ¿απÑ¼«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ ñ¿αÑ¬Γ¿óá external ºá- ¡¿¼áÑΓ ¼ÑßΓ« «»¿ßá¡¿∩ ¿ «»ÑαáΓ«α¡«⌐ τáßΓ¿. é ¿¼»«αΓ¿απÑ¼δσ »α«µÑ- ñπαáσ ¿½¿ Σπ¡¬µ¿∩σ ñ«½ªÑ¡ ¿ß»«½∞º«óáΓ∞ß∩ ñá½∞¡¿⌐ Γ¿» óδº«óá, ºá- ñáóáÑ¼δ⌐ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ far ó «»¿ßá¡¿¿ »α«µÑñπαδ ¿½¿ ñ¿αÑ¬- Γ¿óδ ¬«¼»¿½∩Γ«αá {$F+}. é «ßΓá½∞¡«¼ ¿¼»«αΓ¿απÑ¼δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ á¡á½«ú¿τ¡δ «íδτ¡δ¼ »α«µÑñπαá¼ ¿ Σπ¡¬µ¿∩¼. Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡ÑÑ «í ¿¼»«αΓÑ Σπ¡¬µ¿⌐ ¿º DLL αáßß- ¬áºδóáÑΓß∩ ó â½áóÑ 11. B.Pascal 7 & Objects/LR - 147 - Ä»¿ßá¡¿∩ assembler ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿∩ assembler »«ºó«½∩εΓ óá¼ ¡á»¿ßáΓ∞ óßε »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ¡á áßßÑ¼í½ÑαÑ. Åα¿¼Ñτá¡¿Ñ: ü«½ÑÑ »«ñα«í¡« « »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ ¡á ÇßßÑ¼í½ÑαÑ αáßß¬áºδóáÑΓß∩ ó â½áóÑ 24 "éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα". ┌─────────┐ ┌───┐ ┌──────────┐ ┌────────────┐ í½«¬ asm ─>│assembler├──>│ ; ├──>│ αáºñÑ½ ├──>│asm «»ÑαáΓ«α├─> └─────────┘ └───┘ │ «»¿ßá¡¿∩ │ └────────────┘ └──────────┘ Ä»¿ßá¡¿∩ inline ───────────────────────────────────────────────────────────────── ä¿αÑ¬Γ¿óδ inline »«ºó«½∩εΓ ºá»¿ßδóáΓ∞ ó¼ÑßΓ« í½«¬á «»ÑαáΓ«- α«ó ¿¡ßΓαπ¬µ¿¿ ó ¼áΦ¿¡¡«¼ ¬«ñÑ. Åα¿ óδº«óÑ «íδτ¡«⌐ »α«µÑñπαδ ¬«¼- »¿½∩Γ«α ß«ºñáÑΓ ¬«ñ, ó ¬«Γ«α«¼ »áαá¼ÑΓαδ »α«µÑñπαδ »«¼ÑΘáεΓß∩ ó ßΓÑ¬, á ºáΓÑ¼ ñ½∩ óδº«óá »α«µÑñπαδ úÑ¡Ñα¿απÑΓß∩ ¿¡ßΓαπ¬µ¿∩ CÇLL. ┌─────────────────┐ ñ¿αÑ¬Γ¿óá inline ──>│ «»ÑαáΓ«α inline ├──────────> └─────────────────┘ è«úñá óδ óδºδóáÑΓÑ »«ñßΓáó½∩Ñ¼πε »α«µÑñπαπ (inline), ¬«¼»¿- ½∩Γ«α úÑ¡Ñα¿απÑΓ ¬«ñ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ inline, á ¡Ñ ß »«¼«Θ∞ε ¿¡ßΓαπ¬µ¿¿ CALL. Æá¬¿¼ «íαáº«¼, »«ßΓáó½∩Ñ¼á∩ »α«µÑñπαá "αáßΦ¿α∩- ÑΓß∩" »α¿ ¬áªñ«¼ «íαáΘÑ¡¿¿ ¬ ¡Ñ⌐, á¡á½«ú¿τ¡« ¼á¬α«¿¡ßΓαπ¬µ¿¿ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá. Åα¿óÑñÑ¼ ñóá ¡Ñí«½∞Φ¿σ »α¿¼Ñαá »«ñßΓáó½∩Ñ¼δσ »α«µÑñπα: procedure DisableInterrupts: inline($FA); { CLI } procedure EnableInterrupts; inline($FB); { STI } Åα¿¼Ñτá¡¿Ñ: æ¿¡Γá¬ß¿τÑß¬¿Ñ ñ¿áúαá¼¼δ «»ÑαáΓ«αá inline «»¿ßá¡δ »«ñα«í¡« ó â½áóÑ 25. B.Pascal 7 & Objects/LR - 148 - Ä»¿ßá¡¿∩ Σπ¡¬µ¿⌐ ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ Σπ¡¬µ¿¿ «»αÑñÑ½∩ÑΓ τáßΓ∞ »α«úαá¼¼δ, ó ¬«Γ«α«⌐ óδ- τ¿ß½∩εΓß∩ ¿ ó«ºóαáΘáÑΓß∩ º¡áτÑ¡¿Ñ. ┌─────────┐ ┌───┐ ┌───────┐ ┌───┐ «»¿ßá¡¿Ñ ───>│ºáú«½«ó«¬├──>│ ; ├──>│ ΓÑ½« ├──>│ ; ├──> Σπ¡¬µ¿¿ │ Σπ¡¬µ¿¿ │ └───┘ │Σπ¡¬µ¿¿│ └───┘ └─────────┘ └───────┘ ┌────────┐ ┌─────────────┐ ºáú«½«ó«¬ ───>│function├┬>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├──┬───────────────────┐ Σπ¡¬µ¿¿ └────────┘│ └─────────────┘^ │ ┌──────────┐ ^ │ │ ┌─────────────┐│ │ │ß»¿ß«¬ │ │ │ └>│ πΓ«τ¡Ñ¡¡δ⌐ ├┘ └─>│Σ«α¼á½∞¡δσ├──┘ │ │¿ñÑ¡Γ¿Σ¿¬áΓ«α│ │»áαá¼ÑΓα«ó│ │ │ ¼ÑΓ«ñá │ └──────────┘ │ └─────────────┘┌─────────────────────┘ │ ┌───┐ ┌────────┐ └─>│ : ├──>│Γ¿» αÑ- ├──> └───┘ │ºπ½∞ΓáΓá│ └────────┘ ┌─────────────┐ Γ¿» αÑºπ½∞ΓáΓá ──┬──>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─────────> │ │ Γ¿»á │ ^ │ └─────────────┘ │ │ ┌──────┐ │ └─────>│string├─────────┘ └──────┘ Åα¿¼Ñτá¡¿Ñ: öπ¡¬µ¿∩ ¡Ñ ¼«ªÑΓ ó«ºóαáΘáΓ∞ »α«µÑñπα¡δ⌐ Γ¿» ¿½¿ ßΓαπ¬Γπα¡δ⌐ Γ¿». é ºáú«½«ó¬Ñ Σπ¡¬µ¿¿ «»αÑñÑ½∩ÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿, Σ«α- ¼á½∞¡δÑ »áαá¼ÑΓαδ (Ñß½¿ «¡¿ ¿¼ÑεΓß∩) ¿ Γ¿» αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿. öπ¡¬µ¿∩ á¬Γ¿ó¿º¿απÑΓß∩ »α¿ óδº«óÑ Σπ¡¬µ¿¿. Åα¿ óδº«óÑ Σπ¡¬- µ¿¿ π¬áºδóáÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ ¿ ¬á¬¿Ñ-½¿í« »áαá¼ÑΓαδ, ¡Ñ- «íσ«ñ¿¼δÑ ñ½∩ óδτ¿ß½Ñ¡¿∩ Σπ¡¬µ¿¿. éδº«ó Σπ¡¬µ¿¿ ¼«ªÑΓ ó¬½ετáΓ∞ß∩ ó óδαáªÑ¡¿∩ ó ¬áτÑßΓóÑ «»Ñαá¡ñá. è«úñá óδαáªÑ¡¿Ñ óδτ¿ß½∩ÑΓß∩, Σπ¡¬µ¿∩ óδ»«½¡∩ÑΓß∩ ¿ º¡áτÑ¡¿Ñ¼ «»Ñαá¡ñá ßΓá¡«ó¿Γß∩ º¡áτÑ¡¿Ñ, ó«ºóαáΘáÑ¼«Ñ Σπ¡¬µ¿Ñ⌐. é «»ÑαáΓ«α¡«⌐ τáßΓ¿ í½«¬á Σπ¡¬µ¿¿ ºáñáεΓß∩ «»ÑαáΓ«αδ, ¬«Γ«- αδÑ ñ«½ª¡δ óδ»«½¡∩Γ∞ß∩ »α¿ á¬Γ¿ó¿ºáµ¿¿ Σπ¡¬µ¿¿. é ¼«ñπ½Ñ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ß∩ »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ «ñ¿¡ «»ÑαáΓ«α »α¿ßóá¿óá¡¿∩, ó ¬«Γ«α«¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«απ Σπ¡¬µ¿¿ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ. ÉÑºπ½∞ΓáΓ«¼ Σπ¡¬- µ¿¿ ∩ó½∩ÑΓß∩ »«ß½Ññ¡ÑÑ »α¿ßó«Ñ¡¡«Ñ º¡áτÑ¡¿Ñ. àß½¿ Γá¬«⌐ «»ÑαáΓ«α »α¿ßóá¿óá¡¿∩ «ΓßπΓßΓóπÑΓ ¿½¿ «¡ ¡Ñ íδ½ óδ»«½¡Ñ¡, Γ« º¡áτÑ¡¿Ñ, ó«ºóαáΘáÑ¼«Ñ Σπ¡¬µ¿Ñ⌐, ¡Ñ «»αÑñÑ½Ñ¡«. àß½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Σπ¡¬µ¿¿ ¿ß»«½∞ºπÑΓß∩ »α¿ óδº«óÑ Σπ¡¬µ¿¿ B.Pascal 7 & Objects/LR - 149 - ó¡πΓα¿ ¼«ñπ½∩-Σπ¡¬µ¿¿, Γ« Σπ¡¬µ¿∩ óδ»«½¡∩ÑΓß∩ αÑ¬παß¿ó¡«. Åα¿óÑñÑ¼ ñá½ÑÑ »α¿¼Ñαδ «»¿ßá¡¿⌐ Σπ¡¬µ¿¿: function Max(a: Vector; n: integer): extended; var x: extended; i: integer; begin x := a(1); for i := 2 to n do if x < a[i] then x := a[i]; Max := x; end; function Power(x: extended; y: integer): extended; var z: extended; i: integer; begin z := 1.0; i := y; while i > 0 do begin if Odd(i) then z := z*x; x := Sqr(x); end; Power := z; end; Ç¡á½«ú¿τ¡« »α«µÑñπαá¼ Σπ¡¬µ¿¿ ¼«úπΓ «»¿ßδóáΓ∞ß∩, ¬á¬ ß í½¿ª- ¡¿¼ Γ¿»«¼ óδº«óá (near), ß ñá½∞¡¿¼ Γ¿»«¼ óδº«óá (far), «»ÑαÑªáε- Θ¿Ñ (forward), ó¡ÑΦ¡¿Ñ (external), áßßÑ¼í½Ñα¡δÑ (assembler) ¿½¿ »«ñßΓáó½∩Ñ¼δÑ (inline). Äñ¡á¬« Σπ¡¬µ¿¿ »αÑαδóá¡¿⌐ (interrupt) ¡Ñ ñ«»πß¬áεΓß∩. B.Pascal 7 & Objects/LR - 150 - Ä»¿ßá¡¿∩ ¼ÑΓ«ñ«ó ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿Ñ ¼ÑΓ«ñá ó¡πΓα¿ «íΩÑ¬Γ¡«ú« Γ¿»á ß««ΓóÑΓßΓóπÑΓ «»ÑαÑ- ªáεΘÑ¼π «»¿ßá¡¿ε (forward) φΓ«ú« ¼ÑΓ«ñá. Æá¬¿¼ «íαáº«¼, ¼ÑΓ«ñ ñ«½ªÑ¡ íδΓ∞ αÑá½¿º«óá¡ úñÑ-¡¿íπñ∞ »«ß½Ñ «»¿ßá¡¿∩ «íΩÑ¬Γ¡«ú« Γ¿»á ¿ ó¡πΓα¿ Γ«⌐ ªÑ ßá¼«⌐ «í½áßΓ¿ ñÑ⌐ßΓó¿∩ ¼ÑΓ«ñá »πΓÑ¼ «»αÑñÑ½∩εΘÑú« «»¿ßá¡¿∩. ä½∩ »α«µÑñπα¡δσ ¿ Σπ¡¬µ¿«¡á½∞¡δσ ¼ÑΓ«ñ«ó «»αÑñÑ½∩εΘÑÑ «»¿ßá- ¡¿∩ ¿¼ÑÑΓ Σ«α¼π «íδτ¡«ú« «»¿ßá¡¿∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ºá ΓÑ¼ ¿ß¬½ετÑ¡¿Ñ¼, τΓ« ó φΓ«¼ ß½πτáÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«µÑñπαδ ¿½¿ Σπ¡¬- µ¿¿ αáßß¼áΓα¿óáÑΓß∩ ¬á¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá. ä½∩ ¼ÑΓ«ñ«ó ¬«¡ßΓαπ¬Γ«α«ó ¿ ñÑßΓαπ¬Γ«α«ó «»αÑñÑ½∩εΘÑÑ «»¿ßá- ¡¿⌐ »α¿¡¿¼áÑΓ Σ«α¼π «»¿ßá¡¿∩ »α«µÑñπα¡«ú« ¼ÑΓ«ñá, ºá ΓÑ¼ ¿ß¬½ετÑ- ¡¿Ñ¼, τΓ« ºáαÑºÑαó¿α«óá¡¡«Ñ ß½«ó« procedure ºá¼Ñ¡∩ÑΓß∩ ¡á ºáαÑ- ºÑαó¿α«óá¡¡«Ñ ß½«ó« constructor ¿½¿ destructor. Ä»αÑñÑ½∩εΘÑÑ «»¿- ßá¡¿Ñ ¼ÑΓ«ñá ¼«ªÑΓ »«óΓ«α∩Γ∞ (¡« ¡Ñ «í∩ºáΓÑ½∞¡«) ß»¿ß«¬ Σ«α¼á½∞- ¡δσ »áαá¼ÑΓα«ó ºáú«½«ó¬á ¼ÑΓ«ñá ó «íΩÑ¬Γ¡«¼ Γ¿»Ñ. é φΓ«¼ ß½πτáÑ ºáú«½«ó«¬ ¼ÑΓ«ñá ñ«½ªÑ¡ ó Γ«τ¡«ßΓ¿ »«óΓ«α∩Γ∞ ºáú«½«ó«¬ ó «íΩÑ¬Γ- ¡«¼ Γ¿»Ñ ó »«α∩ñ¬Ñ, Γ¿»áσ ¿ ¿¼Ñ¡áσ »áαá¼ÑΓα«ó ¿ ó Γ¿»Ñ ó«ºóαáΘáÑ- ¼«ú« Σπ¡¬µ¿Ñ⌐ αÑºπ½∞ΓáΓá, Ñß½¿ ¼ÑΓ«ñ ∩ó½∩ÑΓß∩ Σπ¡¬µ¿Ñ⌐. é «»αÑñÑ½∩εΘÑ¼ «»¿ßá¡¿¿ ¼ÑΓ«ñá óßÑúñá »α¿ßπΓßΓóπÑΓ ¡Ñ∩ó¡δ⌐ »áαá¼ÑΓα ß ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ Self, ß««ΓóÑΓßΓóπεΘ¿⌐ Σ«α¼á½∞¡«¼π »á- αá¼ÑΓαπ-»ÑαÑ¼Ñ¡¡«⌐, «í½áñáεΘÑ¼π «íΩÑ¬Γ¡δ¼ Γ¿»«¼. é¡πΓα¿ í½«¬á ¼Ñ- Γ«ñá Self »αÑñßΓáó½∩ÑΓ φ¬ºÑ¼»½∩α, ¬«¼»«¡Ñ¡Γ ¼ÑΓ«ñá ¬«Γ«α«ú« íδ½ π¬áºá¡ ñ½∩ á¬Γ¿ó¿ºáµ¿¿ ¼ÑΓ«ñá. Æá¬¿¼ «íαáº«¼, ½εíδÑ ¿º¼Ñ¡Ñ¡¿∩ º¡áτÑ¡¿⌐ »«½Ñ⌐ Self «ΓαáªáεΓß∩ ¡á φ¬ºÑ¼»½∩αÑ. Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¬«¼»«¡Ñ¡Γá «íΩÑ¬Γ¡«ú« Γ¿»á αáß»α«ßΓαá¡∩ÑΓß∩ ¡á í½«¬¿ »α«µÑñπα, Σπ¡¬µ¿⌐, ¬«¡ßΓαπ¬Γ«α«ó ¿ ñÑßΓαπ¬Γ«αá, ¬«Γ«αδÑ αÑá½¿ºπεΓ ¼ÑΓ«ñδ ñá¡¡«ú« «íΩÑ¬Γ¡«ú« Γ¿»á. ¥ΣΣÑ¬Γ »«½πτáÑΓß∩ Γ«Γ ªÑ, ¬á¬ Ñß½¿ íδ ó ¡áτá½« í½«¬á ¼ÑΓ«ñá íδ½ óßΓáó½Ñ¡ «»ÑαáΓ«α with ó ß½ÑñπεΘÑ⌐ Σ«α¼Ñ: with Self do begin ... end; êßσ«ñ∩ ¿º φΓ¿σ ß««íαáªÑ¡¿⌐, ¡á»¿ßá¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó ¬«¼»«- ¡Ñ¡Γ«ó, Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ¼ÑΓ«ñá, Self ¿ ½εí«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«- αá, óóÑñÑ¡¡«ú« ó ¿ß»«½¡∩Ñ¼πε τáßΓ∞ ¼ÑΓ«ñá, ñ«½ª¡« íδΓ∞ π¡¿¬á½∞- ¡δ¼. ì¿ªÑ »α¿ó«ñ∩Γß∩ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó αÑá½¿ºáµ¿⌐ ¼ÑΓ«ñ«ó: procedure Rect.Intersect(var R: Rect); begin if A.X < R.A.X then A.X := R.A.X; if A.X < R.A.Y then A.Y := R.A.Y; B.Pascal 7 & Objects/LR - 151 - if B.X > R.B.X then B.X := R.B.X; if B.Y < R.B.Y then B.Y := R.B.Y; if (A.X >= B.X) or (A.Y >= B.Y) then Init (0, 0, 0, 0); end; procedure Field.Display; begin GotoXY(X, Y); Write(Name^, ' ', GetStr); end; function NumField.PutStr(S: string): boolean; var E: integer; begin Val(S, Value, E); PutStr := (E = 0) and (Value >= Min) and (Value <= Max); end; è«¡ßΓαπ¬Γ«αδ ¿ ñÑßΓαπ¬Γ«αδ ───────────────────────────────────────────────────────────────── è«¡ßΓαπ¬Γ«αδ ¿ ñÑßΓαπ¬Γ«αδ ∩ó½∩εΓß∩ ß»Ñµ¿á½¿º¿α«óá¡¡δ¼¿ Σ«α- ¼á¼¿ ¼ÑΓ«ñ«ó. êß»«½∞ºπÑ¼δÑ ó ßó∩º¿ ß αáßΦ¿αÑ¡¡δ¼ ß¿¡Γá¬ß¿ß«¼ ßΓá¡ñáαΓ¡δσ »α«µÑñπα New ¿ Dispose, ¬«¡ßΓαπ¬Γ«αδ ¿ ñÑßΓαπ¬Γ«αδ «í½áñáεΓ ß»«ß«í¡«ßΓ∞ε αáº¼ÑΘÑ¡¿∩ ¿ πñá½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿σ «íΩÑ¬- Γ«ó. èα«¼Ñ Γ«ú«, ¬«¡ßΓαπ¬Γ«αδ ¿¼ÑεΓ ó«º¼«ª¡«ßΓ∞ óδ»«½¡¿Γ∞ ΓαÑíπÑ- ¼πε ¿¡¿µ¿á½¿ºáµ¿ε «íΩÑ¬Γ«ó, ß«ñÑαªáΘ¿σ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ. èá¬ ¿ óßÑ ñαπú¿Ñ ¼ÑΓ«ñδ, ¬«¡ßΓαπ¬Γ«αδ ¿ ñÑßΓαπ¬Γ«αδ ¼«úπΓ ¡áß½Ññ«óáΓ∞- ß∩, á «íΩÑ¬Γδ ¼«úπΓ ß«ñÑαªáΓ∞ ½εí«Ñ τ¿ß½« ¬«¡ßΓαπ¬Γ«α«ó ¿ ñÑßΓ- απ¬Γ«α«ó. è«¡ßΓαπ¬Γ«αδ ¿ß»«½∞ºπεΓß∩ ñ½∩ ¿¡¿µ¿á½¿ºáµ¿¿ ó¡«ó∞ ß«ºñá¡¡δσ «íΩÑ¬Γ«ó. Äíδτ¡« ¿¡¿µ¿á½¿ºáµ¿∩ «ß¡«óδóáÑΓß∩ ¡á º¡áτÑ¡¿∩σ, »ÑαÑñá- óáÑ¼δσ ¬«¡ßΓαπ¬Γ«απ ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó. è«¡ßΓαπ¬Γ«α ¡Ñ ¼«ªÑΓ íδΓ∞ ó¿αΓπá½∞¡δ¼, Γá¬ ¬á¬ ¼Ñσá¡¿º¼ ñ¿ß»ÑΓτÑα¿ºáµ¿¿ ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá ºáó¿ß¿Γ «Γ ¬«¡ßΓαπ¬Γ«αá, ¬«Γ«αδ⌐ »Ñαóδ¼ ß«óÑαΦ¿½ ¿¡¿µ¿á½¿- ºáµ¿ε «íΩÑ¬Γá. ┌────────────┐ ┌───┐ ┌────────────┐ ┌───┐ «»¿ßá¡¿Ñ ───>│ ºáú«½«ó«¬ ├──>│ ; ├──>│ í½«¬ ├──>│ ; ├─> ¬«¡ßΓαπ¬Γ«αá │¬«¡ßΓαπ¬Γ«αá│ └───┘ │»«ñ»α«úαá¼¼δ│ └───┘ └────────────┘ └────────────┘ ┌───────────┐ ┌─────────────┐ ºáú«½«ó«¬ ────>│constructor├┬>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─┬────────────────> ¬«¡ßΓαπ¬Γ«αá └───────────┘│ └─────────────┘^│ ┌──────────┐ ^ │ ┌─────────────┐││ │ ß»¿ß«¬ │ │ └>│ πΓ«τ¡Ñ¡¡δ⌐ ├┘└─>│Σ«α¼á½∞¡δσ├─┘ │¿ñÑ¡Γ¿Σ¿¬áΓ«α│ │»áαá¼ÑΓα«ó│ │ ¼ÑΓ«ñá │ └──────────┘ └─────────────┘ B.Pascal 7 & Objects/LR - 152 - Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ¬«¡ßΓαπ¬Γ«α«ó: constructor Field.Copy(var F: Field); begin Self := F; end; constructor Field.Init(FX, FY, FLen: integer; FName: string); begin X := FX; Y := FY; GetMem(Name, Length (FName) + 1); Name^ := FName; end; constructor TStrField.Init(FX, FY, FLen: integer; FName: string); begin inherited Init(FX, FY, FLen, FName); Field.Init(FX, FY, FLen, FName); GetMem(Value, Len); Value^ := ''; end; â½áó¡δ¼ ñÑ⌐ßΓó¿Ñ¼ ¬«¡ßΓαπ¬Γ«αá »«α«ªñÑ¡¡«ú« (ñ«τÑα¡Ñú«) Γ¿- »á, Γá¬«ú« ¬á¬ π¬áºá¡¡δ⌐ óδΦÑ TStrField.Init, »«τΓ¿ óßÑúñá ∩ó½∩- ÑΓß∩ óδº«ó ß««ΓóÑΓßΓóπεΘÑú« ¬«¡ßΓαπ¬Γ«αá Ñú« ¡Ñ»«ßαÑñßΓóÑ¡¡«ú« α«ñ¿ΓÑ½∩ ñ½∩ ¿¡¿µ¿á½¿ºáµ¿¿ ¡áß½ÑñπÑ¼δσ »«½Ñ⌐ «íΩÑ¬Γá. Å«ß½Ñ óδ- »«½¡Ñ¡¿∩ φΓ«⌐ »α«µÑñπαδ, ¬«¡ßΓαπ¬Γ«α ¿¡¿µ¿á½¿º¿απÑΓ »«½∩ «íΩÑ¬Γá, ¬«Γ«αδÑ »α¿¡áñ½ÑªáΓ Γ«½∞¬« »«α«ªñÑ¡¡«¼π Γ¿»π. äÑßΓαπ¬Γ«αδ ("ßí«αΘ¿¬¿ ¼πß«αá") ∩ó½∩εΓß∩ »α«Γ¿ó«»«½«ª¡«ßΓ∩¼¿ ¬«¡ßΓαπ¬Γ«α«ó ¿ ¿ß»«½∞ºπεΓß∩ ñ½∩ «τ¿ßΓ¬¿ «íΩÑ¬Γ«ó »«ß½Ñ ¿σ ¿ß- »«½∞º«óá¡¿∩. Äíδτ¡« «τ¿ßΓ¬á ß«ßΓ«¿Γ ¿º πñá½Ñ¡¿∩ óßÑσ »«½Ñ⌐-π¬áºá- ΓÑ½Ñ⌐ ó «íΩÑ¬ΓÑ. Åα¿¼Ñτá¡¿Ñ: äÑßΓαπ¬Γ«α ¼«ªÑΓ íδΓ∞ ó¿αΓπá½∞¡δ¼ ¿ τáßΓ« ∩ó½∩ÑΓß∩ Γá¬«óδ¼. äÑßΓαπ¬Γ«α αÑñ¬« ¿¼ÑÑΓ »áαá¼ÑΓαδ. Åα¿óÑñÑ¼ ¡Ñß¬«½∞¬« »α¿¼Ñα«ó ñÑßΓαπ¬Γ«α«ó: destructor Field.Done; begin FreeMem(Name, Length (Name^) + 1); end; destructor StrField.Done; begin FreeMem(Value, Len); Field.Done; end; äÑßΓαπ¬Γ«α ñ«τÑα¡Ñú« Γ¿»á, Γá¬«⌐ ¬á¬ π¬áºá¡¡δ⌐ óδΦÑ B.Pascal 7 & Objects/LR - 153 - TStrField.Done, «íδτ¡« ß¡áτá½á πñá½∩ÑΓ óóÑñÑ¡¡δÑ ó »«α«ªñÑ¡¡«¼ Γ¿»Ñ »«½∩ π¬áºáΓÑ½Ñ⌐, á ºáΓÑ¼ ó ¬áτÑßΓóÑ »«ß½Ññ¡Ñú« ñÑ⌐ßΓó¿∩ óδ- ºδóáÑΓ ß««ΓóÑΓßΓóπεΘ¿⌐ ßí«αΘ¿¬ ñÑßΓαπ¬Γ«α ¡Ñ»«ßαÑñßΓóÑ¡¡«ú« α«ñ¿- ΓÑ½∩ ñ½∩ πñá½Ñ¡¿∩ π¡áß½Ññ«óá¡¡δσ »«½Ñ⌐-π¬áºáΓÑ½Ñ⌐ «íΩÑ¬Γá. B.Pascal 7 & Objects/LR - 154 - é«ßßΓá¡«ó½Ñ¡¿Ñ «Φ¿í«¬ ¬«¡ßΓαπ¬Γ«αá ───────────────────────────────────────────────────────────────── Borland Pascal »«ºó«½∩ÑΓ óá¼ ß »«¼«Θ∞ε »ÑαÑ¼Ñ¡¡«⌐ HeapError ¼«ñπ½∩ System (ß¼. â½áóπ 21) πßΓá¡«ó¿Γ∞ Σπ¡¬µ¿ε «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. ¥Γá Σπ¡¬µ¿«¡á½∞¡á∩ ó«º¼«ª- ¡«ßΓ∞ ó½¿∩ÑΓ ¡á ß»«ß«í αáí«Γδ ¬«¡ßΓαπ¬Γ«α«ó «íΩÑ¬Γ¡«ú« Γ¿»á. Å« π¼«½τá¡¿ε, ¬«úñá ñ½∩ ñ¿¡á¼¿τÑß¬«ú« φ¬ºÑ¼»½∩αá «íΩÑ¬Γá ¡Ñ σóáΓáÑΓ »á¼∩Γ¿, óδº«ó ¬«¡ßΓαπ¬Γ«αá, ¿ß»«½∞ºπεΘ¿⌐ αáßΦ¿αÑ¡¡δ⌐ ß¿¡- Γá¬ß¿ß ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ New, úÑ¡Ñα¿απÑΓ «Φ¿í¬π φΓá»á óδ»«½- ¡Ñ¡¿∩ 203. àß½¿ óδ πßΓá¡«ó¿½¿ Σπ¡¬µ¿ε «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß- ¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, ¬«Γ«αá∩ ó¼ÑßΓ« ßΓá¡ñáαΓ¡«ú« αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿ 0 ó«ºóαáΘáÑΓ 1, ¬«úñá óδ»«½¡¿Γ∞ ºá»α«ß ¡Ñó«º¼«ª¡«, óδº«ó ¬«¡ßΓαπ¬Γ«αá τÑαÑº New ó«ºóαáΘáÑΓ nil (ó¼ÑßΓ« »αÑαδóá¡¿∩ »α«úαá¼- ¼δ). è«ñ, óδ»«½¡∩εΘ¿⌐ αáß»αÑñÑ½Ñ¡¿Ñ »á¼∩Γ¿ ¿ ¿¡¿µ¿á½¿ºáµ¿ε »«½∩ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó (VMT) ñ¿¡á¼¿τÑß¬«ú« φ¬ºÑ¼»½∩αá «íΩÑ¬- Γá ∩ó½∩ÑΓß∩ τáßΓ∞ε »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ óδº«óá ¬«¡ßΓαπ¬Γ«αá. è«úñá π»αáó½Ñ¡¿Ñ »ÑαÑñáÑΓß∩ ¡á «»ÑαáΓ«α begin «»ÑαáΓ«α¡«⌐ τáßΓ¿ ¬«¡ß- Γαπ¬Γ«αá, »á¼∩Γ∞ ñ½∩ φ¬ºÑ¼»½∩αá πªÑ óδñÑ½Ñ¡á, ¿ «¡ ¿¡¿µ¿á½¿º¿α«- óá¡. àß½¿ óδñÑ½Ñ¡¿∩ »á¼∩Γ¿ ºáóÑαΦáÑΓß∩ ¡Ñπñáτ¡«, ¿ Ñß½¿ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ ó«ºó- αáΘáÑΓ 1, ¬«¡ßΓαπ¬Γ«α »α«»πß¬áÑΓ óδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«α¡«⌐ τáßΓ¿ ¿ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ nil. Æá¬¿¼ «íαáº«¼, π¬áºáΓÑ½∞, ºáñá¡¡δ⌐ ó óδ- »«½¡∩Ñ¼«¼ ¬«¡ßΓαπ¬Γ«α«¼ óδº«óÑ New, πßΓá¡áó½¿óáÑΓß∩ ó nil. è«úñá π»αáó½Ñ¡¿Ñ »ÑαÑñáÑΓß∩ ¡á «»ÑαáΓ«α begin «»ÑαáΓ«α¡«⌐ τáßΓ¿ ¬«¡ßΓαπ¬Γ«αá, ñ½∩ φ¬ºÑ¼»½∩αá «íΩÑ¬Γ¡«ú« Γ¿»á «íÑß»Ñτ¿óáÑΓß∩ πß»ÑΦ¡«Ñ óδ»«½¡Ñ¡¿Ñ »á¼∩Γ¿ ¿ ¿¡¿µ¿á½¿ºáµ¿∩. æá¼ ¬«¡ßΓαπ¬Γ«α ¼«ªÑΓ »«»δΓáΓ∞ß∩ αáß»αÑñÑ½¿Γ∞ ñ¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ñ½∩ ¿¡¿µ¿á½¿ºáµ¿¿ »«½Ñ⌐-π¬áºáΓÑ½Ñ⌐ ó φ¬ºÑ¼»½∩αÑ, «ñ¡á¬«, Γá¬«Ñ αáß»αÑñÑ½Ñ¡¿Ñ ¼«ªÑΓ ºáóÑαΦ¿Γ∞ß∩ ¡Ñπñáτ¡«. àß½¿ φΓ« »α«¿ßσ«ñ¿Γ, »αáó¿½∞¡« »«ßΓα«Ñ¡¡δ⌐ ¬«¡ßΓαπ¬Γ«α ñ«½ªÑ¡ «Γ¼Ñ¡∩Γ∞ óßÑ πß»ÑΦ¡δÑ αáß»αÑñÑ½Ñ¡¿∩ ¿, ¡á¬«- ¡Ñµ, «ßó«í«ªñáΓ∞ óδñÑ½Ñ¡¡πε ñ½∩ φ¬ºÑ¼»½∩αá «íΩÑ¬Γá »á¼∩Γ∞, Γá¬ τΓ« αÑºπ½∞ΓáΓ«¼ ¼«ªÑΓ ßΓáΓ∞ π¬áºáΓÑ½∞ nil. ä½∩ óδ»«½¡Ñ¡¿∩ Γá¬«⌐ "«Γ¼Ñ¡δ" Borland Pascal αÑá½¿ºπÑΓ ßΓá¡ñáαΓ¡πε »α«µÑñπαπ Fail, ¬«- Γ«αá∩ ¡Ñ ΓαÑíπÑΓ »áαá¼ÑΓα«ó ¿ ¼«ªÑΓ óδºδóáΓ∞ß∩ Γ«½∞¬« ¿º ¬«¡ß- Γαπ¬Γ«αá. éδº«ó Fail »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« ¬«¡ßΓαπ¬Γ«α íπñÑΓ «ßó«- í«ªñáΓ∞ óδñÑ½Ñ¡¡πε ñ½∩ ñ¿¡á¼¿τÑß¬«ú« φ¬ºÑ¼»½∩αá »á¼∩Γ∞, ¬«Γ«αá∩ íδ½á óδñÑ½Ñ¡á »ÑαÑñ óσ«ñ«¼ ó ¬«¡ßΓαπ¬Γ«α, ¿ ñ½∩ π¬áºá¡¿∩ ¡Ñπñáτ¿ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ nil. è«úñá »á¼∩Γ∞ ñ½∩ ñ¿¡á¼¿τÑß¬¿σ φ¬ºÑ¼»½∩α«ó óδñÑ½∩ÑΓß∩ ß »«- ¼«Θ∞ε αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá New, αÑºπ½∞Γ¿απεΘÑÑ º¡áτÑ¡¿Ñ nil ó ºáñá¡¡«¼ π¬áºáΓÑ½Ñ-»ÑαÑ¼Ñ¡¡«⌐ π¬áºδóáÑΓ, τΓ« «»Ñαáµ¿∩ ºáóÑαΦ¿- ½áß∞ ¡Ñπñáτ¡«. è ß«ªá½Ñ¡¿ε, ¡Ñ ßπΘÑßΓóπÑΓ Γá¬«ú« π¬áºáΓÑ½∩-»ÑαÑ- ¼Ñ¡¡«⌐, ¬«Γ«απε ¼«ª¡« »α«óÑα¿Γ∞ »«ß½Ñ »«ßΓα«Ñ¡¿∩ ßΓáΓ¿τÑß¬«ú« φ¬- ºÑ¼»½∩αá ¿½¿ »α¿ óδº«óÑ ¡áß½ÑñπÑ¼«ú« ¬«¡ßΓαπ¬Γ«αá. é¼ÑßΓ« φΓ«ú« Borland Pascal »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ ¬«¡ßΓαπ¬Γ«α ó ó¿ñÑ íπ½Ñóß- ¬«⌐ Σπ¡¬µ¿¿ ó óδαáªÑ¡¿¿: ó«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ True π¬áºδóáÑΓ ¡á πß»ÑΦ¡«Ñ óδ»«½¡Ñ¡¿Ñ, á º¡áτÑ¡¿Ñ False - ¡Ñ ¡Ñπß»ÑΦ¡«Ñ óδ»«½¡Ñ¡¿Ñ B.Pascal 7 & Objects/LR - 155 - ¿º-ºá óδº«óá ó ¬«¡ßΓαπ¬Γ«αÑ Fail. ìá ñ¿ß¬Ñ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ñóÑ »α«úαá¼¼δ - NORECVER.PAS ¿ RECOVER.PAS. Äíá »α«úαá¼¼δ αÑá½¿ºπεΓ ñóá »α«ßΓδσ «íΩÑ¬Γ¡δσ Γ¿»á, ß«ñÑαªáΘ¿σ π¬áºáΓÑ½¿. ÅÑαóá∩ »α«úαá¼¼á ¡Ñ ß«ñÑαª¿Γ ó«ßßΓá¡«ó½Ñ¡¿∩ «Φ¿í«¬ ¬«¡ßΓαπ¬Γ«αá. Åα«úαá¼¼á RECOVER.PAS ñÑ¼«¡ßΓα¿απÑΓ, ¬á¬ ¼«ª¡« »ÑαÑ»¿ßáΓ∞ ¿ßσ«ñ¡δ⌐ ¬«ñ ñ½∩ αÑá½¿ºáµ¿¿ ó«ßßΓá¡«ó½Ñ¡¿∩ «Φ¿í¬¿. çá¼ÑΓ¿¼, τΓ« ñ½∩ «Γ¼Ñ¡δ πß»ÑΦ¡«ú« óδñÑ½Ñ¡¿∩ »á¼∩Γ¿ »ÑαÑñ óδº«ó«¼ Fail ñ½∩ ¿Γ«- ú«ó«ú« ¡Ñπß»ÑΦ¡«ú« óδ»«½¡Ñ¡¿∩ ¿ß»«½∞ºπεΓß∩ ß««ΓóÑΓßΓóπεΘ¿Ñ ñÑßΓ- απ¬Γ«αδ ó Base.Init ¿ Derived.Init. çá¼ÑΓ¿¼ Γá¬ªÑ, τΓ« ó Derived.Init óδº«ó Base.Init ß«ñÑαª¿Γß∩ ó¡πΓα¿ óδαáªÑ¡¿∩, Γá¬ τΓ« ¼«ª¡« »α«óÑα¿Γ∞ πß»ÑΦ¡«ßΓ∞ óδ»«½¡Ñ¡¿∩ ¡áß½ÑñπÑ¼«ú« ¬«¡ßΓαπ¬Γ«αá. B.Pascal 7 & Objects/LR - 156 - Åáαá¼ÑΓαδ ───────────────────────────────────────────────────────────────── é «»¿ßá¡¿¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ºáñáÑΓß∩ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó. èáªñδ⌐ »áαá¼ÑΓα, «»¿ßá¡¡δ⌐ ó ß»¿ß¬Ñ Σ«α¼á½∞¡δσ »áαá- ¼ÑΓα«ó, ∩ó½∩ÑΓß∩ ½«¬á½∞¡δ¼ »« «Γ¡«ΦÑ¡¿ε ¬ «»¿ßδóáÑ¼«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ ¿ ó ¼«ñπ½Ñ, ßó∩ºá¡¡δ¼ ß ñá¡¡«⌐ »α«µÑñπα«⌐ ¿½¿ Σπ¡¬µ¿- Ñ⌐ ¡á ¡Ñú« ¼«ª¡« ßßδ½áΓ∞ß∩ »« Ñú« ¿ñÑ¡Γ¿Σ¿¬áΓ«απ. ┌───┐ ┌──────────┐ ┌───┐ ß»¿ß«¬ Σ«α¼á½∞¡δσ ───>│ ( ├─────>│ «»¿ßá¡¿Ñ ├──┬──>│ ) ├──> »áαá¼ÑΓα«ó └───┘ ^ │»áαá¼ÑΓαá │ │ └───┘ │ └──────────┘ │ │ ┌───┐ │ └──────┤ ; │<─────┘ └───┘ ┌─────────────┐ «»¿ßá¡¿Ñ ──┬────────────>│ß»¿ß«¬ ¿ñÑ¡- ├┬─────────────────────> »áαá¼ÑΓαá │ ┌───┐ ^ │Γ¿Σ¿¬áΓ«α«ó ││ ^ ├─>│var├────┤ └─────────────┘│ ┌───┐ ┌───────┐ │ │ └───┘ │ └>│ : ├─>│Γ¿» »á-├─┘ │ ┌─────┐ │ └───┘ │αá¼ÑΓαá│ └─>│const├──┘ └───────┘ └─────┘ æπΘÑßΓóπÑΓ Γα¿ Γ¿»á »áαá¼ÑΓα«ó: º¡áτÑ¡¿Ñ, »ÑαÑ¼Ñ¡¡á∩ ¿ ¡ÑΓ¿- »¿º¿α«óá¡¡á∩ »ÑαÑ¼Ñ¡¡á∩. Ä¡¿ σáαá¬ΓÑα¿ºπεΓß∩ ß½ÑñπεΘ¿¼: 1. âαπ»»á »áαá¼ÑΓα«ó íÑº »αÑñΦÑßΓóπεΘÑú« ¬½ετÑó«ú« ß½«óá ∩ó½∩ÑΓß∩ ß»¿ß¬«¼ »áαá¼ÑΓα«ó-º¡áτÑ¡¿⌐. 2. âαπ»»á »áαá¼ÑΓα«ó, »ÑαÑñ ¬«Γ«αδ¼¿ ß½ÑñπÑΓ ¬½ετÑó«Ñ ß½«ó« const ¿ ºá ¬«Γ«αδ¼¿ ß½ÑñπÑΓ Γ¿», ∩ó½∩ÑΓß∩ ß»¿ß¬«¼ »áαá- ¼ÑΓα«ó-¬«¡ßΓá¡Γ. 3. âαπ»»á »áαá¼ÑΓα«ó, »ÑαÑñ ¬«Γ«αδ¼¿ ßΓ«¿Γ ¬½ετÑó«Ñ ß½«ó« var ¿ ºá ¬«Γ«αδ¼¿ ß½ÑñπÑΓ Γ¿», ∩ó½∩ÑΓß∩ ß»¿ß¬«¼ ¡ÑΓ¿»¿- º¿α«óá¡¡δσ »áαá¼ÑΓα«ó-»ÑαÑ¼Ñ¡¡δσ. 4. âαπ»»á »áαá¼ÑΓα«ó, »ÑαÑñ ¬«Γ«αδ¼¿ ßΓ«¿Γ ¬½ετÑó«Ñ ß½«ó« var ¿½¿ const ºá ¬«Γ«αδ¼¿ ¡Ñ ß½ÑñπÑΓ Γ¿», ∩ó½∩ÑΓß∩ ß»¿ß- ¬«¼ ¡ÑΓ¿»¿º¿α«óá¡¡δσ »áαá¼ÑΓα«ó-»ÑαÑ¼Ñ¡¡δσ. Åáαá¼ÑΓαδ ßΓα«¬«ó«ú« Γ¿»á ¿ ¼áßß¿óδ ¼«úπΓ íδΓ∞ «Γ¬αδΓδ¼¿ »á- αá¼ÑΓαá¼¿. Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬á- Γ«αá OpenString ¿½¿ ß ¿ß»«½∞º«óá¡¿Ñ¼ ¬½ετÑó«ú« ß½«óá string ó ß«ßΓ«∩¡¿¿ {$P+}, ∩ó½∩εΓß∩ «Γ¬αδΓδ¼¿ ßΓα«¬«óδ¼¿ »áαá¼ÑΓαá¼¿. ç¡á- τÑ¡¿Ñ, ¬«¡ßΓá¡Γá ¿½¿ »áαá¼ÑΓα-»ÑαÑ¼Ñ¡¡á∩, «»¿ßá¡¡δÑ ß »«¼«Θ∞ε ß¿¡Γá¬ß¿ßá array of T, ∩ó½∩εΓß∩ «Γ¬αδΓδ¼ »áαá¼ÑΓα«¼-¼áßß¿ó«¼. Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡ÑÑ «í «Γ¬αδΓδσ »áαá¼ÑΓαáσ αáßß¬áºδ- óáÑΓß∩ ¡¿ªÑ. B.Pascal 7 & Objects/LR - 157 - Åáαá¼ÑΓαδ-º¡áτÑ¡¿∩ ───────────────────────────────────────────────────────────────── ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα-º¡áτÑ¡¿Ñ «íαáíáΓδóáÑΓß∩, ¬á¬ ½«¬á½∞¡á∩ »« «Γ¡«ΦÑ¡¿ε ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ »ÑαÑ¼Ñ¡¡á∩, ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«, τΓ« «¡ »«½πτáÑΓ ßó«Ñ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ ¿º ß««ΓóÑΓßΓóπεΘÑú« Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá »α¿ á¬Γ¿ó¿ºáµ¿¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. êº- ¼Ñ¡Ñ¡¿∩, ¬«Γ«αδÑ »αÑΓÑα»ÑóáÑΓ Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα-º¡áτÑ¡¿Ñ, ¡Ñ ó½¿∩εΓ ¡á º¡áτÑ¡¿Ñ Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá. æ««ΓóÑΓßΓóπεΘÑÑ Σá¬Γ¿τÑß¬«Ñ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá-º¡áτÑ¡¿∩ ñ«½ª¡« íδΓ∞ óδαáªÑ¡¿Ñ¼ ¿ Ñú« º¡áτÑ¡¿Ñ ¡Ñ ñ«½ª¡« ¿¼ÑΓ∞ Σá⌐½«óδ⌐ Γ¿» ¿½¿ ¬á¬«⌐-½¿í« ßΓαπ¬Γπα¡δ⌐ Γ¿», ß«ñÑαªáΘ¿⌐ ó ßÑíÑ Σá⌐½«óδ⌐ Γ¿». öá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ñ«½ªÑ¡ ¿¼ÑΓ∞ Γ¿», ß«ó¼ÑßΓ¿¼δ⌐ »« »α¿ß- óá¿óá¡¿ε ß Γ¿»«¼ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá-º¡áτÑ¡¿∩. àß½¿ »áαá¼ÑΓα ¿¼ÑÑΓ ßΓα«¬«óδ⌐ Γ¿», Γ« Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα íπñÑΓ ¿¼ÑΓ∞ áΓα¿íπΓ αáº¼Ñαá, αáó¡δ⌐ 255. Åáαá¼ÑΓαδ-¬«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── ö«α¼á½∞¡δÑ »áαá¼ÑΓαδ-¬«¡ßΓá¡Γδ αáí«ΓáεΓ á¡á½«ú¿τ¡« ½«¬á½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, ñ«ßΓπ»¡«⌐ Γ«½∞¬« »« τΓÑ¡¿ε, ¬«Γ«αá∩ »«½πτáÑΓ ßó«Ñ º¡áτÑ¡¿Ñ »α¿ á¬Γ¿ó¿ºáµ¿¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ «Γ ß««ΓóÑΓßΓóπεΘÑ- ú« Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá. Åα¿ßóá¿óá¡¿∩ Σ«α¼á½∞¡«¼π »áαá¼ÑΓ- απ-¬«¡ßΓá¡ΓÑ ¡Ñ ñ«»πß¬áεΓß∩. ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα-¬«¡ßΓá¡Γá Γá¬ªÑ ¡Ñ ¼«ªÑΓ »ÑαÑñáóáΓ∞ß∩ ó ¬áτÑßΓóÑ Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá ñαπú«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿. Åáαá¼ÑΓα-¬«¡ßΓá¡Γá, ß««ΓóÑΓßΓóπεΘ¿⌐ Σá¬Γ¿τÑß¬«¼π »áαá¼ÑΓαπ ó «»ÑαáΓ«αÑ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ñ«½ªÑ¡ »«ñτ¿¡∩Γ∞ß∩ ΓÑ¼ ªÑ »αáó¿- ½á¼, τΓ« ¿ Σá¬Γ¿τÑß¬«Ñ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá. é ΓÑσ ß½πτá∩σ, ¬«úñá Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα ¡Ñ ¿º¼Ñ¡∩ÑΓ »α¿ óδ- »«½¡Ñ¡¿¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ßó«Ñú« º¡áτÑ¡¿∩, ó¼ÑßΓ« »áαá¼ÑΓ- αá-º¡áτÑ¡¿∩ ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ »áαá¼ÑΓα-¬«¡ßΓá¡Γπ. Åáαá¼ÑΓ- αδ-¬«¡ßΓá¡Γδ »«ºó«½∩εΓ »α¿ αÑá½¿ºáµ¿¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ºáΘ¿- Γ¿Γ∞ß∩ «Γ ß½πτá⌐¡δσ »α¿ßóá¿óá¡¿⌐ Σ«α¼á½∞¡«¼π »áαá¼ÑΓαπ. èα«¼Ñ Γ«- ú«, ñ½∩ »áαá¼ÑΓα«ó ßΓαπ¬Γπα¡«ú« ¿ ßΓα«¬«ó«ú« Γ¿»á ¬«¼»¿½∩Γ«α »α¿ ¿ß»«½∞º«óá¡¿¿ ó¼ÑßΓ« »áαá¼ÑΓα«ó-º¡áτÑ¡¿⌐ »áαá¼ÑΓα«ó-¬«¡ßΓá¡Γ ¼«- ªÑΓ úÑ¡Ñα¿α«óáΓ∞ í«½ÑÑ φΣΣÑ¬Γ¿ó¡δ⌐ ¬«ñ. Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── Åáαá¼ÑΓα-»ÑαÑ¼Ñ¡¡á∩ ¿ß»«½∞ºπÑΓß∩, ¬«úñá º¡áτÑ¡¿Ñ ñ«½ª¡« »Ñ- αÑñáóáΓ∞ß∩ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ óδºδóáεΘÑ⌐ »α«úαá¼¼Ñ. æ««Γ- óÑΓßΓóπεΘ¿⌐ Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ó «»ÑαáΓ«αÑ óδº«óá »α«µÑñπαδ ¿½¿ B.Pascal 7 & Objects/LR - 158 - Σπ¡¬µ¿¿ ñ«½ªÑ¡ íδΓ∞ ßßδ½¬«⌐ ¡á »ÑαÑ¼Ñ¡¡πε. Åα¿ á¬Γ¿ó¿ºáµ¿¿ »α«µÑ- ñπαδ ¿½¿ Σπ¡¬µ¿¿ Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα-»ÑαÑ¼Ñ¡¡á∩ ºá¼ÑΘáÑΓß∩ Σá¬Γ¿- τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ½εíδÑ ¿º¼Ñ¡Ñ¡¿∩ ó º¡áτÑ¡¿¿ Σ«α¼á½∞¡«ú« »áαá- ¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ «ΓαáªáεΓß∩ ¡á Σá¬Γ¿τÑß¬«¼ »áαá¼ÑΓαÑ. é¡πΓα¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ½εíá∩ ßßδ½¬á ¡á Σ«α¼á½∞¡δ⌐ »á- αá¼ÑΓα-»ÑαÑ¼Ñ¡¡πε »α¿ó«ñ¿Γ ¬ ñ«ßΓπ»π ¬ ßá¼«¼π Σá¬Γ¿τÑß¬«¼π »áαá- ¼ÑΓαπ. Æ¿» Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá ñ«½ªÑ¡ ß«ó»áñáΓ∞ ß Γ¿»«¼ Σ«α- ¼á½∞¡«ú« »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ (óδ ¼«ªÑΓÑ «í«⌐Γ¿ φΓ« «úαá¡¿τÑ¡¿Ñ ß »«¼«Θ∞ε ¡ÑΓ¿»¿º¿α«óá¡¡«ú« »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐). Åα¿¼Ñτá¡¿Ñ: öá⌐½«óδ⌐ Γ¿» ¼«ªÑΓ »ÑαÑñáóáΓ∞ß∩ Γ«½∞¬«, ¬á¬ »áαá¼ÑΓα-»ÑαÑ¼Ñ¡¡á∩. ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $P π»αáó½∩ÑΓ ß¼δß½«¼ »áαá¼ÑΓαá-»ÑαÑ- ¼Ñ¡¡«⌐, «»¿ßδóáÑ¼«ú« ß ¬½ετÑóδ¼ ß½«ó«¼ string. é ß«ßΓ«∩¡¿¿ »« π¼«½τá¡¿ε ({$P-}) string ß««ΓóÑΓßΓóπÑΓ ßΓα«¬«ó«¼π Γ¿»π ß áΓα¿íπ- Γ«¼ αáº¼Ñαá 255. é ß«ßΓ«∩¡¿¿ {$P+} string π¬áºδóáÑΓ, τΓ« »áαá¼ÑΓα ∩ó½∩ÑΓß∩ «Γ¬αδΓδ¼ ßΓα«¬«óδ¼ »áαá¼ÑΓα«¼ (ß¼. ¡¿ªÑ). Åα¿ ßßδ½¬Ñ ¡á Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα-»ÑαÑ¼Ñ¡¡πε, ßó∩ºá¡¡πε ß ¿¡ñÑ¬ß¿α«óá¡¿Ñ¼ ¼áßß¿óá ¿½¿ »«½πτÑ¡¿Ñ¼ π¬áºáΓÑ½∩ ¡á «íΩÑ¬Γ, φΓ¿ ñÑ⌐ßΓó¿∩ óδ»«½¡∩εΓß∩ »ÑαÑñ á¬Γ¿ó¿ºáµ¿Ñ⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Åαáó¿½á ß«ó¼ÑßΓ¿¼«ßΓ¿ »« »α¿ßóá¿óá¡¿ε ñ½∩ «íΩÑ¬Γ¡«ú« Γ¿»á »α¿¼Ñ¡∩εΓß∩ Γá¬ªÑ ¬ »áαá¼ÑΓαá¼-»ÑαÑ¼Ñ¡¡δ¼ «íΩÑ¬Γ¡«ú« Γ¿»á. ä½∩ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá Γ¿»á T1 Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ñ«½ªÑ¡ íδΓ∞ Γ¿»á T2, Ñß½¿ T2 ¡áσ«ñ¿Γß∩ ó ñ«¼Ñ¡Ñ T1. ìá»α¿¼Ñα, ß πτÑΓ«¼ «»¿- ßá¡¿⌐ â½áóδ 4, ¼ÑΓ«ñπ TField.Copy ¼«ªÑΓ »ÑαÑñáóáΓ∞ß∩ φ¬ºÑ¼»½∩α TField, TStrField, TNumField, TZipField ¿½¿ ½εí«⌐ ñαπú«⌐ φ¬ºÑ¼»- ½∩α »«Γ«¼¬á TField. ìÑΓ¿»¿º¿α«óá¡¡δÑ »áαá¼ÑΓαδ ───────────────────────────────────────────────────────────────── è«úñá Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα ∩ó½∩ÑΓß∩ ¡ÑΓ¿»¿º¿α«óá¡¡δ¼ »áαá¼ÑΓ- α«¼-»ÑαÑ¼Ñ¡¡«⌐, Γ« ß««ΓóÑΓßΓóπεΘ¿⌐ Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ¼«ªÑΓ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ½εíπε ßßδ½¬π ¡á »ÑαÑ¼Ñ¡¡πε ¿½¿ ¬«¡ßΓá¡Γπ, ¡Ñ- ºáó¿ß¿¼« «Γ ÑÑ Γ¿»á. ìÑΓ¿»¿º¿α«óá¡¡δ⌐ »áαá¼ÑΓα, «»¿ßá¡¡δ⌐ ß ¬½ε- τÑóδ¼ ß½«ó«¼ var, ¼«ªÑΓ ¼«ñ¿Σ¿µ¿α«óáΓ∞ß∩, á ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ »á- αá¼ÑΓα, «»¿ßá¡¡δ⌐ ß ¬½ετÑóδ¼ ß½«ó«¼ const, ñ«ßΓπ»Ñ¡ Γ«½∞¬« »« τΓÑ¡¿ε. é »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ π ¡ÑΓ¿»¿º¿α«óá¡¡«ú« »áαá¼ÑΓαá-»ÑαÑ- ¼Ñ¡¡«⌐ Γ¿» «ΓßπΓßΓóπÑΓ, Γ« ÑßΓ∞ «¡ ¡Ñß«ó¼ÑßΓ¿¼ ß »ÑαÑ¼Ñ¡¡δ¼¿ óßÑσ Γ¿»«ó, »«¬á Ñ¼π ¡Ñ íπñÑΓ »α¿ßó«Ñ¡ «»αÑñÑ½Ñ¡¡δ⌐ Γ¿» ß »«¼«Θ∞ε »α¿ßóá¿óá¡¿∩ Γ¿»á »ÑαÑ¼Ñ¡¡«⌐. Åα¿óÑñÑ¼ »α¿¼Ñα ¡ÑΓ¿»¿º¿α«óá¡¡δσ »áαá¼ÑΓα«ó-»ÑαÑ¼Ñ¡¡δσ: function Equal(var source,dest; size: word): boolean; type B.Pascal 7 & Objects/LR - 159 - Bytes = array[0..MaxInt] of byte; var N: integer; begin N := 0; while (N<size) and (Bytes(dest)[N] <> Bytes(source)[N] do Inc(N); Equal := N = size; end; ¥Γá Σπ¡¬µ¿∩ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ ßαáó¡Ñ¡¿∩ ½εíδσ ñóπσ »ÑαÑ¼Ñ¡¡δσ ½εí«ú« αáº¼Ñαá. ìá»α¿¼Ñα, ß »«¼«Θ∞ε «»¿ßá¡¿⌐: type Vector = array[1..10] of integer; Point = record x,y: integer; end; var Vec1, Vec2: Vector; N: integer; P: Point; ¿ óδº«ó«ó Σπ¡¬µ¿⌐: Equal(Vec1,Vec2,SizeOf(Vector)) Equal(Vec1,Vec2,SizeOf(integer)*N) Equal(Vec[1],Vec1[6],SizeOf(integer)*5) Equal(Vec1[1],P,4) ßαáó¡¿óáÑΓß∩ VÑß1 ß VÑß2, ßαáó¡¿óáεΓß∩ »ÑαóδÑ N φ½Ñ¼Ñ¡Γ«ó VÑß1 ß »Ñαóδ¼¿ N φ½Ñ¼Ñ¡Γá¼¿ VÑß2, ßαáó¡¿óáεΓß∩ »ÑαóδÑ 5 φ½Ñ¼Ñ¡Γ«ó VÑß1 ß »«ß½Ññ¡¿¼¿ »∩Γ∞ε φ½Ñ¼Ñ¡Γá¼¿ VÑß2 ¿ ßαáó¡¿óáεΓß∩ VÑß1[1] ß É.σ ¿ VÑß2[2] ß P.Y. ò«Γ∩ ¡ÑΓ¿»¿º¿α«óá¡¡δÑ »áαá¼ÑΓαδ ñáεΓ óá¼ í«½∞Φπε ú¿í¬«ßΓ∞, ¿σ ¿ß»«½∞º«óá¡¿Ñ ß«»α∩ªÑ¡« ß ¡Ñ¬«Γ«αδ¼ α¿ß¬«¼. è«¼»¿½∩Γ«α ¡Ñ ¼«- ªÑΓ »α«óÑα¿Γ∞ ñ«»πßΓ¿¼«ßΓ∞ «»Ñαáµ¿⌐ ß ¡ÑΓ¿»¿º¿α«óá¡¡δ¼¿ »ÑαÑ¼Ñ¡- ¡δ¼¿. B.Pascal 7 & Objects/LR - 160 - ÄΓ¬αδΓδÑ »áαá¼ÑΓαδ ───────────────────────────────────────────────────────────────── ÄΓ¬αδΓδÑ »áαá¼ÑΓαδ »«ºó«½∩εΓ »ÑαÑñáóáΓ∞ «ñ¡«⌐ ¿ Γ«⌐ ªÑ »α«- µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ ßΓα«¬¿ ¿ ¼áßß¿óδ αáº½¿τ¡δσ αáº¼Ñα«ó. ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ ───────────────────────────────────────────────────────────────── ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ ¼«úπΓ «»¿ßδóáΓ∞ß∩ ñóπ¼∩ ß»«ß«- íá¼¿: - ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá OpenString; - ß »«¼«Θ∞ε ¬½ετÑó«ú« ß½«óá string ó ß«ßΓ«∩¡¿¿ {$P+}. êñÑ¡Γ¿Σ¿¬áΓ«α OpenString «»¿ßδóáÑΓß∩ ó ¼«ñπ½Ñ System. Ä¡ «í«º¡áτáÑΓ ß»Ñµ¿á½∞¡δ⌐ ßΓα«¬«óδ⌐ Γ¿», ¬«Γ«αδ⌐ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞- ß∩ Γ«½∞¬« ó «»¿ßá¡¿¿ ßΓα«¬«óδσ »áαá¼ÑΓα«ó. é µÑ½∩σ «íαáΓ¡«⌐ ß«ó- ¼ÑßΓ¿¼«ßΓ¿ OpenString ¡Ñ ∩ó½∩ÑΓß∩ ºáαÑºÑαó¿α«óá¡¡δ¼ ß½«ó«¼ ¿ ¼«- ªÑΓ, Γá¬¿¼ «íαáº«¼, íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡ ¬á¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ºáñá¡- ¡δ⌐ »«½∞º«óáΓÑ½Ñ¼. è«úñá «íαáΓ¡á∩ ß«ó¼ÑßΓ¿¼«ßΓ∞ º¡áτÑ¡¿∩ ¡Ñ ¿¼ÑÑΓ, ñ½∩ ¿º¼Ñ¡Ñ- ¡¿∩ ß¼δß½á ¬½ετÑó«ú« ß½«óá string ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ¿αÑ¬Γ¿óπ ¬«¼»¿½∩Γ«αá {$P+}. é ß«ßΓ«∩¡¿¿ {$P+} »ÑαÑ¼Ñ¡¡á∩, «»¿ßá¡¡á∩ ß ¬½ε- τÑóδ¼ ß½«ó«¼ string, ∩ó½∩ÑΓß∩ «Γ¬αδΓδ¼ ßΓα«¬«óδ¼ »áαá¼ÑΓα«¼. ä½∩ «Γ¬αδΓ«ú« ßΓα«¬«ó«ú« »áαá¼ÑΓαá Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ¼«- ªÑΓ íδΓ∞ »ÑαÑ¼Ñ¡¡«⌐ ½εí«ú« ßΓα«¬«ó«ú« Γ¿»á. é »α«µÑñπαÑ ¿½¿ Σπ¡¬- µ¿¿ áΓα¿íπΓ αáº¼Ñαá (¼á¬ß¿¼á½∞¡á∩ ñ½¿¡á) Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá íπñÑΓ ΓÑ¼ ªÑ, τΓ« π Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá. ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ óÑñπΓ ßÑí∩ Γá¬ªÑ ¬á¬ »áαá¼ÑΓ- αδ-»ÑαÑ¼Ñ¡¡δÑ ßΓα«¬«ó«ú« Γ¿»á, Γ«½∞¬« ¿σ ¡Ñ½∞º∩ »ÑαÑñáóáΓ∞ ¬á¬ «íδτ¡δÑ »ÑαÑ¼Ñ¡¡δÑ ñαπú¿¼ »α«µÑñπαá¼ ¿½¿ Σπ¡¬µ¿∩¼. Äñ¡á¬«, ¿σ ¼«ª¡« ß¡«óá »ÑαÑñáΓ∞ ¬á¬ «Γ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »áαá¼ÑΓα S »α«µÑñπαδ AssignStr - φΓ« «Γ¬αδΓδ⌐ ßΓα«¬«óδ⌐ »áαá¼ÑΓα: procedure AssignStr(var S: OpenString; begin S := '0123456789ABCDEF'; end; Æá¬ ¬á¬ S - φΓ« «Γ¬αδΓδ⌐ ßΓα«¬«óδ⌐ »áαá¼ÑΓα, AssignStr ¼«ª¡« »ÑαÑñáóáΓ∞ »ÑαÑ¼Ñ¡¡δÑ ½εí«ú« ßΓα«¬«ó«ú« Γ¿»á: var S1: string[10]; S1: string[20]; begin AssignStr(S1); { S1 := '0123456789' } B.Pascal 7 & Objects/LR - 161 - AssignStr(S2); { S2 := '0123456789ABCDEF' } end; é AssingStr ¼á¬ß¿¼á½∞¡á∩ ñ½¿¡á »áαá¼ÑΓαá S Γá ªÑ ßá¼á∩, τΓ« π Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá. Æá¬¿¼ «íαáº«¼, ó »Ñαó«¼ óδº«óÑ AssingStr »α¿ »α¿ßóá¿óá¡¿¿ »áαá¼ÑΓαá S ßΓα«¬á πßÑ¬áÑΓß∩, Γá¬ ¬á¬ ¼á¬ß¿¼á½∞¡á∩ ñ½¿¡á S1 αáó¡á 10. Åα¿ »α¿¼Ñ¡Ñ¡¿¿ ¬ «Γ¬αδΓ«¼π ßΓα«¬«ó«¼π »áαá¼ÑΓαπ ßΓá¡ñáαΓ¡á∩ Σπ¡¬µ¿∩ Low ó«ºóαáΘáÑΓ 0, ßΓá¡ñáαΓ¡á∩ Σπ¡¬µ¿∩ High ó«ºóαáΘáÑΓ «»¿ßá¡¡πε ¼á¬ß¿¼á½∞¡πε ñ½¿¡π Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá, á Σπ¡¬µ¿∩ SizeOf ó«ºóαáΘáÑΓ αáº¼Ñα Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »α«µÑñπαá FillString ºá»«½¡∩ÑΓ ßΓα«¬π ºáñá¡¡δ¼ ß¿¼ó«½«¼ ñ« ÑÑ ¼á¬ß¿¼á½∞¡«⌐ ñ½¿¡δ. ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á ¿ß»«½∞º«óá¡¿Ñ Σπ¡¬µ¿¿ High ñ½∩ »«½πτÑ¡¿∩ ¼á¬ß¿¼á½∞¡«⌐ ñ½¿¡δ «Γ¬- αδΓ«ú« ßΓα«¬«ó«ú« »áαá¼ÑΓαá. procedure FillStr(var S: OpenString; Ch: Char); begin S[0] := Chr(High(S)); { ºáñáÑΓ ñ½¿¡π ßΓα«¬¿ } FillChar(S[1], High(S), Ch); { πßΓá¡áó½¿óáÑΓ τ¿ß½« ß¿¼ó«½«ó } emd; ç¡áτÑ¡¿∩ ¿ »áαá¼ÑΓαδ-¬«¡ßΓá¡Γδ, «»¿ßá¡¡δÑ ß ¿ß»«½∞º«óá¡¿Ñ¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá OpenString ¿½¿ ¬½ετÑó«ú« ß½«óá string ó ß«ßΓ«∩¡¿¿ {$P+}, ¡Ñ ∩ó½∩εΓß∩ «Γ¬αδΓδ¼¿ ßΓα«¬«óδ¼¿ »áαá¼ÑΓαá¼¿. Ä¡¿ óÑñπΓ ßÑí∩ Γá¬ªÑ, ¬á¬ Ñß½¿ íδ íδ½¿ «»¿ßá¡δ ß ¼á¬ß¿¼á½∞¡«⌐ ñ½¿¡«⌐ ßΓα«- ¬«ó«ú« Γ¿»á 255, á Σπ¡¬µ¿∩ Hingh ñ½∩ Γá¬¿σ »áαá¼ÑΓα«ó óßÑúñá ó«ºóαáΘáÑΓ 255. B.Pascal 7 & Objects/LR - 162 - ÄΓ¬αδΓδÑ »áαá¼ÑΓαδ-¼áßß¿óδ ───────────────────────────────────────────────────────────────── ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα, «»¿ßá¡¡δ⌐ ß »«¼«Θ∞ε ß¿¡Γá¬ß¿ßá: array of T ∩ó½∩ÑΓß∩ «Γ¬αδΓδ¼ »áαá¼ÑΓα«¼-¼áßß¿ó«¼. T ñ«½ª¡« íδΓ∞ ¿ñÑ¡Γ¿Σ¿¬á- Γ«α«¼ Γ¿»á, á Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ñ«½ªÑ¡ íδΓ∞ »ÑαÑ¼Ñ¡¡«⌐ Γ¿»á T, ¿½¿ ¼áßß¿ó«¼, Γ¿»«¼ φ½Ñ¼Ñ¡Γ«ó ¬«Γ«α«ú« ∩ó½∩ÑΓß∩ T. é »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα óÑñÑΓ ßÑí∩ Γá¬, ¬á¬ Ñß½¿ íδ «¡ íδ½ «»¿ßá¡ ß½ÑñπεΘ¿¼ «íαáº«¼: arra[0..N - 1] of T úñÑ N - τ¿ß½« φ½Ñ¼Ñ¡Γ«ó ó Σá¬Γ¿τÑß¬«¼ »áαá¼ÑΓαÑ. Å« ßπΘÑßΓóπ, ñ¿á»áº«¡ ¿¡ñÑ¬ßá Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá «Γ«íαáªáÑΓß∩ ó ñ¿á»áº«¡ µÑ½δσ τ¿ßÑ½ «Γ 0 ñ« N - 1. àß½¿ Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα - φΓ« »α«ß- Γá∩ »ÑαÑ¼Ñ¡¡á∩ Γ¿»á T, Γ« «¡ ¿¡ΓÑα»αÑΓ¿απÑΓß∩ ¬á¬ ¼áßß¿ó ß «ñ¡¿¼ φ½Ñ¼Ñ¡Γ«¼ Γ¿»á T. è «Γ¬αδΓ«¼π Σ«α¼á½∞¡«¼π »áαá¼ÑΓαπ-¼áßß¿óπ ¼«ª¡« «íαáΘáΓ∞ß∩ Γ«½∞¬« »« φ½Ñ¼Ñ¡Γá¼. Åα¿ßóá¿óá¡¿∩ óßÑ¼π «Γ¬αδΓ«¼π ¼áßß¿óπ ¡Ñ ñ«- »πß¬áεΓß∩, ¿ «Γ¬αδΓδ⌐ ¼áßß¿ó ¼«ªÑΓ »ÑαÑñáóáΓ∞ß∩ ñαπú¿¼ »α«µÑñπαá¼ ¿½¿ Σπ¡¬µ¿∩¼ Γ«½∞¬« ¬á¬ «Γ¬αδΓδ⌐ »áαá¼ÑΓα-¼áßß¿ó ¿½¿ ¡ÑΓ¿»¿º¿α«- óá¡¡δ⌐ »áαá¼ÑΓα-»ÑαÑ¼Ñ¡¡á∩. ÄΓ¬αδΓδ⌐ »áαá¼ÑΓα-¼áßß¿ó ¼«ªÑΓ íδΓ∞ »áαá¼ÑΓα«¼-º¡áτÑ¡¿Ñ¼, »áαá¼ÑΓα«¼-¬«¡ßΓá¡Γ«⌐ ¿ »áαá¼ÑΓα«¼-»ÑαÑ¼Ñ¡¡«⌐ ¿ ¿¼ÑÑΓ Γ«Γ ªÑ ß¼δß½, τΓ« ¿ «íδτ¡δÑ »áαá¼ÑΓαδ-º¡áτÑ¡¿∩, »áαá¼ÑΓαδ-¬«¡ßΓá¡Γδ ¿ »áαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ. é τáßΓ¡«ßΓ¿, »α¿ßóá¿óá¡¿∩ φ½Ñ¼Ñ¡Γá¼ Σ«α- ¼á½∞¡«ú« «Γ¬αδΓ«ú« ¼áßß¿óá-¬«¡ßΓá¡Γδ ¡Ñ ñ«»πß¬áεΓß∩, á »α¿ßóá¿óá- ¡¿∩ φ½Ñ¼Ñ¡Γá¼ Σ«α¼á½∞¡«ú« «Γ¬αδΓ«ú« ¼áßß¿óá, ∩ó½∩εΘÑú«ß∩ »áαá¼ÑΓ- α«¼-º¡áτÑ¡¿Ñ¼, ¡Ñ ó½¿∩εΓ ¡á Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα. ä½∩ «Γ¬αδΓδσ ¼áßß¿ó«ó-º¡áτÑ¡¿⌐ ¬«¼»¿½∩Γ«α ß«ºñáÑΓ ó ¬áñαÑ ßΓÑ¬á »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ½«¬á½∞¡πε ¬«»¿ε Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓ- αá. Æá¬¿¼ «íαáº«¼, »α¿ »ÑαÑñáτÑ ó ¬áτÑßΓóÑ «Γ¬αδΓδσ »áαá¼ÑΓ- α«ó-º¡áτÑ¡¿⌐ í«½∞Φ¿σ ¼áßß¿ó«ó ß½ÑñπÑΓ πτ¿ΓδóáΓ∞ ó«º¼«ª¡«Ñ »ÑαÑ- »«½¡Ñ¡¿Ñ ßΓÑ¬á. Åα¿ »α¿¼Ñ¡Ñ¡¿¿ ¬ «Γ¬αδΓ«¼π »áαá¼ÑΓαπ-¼áßß¿óπ ßΓá¡ñáαΓ¡á∩ Σπ¡¬µ¿∩ Low ó«ºóαáΘáÑΓ 0, ßΓá¡ñáαΓ¡á∩ Σπ¡¬µ¿∩ High ó«ºóαáΘáÑΓ ¿¡- ñÑ¬ß »«ß½Ññ¡Ñú« φ½Ñ¼Ñ¡Γá ó Σá¬Γ¿τÑß¬«¼ »áαá¼ÑΓαÑ-¼áßß¿óÑ, á Σπ¡¬- µ¿∩ SizeOf ó«ºóαáΘáÑΓ αáº¼Ñα Σá¬Γ¿τÑß¬«ú« »áαá¼ÑΓαá-¼áßß¿óá. Åα«µÑñπαá Clear ó ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »α¿ßóá¿óáÑΓ ¬áªñ«¼π φ½Ñ- ¼Ñ¡Γπ ¼áßß¿óá óÑΘÑßΓóÑ¡¡δσ º¡áτÑ¡¿⌐ ¡«½∞, á Σπ¡¬µ¿∩ Sum óδτ¿ß½∩ÑΓ ßπ¼¼π óßÑσ φ½Ñ¼Ñ¡Γ«ó ¼áßß¿óá óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½. Å«ß¬«½∞¬π ó «í«- ¿σ ß½πτá∩σ »áαá¼ÑΓα A ∩ó½∩ÑΓß∩ «Γ¬αδΓδ¼ »áαá¼ÑΓα«¼-¼áßß¿ó«¼, »«ñ»α«úαá¼¼δ ¼«úπΓ αáí«ΓáΓ∞ ß ½εíδ¼ ¼áßß¿ó«¼ φ½Ñ¼Ñ¡Γ«ó Γ¿»á Real: procedure Clear(var A: array of Real); B.Pascal 7 & Objects/LR - 163 - var I: Word; begin for I := 0 to High(A) do A[I] := 0; end; function Sum(const A: array of Real): Real; var I: Word; S: Real; begin S := 0; for I := 0 to High(A) do S := S + A[I]; Sum := S; end; è«úñá Γ¿»«¼ φ½Ñ¼Ñ¡Γ«ó «Γ¬αδΓ«ú« »áαá¼ÑΓαá-¼áßß¿óá ∩ó½∩ÑΓß∩ Char, Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ¼«ªÑΓ íδΓ∞ ßΓα«¬«ó«⌐ ¬«¡ßΓá¡Γ«⌐. ìá»- α¿¼Ñα, ß πτÑΓ«¼ »αÑñδñπΘÑú« «»¿ßá¡¿∩: procedure PringStr(const S: array of Char); var I: Integer; begin for I := 0 to High(S) do if S[I] <> #0 then Write(S[I]) else Break; end; ¿ ñ«»πßΓ¿¼δ ß½ÑñπεΘ¿Ñ «»ÑαáΓ«αδ »α«µÑñπα: PrintStr('Hello word'); PrintStr('A'); Åα¿ »ÑαÑñáτÑ ó ¬áτÑßΓóÑ «Γ¬αδΓ«ú« »áαá¼ÑΓαá-¼áßß¿óá »πßΓá∩ ßΓα«¬á »αÑ«íαáºπÑΓß∩ ó ßΓα«¬π ß «ñ¡¿¼ φ½Ñ¼Ñ¡Γ«¼, ß«ñÑαªáΘ¿¼ ß¿¼- ó«½ NULL, »«φΓ«¼π «»ÑαáΓ«α PrintStr('') ¿ñÑ¡Γ¿τÑ¡ «»ÑαáΓ«απ PrintStr('#0'). ä¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ «íΩÑ¬Γ¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ New ¿ Dispose ñ«»πß¬áεΓ ó ¬áτÑßΓóÑ óΓ«α«ú« »áαá¼ÑΓαá óδº«ó ¬«¡ßΓαπ¬Γ«αá ¿½¿ ñÑßΓαπ¬Γ«αá ñ½∩ óδñÑ½Ñ- ¡¿∩ ñ½∩ »á¼∩Γ¿ »ÑαÑ¼Ñ¡¡«⌐ «íΩÑ¬Γ¡«ú« Γ¿»á ¿½¿ ÑÑ «ßó«í«ªñÑ¡¿∩. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: New(P, Construct) ¿ Dispose(P, Destruct) úñÑ P - φΓ« π¬áºáΓÑ½∞ ¡á »ÑαÑ¼Ñ¡¡πε, ßßδ½áεΘ¿⌐ß∩ ¡á «íΩÑ¬Γ¡δ⌐ Γ¿», á Construct ¿ Destruct - φΓ« óδº«óδ ¬«¡ßΓαπ¬Γ«α«ó ¿ ñÑßΓαπ¬- B.Pascal 7 & Objects/LR - 164 - Γ«α«ó «íΩÑ¬Γ¡«ú« Γ¿»á. ä½∩ New φΣΣÑ¬Γ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá Γ«Γ ªÑ, τΓ« ¿ «Γ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«α«ó: New(P); P^.Construct; á ñ½∩ Dispose φΓ« φ¬ó¿óá½Ñ¡Γ¡« «»ÑαáΓ«αá¼: P^.Dispose; Dispose(P); üÑº αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá óá¼ »α¿Φ½«ß∞ íδ τáßΓ« óß½Ññ ºá óδº«ó«¼ ¬«¡ßΓαπ¬Γ«αá óδºδóáΓ∞ New, ¿½¿ »«ß½Ñ óδº«óá ñÑßΓαπ¬Γ«αá óδºδóáΓ∞ Dispose. ÉáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß π½πτΦáÑΓ τ¿ΓáÑ¼«ßΓ∞ ¿ß- σ«ñ¡«ú« ¬«ñá ¿ úÑ¡Ñα¿απÑΓ í«½ÑÑ ¬«α«Γ¬¿⌐ ¿ φΣΣÑ¬Γ¿ó¡δ⌐ ¬«ñ. Åα¿óÑñÑ¡¡δ⌐ »α¿¼Ñα ¿½½εßΓα¿απÑΓ ¿ß»«½∞º«óá¡¿Ñ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá New ¿ Dispose: var SP: PStrField ZP: PZipField begin New(SP, Init(1, 1, 25, 'ê¼∩')); New(ZP, Init(1, 2, 5, 'Å«τΓ«óδ⌐ ¿¡ñÑ¬ß'), 0, 99999)); SP^.Edit; ZP^.Edit; . . . Dispose(ZP, Done); Dispose(SP, Done); end; éδ ¼«ªÑΓÑ Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ New ¬á¬ Σπ¡¬µ¿ε, αáß»αÑñÑ½∩εΘπε ¿ ó«ºóαáΘáεΘπε ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε ºáñá¡¡«ú« αáº¼Ñαá: New(T) ¿½¿ New(T, Construct) é »Ñαó«⌐ Σ«α¼Ñ T ¼«ªÑΓ íδΓ∞ ½εíδ¼ ßßδ½«τ¡δ¼ Γ¿»«¼. é« óΓ«α«⌐ Σ«α¼Ñ T ñ«½ªÑ¡ π¬áºδóáΓ∞ ¡á «íΩÑ¬Γ¡δ⌐ Γ¿», á Construct ñ«½ªÑ¡ íδΓ∞ óδº«ó«¼ ¬«¡ßΓαπ¬Γ«αá φΓ«ú« «íΩÑ¬Γá. é «í«¿σ ß½πτá∩σ Γ¿»«¼ αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿ íπñÑΓ T. Åα¿óÑñÑ¼ »α¿¼Ñα: var F1, F2: PField begin F1 := New(PStrField, Init(1, 1, 25, 'ê¼∩')); F1 := New(PZipField, Init(1, 2, 5, 'Å«τΓ«óδ⌐ ¿¡ñÑ¬ß', 0, B.Pascal 7 & Objects/LR - 165 - 99999)); . . . WriteLn(F1^.GetStr); { óδºδóáÑΓ TStrField.GetStr } WriteLn(F2^.GetStr); { óδºδóáÑΓ TZipField.GetStr } . . . Dispose(F2, Done); { óδºδóáÑΓ TField.Done } Dispose(F1, Done); { óδºδóáÑΓ TStrField.Done } end; çá¼ÑΓ¿¼, τΓ« σ«Γ∩ F1 ¿ F2 ¿¼ÑεΓ Γ¿» PField, »αáó¿½á ß«ó¼Ñß- Γ¿¼«ßΓ¿ »« »α¿ßóá¿óá¡¿ε αáßΦ¿αÑ¡¡«ú« π¬áºáΓÑ½∩ »«ºó«½∩εΓ »α¿ßóá¿- óáΓ∞ F1 ¿ F2 π¬áºáΓÑ½ε ¡á ½εí«⌐ »«Γ«¼«¬ TField. Å«ß¬«½∞¬π GetStr ¿ Done ∩ó½∩εΓß∩ ó¿αΓπá½∞¡δ¼¿ ¼ÑΓ«ñá¼¿, ¼Ñσá¡¿º¼ ñ¿ß»ÑΓτÑα¿ºáµ¿¿ ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá ¬«ααÑ¬Γ¡« óδºδóáÑΓ, ß««ΓóÑΓßΓóÑ¡¡«, TStrString.GetStr, TZipField.GetStr, TField.Done ¿ TStrField.Done. Åα«µÑñπα¡δÑ »ÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── Å«ß½Ñ «»αÑñÑ½Ñ¡¿∩ »α«µÑñπα¡«ú« Γ¿»á »«∩ó½∩ÑΓß∩ ó«º¼«ª¡«ßΓ∞ «»¿ßδóáΓ∞ »ÑαÑ¼Ñ¡¡δÑ φΓ«ú« Γ¿»á. Æá¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ ¡áºδóáεΓ »α«µÑ- ñπα¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿. ìá»α¿¼Ñα, ß πτÑΓ«¼ «»¿ßá¡¿⌐ Γ¿»á ¿º »αÑñδñπ- ΘÑú« »α¿¼Ñαá, ¼«ª¡« «íΩ∩ó¿Γ∞ ß½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ: var P: SwapProc; F: MathFunc; èá¬ ¿ µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩, ¬«Γ«α«⌐ ¼«ª¡« »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ µÑ- ½«ú« Γ¿»á, »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¼«ª¡« »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ »α«µÑ- ñπα¡«ú« Γ¿»á. Æá¬¿¼ º¡áτÑ¡¿Ñ¼ ¼«ªÑΓ íδΓ∞, ¬«¡Ñτ¡«, ñαπúá∩ »α«µÑ- ñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩, ¡« «¡« ¼«ªÑΓ Γá¬ªÑ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ¿ñÑ¡Γ¿- Σ¿¬áΓ«α »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. é Γá¬«¼ ¬«¡ΓÑ¬ßΓÑ «»¿ßá¡¿∩ »α«µÑ- ñπαδ ¿½¿ Σπ¡¬µ¿¿ ¼«ª¡« αáßß¼áΓα¿óáΓ∞, ¬á¬ «»¿ßá¡¿Ñ «ß«í«ú« α«ñá ¬«¡ßΓá¡Γδ, º¡áτÑ¡¿Ñ¼ ¬«Γ«α«⌐ ∩ó½∩ÑΓß∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩. ìá»- α¿¼Ñα, »πßΓ∞ ¼δ ¿¼ÑÑ¼ ß½ÑñπεΘ¿Ñ «»¿ßá¡¿∩ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿: procedure Swap(var A,B: integer); var Temp: integer; begin Temp := A; A := B; B := Temp; end. function Tan(Angle: real): real; B.Pascal 7 & Objects/LR - 166 - begin Tan := Sin(Angle) / Cos(Angle); end. Ä»¿ßá¡¡δ¼ αá¡ÑÑ »ÑαÑ¼Ñ¡¡δ¼ P ¿ F ΓÑ»Ñα∞ ¼«ª¡« »α¿ßó«¿Γ∞ º¡á- τÑ¡¿∩: P := Swap; F := Tan; Å«ß½Ñ Γá¬«ú« »α¿ßóá¿óá¡¿∩ «íαáΘÑ¡¿Ñ P(i,j) φ¬ó¿óá½Ñ¡Γ¡« Swap (i,j) ¿ F(X) φ¬ó¿óá½Ñ¡Γ¡« Tan(X). èá¬ ¿ »α¿ ½εí«¼ ñαπú«¼ »α¿ßóá¿óá¡¿¿, º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ ó ½Ñó«⌐ ¿ ó »αáó«⌐ τáßΓ¿ ñ«½ª¡δ íδΓ∞ ß«ó¼ÑßΓ¿¼δ »« »α¿ßóá¿óá¡¿ε. Åα«µÑñπα¡δÑ Γ¿»δ, τΓ«íδ «¡¿ íδ½¿ ß«ó¼ÑßΓ¿¼δ »« »α¿ßóá¿óá¡¿ε, ñ«½ª¡δ ¿¼ÑΓ∞ «ñ¡« ¿ Γ« ªÑ τ¿ß½« »áαá¼ÑΓα«ó, á »áαá¼ÑΓαδ ¡á ß««Γ- óÑΓßΓóπεΘ¿σ »«º¿µ¿∩σ ñ«½ª¡δ íδΓ∞ «ñ¿¡á¬«ó«ú« Γ¿»á. èá¬ π»«¼¿¡á- ½«ß∞ αá¡ÑÑ, ¿¼Ñ¡á »áαá¼ÑΓα«ó ó «»¿ßá¡¿¿ »α«µÑñπα¡«ú« Γ¿»á ¡¿¬á¬«- ú« ñÑ⌐ßΓó¿∩ ¡Ñ óδºδóáεΓ. èα«¼Ñ Γ«ú«, ñ½∩ «íÑß»ÑτÑ¡¿∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ »« »α¿ßóá¿óá¡¿ε »α«µÑñπαá ¿ Σπ¡¬µ¿∩, Ñß½¿ ÑÑ ¡πª¡« »α¿ßó«¿Γ∞ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡- ¡«⌐, ñ«½ª¡á πñ«ó½ÑΓó«α∩Γ∞ ß½ÑñπεΘ¿¼ ΓαÑí«óá¡¿∩¼: - ¥Γ« ¡Ñ ñ«½ª¡á íδΓ∞ ßΓá¡ñáαΓ¡á∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩. - Æá¬á∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ¡Ñ ¼«ªÑΓ íδΓ∞ ó½«ªÑ¡¡«⌐. - Æá¬á∩ »α«µÑñπαá ¡Ñ ñ«½ª¡á íδΓ∞ »α«µÑñπα«⌐ Γ¿»á inline. - Ä¡á ¡Ñ ñ«½ª¡á íδΓ∞ »α«µÑñπα«⌐ »αÑαδóá¡¿∩ (interrupt). æΓá¡ñáαΓ¡δ¼¿ »α«µÑñπαá¼¿ ¿ Σπ¡¬µ¿∩¼¿ ßτ¿ΓáεΓß∩ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, «»¿ßá¡¡δÑ ó ¼«ñπ½Ñ System, Γá¬¿Ñ, ¬á¬ Writeln, Readln, Chr, Ord. ùΓ«íδ »«½πτ¿Γ∞ ó«º¼«ª¡«ßΓ∞ ¿ß»«½∞º«óáΓ∞ ßΓá¡ñáαΓ¡πε »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ß »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐, óδ ñ«½ª¡δ ¡á»¿- ßáΓ∞ ñ½∩ ¡ÑÑ ß»Ñµ¿á½∞¡πε "«í«½«τ¬π". ìá»α¿¼Ñα, »πßΓ∞ ¼δ ¿¼ÑÑ¼ »α«µÑñπα¡δ⌐ Γ¿»: type IntProc = procedure(N: integer); æ½ÑñπεΘá∩ »α«µÑñπαá ñ½∩ ºá»¿ß¿ µÑ½«ú« τ¿ß½á íπñÑΓ ß«ó¼ÑßΓ¿- ¼«⌐ »« »α¿ßóá¿óá¡¿ε: procedure WriteInt(Number: Integer); far; begin Write(Number); end. é½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ß »α«µÑñπα¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿ ¿ß- »«½∞º«óáΓ∞ ¡Ñ½∞º∩. Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ßτ¿ΓáÑΓß∩ ó½«ªÑ¡¡«⌐, ¬«úñá «¡á «»¿ßδóáÑΓß∩ ó¡πΓα¿ ñαπú«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. é ß½Ñ- ñπεΘÑ¼ »α¿¼ÑαÑ »α«µÑñπαá Inner ó½«ªÑ¡á ó »α«µÑñπαπ Outer ¿ »«φΓ«- ¼π ÑÑ ¡Ñ½∞º∩ »α¿ßóá¿óáΓ∞ »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐: B.Pascal 7 & Objects/LR - 167 - program Nested; procedure Outer; procedure Inner; begin Writeln('Åα«µÑñπαá Inner ∩ó½∩ÑΓß∩ ó½«ªÑ¡¡«⌐'); end; begin Inner; end; begin Outer; end. êß»«½∞º«óá¡¿Ñ »α«µÑñπα¡δσ Γ¿»«ó ¡Ñ «úαá¡¿τ¿óáÑΓß∩ »α«ßΓ« »α«µÑñπα¡δ¼¿ »ÑαÑ¼Ñ¡¡δ¼¿. èá¬ ¿ ½εí«⌐ ñαπú«⌐ Γ¿», »α«µÑñπα¡δ⌐ Γ¿» ¼«ªÑΓ πτáßΓó«óáΓ∞ ó «»¿ßá¡¿¿ ßΓαπ¬Γπα¡«ú« Γ¿»á, τΓ« ó¿ñ¡« ¿º ß½Ñ- ñπεΘ¿σ «»¿ßá¡¿⌐: type GotoProc = procedure(X,Y: integer); ProcList = array[1..10] of GotoProc; WindowPtr = ^WindowRec; Window = record Next: WindowPtr; Header: string[31]; Top,Left,Bottom,Right: integer; SetCursor: GotoProc; end; var P: ProcList; W: WindowPtr; æ πτÑΓ«¼ φΓ¿σ «»¿ßá¡¿⌐ ñ«»πßΓ¿¼δ ß½ÑñπεΘ¿Ñ óδº«óδ »α«µÑñπα: P[3](1,1); W.SetCursor(10,10); è«úñá »α«µÑñπα¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ »α«µÑñπ- αδ, Γ« ¡á Σ¿º¿τÑß¬«¼ πα«ó¡Ñ »α«¿ßσ«ñ¿Γ ß½ÑñπεΘÑÑ: áñαÑß »α«µÑñπαδ ß«σαá¡∩ÑΓß∩ ó »ÑαÑ¼Ñ¡¡«⌐. öá¬Γ¿τÑß¬¿, »α«µÑñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩ óÑß∞¼á ¡á»«¼¿¡áÑΓ »ÑαÑ¼Ñ¡¡πε-π¬áºáΓÑ½∞, Γ«½∞¬« ó¼ÑßΓ« ßßδ½¬¿ ¡á ñá¡¡δÑ «¡á π¬áºδóáÑΓ ¡á »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε. èá¬ ¿ π¬áºáΓÑ½∞, »α«µÑñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩ ºá¡¿¼áÑΓ 4 íá⌐Γá (ñóá ß½«óá), ó ¬«Γ«αδσ ß«ñÑαª¿Γß∩ áñαÑß »á¼∩Γ¿. é »Ñαó«¼ ß½«óÑ σαá¡¿Γß∩ ß¼ÑΘÑ¡¿Ñ, ó« óΓ«α«¼ - ßÑú¼Ñ¡Γ. B.Pascal 7 & Objects/LR - 168 - Åáαá¼ÑΓαδ »α«µÑñπα¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── Å«ß¬«½∞¬π »α«µÑñπα¡δÑ Γ¿»δ ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óáΓ∞ ó ½εí«¼ ¬«¡ΓÑ¬ßΓÑ, Γ« ¼«ª¡« «»¿ßδóáΓ∞ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ ó«ß»α¿¡¿¼áεΓ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó. é ß½Ññπε- ΘÑ¼ »α¿¼ÑαÑ »«¬áºδóáÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ »áαá¼ÑΓα«ó »α«µÑñπα¡«ú« Γ¿»á ñ½∩ óδó«ñá ΓαÑσ Γáí½¿µ αáº½¿τ¡δσ áα¿Σ¼ÑΓ¿τÑß¬¿σ Σπ¡¬µ¿⌐: program Tables; type Func = function(X,Y: integer): integer; function Add(X,Y: integer): integer; far; begin Add := X + Y; end; function Multiply(X,Y: integer): integer; far; begin Multiply := X*Y; end; function Funny(X,Y: integer): integer; far; begin Funny := (X+Y) * (X-Y); end; procedure PrintTable(W,H: integer; Operation: Func); var X,Y : integer; begin for Y := 1 to H do begin for X := 1 to W do Write(Operation(X,Y):5); Writeln; end; Writeln; end; begin PrintTable(10,10,Add); PrintTable(10,10,Multiply); PrintTable(10,10,Funny); end. B.Pascal 7 & Objects/LR - 169 - Åα¿ αáí«ΓÑ »α«úαá¼¼á Table óδó«ñ¿Γ Γα¿ Γáí½¿µδ. éΓ«αá∩ ¿º ¡¿σ óδú½∩ñ¿Γ ß½ÑñπεΘ¿¼ «íαáº«¼: 1 2 3 4 5 6 7 8 9 10 2 4 6 8 10 12 14 16 18 20 3 6 9 12 15 18 21 24 27 30 4 8 12 16 20 24 28 32 36 40 5 10 15 20 25 30 35 40 45 50 6 12 18 24 30 36 42 48 54 60 7 14 21 28 35 42 49 56 63 70 8 16 24 32 40 48 56 64 72 80 9 18 27 36 45 54 63 72 81 90 10 20 30 40 50 60 70 80 90 100 Åáαá¼ÑΓαδ »α«µÑñπα¡«ú« Γ¿»á «ß«íÑ¡¡« »«½Ñº¡δ ó Γ«¼ ß½πτáÑ, ¬«úñá ¡áñ ¼¡«ªÑßΓó«¼ »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐ ¡πª¡« óδ»«½¡¿Γ∞ ¬á- ¬¿Ñ-Γ« «íΘ¿Ñ ñÑ⌐ßΓó¿∩. é ñá¡¡«¼ ß½πτáÑ »α«µÑñπαδ PrintTable »αÑñßΓáó½∩ÑΓ ß«í«⌐ «íΘÑÑ ñÑ⌐ßΓó¿Ñ, óδ»«½¡∩Ñ¼«Ñ ¡áñ Σπ¡¬µ¿∩¼¿ Add, Multiply ¿ Funny. àß½¿ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ñ«½ª¡δ »ÑαÑñáóáΓ∞ß∩ ó ¬áτÑßΓóÑ »áαá¼ÑΓαá, «¡¿ ñ«½ª¡δ πñ«ó½ÑΓó«α∩Γ∞ ΓÑ¼ ªÑ »αáó¿½á¼ ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»á, τΓ« ¿ »α¿ »α¿ßóá¿óá¡¿¿. Æ« ÑßΓ∞, Γá¬¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬- µ¿¿ ñ«½ª¡δ ¬«¼»¿½¿α«óáΓ∞ß∩ ß ñ¿αÑ¬Γ¿ó«⌐ far, «¡¿ ¡Ñ ¼«úπΓ íδΓ∞ óßΓα«Ñ¡¡δ¼¿ Σπ¡¬µ¿∩¼¿, ¡Ñ ¼«úπΓ íδΓ∞ ó½«ªÑ¡¡δ¼¿ ¿ ¡Ñ ¼«úπΓ «»¿ßδ- óáΓ∞ß∩ ß áΓα¿íπΓá¼¿ inline ¿½¿ interrupt. B.Pascal 7 & Objects/LR - 170 - ─────────────────────────────────────────────────────────────────────── â½áóá 10. Åα«úαá¼¼δ ¿ ¼«ñπ½¿ ───────────────────────────────────────────────────────────────── æ¿¡Γá¬ß¿ß »α«úαá¼¼ ───────────────────────────────────────────────────────────────── Åα«úαá¼¼á ó Borland Pascal ß«ßΓ«¿Γ ¿º ºáú«½«ó¬á »α«úαá¼¼δ, ¡Ñ«í∩ºáΓÑ½∞¡«ú« «»ÑαáΓ«αá uses ¿ «ß¡«ó¡«ú« í½«¬á. »α«úαá¼¼á │ ┌─────────┐ ┌───┐ ┌────┐ ┌───┐ └───┬─>│ºáú«½«ó«¬├──>│ ; ├───┬─────────────────>│í½«¬├─>│ . ├─> │ │»α«úαá¼¼δ│ └───┘ ^ │ ┌───────────┐ ^ └────┘ └───┘ │ └─────────┘ │ └─>│»αÑñ½«ªÑ¡¿Ñ├─┘ └──────────────────────┘ │ uses │ └───────────┘ çáú«½«ó«¬ »α«úαá¼¼δ ───────────────────────────────────────────────────────────────── çáú«½«ó«¬ »α«úαá¼¼δ «»αÑñÑ½∩ÑΓ ¿¼∩ »α«úαá¼¼δ ¿ ÑÑ »áαá¼ÑΓαδ. ºáú«½«ó«¬ »α«úαá¼¼δ │ │ ┌───────┐ ┌─────────────┐ └──>│program├──>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─┬──────────────────────────────> └───────┘ └─────────────┘ │ ┌───┐ ┌─────────┐ ┌───┐ ^ └─>│ ( ├─>│»áαá¼ÑΓαδ├─>│ ) ├─┘ └───┘ │»α«úαá¼¼δ│ └───┘ └─────────┘ ┌───────────────┐ »áαá¼ÑΓαδ »α«úαá¼¼δ ────>│ ß»¿ß«¬ ├────> │¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó│ └───────────────┘ àß½¿ ºáú«½«ó«¬ »α«úαá¼¼δ »α¿ßπΓßΓóπÑΓ, «¡ ∩ó½∩ÑΓß∩ τ¿ßΓ« ñÑ- ¬«αáΓ¿ó¡«⌐ ñÑΓá½∞ε ¿ ¬«¼»¿½∩Γ«α Ñú« ¿ú¡«α¿απÑΓ. B.Pascal 7 & Objects/LR - 171 - Ä»ÑαáΓ«α uses ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α uses ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ óßÑ ¼«ñπ½¿, ¿ß»«½∞ºπÑ¼δÑ »α«ú- αá¼¼«⌐, ó¬½ετá∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ¿ß»«½∞ºπÑ¼δÑ ¼«ñπ½¿ ¿ ¼«ñπ½¿, ¿ß- »«½∞ºπÑ¼δÑ φΓ¿¼¿ ¼«ñπ½∩¼¿. ┌────┐ ┌─────────────┐ ┌───┐ »αÑñ½«ªÑ¡¿Ñ uses ──>│uses├──┬──>│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─────>│ ; ├───> └────┘ │ └─────────────┘ ^ └───┘ │ ┌───┐ │ └─────>│ , ├─────────┘ └───┘ î«ñπ½∞ System óßÑúñá ¿ß»«½∞ºπÑΓß∩ áóΓ«¼áΓ¿τÑß¬¿. ä½∩ »«ñ- ñÑαª¬¿ Γá¬¿σ ßαÑñßΓó, ¬á¬ Σá⌐½«óδ⌐ óó«ñ-óδó«ñ, «íαáí«Γ¬á ßΓα«¬, «»Ñαáµ¿¿ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐, ñ¿¡á¼¿τÑß¬«Ñ αáß»αÑñÑ½Ñ¡¿Ñ »á¼∩Γ¿ ¿ ñαπú¿σ φΓ«Γ ¼«ñπ½∞ αÑá½¿ºπÑΓ óÑß∞ ¡¿ª¡¿⌐ πα«óÑ¡∞, á Γá¬ªÑ «íß½π- ª¿óáεΘ¿Ñ Σ«¡«óδÑ »α«úαá¼¼δ. Åáß¬á½∞, ó ßó«ε «τÑαÑñ∞, «íß½πª¿óáÑΓ ¼¡«ú¿Ñ ßΓá¡ñáαΓ¡δÑ ¼«- ñπ½¿, Γá¬¿Ñ, ¬á¬ Dos ¿ Crt. ¥Γ« ¡Ñ »α«¿ßσ«ñ¿Γ áóΓ«¼áΓ¿τÑß¬¿: óδ ñ«½ª¡δ «í∩ºáΓÑ½∞¡« ó¬½ετ¿Γ∞ ¿σ ó «»ÑαáΓ«α uses. ìá»α¿¼Ñα: uses Dos,Crt; { ΓÑ»Ñα∞ ¼«úπΓ íδΓ∞ ñ«ßΓπ»¡δ ßαÑñßΓóá ¼«ñπ½Ñ⌐ Dos ¿ Crt } ùΓ«íδ ¡á⌐Γ¿ Σá⌐½, ß«ñÑαªáΘ¿⌐ ß¬«¼»¿½¿α«óá¡¡δ⌐ ¼«ñπ½∞, ¬«¼»¿- ½∩Γ«α πßÑ¬áÑΓ π¬áºá¡¡«Ñ ó «»ÑαáΓ«αÑ uses ¿¼∩ ¼«ñπ½∩ ñ« »Ñαóδσ ó«ß∞¼¿ Σá⌐½«ó ¿ ñ«íáó½∩ÑΓ αáßΦ¿αÑ¡¿Ñ Σá⌐½á. àß½¿ µÑ½Ñó«⌐ »½áΓΣ«α- ¼«⌐ ∩ó½∩ÑΓß∩ DOS, αáßΦ¿αÑ¡¿Ñ¼ íπñÑΓ .TPU. àß½¿ µÑ½Ñóá∩ »½áΓΣ«α¼á - Windows, Γ« αáßΦ¿αÑ¡¿Ñ¼ Σá⌐½á íπñÑΓ .TPW. àß½¿ µÑ½Ñó«⌐ »½áΓΣ«α- ¼«⌐ ∩ó½∩ÑΓß∩ ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ DOS, Γ« αáßΦ¿αÑ¡¿Ñ¼ Σá⌐½á íπñÑΓ .TPP. ò«Γ∩ ¿¼Ñ¡á Σá⌐½«ó πßÑ¬áεΓß∩, ó «»ÑαáΓ«αÑ uses ñ«½ªÑ¡ π¬áºδ- óáΓ∞ß∩ »«½¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼«ñπ½∩. B.Pascal 7 & Objects/LR - 172 - æ¿¡Γá¬ß¿ß ¼«ñπ½Ñ⌐ ───────────────────────────────────────────────────────────────── î«ñπ½¿ ∩ó½∩εΓß∩ «ß¡«ó«⌐ ¼«ñπ½∞¡«ú« »α«úαá¼¼¿α«óá¡¿∩. Ä¡¿ ¿ß- »«½∞ºπεΓß∩ ñ½∩ ß«ºñá¡¿∩ í¿í½¿«ΓÑ¬, ¬«Γ«αδÑ ¼«úπΓ ó¬½ετáΓ∞ß∩ ó αáº½¿τ¡δÑ »α«úαá¼¼δ (»α¿ φΓ«¼ ßΓá¡«ó¿Γß∩ ¡Ñ«í∩ºáΓÑ½∞¡δ¼ ¿¼ÑΓ∞ ó ¡á½¿τ¿¿ ¿ßσ«ñ¡δ⌐ ¬«ñ), á í«½∞Φ¿Ñ »α«úαá¼¼δ ¼«úπΓ »«ñαáºñÑ½∩Γ∞ß∩ ¡á ½«ú¿τÑß¬¿ ßó∩ºá¡¡δÑ ¼«ñπ½¿. ┌─────────┐ ┌───┐ ┌──────────┐ ¼«ñπ½∞ ─────>│ºáú«½«ó«¬├──>│ ; ├──>│¿¡ΓÑαΣÑ⌐ß-├───┐ │ ¼«ñπ½∩ │ └───┘ │¡δ⌐ αáºñÑ½│ │ └─────────┘ └──────────┘ │ ┌──────────────────────────────────────┘ │ ┌──────────┐ ┌─────────────┐ ┌───┐ └─>│ αáºñÑ½ ├───>│ αáºñÑ½ ├──>│ . ├──> │αÑá½¿ºáµ¿¿│ │¿¡¿µ¿á½¿ºáµ¿¿│ └───┘ └──────────┘ └─────────────┘ çáú«½«ó«¬ ¼«ñπ½∩ ───────────────────────────────────────────────────────────────── é ºáú«½«ó¬Ñ ¼«ñπ½∩ «»αÑñÑ½∩ÑΓß∩ ¿¼∩ ¼«ñπ½∩. ┌────┐ ┌────────────────────┐ ºáú«½«ó«¬ ¼«ñπ½∩ ───>│unit│──>│¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼«ñπ½∩│────> └────┘ └────────────────────┘ ê¼∩ ¼«ñπ½∩ ¿ß»«½∞ºπÑΓß∩ »α¿ ßßδ½¬Ñ ¡á ¼«ñπ½∞ ó »αÑñ½«ªÑ¡¿¿ ¿ß»«½∞º«óá¡¿∩. ¥Γ« ¿¼∩ ñ«½ª¡« íδΓ∞ π¡¿¬á½∞¡δ¼, Γá¬ ¬á¬ ñóá ¼«ñπ½∩ ß «ñ¡¿¼ ¿¼Ñ¡Ñ¼ ¡Ñ ¼«úπΓ «ñ¡«óαÑ¼Ñ¡¡« ¿ß»«½∞º«óáΓ∞ß∩. ê¼∩ ¿ßσ«ñ¡«ú« Σá⌐½á ¼«ñπ½∩ ¿ ñó«¿τ¡«ú« Σá⌐½á ñ«½ª¡δ ß«ó»á- ñáΓ∞ ß ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ ¼«ñπ½∩, πßÑτÑ¡¡δ¼ ñ« »Ñαóδσ 8 ß¿¼ó«½«ó. àß½¿ φΓ« ¡Ñ Γá¬, Γ« ¬«¼»¿½∩Γ«α ¡Ñ ß¼«ªÑΓ ¡á⌐Γ¿ ¿ßσ«ñ¡δ⌐ ¿/¿½¿ ñó«¿τ¡δ⌐ Σá⌐½ »α¿ ¬«¼»¿½∩µ¿¿ ¿ß»«½∞ºπεΘÑ⌐ φΓ«Γ ¼«ñπ½∞ »α«úαá¼¼δ. B.Pascal 7 & Objects/LR - 173 - ê¡ΓÑαΣÑ⌐ß¡á∩ ßÑ¬µ¿∩ ───────────────────────────────────────────────────────────────── é ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ «»¿ßδóáεΓß∩ ΓÑ ¬«¡ßΓá¡Γδ, Γ¿»δ, »ÑαÑ- ¼Ñ¡¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«αδÑ ∩ó½∩εΓß∩ ú½«íá½∞¡δ¼¿, Γ« ÑßΓ∞ ñ«ßΓπ»¡δ¼¿ «ß¡«ó¡«⌐ »α«úαá¼¼Ñ (»α«úαá¼¼Ñ ¿½¿ ¼«ñπ½ε, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓ ñá¡¡δ⌐ ¼«ñπ½∞). Äß¡«ó¡á∩ »α«úαá¼¼á ¿¼ÑÑΓ ñ«ßΓπ» ¬ φΓ¿¼ φ½Ñ¼Ñ¡Γá¼, ¬á¬ Ñß½¿ íδ «¡¿ íδ½¿ «»¿ßá¡δ ó ¼«ñπ½Ñ, ∩ó½∩εΘ¿¼ß∩ ó½«- ªÑ¡¡δ¼ »« «Γ¡«ΦÑ¡¿ε ¬ ñá¡¡«⌐ »α«úαá¼¼Ñ. ¿¡ΓÑαΣÑ⌐ß¡á∩ ßÑ¬µ¿∩ │ │ ┌─────────┐ └─>│interfaße├─┬─────────────────────────────────────────────┬─> │ │ │ ┌───────────┐^ ^ │ ┌──────────────────┐ ^ │ └─────────┘ └─>│ «»ÑαáΓ«α ├┘ │ ├─>│ αáºñÑ½ «»¿ßá¡¿∩ ├─┤ │ │ uses │ │ │ │ ¬«¡ßΓá¡Γ │ │ │ └───────────┘ │ │ └──────────────────┘ │ │ │ │ ┌──────────────────┐ │ │ │ ├─>│ αáºñÑ½ «»¿ßá¡¿∩ ├─┤ │ │ │ │ Γ¿»«ó »ÑαÑ¼Ñ¡¡δσ │ │ │ │ │ └──────────────────┘ │ │ │ │ ┌──────────────────┐ │ │ │ ├─>│ αáºñÑ½ «»¿ßá¡¿∩ ├─┤ │ │ │ │ »ÑαÑ¼Ñ¡¡δσ │ │ │ │ │ └──────────────────┘ │ │ │ │ ┌──────────────────┐ │ │ │ └─>│αáºñÑ½ ºáú«½«ó¬«ó ├─┘ │ │ │»α«µÑñπα ¿ Σπ¡¬µ¿⌐│ │ │ └──────────────────┘ │ └───────────────────────────┘ αáºñÑ½ ºáú«½«ó¬«ó »α«µÑñπα ¿ Σπ¡¬µ¿⌐ │ ┌─────────┐ ┌───┐ └────┬──>│ºáú«½«ó«¬├──────────>│ ; ├─┬───────────────────────> │ │»α«µÑñπαδ│ ^ └───┘ │ ┌─────────┐ ┌───┐ ^ │ └─────────┘ │ └─>│ñ¿αÑ¬Γ¿óá├──>│ ; ├─┘ │ ┌─────────────────┐ │ │ inline │ └───┘ └─>│ºáú«½«ó«¬ Σπ¡¬µ¿¿├─┘ └─────────┘ └─────────────────┘ é Γ«¼ ß½πτáÑ, Ñß½¿ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ∩ó½∩ÑΓß∩ »α«µÑñπα«⌐ ¿½¿ Σπ¡¬µ¿Ñ⌐ Γ¿»á inline, ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ß«ñÑαª¿Γß∩ Γ«½∞¬« ß»¿ß«¬ ºáú«½«ó¬«ó »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐. î«ñπ½∞ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ß½ÑñπÑΓ ñá½∞ΦÑ ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿. çá¼ÑΓ¿¼, τΓ« ºáú«½«- ó«¬ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¼«ªÑΓ ñπí½¿α«óáΓ∞ß∩ ¿ íδΓ∞ ºñÑß∞ Γá¬¿¼ ªÑ, ¬á¬ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿. éá¼ ¡Ñ ¡πª¡« ºáñáóáΓ∞ ºñÑß∞ ß»¿ß«¬ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó, ¡« Ñß½¿ óδ φΓ« ßñÑ½á½¿ ¿ Ñß½¿ «»¿ßá¡¿Ñ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ¿ ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ ¡Ñ ß«ó»áñáεΓ, Γ« ¬«¼»¿½∩- Γ«α ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿ óδñáßΓ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. B.Pascal 7 & Objects/LR - 174 - æÑ¬µ¿∩ αÑá½¿ºáµ¿¿ ───────────────────────────────────────────────────────────────── é ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ «»αÑñÑ½∩εΓß∩ ¼«ñπ½¿ óßÑσ ú½«íá½∞¡δσ »α«- µÑñπα ¿½¿ Σπ¡¬µ¿⌐. é ¡Ñ⌐ Γá¬ªÑ «»¿ßδóáεΓß∩ ¬«¡ßΓá¡Γδ, »ÑαÑ¼Ñ¡¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ∩ó½∩εΘ¿Ñß∩ ½«¬á½∞¡δ¼¿, Γ« ÑßΓ∞ ¡Ññ«ßΓπ»¡δ¼¿ «ß¡«ó¡«⌐ »α«úαá¼¼Ñ. æÑ¬µ¿∩ αÑá½¿ºáµ¿¿ │ │ ┌──────────────┐ ┌──────────────────┐ └─>│implementation├─┬──────────────────>│ αáºñÑ½ «»¿ßá¡¿⌐ ├──> └──────────────┘ │ ┌───────────┐^ └──────────────────┘ └─>│ «»ÑαáΓ«α ├┘ │ uses │ └───────────┘ Å« ¼Ñσá¡¿º¼π ñÑ⌐ßΓó¿∩ «»¿ßá¡¿∩ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ó ¿¡ΓÑα- ΣÑ⌐ß¡á∩ ßÑ¬µ¿∩ á¡á½«ú¿τ¡á «»ÑαÑªáεΘÑ¼π «»¿ßá¡¿ε, σ«Γ∩ ñ¿αÑ¬Γ¿óá forward ¡Ñ π¬áºδóáÑΓß∩. Æá¬¿¼ «íαáº«¼, φΓ¿ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«úπΓ íδΓ∞ «»αÑñÑ½Ñ¡δ (¿ ¬ ¡¿¼ ¼«ª¡« «íαáΘáΓ∞ß∩ ó ½εí«⌐ »«ß½Ññ«- óáΓÑ½∞¡«ßΓ¿) ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿. ä«»πß¬áÑΓß∩ ñπí½¿α«óá¡¿Ñ ºáú«½«ó¬«ó »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ¿º ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáßΓ¿. éá¼ ¡Ñ ¡πª¡« »α¿ φΓ«¼ ºáñáóáΓ∞ ß»¿ß«¬ Σ«α- ¼á½∞¡δσ »áαá¼ÑΓα«ó, ¡« Ñß½¿ óδ φΓ« ñÑ½áÑΓÑ, ¬«¼»¿½∩Γ«α ¡á φΓá»Ñ ¬«¼»¿½∩µ¿¿ ó ß½πτáÑ ¡Ñß«ó»áñÑ¡¿∩ «»¿ßá¡¿⌐ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáßΓ¿ ¿ ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ íπñÑΓ óδñáóáΓ∞ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. B.Pascal 7 & Objects/LR - 175 - æÑ¬µ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ ───────────────────────────────────────────────────────────────── æÑ¬µ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ ∩ó½∩ÑΓß∩ »«ß½Ññ¡Ñ⌐ ßÑ¬µ¿Ñ⌐ ¼«ñπ½∩. Ä¡á ¼«ªÑΓ ß«ßΓ«∩Γ∞ ½¿í« ¿º ºáαÑºÑαó¿α«óá¡¡«ú« ß½«óá end (ó φΓ«¼ ß½π- τáÑ ¼«ñπ½∞ ¡Ñ ß«ñÑαª¿Γ ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿), ½¿í« ¿º «»ÑαáΓ«α¡«⌐ τáßΓ¿, ¬«Γ«αá∩ ñ«½ª¡á óδ»«½¡∩Γ∞ß∩ ñ½∩ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩. ┌───┐ ßÑ¬µ¿∩ ¿¡¿µ¿á½¿ºáµ¿¿ ───┬──>│end├──────────────────> │ └───┘ ^ │ ┌─────────────────┐ │ └─>│«»ÑαáΓ«α¡á∩ τáßΓ∞├─┘ └─────────────────┘ æÑ¬µ¿¿ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ »α«úαá¼- ¼«⌐, óδ»«½¡∩εΓß∩ ó Γ«¼ ªÑ »«α∩ñ¬Ñ, ó ¬á¬«¼ ¼«ñπ½¿ π¬áºá¡δ ó «»Ñ- αáΓ«αÑ uses. è«ßóÑ¡¡δÑ ßßδ½¬¿ ¡á ¼«ñπ½¿ ───────────────────────────────────────────────────────────────── é «»ÑαáΓ«αÑ uses ó «ß¡«ó¡«⌐ »α«úαá¼¼Ñ ñ«½ª¡δ ß«ñÑαªáΓ∞ß∩ ¿¼Ñ¡á óßÑσ ¼«ñπ½Ñ⌐, ¡Ñ»«ßαÑñßΓóÑ¡¡« ¿½¿ ¬«ßóÑ¡¡« ¿ß»«½∞ºπÑ¼δσ «ß- ¡«ó¡«⌐ »α«úαá¼¼«⌐. Éáßß¼«Γα¿¼ ß½ÑñπεΘ¿⌐ »α¿¼Ñα: Program Prog; uses Unit1, Unit2 const a = b; begin end. end. unit Unit2; interface uses Unit1; const b = c; implementation end. unit Unit1; interface const c = 1; implementation const d = 2; end; é ñá¡¡«¼ »α¿¼ÑαÑ Unit12 ¡Ñ»«ßαÑñßΓóÑ¡¡« ºáó¿ß¿Γ «Γ Unit1, á Prog ¡Ñ»«ßαÑñßΓóÑ¡¡« ºáó¿ß¿Γ «Γ Unit2. èα«¼Ñ Γ«ú«, Prog ºáó¿ß¿Γ ¬«ßóÑ¡¡« «Γ Unit1 (τÑαÑº Unit1), σ«Γ∩ ¡¿ «ñ¿¡ ¿º «»¿ßá¡¡δσ ó Unit1 ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó ó Prog ¡Ñ ñ«ßΓπ»Ñ¡. ä½∩ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ ¬«¼»¿½∩Γ«α ñ«½ªÑ¡ ¿¼ÑΓ∞ ó«º¼«ª¡«ßΓ∞ B.Pascal 7 & Objects/LR - 176 - ¡áσ«ñ¿Γ∞ óßÑ ¼«ñπ½¿, «Γ ¬«Γ«αδσ «¡á »α∩¼« ¿½¿ ¬«ßóÑ¡¡« ºáó¿ß¿Γ. Å«φΓ«¼π, ñ½∩ ¬«¼»¿½∩µ¿¿ Prog ¬«¼»¿½∩Γ«α ñ«½ªÑ¡ ¿¼ÑΓ∞ ó«º¼«ª¡«ßΓ∞ ¡á⌐Γ¿ ¿ Unit1, ¿ Unit2, ¿¡áτÑ ó«º¡¿¬¡ÑΓ «Φ¿í¬á. è«úñá ó ¿¡ΓÑαΣÑ⌐ß¡πε τáßΓ∞ ¼«ñπ½∩ ó¡«ß∩Γß∩ ¿º¼Ñ¡Ñ¡¿∩, ñαπú¿Ñ ¼«ñπ½¿, ¿ß»«½∞ºπεΘ¿Ñ φΓ«Γ ¼«ñπ½∞, ñ«½ª¡δ íδΓ∞ ºá¡«ó« ß¬«¼»¿½¿α«- óá¡δ. Åα¿ ¿ß»«½∞º«óá¡¿¿ ¬«¼á¡ñ Make ¿½¿ Build ¬«¼»¿½∩Γ«α ñÑ½áÑΓ φΓ« áóΓ«¼áΓ¿τÑß¬¿. Äñ¡á¬«, Ñß½¿ ¿º¼Ñ¡Ñ¡¿∩ ¬«ß¡π½¿ß∞ Γ«½∞¬« ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ ¿½¿ ßÑ¬µ¿¿ ¿¡¿µ¿á½¿ºáµ¿¿, Γ« ñαπú¿Ñ ¼«ñπ½¿, ó ¬«Γ«αδσ ¿ß»«½∞ºπÑΓß∩ φΓ«Γ ¼«ñπ½∞, »ÑαÑ¬«¼»¿½¿α«óáΓ∞ ¡Ñ ¡πª¡«. é »αÑñδñπ- ΘÑ¼ »α¿¼ÑαÑ, Ñß½¿ ¿¡ΓÑαΣÑ⌐ß¡á∩ τáßΓ∞ ¼«ñπ½∩ Unit1 ¿º¼Ñ¡¿½áß∞ (¡á»α¿¼Ñα, ß = 2), Γ« ¼«ñπ½∞ Unit2 ¡πª¡« »ÑαÑ¬«¼»¿½¿α«óáΓ∞. êº¼Ñ- ¡Ñ¡¿Ñ ªÑ ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ (¡á»α¿¼Ñα, d = 1) ¡Ñ ΓαÑíπÑΓ »ÑαÑ¬«¼- »¿½∩µ¿¿ Unit2. Åα¿ ¬«¼»¿½∩µ¿¿ ¼«ñπ½∩ ó Borland Pascal ¡á «ß¡«óÑ ¬«¡Γα«½∞¡«⌐ ßπ¼¼δ ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ óδτ¿ß½∩ÑΓß∩ ¡«¼Ñα óÑαß¿¿ ¼«ñπ½∩. é »αÑ- ñδñπΘÑ¼ »α¿¼ÑαÑ »α¿ ¬«¼»¿½∩µ¿¿ ¼«ñπ½∩ Unit2 ó ß¬«¼»¿½¿α«óá¡¡«⌐ óÑαß¿¿ ¼«ñπ½∩ Unit2 ß«σαá¡∩ÑΓß∩ ¡«¼Ñα óÑαß¿¿ ¼«ñπ½∩ Unit1. Åα¿ ¬«¼»¿½∩µ¿¿ «ß¡«ó¡«⌐ »α«úαá¼¼δ ¡«¼Ñα óÑαß¿¿ ¼«ñπ½∩ Unit1 ßαáó¡¿óá- ÑΓß∩ ß ¡«¼Ñα«¼ óÑαß¿¿, ß«σαá¡Ñ¡¡δ¼ ó ¼«ñπ½Ñ Unit2. àß½¿ ¡«¼Ñαá óÑαß¿⌐ ¡Ñ ß«ó»áñáεΓ, τΓ« ßó¿ñÑΓÑ½∞ßΓóπÑΓ «í ¿º¼Ñ¡Ñ¡¿¿ ó ¿¡ΓÑα- ΣÑ⌐ß¡«⌐ τáßΓ¿ ¼«ñπ½∩ Unit1 ß« óαÑ¼Ñ¡¿ »«ß½Ññ¡Ñ⌐ ¬«¼»¿½∩µ¿¿ ¼«ñπ½∩ Unit2, ¬«¼»¿½∩Γ«α, ó ºáó¿ß¿¼«ßΓ¿ «Γ αÑª¿¼á ¬«¼»¿½∩µ¿¿, óδñáÑΓ ß«- «íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ¿½¿ »ÑαÑ¬«¼»¿½¿απÑΓ ¼«ñπ½∞ Unit2 (ó ºáó¿ß¿¼«ßΓ¿ «Γ αÑª¿¼á ¬«¼»¿½∩µ¿¿). B.Pascal 7 & Objects/LR - 177 - ÅÑαÑ¬αÑßΓ¡δÑ ßßδ½¬¿ ¡á ¼«ñπ½¿ ───────────────────────────────────────────────────────────────── Éáº¼ÑΘÑ¡¿Ñ ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ «»ÑαáΓ«αá uses »«ºó«½∩ÑΓ "ß¬αδΓ∞" ó¡πΓαÑ¡¡¿Ñ ñÑΓá½¿ ¼«ñπ½∩, »«ß¬«½∞¬π ¿ß»«½∞ºπÑ¼δÑ ó ßÑ¬- µ¿¿ αÑá½¿ºáµ¿¿ ¼«ñπ½¿ «¬áºδóáεΓß∩ "¡Ñó¿ñ¿¼δ¼¿" ñ½∩ Γ«ú«, ¬Γ« φΓ«Γ ¼«ñπ½∞ ¿ß»«½∞ºπÑΓ. ü«½ÑÑ óáª¡δ¼, «ñ¡á¬«, ∩ó½∩ÑΓß∩ Γ«, τΓ« φΓ« »«ºó«½∩ÑΓ óá¼ ßΓα«¿Γ∞ óºá¿¼«ºáó¿ß¿¼δÑ ¼«ñπ½¿. é ß½ÑñπεΘÑ⌐ »α«úαá¼¼Ñ »«¬áºá¡δ ñóá ¼«ñπ½∩, ¬«Γ«αδÑ "¿ß»«½∞- ºπεΓ" ñαπú ñαπúá. Äß¡«ó¡á∩ »α«úαá¼¼á Circular ¿ß»«½∞ºπÑΓ ¼«ñπ½∞ ß ¿¼Ñ¡Ñ¼ Display. î«ñπ½∞ Display ß«ñÑαª¿Γ ó ßó«Ñ⌐ ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬- µ¿¿ «ñ¡π »α«úαá¼¼π WriteXY, ¬«Γ«αá∩ ¿¼ÑÑΓ Γα¿ »áαá¼ÑΓαá: »áαπ ¬«- «αñ¿¡áΓ (x,y) ¿ ß««íΘÑ¡¿Ñ ñ½∩ óδó«ñá ¡á φ¬αá¡. WriteXY »ÑαÑ¼ÑΘáÑΓ ¬παß«α ó Γ«τ¬π (x,y) ¿ óδó«ñ¿Γ Γá¼ ß««íΘÑ¡¿Ñ. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡á óδºδóáÑΓ »α«ßΓπε »α«úαá¼¼π «íαáí«Γ¬¿ «Φ¿í¬¿. Å«¬á ¼δ ¡Ñ ó¿ñ¿¼ ºñÑß∞ ¡¿τÑú« ¿¡ΓÑαÑß¡«ú«: »α«µÑñπαá WriteXY »α«ßΓ« ¿ß»«½∞ºπÑΓß∩ ó¼ÑßΓ« »α«µÑñπαδ Write. Äñ¡á¬« ñá½ÑÑ, ¬«úñá »α«úαá¼¼á «íαáí«Γ¬¿ «Φ¿í¬¿ íπñÑΓ óδó«ñ¿Γ∞ ß««íΘÑ¡¿Ñ ¡á φ¬αá¡, ¡á- τ¿¡áεΓß∩ »ÑαÑ¬αÑßΓ¡δÑ ßßδ½¬¿ (óÑñ∞ »α¿ φΓ«¼ «¡á ß¡«óá ¿ß»«½∞ºπÑΓ WriteXY). Æá¬¿¼ «íαáº«¼, ¼δ ¿¼ÑÑ¼ »α«µÑñπαπ WriteXY, óδºδóáεΘπε »α«µÑñπαπ «íαáí«Γ¬¿ «Φ¿í¬¿ SwapError, ¬«Γ«αá∩ ó ßó«ε «τÑαÑñ∞ óδ- ºδóáÑΓ WriteXY ñ½∩ óδó«ñá ß««íΘÑ¡¿∩ ¡á φ¬αá¡. àß½¿ π óáß πªÑ «Γ óßÑú« φΓ«ú« ºá¬απª¿½áß∞ ú«½«óá, ¡Ñ íÑñá. äáóá⌐ΓÑ αáßß¼«Γα¿¼ ¿ß- σ«ñ¡δ⌐ ¬«ñ ó »α¿¼ÑαÑ ¿ πó¿ñ¿¼, τΓ« óßÑ φΓ« ¡Ñ ßΓ«½∞ πª ºá»πΓá¡«. Äß¡«ó¡á∩ »α«úαá¼¼á Circular «τ¿ΘáÑΓ φ¬αá¡ ¿ óδ»«½¡∩ÑΓ Γα¿ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ WriteXY: program Circular; { óδó«ñ¿Γ ΓÑ¬ßΓ, ¿ß»«½∞ºπ∩ WriteXY } uses WinCrt, Display; begin ClrScr; WriteXY(1, 1, 'ïÑóδ⌐ óÑασ¡¿⌐ πú«½ φ¬αá¡á'); WriteXY(100, 100, 'çá »αÑñÑ½á¼¿ φ¬αá¡á'); WriteXY(81 - Lenght('æ¡«óá ó φ¬αá¡..'), 15, 'æ¡«óá ó φ¬αá¡..'); end. éºú½∩¡¿ΓÑ ¡á ¬««αñ¿¡áΓδ (x,y) »α¿ óΓ«α«¼ «íαáΘÑ¡¿¿ ¬ »α«µÑ- ñπαÑ WriteXY. é Γ«τ¬Ñ ß ¬««αñ¿¡áΓá¼¿ (100,100) ¡á 80σ25-ß¿¼ó«½∞- ¡«¼ φ¬αá¡Ñ óδóÑßΓ¿ ΓÑ¬ßΓ ¡Ñó«º¼«ª¡«. äáóá⌐ΓÑ ΓÑ»Ñα∞ »«ß¼«Γα¿¼, ¬á¬ αáí«ΓáÑΓ »α«µÑñπαá WriteXY. äá½ÑÑ »α¿óÑñÑ¡ ΓÑ¬ßΓ ¿ßσ«ñ¡«ú« ¬«ñá ¼«ñπ½∩ Display, ó ¬«Γ«α«¼ ß«ñÑαª¿Γß∩ »α«µÑñπαá WriteXY. àß½¿ ¬««αñ¿¡áΓδ (x,y) ∩ó½∩εΓß∩ ñ«»πßΓ¿¼δ¼¿, «¡á óδó«ñ¿Γ ¡á φ¬αá¡ ß««í- ΘÑ¡¿Ñ. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡á óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. unit Display; B.Pascal 7 & Objects/LR - 178 - { ß«ñÑαª¿Γ »α«ßΓπε »α«úαá¼¼π óδó«ñá ¿¡Σ«α¼áµ¿¿ ¡á φ¬αá¡ } interface procedure WriteXY(X,Y : integer, Message : string); implementation uses Crt, Error; procedure WriteXY(X,Y : integer, Message : string); begin if (X in [1..80] and Y in [1..25] then begin Goto(X,Y); Write(Message); end; else ShowError('ìÑóÑα¡δÑ ¬««αñ¿¡áΓδ ó »α«µÑñπαÑ WriteXY'); end; end. Åα«µÑñπαá ShowError, óδºδóáÑ¼á∩ ó »α«µÑñπαÑ WriteXY, »«¬áºá- ¡á ó »α¿óÑñÑ¡¡«¼ ñá½ÑÑ ¿ßσ«ñ¡«¼ ¬«ñÑ ¼«ñπ½∩ Error. Ä¡á óßÑúñá óδ- ó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ¡á 25-⌐ ßΓα«¬Ñ φ¬αá¡á. unit Error; { ß«ñÑαª¿Γ »α«ßΓπε »α«úαá¼¼π ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ } interface procedure ShowError(ErrMsg : string); implementation uses Display; procedure ShowError(ErrMsg :string); begin WriteXY(1,25, 'ÄΦ¿í¬á: '+ ErrMsg); end; end. ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ, τΓ« «»ÑαáΓ«αδ uses ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ «í«¿σ ¼«ñπ½Ñ⌐ (Display ¿ Error) ßßδ½áεΓß∩ ñαπú ¡á ñαπúá. ¥Γ¿ ñóá ¼«ñπ½∩ ¼«úπΓ ßßδ½áΓ∞ß∩ ñαπú ¡á ñαπúá ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ í½áú«ñá- α∩ Γ«¼π, τΓ« Borland Pascal ¼«ªÑΓ ñ½∩ «íÑ¿σ ¼«ñπ½Ñ⌐ óδ»«½¡∩Γ∞ »«½¡πε ¬«¼»¿½∩µ¿ε ¿¡ΓÑαΣÑ⌐ß¡δσ ßÑ¬µ¿⌐. äαπú¿¼¿ ß½«óá¼¿, ¬«¼»¿½∩- Γ«α ó«ß»α¿¡¿¼áÑΓ ßßδ½¬π ¡á τáßΓ¿τ¡« ß¬«¼»¿½¿α«óá¡¡δ⌐ ¼«ñπ½∞ A ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ ¼«ñπ½∩ é, Ñß½¿ ¿¡ΓÑαΣÑ⌐ß¡δÑ ßÑ¬µ¿¿ ¼«ñπ½∩ A ¿ ¼«ñπ½∩ é ¡Ñ ºáó¿ß∩Γ ñαπú «Γ ñαπúá (¿, ß½Ññ«óáΓÑ½∞¡«, ßΓα«ú« ß«í- B.Pascal 7 & Objects/LR - 179 - ½εñáεΓß∩ »αáó¿½á Åáß¬á½∩, ¬áßáεΘ¿Ñß∩ »«α∩ñ¬á «»¿ßá¡¿∩). é ß½πτáÑ óºá¿¼«ºáó¿ß¿¼«ßΓ¿ ¿¡ΓÑαΣÑ⌐ß¡δσ ßÑ¬µ¿⌐ ¼«ñπ½Ñ⌐ óδ »«½πτ¿ΓÑ «Φ¿í¬π ¿º-ºá »ÑαÑ¬αÑßΓ¡δσ ßßδ½«¬. æ«ó¼ÑßΓ¡«Ñ ¿ß»«½∞º«óá¡¿Ñ «»¿ßá¡¿⌐ ───────────────────────────────────────────────────────────────── î«ª¡« ¼«ñ¿Σ¿µ¿α«óáΓ∞ »α«µÑñπαπ WriteXY Γá¬¿¼ «íαáº«¼, τΓ«íδ «¡á ó«ß»α¿¡¿¼á½á ñ«»«½¡¿ΓÑ½∞¡δ⌐ »áαá¼ÑΓα, ºáñáεΘ¿⌐ »α∩¼«πú«½∞¡«Ñ «¬¡« ¡á φ¬αá¡Ñ: procedure WriteXY(SomeWindow : WindRec; X, Y : integer; Message : string); procedure ShowError(Somewindow : WindRec; ErrMsg : string); ìπª¡« πτ¿ΓδóáΓ∞, τΓ« ñóÑ »α«µÑñπαδ ¡áσ«ñ∩Γß∩ ó αáº¡δσ ¼«ñπ- ½∩σ. äáªÑ Ñß½¿ óδ «»¿ßδóáÑΓÑ WindData ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ «ñ¡«- ú« ¼«ñπ½∩, Γ« ¡ÑΓ Γá¬«ú« ñ«»πßΓ¿¼«ú« ß»«ß«íá, ß »«¼«Θ∞ε ¬«Γ«α«ú« φΓ« «»¿ßá¡¿Ñ ¼«ú½« íδ íδΓ∞ ñ«ßΓπ»¡« ó ñαπú«¼ ¼«ñπ½Ñ. ÉÑΦÑ¡¿Ñ ß«ß- Γ«¿Γ ó Γ«¼, τΓ«íδ «»¿ßáΓ∞ ΓαÑΓ¿⌐ ¼«ñπ½∞, ó ¬«Γ«α«¼ ß«ñÑαª¿Γß∩ Γ«½∞¬« «»αÑñÑ½Ñ¡¿Ñ ºá»¿ß¿ WindRec: unit WindData; interface type WindRec = record X1, Y1, X2, Y2 : integer; ForeColor, BackColor : byte; Active : boolean; end; implementation end. é ñ«íáó½Ñ¡¿Ñ ¬ Γ«¼π, τΓ« ¼«ñ¿Σ¿¬áµ¿∩ ¬«ñá »α«µÑñπα WriteXY ¿ ShowError »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ ¡«óδ⌐ »áαá¼ÑΓα, ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ¼«ñπ½Ñ⌐ Display ¿ Error ΓÑ»Ñα∞ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ WindData. ¥Γ« ñ«»πßΓ¿¼«, Γá¬ ¬á¬ ¼«ñπ½∞ WindData ¡Ñ ºáó¿ß¿Γ «Γ ßó«Ñú« «»ÑαáΓ«αá uses, á ¼«ñπ½¿ Display ¿ Error ßßδ½áεΓß∩ ñαπú ¡á ñαπúá Γ«½∞¬« ó ß««ΓóÑΓßΓóπεΘ¿σ ßÑ¬µ¿∩σ αÑá½¿ºáµ¿¿. éºá¿¼«ºáó¿ß¿¼δÑ ¼«ñπ½¿ ¼«úπΓ íδΓ∞ »«½Ñº¡δ ó «ΓñÑ½∞¡δσ ß¿Γπá- µ¿∩σ, ¡« ¿ß»«½∞º«óáΓ∞ ¿σ ¡áñ« á¬¬παáΓ¡«. àß½¿ óδ íπñÑΓÑ »α¿¼Ñ¡∩Γ∞ ¿σ Γá¬, úñÑ φΓ« ¡Ñ ΓαÑíπÑΓß∩, »α«úαá¼¼π ßΓá¡ÑΓ ß½«ª¡Ñ⌐ «íß½πª¿- óáΓ∞, ¿ «¡á íπñÑΓ í«½∞ΦÑ »«ñóÑαªÑ¡á «Φ¿í¬á¼. B.Pascal 7 & Objects/LR - 180 - ─────────────────────────────────────────────────────────────────────── â½áóá 11. ä¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δÑ í¿í½¿«ΓÑ¬¿ ───────────────────────────────────────────────────────────────── ä¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δÑ í¿í½¿«ΓÑ¬¿ (DLL) »«ºó«½∩εΓ ¡Ñß¬«½∞- ¬¿¼ »α¿¬½áñ¡δ¼ »α«úαá¼¼á Windows ¿½¿ DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ß«ó- ¼ÑßΓ¡« ¿ß»«½∞º«óáΓ∞ ¬«ñ ¿ αÑßπαßδ. é Borland Pascal óδ ¼«ªÑΓÑ ¬á¬ ¿ß»«½∞º«óáΓ∞ ßπΘÑßΓóπεΘ¿Ñ DLL, Γá¬ ¿ ¡á»¿ßáΓ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ DLL, ¬«Γ«αδÑ ¼«ª¡« »α¿¼Ñ¡∩Γ∞ ó ñαπú¿σ »α«úαá¼¼áσ. ùΓ« Γá¬«Ñ DLL? ───────────────────────────────────────────────────────────────── DLL - φΓ« óδ»«½¡∩Ñ¼δ⌐ ¼«ñπ½∞, ß«ñÑαªáΘ¿⌐ »α«úαá¼¼¡δ⌐ ¬«ñ ¿½¿ αÑßπαßδ, ¿ß»«½∞ºπÑ¼δÑ ñαπú¿¼¿ »α¿¬½áñ¡δ¼¿ »α«úαá¼¼á¼¿ ¿½¿ DLL. è«¡µÑ»Γπá½∞¡« ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼á∩ í¿í½¿«ΓÑ¬á á¡á½«ú¿τ¡á∩ ¼«- ñπ½ε - «¡¿ «íÑß»Ñτ¿óáεΓ ñ½∩ »α«úαá¼¼ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. Äñ¡á¬« ¼Ñªñπ DLL ¿ ¼«ñπ½∩¼¿ ¿¼ÑεΓß∩ ßπΘÑßΓóÑ¡¡δÑ αáº½¿τ¿∩. é τáßΓ¡«ßΓ¿, ¼«ñπ½¿ ¬«¼»«¡πεΓß∩ ßΓáΓ¿τÑß¬¿, á DLL - ñ¿¡á¼¿τÑß¬¿. è«úñá »α«úαá¼¼á ¿ß»«½∞ºπÑΓ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ¿º ¼«ñπ½∩, ¬«»¿∩ ¬«ñá φΓ«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ßΓáΓ¿τÑß¬¿ ¬«¼»«¡πÑΓß∩ ß óδ»«½¡∩Ñ¼δ¼ Σá⌐½«¼ »α«úαá¼¼δ. àß½¿ ñóÑ »α«úαá¼¼δ óδ»«½¡∩εΓß∩ «ñ- ¡«óαÑ¼Ñ¡¡« ¿ ¿ß»«½∞ºπεΓ «ñ¡π ¿ Γπ ªÑ »α«µÑñπαπ ¿ Σπ¡¬µ¿ε ¼«ñπ½∩, Γ« ó ß¿ßΓÑ¼Ñ íπñÑΓ »α¿ßπΓßΓó«óáΓ∞ ñóÑ ¬«»¿¿ φΓ«⌐ »«ñ»α«úαá¼¼δ. ¥ΣΣÑ¬Γ¿ó¡ÑÑ íδ½« íδ ¿ß»«½∞º«óáΓ∞ «ñ¡π ¬«»¿ε. Æá¬πε ó«º¼«ª¡«ßΓ∞ »αÑñ«ßΓáó½∩ÑΓ DLL. é «Γ½¿τ¿Ñ «Γ ¼«ñπ½∩ DLL ¡Ñ ¬«¼»«¡πÑΓß∩ ß ¿ß»«½∞ºπεΘÑ⌐ DLL »α«úαá¼¼«⌐. é¼ÑßΓ« φΓ«ú« ¬«ñ ¿ αÑßπαßδ DLL ¡áσ«ñ∩Γß∩ ó «ΓñÑ½∞¡«¼ óδ»«½¡∩Ñ¼«¼ Σá⌐½Ñ ß αáßΦ¿αÑ¡¿Ñ¼ .DLL. ¥Γ«Γ Σá⌐½ ñ«½ªÑ¡ »α¿ßπΓß- Γó«óáΓ∞ »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ-¬½¿Ñ¡Γá. éδºδóáÑ¼δÑ »α«úαá¼¼«⌐ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πεΓß∩ ß« ßó«¿¼¿ Γ«τ¬á¼¿ óσ«ñá ó ¿ß»«½∞ºπÑ¼«⌐ »α«úαá¼¼Ñ DLL. äαπú«Ñ «Γ½¿τ¿Ñ ¼«ñπ½Ñ⌐ «Γ DLL ß«ßΓ«¿Γ ó Γ«¼, τΓ« ¼«ñπ½¿ ¼«- úπΓ φ¬ß»«αΓ¿α«óáΓ∞ Γ¿»δ, ¬«¡ßΓá¡Γδ, ñá¡¡δÑ ¿ «íΩÑ¬Γδ, á DLL - Γ«½∞¬« »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. ùΓ«íδ ÑÑ ¼«ª¡« íδ½« ¿ß»«½∞º«óáΓ∞ ó »α«úαá¼¼Ñ Borland Pascal, DLL ¡Ñ «í∩ºáΓÑ½∞¡« ñ«½ª¡á íδΓ∞ ¡á»¿ßá¡á ¡á Borland Pascal. èα«¼Ñ Γ«ú«, »α«úαá¼¼δ, ¡á»¿ßá¡¡δÑ ¡á ñαπú¿σ ∩ºδ¬áσ, ¼«úπΓ ¿ß»«½∞º«óáΓ∞ DLL, ¡á»¿ßá¡¡δÑ ¡á Borland Pascal. DLL, Γá¬¿¼ «íαáº«¼, ¿ñÑá½∞¡« »«ñσ«ñ¿Γ »α¿ »α«úαá¼¼¡δσ »α«Ñ¬Γáσ, αÑá½¿ºπÑ¼δσ ¡á ¡Ñß¬«½∞¬¿σ ∩ºδ- ¬áσ. êß»«½∞º«óá¡¿Ñ DLL ───────────────────────────────────────────────────────────────── ùΓ«íδ ¼«ñπ½∞ ¼«ú ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ó DLL, «¡ ñ«½ªÑ¡ ¿¼»«αΓ¿α«óáΓ∞ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ß »«¼«Θ∞ε «»¿ßá¡¿∩ external. ìá»α¿¼Ñα, ó ß½ÑñπεΘÑ¼ «»¿ßá¡¿¿ ¿º DLL ¿ ¿¼Ñ¡Ñ¼ KERNEL (∩ñα« Windows) ¿¼»«αΓ¿απÑΓß∩ Σπ¡¬µ¿∩ ß ¿¼Ñ¡Ñ¼ GlobalAlloc: B.Pascal 7 & Objects/LR - 181 - function GlobalAlloc(Glags: Word; Bytes: Longint): THandle; far; external 'KERNEL' index 15; é ¿¼»«αΓ¿απÑ¼«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ ñ¿αÑ¬Γ¿óá external ºá- ¡¿¼áÑΓ ¼ÑßΓ« «»¿ßáΓÑ½∞¡«⌐ ¿ «»ÑαáΓ«α¡«⌐ τáßΓ¿, ¬«Γ«αδÑ ¡πª¡« íδ½« íδ ó¬½ετ¿Γ∞ ó »α«Γ¿ó¡«¼ ß½πτáÑ. é ¿¼»«αΓ¿απÑ¼δσ »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ ñ«½ª¡á ¿ß»«½∞º«óáΓ∞ß∩ ñá½∞¡∩∩ ¼«ñÑ½∞ óδº«óá, óδíαá¡¡á∩ ¬½ετÑóδ¼ ß½«ó«¼ far ¿½¿ ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá {$F+}; ó« óßÑ¼ «ß- Γá½∞¡«¼ ¿σ »«óÑñÑ¡¿Ñ ¡Ñ «Γ½¿τáÑΓß∩ «Γ «íδτ¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. Borland Pascal ¿¼»«αΓ¿απÑΓ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ΓαÑ¼∩ ß»«ß«- íá¼¿: - »« ¿¼Ñ¡¿; - »« ¡«ó«¼π ¿¼Ñ¡¿; - »« »«α∩ñ¬«ó«¼π ¡«¼Ñαπ. ö«α¼áΓ ñ¿αÑ¬Γ¿ó external ñ½∩ ¬áªñ«ú« ¿º ΓαÑσ ¼ÑΓ«ñ«ó »«¬áºá¡ ó »α¿óÑñÑ¡¡«¼ ¡¿ªÑ »α¿¼ÑαÑ. è«úñá «»ÑαáΓ«α index ¿½¿ name ¡Ñ π¬áºá¡, »α«µÑñπαá ¿½¿ Σπ¡¬- µ¿∩ φ¬ß»«αΓ¿απεΓß∩ »« ¿¼Ñ¡¿. ¥Γ« ¿¼∩ ß«ó»áñáÑΓ ß ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. é ñá¡¡«¼ »α¿¼ÑαÑ »α«µÑñπαá ImportByName ¿¼»«αΓ¿απÑΓß∩ ¿º í¿í½¿«ΓÑ¬¿ 'TESTLIB' »« ¿¼Ñ¡¿ 'IMPORTBYNAME': procedure ImportByName; external 'TESTLIB'; è«úñá ºáñá¡ «»ÑαáΓ«α name, »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ¿¼»«αΓ¿απ- ÑΓß∩ »«ñ ¿¼Ñ¡Ñ¼, «Γ½¿τ¡δ¼ «Γ ¿¼Ñ¡¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »α«µÑñπαá ImportByName ¿¼»«αΓ¿απÑΓß∩ ¿º í¿í½¿«ΓÑ¬¿ 'TESTLIB' »« ¿¼Ñ¡¿ 'REALNAME': procedure ImportByName; external 'TESTLIB'name 'REALNAME' ìá¬«¡Ñµ, »α¿ ¡á½¿τ¿¿ «»ÑαáΓ«α index »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ¿¼»«αΓ¿απÑΓß∩ »« »«α∩ñ¬«ó«¼π º¡áτÑ¡¿ε. Æá¬«⌐ ó¿ñ ¿¼»«αΓá π¼Ñ¡∞Φá- ÑΓ óαÑ¼∩ ºáúαπº¬¿ ¼«ñπ½∩, Γá¬ ¬á¬ «Γ»áñáÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ∞ »«¿ß¬á ¿¼Ñ¡¿ ó Γáí½¿µÑ ¿¼Ñ¡ DLL. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ »α«µÑñπαá ImportByOrd ¿¼»«αΓ¿απÑΓß∩ ¿º í¿í½¿«ΓÑ¬¿ 'TESTLIB': procedure ImportByOrd; external 'TESTLIB' index 5; ê¼∩ DLL ºáñáÑΓß∩ »«ß½Ñ ¬½ετÑó«ú« ß½«óá external, á ¡«ó«Ñ ¿¼∩, ºáñá¡¡«Ñ ó «»ÑαáΓ«αÑ name, ¡Ñ «í∩ºá¡« »αÑñßΓáó½∩Γ∞ ß«í«⌐ ßΓα«¬«óδÑ ½¿ΓÑαá½δ. ä«»πß¬áÑΓß∩ ½εí«Ñ ßΓα«¬«ó«Ñ óδαáªÑ¡¿Ñ-¬«¡ß- Γá¡Γá. Ç¡á½«ú¿τ¡«, »«α∩ñ¬«óδ⌐ ¡«¼Ñα, ºáñáóáÑ¼δ⌐ ó «»ÑαáΓ«αÑ index, ¼«ªÑΓ íδΓ∞ ½εíδ¼ µÑ½«τ¿ß½Ñ¡¡δ¼ óδαáªÑ¡¿Ñ¼-¬«¡ßΓá¡Γ«⌐. const TestLib = TestLib; Ordinal = 5; B.Pascal 7 & Objects/LR - 182 - procedure ImportByName; external TestLib; procedure ImportByName; external TestLibname 'REALNAME' procedure ImportByOrd; external TestLib index Ordinal; ò«Γ∩ DLL ¼«ªÑΓ ß«ñÑαªáΓ∞ »ÑαÑ¼Ñ¡¡δÑ, ¿¼»«αΓ¿α«óáΓ∞ ¿σ ó ñαπ- ú¿Ñ ¼«ñπ½¿ ¡Ñó«º¼«ª¡«. ïεí«⌐ ñ«ßΓπ» ¬ »ÑαÑ¼Ñ¡¡δ¼ DLL ñ«½ªÑ¡ «ßπ- ΘÑßΓó½∩Γ∞ß∩ τÑαÑº »α«µÑñπα¡δ⌐ ¿¡ΓÑαΣÑ⌐ß. î«ñπ½¿ ¿¼»«αΓá ───────────────────────────────────────────────────────────────── Ä»¿ßá¡¿∩ ¿¼»«αΓ¿απÑ¼δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ¼«úπΓ »«¼ÑΘáΓ∞ß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó »α«úαá¼¼π, ¬«Γ«αá∩ ¿σ ¿¼»«αΓ¿απÑΓ. Äñ¡á¬« «íδτ- ¡« «¡¿ «íΩÑñ¿¡∩εΓß∩ ó ¼«ñπ½∞ ¿¼»«αΓá, ß«ñÑαªáΘ¿⌐ «»¿ßá¡¿∩ óßÑσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ó DLL, á Γá¬ªÑ óßÑ Γ¿»δ ¿ ¬«¡ßΓá¡Γδ, ¡Ñ«íσ«ñ¿- ¼δÑ ñ½∩ ¿¡ΓÑαΣÑ⌐ßá ß DLL. Åα¿¼Ñαá¼¿ Γá¬¿σ ¼«ñπ½Ñ⌐ ¿¼»«αΓá ∩ó½∩εΓ- ß∩ »«ßΓáó½∩Ñ¼δÑ ß Borland Pascal ¼«ñπ½¿ WinTypes, WinProcs ¿ WinAPI. î«ñπ½¿ ¿¼»«αΓá ¡Ñ «í∩ºáΓÑ½∞¡δ ñ½∩ ¿¡ΓÑαΣÑ⌐ßá ß DLL, ¡« «¡¿ º¡áτ¿ΓÑ½∞¡« π»α«ΘáεΓ «íß½πª¿óá¡¿Ñ ¿ß»«½∞ºπεΘ¿σ ¼¡«ªÑßΓó« DLL »α«Ñ¬Γ«ó. é ¬áτÑßΓóÑ »α¿¼Ñαá αáßß¼«Γα¿¼ DLL ß ¿¼Ñ¡Ñ¼ DATETIME.DLL, ß«- ñÑαªáΘπε τÑΓδαÑ »«ñ»α«úαá¼¼δ ñ½∩ »«½πτÑ¡¿∩ ¿ πßΓá¡«ó¬¿ ñáΓδ ¿ óαÑ¼Ñ¡¿ ß »«¼«Θ∞ε Γ¿»á ºá»¿ß¿, ß«ñÑαªáΘÑ⌐ τ¿ß½«, ¼Ñß∩µ, ú«ñ ¿ ºá- »¿ß¿, ¬«Γ«αá∩ ß«ñÑαª¿Γ ßÑ¬π¡ñπ, ¼¿¡πΓπ ¿ τáß. é¼ÑßΓ« ß»Ñµ¿Σ¿¬áµ¿¿ ß««ΓóÑΓßΓóπεΘ¿σ «»¿ßá¡¿⌐ »α«µÑñπαδ, Σπ¡¬µ¿¿ ¿ Γ¿»á ó ¬áªñ«⌐ ¿ß- »«½∞ºπεΘÑ⌐ DLL »α«úαá¼¼Ñ óδ ¼«ªÑΓÑ »«ßΓα«¿Γ∞ ¡áα∩ñπ ß DLL ¼«ñπ½∞ ¿¼»«αΓá. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ ß«ºñáÑΓß∩ Σá⌐½ .TPW (ó »αÑñ»«½«ªÑ- ¡¿¿, τΓ« µÑ½Ñó«⌐ »½áΓΣ«α¼«⌐ ∩ó½∩ÑΓß∩ Windows), ¡« «ΓßπΓßΓóπεΓ ¬«ñ ¿ ñá¡¡δÑ ñ½∩ ¿ß»«½∞ºπεΘÑ⌐ Ñú« »α«úαá¼¼δ. unit DateTime; interface type TTimeRec = record Second: Integer; Minute: Integer; Hour: Integer; end; type TDateRec TDateRec = record Day: Integer; Month: Integer; Year: Integer; end; procedure SetTime(var Time: TTimeRec); procedure GetTime(var Time: TTimeRec); B.Pascal 7 & Objects/LR - 183 - procedure SetDate(var Date: TDateRec); procedure GetDate(var Date: TDateRec); inplementation procedure SetTime; external 'DATETIME' index 1; procedure GetTime; external 'DATETIME' index 2; procedure SetDate; external 'DATETIME' index 3; procedure GetTime; external 'DATETIME' index 4; end. ïεíá∩ »α«úαá¼¼á, ¿ß»«½∞ºπεΘá∩ DATETIME.DLL ¼«ªÑΓ ΓÑ»Ñα∞ »α«ßΓ« ºáñáΓ∞ ó ßó«Ñ¼ «»ÑαáΓ«αÑ uses ¼«ñπ½∞ DateTime. Åα¿óÑñÑ¼ »α¿¼Ñα »α«úαá¼¼δ Windows: program ShowTime; uses WinCrt, DateTime; var Time: TTimeRec; begin GetTime(Time); with Time do WriteLn('ÆÑ¬πΘÑÑ óαÑ¼∩: ', Hour, ':', Minute, ':', Second); end. äαπú¿¼ »αÑ¿¼πΘÑßΓó«¼ ¿ß»«½∞º«óá¡¿∩ ¼«ñπ½∩ ¿¼»«αΓá, Γá¬«ú« ¬á¬ DateTime, ∩ó½∩ÑΓß∩ Γ«, τΓ« »α¿ ¼«ñ¿Σ¿¬áµ¿¿ DATETIME.DLL «í¡«- ó¿Γ∞ ΓαÑíπÑΓß∩ Γ«½∞¬« ¼«ñπ½∞ ¿¼»«αΓá DateTime. è«úñá óδ ¬«¼»¿½¿απÑΓÑ ¿ß»«½∞ºπεΘπε DLL »α«úαá¼¼π, ¬«¼»¿½∩Γ«α ¡Ñ ¿ΘÑΓ DLL, Γá¬ τΓ« ÑÑ »α¿ßπΓßΓó¿Ñ ¡Ñ ΓαÑíπÑΓß∩. Äñ¡á¬« DLL ñ«½ª¡á »α¿ßπΓßΓó«óáΓ∞ ó ß¿ßΓÑ¼Ñ »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ. àß½¿ óδ »¿ΦÑΓÑ ß«íßΓóÑ¡¡δÑ DLL, «¡¿ ¡Ñ ¬«¼»¿½¿απεΓß∩ áóΓ«¼á- Γ¿τÑß¬¿ »α¿ ¬«¼»¿½∩µ¿¿ ¿ß»«½∞ºπεΘÑ⌐ ÑÑ »α«úαá¼¼δ ß »«¼«Θ∞ε ¬«¼á¡- ñδ Compile│Make. DLL ß½ÑñπÑΓ ¬«¼»¿½¿α«óáΓ∞ «ΓñÑ½∞¡«. B.Pascal 7 & Objects/LR - 184 - æΓáΓ¿τÑß¬¿⌐ ¿ ñ¿¡á¼¿τÑß¬¿⌐ ¿¼»«αΓ ───────────────────────────────────────────────────────────────── ä¿αÑ¬Γ¿óá external «íÑß»Ñτ¿óáÑΓ ó«º¼«ª¡«ßΓ∞ ßΓáΓ¿τÑß¬«ú« ¿¼- »«αΓá »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ¿º DLL. æΓáΓ¿τÑß¬¿ ¿¼»«αΓ¿απÑ¼á∩ »α«µÑ- ñπαá ¿ Σπ¡¬µ¿∩ óßÑúñá ßßδ½áÑΓß∩ ¡á «ñ¡π ¿ Γπ ªÑ Γ«τ¬π óσ«ñá ó DLL. ÉáßΦ¿αÑ¡¿∩ Windows ¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS Borland »«ññÑα- ª¿óáÑΓ Γá¬ªÑ ñ¿¡á¼¿τÑß¬¿⌐ ¿¼»«αΓ, »α¿ ¬«Γ«α«¼ ¿¼∩ DLL ¿ ¿¼∩ ¿½¿ »«α∩ñ¬«óδ⌐ ¡«¼Ñα ¿¼»«αΓ¿απÑ¼«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ºáñáÑΓß∩ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩. Åα¿óÑñÑ¡¡á∩ ¡¿ªÑ »α«úαá¼¼á ShowTime ¿ß»«½∞ºπÑΓ ñ¿¡á¼¿τÑß¬¿⌐ ¿¼»«αΓ ñ½∩ óδº«óá »α«µÑñπαδ GetTime ó DATETIME.DLL. ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á ¿ß»«½∞º«óá¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ »α«µÑñπα¡«ú« Γ¿»á ñ½∩ »αÑñßΓáó½Ñ¡¿∩ áñαÑßá »α«µÑñπαδ GetTime. program ShowTime; uses WinProcs, WinTypes, WinCrt; type TTimeRec = record Second: Integer; Minute: Integer; Hour: Integer; end; TGetTime = procedure(var Time: TTimeRec); var Time: TTimeRec; Handle: THAndle; GetTime: TGetTime; begin Handle := LoadLibrary('DATETIME.DLL'); if Handle >= 32 then begin @GetTie := GetProcAddress(Handle, 'GETTIME'); if @GetTime <> nil then begin GetTime(Time); with Time do WriteLn('ÆÑ¬πΘÑÑ óαÑ¼∩: ', Hour, ':', Minute, ':', Second); end; FreeLibrary(Handle); end; end; B.Pascal 7 & Objects/LR - 185 - ìá»¿ßá¡¿Ñ DLL ───────────────────────────────────────────────────────────────── æΓαπ¬Γπαá DLL Borland Pascal ¿ñÑ¡Γ¿τ¡á∩ ßΓαπ¬ΓπαÑ »α«úαá¼¼δ, ¡« DLL ¡áτ¿¡áÑΓß∩ ó¼ÑßΓ« ºáú«½«ó¬á program ß ºáú«½«ó¬á program. çáú«½«ó«¬ library π¬áºδóáÑΓ Borland Pascal, τΓ« ¡πª¡« ß«ºñáΓ∞ óδ- »«½¡∩Ñ¼δ⌐ Σá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .DLL, á ¡Ñ ß αáßΦ¿αÑ¡¿Ñ¼ .EXE, ¿ óδ- »«½¡∩Ñ¼δ⌐ Σá⌐½ »«¼ÑτáÑΓß∩ ¬á¬ DLL. í¿í½¿«ΓÑ¬á │ │ ┌─────────────┐ ┌───┐ ┌──────┐ └──>│ ºáú«½«ó«¬ ├──>│ ; ├─┬──────────────────│ í½«¬ ├───────> │ í¿í½¿«ΓÑ¬¿ │ └───┘ │ ┌──────────┐ ^ └──────┘ └─────────────┘ └──>│ «»ÑαáΓ«α ├─┘ │ uses │ └──────────┘ ┌─────────┐ ┌───────────────┐ ºáú«½«ó«¬ ────>│ library ├──>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├─────> »α«µÑñπαδ └─────────┘ └───────────────┘ é »α¿óÑñÑ¡¡«¼ ¡¿ªÑ »α¿¼ÑαÑ »α¿óÑñÑ¡á «τÑ¡∞ »α«ßΓπε DLL ß ñóπ¼∩ φ¬ß»«αΓ¿απÑ¼δ¼¿ Σπ¡¬µ¿∩¼¿ Min ¿ Max, ¬«Γ«αδÑ óδτ¿ß½∩εΓ ¡á¿- ¼Ñ¡∞ΦÑÑ ¿ ¡á¿í«½∞ΦÑÑ ¿º ñóπσ µÑ½«τ¿ß½Ñ¡¡δσ º¡áτÑ¡¿⌐. library MinMax; function Min(X, Y: Integer): Integer; export; begin if X < Y then Min := X else Min := Y; end; function Max(X, Y: Integer): Integer; export; begin if X > Y then Max := X else Max := Y; end; exports Min index 1, Max index 2; begin end. ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á ¿ß»«½∞º«óá¡¿Ñ ñ½∩ »«ñú«Γ«ó¬¿ Min ¿ Max, ñ½∩ φ¬ß»«αΓá ¬½ετÑó«ú« ß½«óá export, ¿ ¡á «»ÑαáΓ«α exports, ¿ß- »«½∞ºπÑ¼δ⌐ ñ½∩ Σá¬Γ¿τÑß¬«ú« φ¬ß»«αΓá ñóπσ »«ñ»α«úαá¼¼, π¬áºδóáε- Θ¿⌐, ñ½∩ ¬áªñ«⌐ ¿º ¡¿σ, ¡Ñ«í∩ºáΓÑ½∞¡δ⌐ »«α∩ñ¬«óδ⌐ ¡«¼Ñα. ò«Γ∩ »αÑñδñπΘ¿⌐ »α¿¼Ñα φΓ«ú« ¡Ñ »«¬áºδóáÑΓ, í¿í½¿«ΓÑ¬á ¼«ªÑΓ ß«ßΓ«∩Γ∞ ¿º ¡Ñß¬«½∞¬¿σ ¼«ñπ½Ñ⌐. é Γá¬¿σ ß½πτá∩σ ¿ßσ«ñ¡δ⌐ Σá⌐½ í¿í½¿«ΓÑ¬¿ τáßΓ« ßó«ñ¿Γß∩ ¬ «»ÑαáΓ«απ uses, «»ÑαáΓ«απ exports ¿ B.Pascal 7 & Objects/LR - 186 - ¬«ñπ ¿¡¿µ¿á½¿ºáµ¿¿ í¿í½¿«ΓÑ¬¿. ìá»α¿¼Ñα: library Eritors; uses EdInit, EdInOut, EdFormat, EdPrint; exports InitEditors index 1, DoneEditors index 2, InsertText index 3, DeleteSelection index 4, FormatSelection index 5, PrintSelection index 6, . . . SetErrorHandler index 53; begin InitLibrary; end. B.Pascal 7 & Objects/LR - 187 - ä¿αÑ¬Γ¿óá »α«µÑñπαδ export ───────────────────────────────────────────────────────────────── àß½¿ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ«½ª¡δ φ¬ß»«αΓ¿α«óáΓ∞ß∩ DLL, «¡¿ ñ«½ª¡δ ¬«¼»¿½¿α«óáΓ∞ß∩ ß ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá export. ä¿αÑ¬Γ¿óá export »α¿¡áñ½Ñª¿Γ ¬ Γ«¼π ªÑ ßÑ¼Ñ⌐ßΓóπ »α«µÑñπα¡δσ ñ¿αÑ¬Γ¿ó, τΓ« ¿ near, far, inline ¿ interrupt. ¥Γ« «º¡áτáÑΓ, τΓ« ñ¿αÑ¬Γ¿óá export, Ñß½¿ «¡á »α¿ßπΓßΓóπÑΓ, ñ«½ª¡á π¬áºδóáΓ∞ß∩ »ÑαÑñ »Ñαóδ¼ ºáñá¡¿Ñ¼ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ - «¡á ¡Ñ ¼«ªÑΓ π¬áºδóáΓ∞ß∩ ó «»αÑ- ñÑ½∩εΘÑ¼ «»¿ßá¡¿¿ ¿½¿ ó «»ÑαÑªáεΘÑ¼ «»¿ßá¡¿¿. ä¿αÑ¬Γ¿óá export ñÑ½áÑΓ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε φ¬ß»«αΓ¿απÑ- ¼«⌐. Ä¡á »α¿¡πñ¿ΓÑ½∞¡« ¿ß»«½∞ºπÑΓ ñ½∩ »«ñ»α«úαá¼¼δ ñá½∞¡¿⌐ Γ¿» óδº«óá ¿ »«ñú«Γáó½¿óáÑΓ ÑÑ ñ½∩ φ¬ß»«αΓá, úÑ¡Ñα¿απ∩ ñ½∩ »α«µÑñπαδ ß»Ñµ¿á½∞¡δ⌐ ¬«ñ óσ«ñá ¿ óδσ«ñá. çá¼ÑΓ¿¼, «ñ¡á¬«, τΓ« Σá¬Γ¿τÑß¬¿⌐ φ¬ß»«αΓ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¡Ñ »α«¿ßσ«ñ¿Γ, »«¬á »«ñ»α«úαá¼¼á ¡Ñ »ÑαÑτ¿ß½∩ÑΓß∩ ó «»ÑαáΓ«αÑ exports í¿í½¿«ΓÑ¬¿. Ä»ÑαáΓ«α exports ───────────────────────────────────────────────────────────────── Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ φ¬ß»«αΓ¿απÑΓß∩ DLL, ¬«úñá «¡á π¬áºδóá- ÑΓß∩ ó «»ÑαáΓ«αÑ exports í¿í½¿«ΓÑ¬¿. «»ÑαáΓ«α exports │ ┌─────────┐ ┌────────────────┐ ┌───┐ └──>│ exports ├──>│ ß»¿ß«¬ φ¬ß»«αΓá├───────────>│ ; ├───────> └─────────┘ └────────────────┘ └───┘ ┌────────────────┐ ß»¿ß«¬ φ¬ß»«αΓá ──┬─>│ ºá»¿ß∞ φ¬c»«αΓá├───────────> │ └────────────────┘ ^ │ ┌───┐ │ └───────>│ ; ├─────────┘ └───┘ «»ÑαáΓ«α exports │ ┌───────────────┐ └───>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├──┬────────────────────────────────────┐ └───────────────┘ │ ┌───────┐ ┌─────────────────┐ ^ │ └──>│ index ├─>│ µÑ½á∩ ¬«¡ßΓá¡Γá ├─┘ │ └───────┘ └─────────────────┘ │ ┌──────────────────────────────────────────────────────────────┘ └─┬─────────────────────────────────────┬──────────────────────> │ ┌──────┐ ┌─────────────────────┐ ^│ ┌──────────┐ ^ └>│ name ├──>│ ßΓα«¬«óá∩ ¬«¡ßΓá¡Γá ├─┘└─>│ resident ├──┘ └──────┘ └─────────────────────┘ └──────────┘ Ä»ÑαáΓ«α exports ¼«ªÑΓ óßΓαÑτáΓ∞ß∩ ó ½εí«¼ ¼ÑßΓÑ «»¿ßáΓÑ½∞- ¡«⌐ τáßΓ¿ »α«úαá¼¼δ ¿½¿ í¿í½¿«ΓÑ¬¿ ¿ ½εí«Ñ τ¿ß½« αáº. èáªñá∩ ºá- »¿ß∞ ó «»ÑαáΓ«αÑ exports ºáñáÑΓ ¿ñÑ¡Γ¿Σ¿¬áΓ«α φ¬ß»«αΓ¿απÑ¼«⌐ »α«- µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Äñ¡á¬«, φΓá »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ñ«½ª¡á «»¿- B.Pascal 7 & Objects/LR - 188 - ßδóáΓ∞ß∩ ñ« «»ÑαáΓ«αá exports, ¿ ÑÑ «»¿ßá¡¿Ñ ñ«½ª¡« ß«ñÑαªáΓ∞ ñ¿- αÑ¬Γ¿óπ export. ÅÑαÑñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ ó «»ÑαáΓ«αÑ exports óδ ¼«- ªÑΓÑ π¬áºáΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼«ñπ½∩ ß Γ«τ¬«⌐; φΓ« ¡áºδóáÑΓß∩ »«½- ¡«ßΓ∞ε πΓ«τ¡Ñ¡¡δ¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼. çá»¿ß∞ φ¬ß»«αΓá ¼«ªÑΓ Γá¬ªÑ ó¬½ετáΓ∞ ó ßÑí∩ «»ÑαáΓ«α index, ¬«Γ«αδ⌐ ß«ßΓ«¿Γ ¿º ¬½ετÑó«ú« ß½«óá index, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ µÑ- ½«τ¿ß½Ñ¡¡«Ñ º¡áτÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 1 ñ« 32767. è«úñá ºáñáÑΓß∩ «»ÑαáΓ«α index, ñ½∩ φ¬ß»«αΓ¿απÑ¼«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ñ«½ª¡« ¿ß»«½∞º«óáΓ∞ß∩ ß»Ñµ¿á½∞¡«Ñ »«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ. àß½¿ ó ºá»¿ß¿ φ¬ß»«αΓá «»ÑαáΓ«α index «ΓßπΓßΓóπÑΓ, Γ« »«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ »α¿ß- óá¿óáÑΓß∩ áóΓ«¼áΓ¿τÑß¬¿. çá»¿ß∞ ¼«ªÑΓ ß«ñÑαªáΓ∞ «»ÑαáΓ«α name, ß«ßΓ«∩Θ¿⌐ ¿º ¬½ετÑó«ú« ß½«óá name, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ßΓα«¬«óá∩ ¬«¡ßΓá¡Γá. Åα¿ ¡á½¿τ¿¿ «»ÑαáΓ«αá name φ¬ß»«αΓ¿απÑ¼á∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ñ«½ª¡á φ¬ß- »«αΓ¿α«óáΓ∞ß∩ ß »«¼«Θ∞ε ºáñáóáÑ¼«ú« ßΓα«¬«ó«⌐ ¬«¡ßΓá¡Γ«⌐ ¿¼Ñ¡¿. àß½¿ «»ÑαáΓ«α name ó ºá»¿ß¿ φ¬ß»«αΓá «ΓßπΓßΓóπÑΓ, Γ« »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ φ¬ß»«αΓ¿απÑΓß∩ »« ÑÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«απ (ß¿¼ó«½δ ¬«Γ«α«ú« »αÑ«íαáºπεΓß∩ ó óÑασ¡¿⌐ αÑú¿ßΓα). ìá¬«¡Ñµ, ºá»¿ß∞ φ¬ß»«αΓá ¼«ªÑΓ ó¬½ετáΓ∞ ó ßÑí∩ ¬½ετÑó«Ñ ß½«- ó« resident. Åα¿ ºáñá¡¿¿ ¬½ετÑó«ú« ß½«óá resident ¿¡Σ«α¼áµ¿∩ «í φ¬ß»«αΓÑ «ßΓáÑΓß∩ ó »á¼∩Γ¿, »«¬á DLL ºáúαπªÑ¡á. Åáαá¼ÑΓα resident ßπΘÑßΓóÑ¡¡« π¼Ñ¡∞ΦáÑΓ óαÑ¼∩ »«¿ß¬á »«ñ»α«úαá¼¼δ ó DLL »« ¿¼Ñ¡¿. Åα«úαá¼¼á ¼«ªÑΓ ß«ñÑαªáΓ∞ «»ÑαáΓ«α exports, ¡« φΓ« óßΓαÑτá- ÑΓß∩ αÑñ¬«, Γá¬ ¬á¬ Windows ¡Ñ »«ºó«½∩ÑΓ »α¿¬½áñ¡δ¼ »α«úαá¼¼á¼ φ¬ß»«αΓ¿α«óáΓ∞ Σπ¡¬µ¿¿, ¿ß»«½∞ºπÑ¼δÑ ñαπú¿Ñ »α¿¬½áñ¡δ¼¿ »α«úαá¼- ¼á¼¿. B.Pascal 7 & Objects/LR - 189 - è«ñ ¿¡¿µ¿á½¿ºáµ¿¿ í¿í½¿«ΓÑ¬¿ ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α¡á∩ τáßΓ∞ í¿í½¿«ΓÑ¬¿ ß«ßΓ«¿Γ ¿º ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿ í¿í½¿«ΓÑ¬¿. è«ñ ¿¡¿µ¿á½¿ºáµ¿¿ óδ»«½¡∩ÑΓß∩ Γ«½∞¬« «ñ¿¡ αáº »α¿ »Ñαó«¡áτá½∞¡«⌐ ºáúαπº¬Ñ í¿í½¿«ΓÑ¬¿. è«úñá ñαπú¿Ñ »α¿¬½áñ¡δÑ »α«ú- αá¼¼δ íπñπΓ ¿ß»«½∞º«óáΓ∞ πªÑ ºáúαπªÑ¡¡πε í¿í½¿«ΓÑ¬π, ¬«ñ ¿¡¿µ¿á- ½¿ºáµ¿¿ »«óΓ«α¡« ¡Ñ óδ»«½¡∩ÑΓß∩, ¡« πóÑ½¿τ¿óáÑΓß∩ ßτÑΓτ¿¬ ¿ß»«½∞- º«óá¡¿∩ DLL. DLL σαá¡¿Γß∩ ó »á¼∩Γ¿, »«¬á ÑÑ ßτÑΓτ¿¬ ¿ß»«½∞º«óá¡¿∩ í«½∞ΦÑ ¡π½∩. è«úñá ßτÑΓτ¿¬ ¿ß»«½∞º«óá¡¿∩ ßΓá¡«ó¿Γß∩ ¡π½Ñóδ¼, π¬áºδóá∩, τΓ« óßÑ ¿ß»«½∞ºπεΘ¿Ñ DLL »α¿¬½áñ¡δÑ »α«úαá¼¼δ ºáóÑαΦ¿½¿ αáí«Γπ, «¡á πñá½∩ÑΓß∩ ¿º »á¼∩Γ¿. Åα¿ φΓ«¼ óδ»«½¡∩ÑΓß∩ ¬«ñ »α«µÑñπαδ óδσ«- ñá. Åα«µÑñπαδ óδσ«ñá αÑú¿ßΓα¿απεΓß∩ ß »«¼«Θ∞ε »ÑαÑ¼Ñ¡¡«⌐ ExitProc, ¬«Γ«αá∩ «»¿ßδóáÑΓß∩ ó â½áóÑ 22 "é«»α«ßδ π»αáó½Ñ¡¿∩". è«ñ ¿¡¿µ¿á½¿ºáµ¿¿ DLL «íδτ¡« óδ»«½¡∩ÑΓ Γá¬¿Ñ ºáñáτ¿ ¬á¬ αÑ- ú¿ßΓαáµ¿∩ ¬½áßßá «¬¡á ñ½∩ ß«ñÑαªáΘ¿σß∩ ó DLL «¬«¡¡δσ »α«µÑñπα ¿ πßΓá¡«ó¬á ¡áτá½∞¡δσ º¡áτÑ¡¿⌐ ñ½∩ ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ DLL. ôßΓá- ¡«ó¿ó ó ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡πε ExitCode, ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ í¿í½¿«ΓÑ¬¿ ¼«ªÑΓ π¬áºáΓ∞ ß«ßΓ«∩¡¿Ñ «Φ¿í¬¿ (ExitCode «»¿ßδóáÑΓß∩ ó ¼«ñπ½Ñ System). Å« π¼«½τá¡¿ε ExitCode αáó¡á 1, τΓ« π¬áºδóáÑΓ ¡á πß»ÑΦ¡πε ¿¡¿µ¿á½¿ºáµ¿ε. àß½¿ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ πßΓá¡áó½¿óáÑΓ º¡á- τÑ¡¿Ñ φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó 0, Γ« DLL óδúαπªáÑΓß∩ ¿º ß¿ßΓÑ¼¡«⌐ »á¼∩- Γ¿, ¿ óδºδóáεΘá∩ »α¿¬½áñ¡á∩ »α«úαá¼¼á πóÑñ«¼½∩ÑΓß∩ « ¡Ñπñáτ¡«⌐ ºáúαπº¬Ñ DLL. è«úñá óδ»«½¡∩ÑΓß∩ í¿í½¿«ΓÑτ¡á∩ »α«µÑñπαá óδσ«ñá, »ÑαÑ¼Ñ¡¡á∩ ExitCode ¡Ñ ß«ñÑαª¿Γ ¬«ñ ºáóÑαΦÑ¡¿∩ »α«µÑßßá. é¼ÑßΓ« φΓ«ú« ExitCode ß«ñÑαª¿Γ «ñ¡« ¿º º¡áτÑ¡¿⌐ wep_System ¿½¿ wep_Free_DLL, «»αÑñÑ½Ñ¡¡δσ ó ¼«ñπ½Ñ WinTypes. wep_System π¬áºδóáÑΓ ¡á ºáóÑαΦÑ- ¡¿Ñ αáí«Γδ Windows, á wep_Free_DLL π¬áºδóáÑΓ ¡á Γ«, τΓ« óδúαπªÑ¡á ñá¡¡á∩ DLL. Åα¿óÑñÑ¼ »α¿¼Ñα í¿í½¿«ΓÑ¬¿ ß ¬«ñ«¼ ¿¡¿µ¿á½¿ºáµ¿¿ ¿ »α«µÑñπ- α«⌐ óδσ«ñá: library Test; {$S-} uses WinTypes, WinProcs; var SaveExit: Pointer; procedure LibExit; far; begin if ExitCode = wep_System_Exit then begin . . B.Pascal 7 & Objects/LR - 190 - . { óδ»«½¡∩ÑΓß∩ ºáóÑαΦÑ¡¿Ñ αáí«Γδ ß¿ßΓÑ¼δ } . . . end else begin . . . { αáºúαπªáÑΓß∩ DLL } . . . end; ExitProcess : SaveExit; end; begin . . . { óδ»«½¡¿Γ∞ ¿¡¿µ¿á½¿ºáµ¿ε DLL } . . . SaveExit := ExitProc; { ß«σαá¡¿Γ∞ ßΓáαδ⌐ π¬áºáΓÑ½∞ »α«µÑñπαδ óδσ«ñá } ExitProc := @LibExit; { πßΓá¡«ó¬á »α«µÑñπαδ óδσ«ñá LibExit } end. é ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS »ÑαÑñáóáÑ¼«Ñ »α«µÑñπαÑ óδσ«ñá DLL º¡áτÑ¡¿Ñ ExitCode óßÑúñá αáó¡« 0 ¿ ß««ΓóÑΓßΓóπÑΓ wep_FREE_DLL. Å«ß½Ñ αáºúαπº¬¿ DLL φ¬ß»«αΓ¿απÑ¼á∩ Σπ¡¬µ¿∩ óδºδóáÑΓ »α«µÑñπ- απ WEP (»α«µÑñπαá óδσ«ñá Windows) DLL, Ñß½¿ «¡á »α¿ßπΓßΓóπÑΓ. ü¿í½¿«ΓÑ¬á Borland Pascal áóΓ«¼áΓ¿τÑß¬¿ φ¬ß»«αΓ¿απÑΓ Σπ¡¬µ¿ε WEP, ¬«Γ«αá∩ »α«ñ«½ªáÑΓ óδºδóáΓ∞ ºá»¿ßá¡¡δ⌐ ó »ÑαÑ¼Ñ¡¡«⌐ ExitProc áñ- αÑß, »«¬á ExitProc ¡Ñ »α¿¼ÑΓ º¡áτÑ¡¿∩ nil. Å«ß¬«½∞¬π φΓ«Γ ¼Ñσá- ¡¿º¼ »α«µÑñπα óδσ«ñá ß««ΓóÑΓßΓóπÑΓ αáí«ΓÑ ß »α«µÑñπαá¼¿ óδσ«ñá ó »α«úαá¼¼áσ Borland Pascal, ¿ ó »α«úαá¼¼áσ, ¿ ó í¿í½¿«ΓÑ¬áσ óδ ¼«- ªÑΓÑ ¿ß»«½∞º«óáΓ∞ «ñ¡π ¿ Γπ ªÑ ½«ú¿¬π »α«µÑñπα óδσ«ñá. Å«ß¬«½∞¬π «»Ñαáµ¿«¡¡á∩ ß¿ßΓÑ¼á »α¿ ºáóÑαΦÑ¡¿¿ DLL »ÑαÑ¬½ετá- ÑΓ ó¡πΓαÑ¡¡¿⌐ ßΓÑ¬, »α«µÑñπαδ óδσ«ñá ó DLL ñ«½ª¡δ ¬«¼»¿½¿α«óáΓ∞ß∩ ß ºá»αÑΘÑ¡¿Ñ¼ »α«óÑα¬¿ ßΓÑ¬á (ó ß«ßΓ«∩¡¿¿ {$S-}). èα«¼Ñ Γ«ú«, Ñß- ½¿ ó »α«µÑñπαÑ óδσ«ñá DLL »α«¿ßσ«ñ¿Γ «Φ¿í¬á φΓá»á óδ»«½¡Ñ¡¿∩, «»Ñαáµ¿«¡¡á∩ ß¿ßΓÑ¼á áóáα¿⌐¡« ºáóÑαΦáÑΓ αáí«Γπ, »«φΓ«¼π óδ ñ½∩ »αÑñ«ΓóαáΘÑ¡¿∩ «Φ¿í«¬ φΓá»á óδ»«½¡Ñ¡¿∩ óδ ñ«½ª¡δ ó¬½ετ¿Γ∞ ó ßó«⌐ ¬«ñ ñ«ßΓáΓ«τ¡«Ñ ¬«½¿τÑßΓó« »α«óÑα«¬. B.Pascal 7 & Objects/LR - 191 - çá¼Ñτá¡¿∩ »« »α«úαá¼¼¿α«óá¡¿ε í¿í½¿«ΓÑ¬ ───────────────────────────────────────────────────────────────── é ß½ÑñπεΘ¿σ αáºñÑ½áσ «»¿ßá¡δ ¡Ñ¬«Γ«αδÑ óáª¡δÑ ¼«¼Ñ¡Γδ, ¬«Γ«- αδÑ ß½ÑñπÑΓ ¿¼ÑΓ∞ ó ó¿ñπ »α¿ αáí«ΓÑ ß DLL. â½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ ó DLL ───────────────────────────────────────────────────────────────── DLL ¿¼ÑÑΓ ßó«⌐ ß«íßΓóÑ¡¡δ⌐ ßÑú¼Ñ¡Γ ñá¡¡δσ, ¿ ½εíá∩ «»¿ßá¡¡á∩ ó DLL »ÑαÑ¼Ñ¡¡á∩ ∩ó½∩ÑΓß∩ ½«¬á½∞¡«⌐ ñ½∩ φΓ«⌐ DLL. DLL ¡Ñ ¼«ªÑΓ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ »ÑαÑ¼Ñ¡¡δ¼, «»¿ßá¡¡δ¼ ó óδºδóáεΘ¿σ DLL ¼«ñπ½∩σ, ¿ ¡Ñ ¼«ªÑΓ φ¬ß»«αΓ¿α«óáΓ∞ »ÑαÑ¼Ñ¡¡δÑ ó ñαπú¿Ñ ¼«ñπ½¿. Æá¬«⌐ ñ«ß- Γπ» ñ«½ªÑ¡ αÑá½¿º«óδóáΓ∞ß∩ τÑαÑº »α«µÑñπα¡δ⌐ ¿¡ΓÑαΣÑ⌐ß. â½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ ¿ Σá⌐½δ ó DLL ───────────────────────────────────────────────────────────────── èá¬ »αáó¿½«, DLL ¡Ñ ∩ó½∩ÑΓß∩ "ó½áñÑ½∞µÑ¼" ¬á¬¿σ-½¿í« «Γ¬αδ- óáÑ¼δσ Ñ⌐ Σá⌐½«ó ¿½¿ »«½πτáÑ¼δσ Ñ⌐ «Γ ß¿ßΓÑ¼δ ú½«íá½∞¡δσ í½«¬«ó »á¼∩Γ¿. Æá¬¿¼¿ «íΩÑ¬Γá¼¿ ó½áñÑÑΓ (»α∩¼« ¿½¿ ¬«ßóÑ¡¡«) ßá¼á »α¿¬- ½áñ¡á∩ »α«úαá¼¼á, óδºδóáεΘá∩ DLL. è«úñá »α¿¬½áñ¡á∩ »α«úαá¼¼á ºáóÑαΦáÑΓ αáí«Γπ, ½εíδÑ «Γ¬αδΓδÑ Σá⌐½δ, ó½áñÑ½∞µÑ¼ ¬«Γ«αδσ «¡á ∩ó½∩ÑΓß∩, áóΓ«¼áΓ¿τÑß¬¿ ºá¬αδóáεΓ- ß∩, á óßÑ »α¿¡áñ½ÑªáΘ¿Ñ Ñ⌐ ú½«íá½∞¡δÑ í½«¬¿ »á¼∩Γ¿ áóΓ«¼áΓ¿τÑß¬¿ «ßó«í«ªñáεΓß∩. ¥Γ« «º¡áτáÑΓ, τΓ« «»¿ßáΓÑ½¿ ñá¡¡δσ Σá⌐½«ó ¿ í½«¬«ó »á¼∩Γ¿, ºá»¿ßá¡¡δÑ ó DLL ó ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ, ¼«úπΓ ó ½εí«Ñ óαÑ¼∩ ßΓáΓ∞ ¡Ññ«»πßΓ¿¼δ¼¿ íÑº πóÑñ«¼½Ñ¡¿∩ DLL. Å« φΓ«⌐ »α¿τ¿¡Ñ DLL ¡Ñ ß½ÑñπÑΓ »«½áúáΓ∞ß∩ ¡á ñ«»πßΓ¿¼«ßΓ∞ «»¿ßáΓÑ½∩ Σá⌐½á ¿ ú½«- íá½∞¡δσ «»¿ßáΓÑ½Ñ⌐ »á¼∩Γ¿, σαá¡∩Θ¿σß∩ ¼Ñªñπ «íαáΘÑ¡¿∩¼¿ ¬ DLL ó ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ. Æá¬¿Ñ «»¿ßáΓÑ½¿ ß½ÑñπÑΓ ßñÑ½áΓ∞ »áαá¼ÑΓαá- ¼¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ DLL, ¿ óδºδóáεΘá∩ »α¿¬½áñ¡á∩ »α«úαá¼¼á ñ«½ª¡á «ΓóÑτáΓ∞ ºá ¿σ »«ññÑαª¬π. é Windows ú½«íá½∞¡δÑ í½«¬¿ »á¼∩Γ¿, αáß»αÑñÑ½Ñ¡¡δÑ ß áΓα¿íπ- Γ«¼ gmem_DDEShare («»αÑñÑ½Ñ¡¡δÑ ó ¼«ñπ½Ñ WinTypes), »α¿¡áñ½ÑªáΓ DLL, á ¡Ñ óδºδóáεΘ¿¼ »α¿¬½áñ¡δ¼ »α«úαá¼¼á¼. Æá¬¿Ñ í½«¬¿ »á¼∩Γ¿ «ßΓáεΓß∩ αáß»αÑñÑ½Ñ¡¡δ¼¿, »«¬á «¡¿ ∩ó¡« ¡Ñ «ßó«í«ªñáεΓß∩ DLL, ¿½¿ »«¬á DLL ¡Ñ óδúαπªáÑΓß∩. Çñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¡Ñ »«ññÑαª¿óáÑΓ ß«ó¼ÑßΓ¡« ¿ß»«½∞ºπÑ¼δσ í½«¬«ó »á¼∩Γ¿ ¿ ¿ú¡«α¿απÑΓ Σ½áú gmem_DDEShare. é ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS αáß»αÑñÑ½∩Ñ¼δÑ DLL í½«¬¿ »á¼∩Γ¿ óßÑúñá »α¿¡áñ½ÑªáΓ óδºδóáεΘÑ⌐ í¿í½¿«ΓÑ¬π DLL »α«úαá¼¼Ñ. DLL ¿ ¼«ñπ½∞ System ───────────────────────────────────────────────────────────────── é »α«ñ«½ªÑ¡¿¿ ßπΘÑßΓó«óá¡¿∩ DLL »ÑαÑ¼Ñ¡¡á∩ HInstance ß«ñÑα- ª¿Γ «»¿ßáΓÑ½∞ φ¬ºÑ¼»½∩αá DLL. ÅÑαÑ¼Ñ¡¡δÑ FPrevInst ¿ CmdShow ó DLL óßÑúñá αáó¡δ 0 (¬á¬ ¿ »ÑαÑ¼Ñ¡¡á∩ PrefixSeg), »«ß¬«½∞¬π DLL ¡Ñ ¿¼ÑÑΓ »αÑΣ¿¬ßá »α«úαá¼¼¡«ú« ßÑú¼Ñ¡Γá (PSP). é »α¿¬½áñ¡«⌐ »α«úαá¼- B.Pascal 7 & Objects/LR - 192 - ¼Ñ PrefixSeg ¡¿¬«úñá ¡Ñ αáó¡á 0, »«φΓ«¼π »α«óÑα¬á PrefixSeg <> 0 ó«ºóαáΘáÑΓ True, Ñß½¿ ΓÑ¬πΘÑ¼ ¼«ñπ½Ñ¼ ∩ó½∩ÑΓß∩ »α¿¬½áñ¡á∩ »α«ú- αá¼¼á, ¿ False, Ñß½¿ ΓÑ¬πΘ¿¼ ¼«ñπ½Ñ¼ ∩ó½∩ÑΓß∩ DLL. ùΓ«íδ «íÑß»Ñτ¿Γ∞ »αáó¿½∞¡πε αáí«Γπ áñ¼¿¡¿ßΓαáΓ«αá ñ¿¡á¼¿τÑß- ¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, ß«ñÑαªáΘÑú«ß∩ ó ¼«ñπ½Ñ System, ¬«ñ ºá- »πß¬á í¿í½¿«ΓÑ¬¿ πßΓá¡áó½¿óáÑΓ »ÑαÑ¼Ñ¡¡πε HeapAllocFlags ó º¡áτÑ- ¡¿Ñ gmem_Moveable + gmem_DDEShare. é Windows φΓ« »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« óßÑ í½«¬¿ »á¼∩Γ¿, αáß»αÑñÑ½Ñ¡¡δÑ τÑαÑº »α«µÑñπαδ New ¿ GetMem, íπñπΓ »α¿¡áñ½ÑªáΓ∞ DLL, á ¡Ñ óδºδóáεΘÑ⌐ ÑÑ »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ. Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡«ßΓ¿ «í áñ¼¿¡¿ßΓαáΓ«αÑ »á¼∩Γ¿ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó â½áóÑ 21. ÄΦ¿í¬¿ φΓá»á óδ»«½¡Ñ¡¿∩ ó DLL ───────────────────────────────────────────────────────────────── àß½¿ ó DLL »α«¿ßσ«ñ¿Γ «Φ¿í¬á φΓá»á óδ»«½¡Ñ¡¿∩, óδºδóáεΘá∩ DLL »α¿¬½áñ¡á∩ »α«úαá¼¼á ºáóÑαΦáÑΓ αáí«Γπ. Åα¿ φΓ«¼ ßá¼á DLL ¡Ñ «í∩ºáΓÑ½∞¡« πñá½∩ÑΓß∩ ¿º »á¼∩Γ¿, »«ß¬«½∞¬π «¡á ¼«ªÑΓ ¿ß»«½∞º«- óáΓ∞ß∩ ñαπú¿¼¿ »α¿¬½áñ¡δ¼¿ »α«úαá¼¼á¼¿. Å«ß¬«½∞¬π DLL ¡Ñ ¼«ªÑΓ º¡áΓ∞, óδºδóáÑΓß∩ ½¿ «¡á ¿º »α¿¬½áñ- ¡«⌐ »α«úαá¼¼δ Borland Pascal ¿½¿ ¿º »α¿¬½áñ¡«⌐ »α«úαá¼¼δ, ¡á»¿- ßá¡¡«⌐ ¡á ñαπú«¼ ∩ºδ¬Ñ »α«úαá¼¼¿α«óá¡¿∩, Γ« DLL ¡Ñ ¼«ªÑΓ óδºδóáΓ∞ »α«µÑñπαδ óδσ«ñá »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ñ« ºáóÑαΦÑ¡¿∩ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. Åα¿¬½áñ¡á∩ »α«úαá¼¼á »α«ßΓ« »αÑαδóáÑΓß∩ ¿ óδúαπªáÑΓß∩ ¿º »á¼∩Γ¿. Å« φΓ«⌐ »α¿τ¿¡Ñ, τΓ«íδ Γá¬¿σ «Φ¿í«¬ ¡Ñ »α«¿ßσ«ñ¿½«, ¡πª¡« «íÑß»Ñτ¿Γ∞ ó DLL ñ«ßΓáΓ«τ¡«Ñ ¬«½¿τÑßΓó« »α«óÑα«¬. àß½¿ ó DLL »«ñ Windows »α«¿ßσ«ñ¿Γ «Φ¿í¬á φΓá»á óδ»«½¡Ñ¡¿∩, Γ« ¡áñÑª¡ÑÑ óßÑú« »«½¡«ßΓ∞ε óδ⌐Γ¿ ó Windows. àß½¿ óδ »α«ßΓ« »δΓá- ÑΓÑß∞ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ¿ »ÑαÑßΓα«¿Γ∞ ßí«⌐¡δ⌐ ¬«ñ DLL, á ºáΓÑ¼ ß¡«óá óδ»«½¡¿Γ∞ »α¿¬½áñ¡πε »α«úαá¼¼π, Windows ¡Ñ íπñÑΓ ºáúαπªáΓ∞ ¡«óπε óÑαß¿ε, Ñß½¿ «Φ¿í«τ¡á∩ óÑαß¿∩ πªÑ ¡áσ«ñ¿Γß∩ ó »á¼∩Γ∞. éδ⌐ñ¿ΓÑ ¿º Windows ¿ »ÑαÑºá»πßΓ¿ΓÑ ÑÑ, á Borland Pascal «íÑß»Ñτ¿Γ ºáúαπº¬π ¬«ααÑ¬Γ¡«⌐ óÑαß¿¿ DLL. DLL ¿ ßÑú¼Ñ¡Γδ ßΓÑ¬á ───────────────────────────────────────────────────────────────── é «Γ½¿τ¿Ñ «Γ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ DLL ¡Ñ ¿¼ÑÑΓ ßó«Ñú« ß«íß- ΓóÑ¡¡«ú« ßÑú¼Ñ¡Γá ßΓÑ¬á. é¼ÑßΓ« φΓ«ú« «¡á ¿ß»«½∞ºπÑΓ ßÑú¼Ñ¡Γ ßΓÑ- ¬á óδºδóáεΘÑ⌐ DLL »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. ¥Γ« ¼«ªÑΓ ß«ºñáΓ∞ »α«í½Ñ- ¼δ ó »«ñ»α«úαá¼¼Ñ DLL, ¬«Γ«αδÑ »«½áúáεΓ, τΓ« αÑú¿ßΓαδ DS ¿ SS ßßδ½áεΓß∩ ¡á «ñ¿¡ ¿ Γ«Γ ªÑ ßÑú¼Ñ¡Γ, ¬á¬ φΓ« ¿¼ÑÑΓ ¼ÑßΓ« ó ¼«ñπ½Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ Windows. Borland Pascal ¡¿¬«úñá ¡Ñ úÑ¡Ñα¿απÑΓ ¬«ñ, »«ñαáºπ¼ÑóáεΘ¿⌐ αáóÑ¡ßΓó« DS = SS, ¿ ó í¿í½¿«ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ Borland Pascal Γá¬¿σ »αÑñ»«½«ªÑ¡¿⌐ ¡Ñ ñÑ½áÑΓß∩. àß½¿ óδ »¿ΦÑΓÑ ¬«ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá, Γ« ¡Ñ »«½áúá⌐ΓÑß∞ ¡á Γ«, τΓ« αÑú¿ßΓαδ DS ¿ SS B.Pascal 7 & Objects/LR - 193 - ß«ñÑαªáΓ «ñ¡« ¿ Γ« ªÑ º¡áτÑ¡¿Ñ. æ«ºñá¡¿Ñ ß«ó¼ÑßΓ¡« ¿ß»«½∞ºπÑ¼δσ DLL ───────────────────────────────────────────────────────────────── Borland Pascal »«ññÑαª¿óáÑΓ DLL, ¬«Γ«αδÑ ¼«úπΓ ß«ó¼ÑßΓ¡« ¿ß- »«½∞º«óáΓ∞ß∩ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS ¿ ó Windows. æ«ó¼ÑßΓ¡« ¿ß- »«½∞ºπÑ¼δÑ DLL ß«ó¼ÑßΓ¿¼δ ¡á πα«ó¡Ñ ñó«¿τ¡«ú« ¬«ñá. ¥Γ« «º¡áτáÑΓ, τΓ« «ñ¿¡ ¿ Γ«Γ ªÑ Σá⌐½ .DLL ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ó »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¿½¿ ó »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ Windows. Åα¿ ¬«¼»¿½∩µ¿¿ ß«ó¼ÑßΓ¡« ¿ß»«½∞ºπÑ¼«⌐ DLL ó ¬áτÑßΓóÑ µÑ½Ñó«⌐ »½áΓΣ«α¼δ ¡πª¡« óδí¿αáΓ∞ Windows: * é IDE óδíÑα¿ΓÑ ¬«¼á¡ñπ Compile│Target ¿ ó ñ¿á½«ú«ó«¼ «¬¡Ñ Target (ûÑ½Ñóá∩ »½áΓΣ«α¼á) π¬áª¿ΓÑ Windows. * Åα¿ ¿ß»«½∞º«óá¡¿¿ ¬«¼»¿½∩Γ«αá, αáí«ΓáεΘÑú« ó αÑª¿¼Ñ ¬«- ¼á¡ñ¡«⌐ ßΓα«¬¿, ñ½∩ óδí«αá ó ¬áτÑßΓóÑ µÑ½Ñó«⌐ »½áΓΣ«α¼δ Windows ¿ß»«½∞ºπ⌐ΓÑ »ÑαÑ¬½ετáΓÑ½∞ /CW. DLL, ß¬«¼»¿½¿α«óá¡¡á∩ ñ½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS, »«ñ Windows ¿ß»«½∞º«óáΓ∞ß∩ ¡Ñ ¼«ªÑΓ, Γá¬ ¬á¬ í¿í½¿«ΓÑ¬á ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¿ß»«½∞ºπÑΓ «ΓñÑ½∞¡δÑ Σπ¡¬µ¿«¡á½∞- ¡δÑ óδº«óδ DOS ¿ DPMI, ¬«Γ«αδÑ ß½ÑñπÑΓ ¿ºíÑúáΓ∞ ó Windows. æ«ó¼ÑßΓ¡« ¿ß»«½∞ºπÑ¼á∩ DLL ¼«ªÑΓ óºá¿¼«ñÑ⌐ßΓó«óáΓ∞ ß «»Ñαá- µ¿«¡¡«⌐ ß¿ßΓÑ¼«⌐ (DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼Ñ ¿½¿ Windows) Γ«½∞¬« τÑ- αÑº ¼«ñπ½∞ WinAPI. ¥Γ«Γ ¼«ñπ½∞ »αÑñßΓáó½∩ÑΓ Σπ¡¬µ¿¿, «íΘ¿Ñ ñ½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¿ Windows. äαπú¿Ñ ¿¡ΓÑαΣÑ⌐ß¡δÑ ¼«ñπ½¿ Windows, Γá¬¿Ñ ¬á¬ WinTypes ¿ WinProcs, «»¿ßδóáεΓ í«½∞Φ«Ñ τ¿ß½« »«ñ»α«úαá¼¼ API, ¡Ñ »«ññÑαª¿óáÑ¼δσ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS. Åα¿¼Ñτá¡¿Ñ: Ä ¼«ñπ½Ñ WinAPI αáßß¬áºδóáÑΓß∩ ó â½áóÑ 17 "Åα«úαá¼¼¿α«óá¡¿Ñ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS". éáª¡« «Γ¼ÑΓ¿Γ∞, τΓ« σ«Γ∩ ß«ó¼ÑßΓ¡« ¿ß»«½∞ºπÑ¼á∩ DLL ¼«ªÑΓ óδ»«½¡∩Γ∞ß∩ «ñ¡«óαÑ¼Ñ¡¡« ¿ »«ñ Windows, ó «¬¡Ñ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á Windows DOS, ßó∩º∞ τÑαÑº DLL ¼Ñªñπ ñóπ¼∩ «»Ñαáµ¿«¡¡δ¼¿ ßαÑñá¼¿ ¡Ñó«º¼«ª¡á. ÉÑá½∞¡« ó ß¿ßΓÑ¼Ñ íπñÑΓ »α¿ßπΓßΓó«óáΓ∞ ñóÑ ¬«»¿¿ DLL, ¬áªñá∩ ¿º ¬«Γ«αδσ ºáΘ¿ΘÑ¡á «Γ ñαπú«⌐ ¿ ¿ß»«½∞ºπÑΓ »«½¡«ßΓ∞ε ¿º«- ½¿α«óá¡¡πε «í½áßΓ∞ »á¼∩Γ¿. B.Pascal 7 & Objects/LR - 194 - ─────────────────────────────────────────────────────────────────────── ùáßΓ∞ II. â½áóá 12. ü¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ───────────────────────────────────────────────────────────────── Borland Pascal ó¬½ετáÑΓ ó ßÑí∩ í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ- ¼δ ñ½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS, αÑá½∞¡«ú« αÑª¿¼á DOS ¿ Windows. ìá¿í«½ÑÑ τáßΓ« ¿ß»«½∞ºπÑ¼δÑ í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ¡áσ«- ñ∩Γß∩ ó Σá⌐½áσ TURBO.TPL (αÑá½∞¡δ⌐ αÑª¿¼ DOS), TPP.TPL (ºáΘ¿ΘÑ¡- ¡δ⌐ αÑª¿¼ DOS) ¿ TPW.TPL (Windows). ä«»«½¡¿ΓÑ½∞¡δÑ ¼«ñπ½¿ »«ßΓáó- ½∩εΓß∩ ó «ΓñÑ½∞¡δσ Σá⌐½áσ .TPU, .TPP ¿ .TPW. * ä½∩ αÑá½∞¡«ú« αÑª¿¼á DOS í¿í½¿«ΓÑ¬á TURBO.TPL ß«ñÑαª¿Γ ¼«- ñπ½¿ System, Overlay, Crt, Dos ¿ Printer. èα«¼Ñ Γ«ú«, ó «ΓñÑ½∞¡δσ Σá⌐½áσ .TPU »«ßΓáó½∩εΓß∩ ¼«ñπ½¿ Graph, Strings, WinDos, Turbo3 ¿ Graph3. * ä½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS í¿í½¿«ΓÑ¬á TPP.TPL ß«ñÑαª¿Γ ¼«- ñπ½¿ System, Crt, Dos, Printer, Strings, WinDos ¿ WinAPI. èα«¼Ñ Γ«ú«, ó ó¿ñÑ «ΓñÑ½∞¡«ú« Σá⌐½á .TPP »«ßΓáó½∩ÑΓß∩ ¼«- ñπ½∞ Graph. * ä½∩ Windows í¿í½¿«ΓÑ¬á TPW.TPL ß«ñÑαª¿Γ ¼«ñπ½¿ System, Strings, WinTypes, WinProcs, Win31, WinAPI, WinDos, WinCrt ¿ WinPrn. é ó¿ñÑ ¿ßσ«ñ¡«ú« ¬«ñá »«ßΓáó½∩εΓß∩ ¡Ñ¬«Γ«αδÑ ñ«- »«½¡¿ΓÑ½∞¡δÑ ¼«ñπ½¿ Windows. èα«¼Ñ í¿í½¿«ΓÑ¬ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ, Borland Pascal ó¬½ετáÑΓ ó ßÑí∩ »α¿¬½áñ¡πε ßαÑñπ Turbo Vision ñ½∩ αÑá½∞¡«ú« ¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¿ »α¿¬½áñ¡πε ßαÑñπ ObjectWindows ñ½∩ Windows. ¥Γ¿ í¿í- ½¿«ΓÑ¬¿ «»¿ßá¡δ ó "Éπ¬«ó«ñßΓóÑ »« »α«úαá¼¼¿α«óá¡¿ε ß Turbo Vision" ¿ ó "Éπ¬«ó«ñßΓóÑ »« »α«úαá¼¼¿α«óá¡¿ε ß ¿ß»«½∞º«óá¡¿Ñ¼ ObjectWindows". é ñá¡¡«⌐ ú½áóÑ ¬αáΓ¬« «»¿ßδóáÑΓß∩ ¬áªñδ⌐ ¼«ñπ½∞ í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ. î«ñπ½¿ Borland Pascal ───────────────────────────────────────────────────────────────── Borland Pascal «íÑß»Ñτ¿óáÑΓ óá¼ ñ«ßΓπ» ¬ í«½∞Φ«¼π τ¿ß½π óßΓα«Ñ¡¡δσ ¬«¡ßΓá¡Γ, Γ¿»«ó ñá¡¡δσ, »ÑαÑ¼Ñ¡¡δσ, »α«µÑñπα ¿ Σπ¡¬- µ¿⌐. ìÑ¬«Γ«αδÑ ¿º ¡¿σ ß»Ñµ¿Σ¿τ¡δ ñ½∩ Borland Pascal, ñαπú¿Ñ ß»Ñ- µ¿Σ¿τ¡δ ñ½∩ »α«úαá¼¼¿α«óá¡¿∩ »α¿¬½áñ¡δσ ºáñáτ ñ½∩ Windows ¿½¿ Dos. êσ ¬«½¿τÑßΓó« óÑ½¿¬«, «ñ¡á¬«, ó ßó«Ñ⌐ »α«úαá¼¼Ñ óδ αÑñ¬« ¿ß- »«½∞ºπÑΓÑ ¿σ óßÑ ßαáºπ. Å«φΓ«¼π «¡¿ αáºñÑ½Ñ¡δ ¡á ßó∩ºá¡¡δÑ úαπ»- »δ, ¡áºδóáÑ¼δÑ ¼«ñπ½∩¼¿. é φΓ«¼ ß½πτáÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Γ«½∞¬« ΓÑ ¼«ñπ½¿, ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼δ ó »α«úαá¼¼Ñ. Åα«úαá¼¼¡δ⌐ ¼«ñπ½∞ (unit) »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡áí«α ¬«¡ßΓá¡Γ, Γ¿»«ó ñá¡¡δσ, »ÑαÑ¼Ñ¡¡δσ, »α«µÑñπα ¿ Σπ¡¬µ¿⌐. èáªñδ⌐ ¼«ñπ½∞ á¡á- ½«ú¿τÑ¡ «ΓñÑ½∞¡«⌐ »α«úαá¼¼Ñ ¡á Åáß¬á½Ñ: «¡ ¼«ªÑΓ ¿¼ÑΓ∞ «ß¡«ó¡«Ñ ΓÑ½«, ¬«Γ«α«Ñ óδºδóáÑΓß∩ »ÑαÑñ ºá»πß¬«¼ óáΦÑ⌐ »α«úαá¼¼δ ¿ «ßπ- ΘÑßΓó½∩ÑΓ ¡Ñ«íσ«ñ¿¼πε ¿¡¿µ¿á½¿ºáµ¿ε. è«α«τÑ ú«ó«α∩, ¼«ñπ½∞ »αÑñß- Γáó½∩ÑΓ ß«í«⌐ í¿í½¿«ΓÑ¬π «»¿ßá¡¿⌐, ¬«Γ«απε ¼«ª¡« óßΓáó¿Γ∞ ó »α«ú- B.Pascal 7 & Objects/LR - 195 - αá¼¼π ¿ ¬«Γ«αá∩ »«ºó«½¿Γ αáºí¿Γ∞ »α«úαá¼¼π ¡á τáßΓ¿, ¬«¼»¿½¿απÑ- ¼δÑ «ΓñÑ½∞¡«. î«ñπ½∞ «íÑß»Ñτ¿óáÑΓ ¡áí«α ßαÑñßΓó í½áú«ñáα∩ óσ«ñ∩Θ¿¼ ó ¡Ñú« »α«µÑñπαá¼ ¿ Σπ¡¬µ¿∩¼ »α¿ »«ññÑαª¬Ñ ¬«¡ßΓá¡Γ, Γ¿»«ó ñá¡¡δσ ¿ »Ñ- αÑ¼Ñ¡¡δσ, «ñ¡á¬« ñÑ⌐ßΓó¿ΓÑ½∞¡á∩ αÑá½¿ºáµ¿∩ φΓ¿σ ßαÑñßΓó ß¬αδΓá ó ß¿½π Γ«ú«, τΓ« ¼«ñπ½∞ αáºñÑ½Ñ¡ ¡á ñóÑ τáßΓ¿: ¿¡ΓÑαΣÑ⌐ß ¿ αÑá½¿ºá- µ¿ε. àß½¿ »α«úαá¼¼á ¿ß»«½∞ºπÑΓ ¼«ñπ½∞, Γ« óßÑ «»¿ßá¡¿∩ ¼«ñπ½∩ ßΓá¡«ó∩Γß∩ ñ«ßΓπ»¡δ¼¿ φΓ«⌐ »α«úαá¼¼Ñ, ¬á¬ Ñß½¿ íδ «¡¿ íδ½¿ «»αÑ- ñÑ½Ñ¡δ ó ¡Ñ⌐ ßá¼«⌐. æΓαπ¬Γπαá ¼«ñπ½∩ á¡á½«ú¿τ¡á ßΓαπ¬ΓπαÑ »α«úαá¼¼δ. éßÑ «»¿ßá- ¡¿∩ ó¡πΓα¿ ¼«ñπ½∩ ßó∩ºá¡δ ñαπú ß ñαπú«¼. ìá»α¿¼Ñα, ¼«ñπ½∞ Strings ß«ñÑαª¿Γ óßÑ «»¿ßá¡¿∩, ¡Ñ«íσ«ñ¿¼δÑ ñ½∩ »«ñ»α«úαá¼¼ «íαáí«Γ¬¿ ßΓα«¬, ºá¬á¡τ¿óáεΘ¿σß∩ ¡π½Ñóδ¼ ß¿¼ó«½«¼. î«ñπ½∞ System ───────────────────────────────────────────────────────────────── î«ñπ½∞ System αÑá½¿ºπÑΓ »«ññÑαª¿óáεΘ¿Ñ »«ñ»α«úαá¼¼δ ¡¿ª¡Ñú« πα«ó¡∩ ñ½∩ óßÑσ óßΓα«Ñ¡¡δσ ßαÑñßΓó, Γá¬¿σ ¬á¬ óó«ñ-óδó«ñ, αáí«Γá ß« ßΓα«¬á¼¿, «»Ñαáµ¿¿ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ¿ ñ¿¡á¼¿τÑß¬«Ñ αáß»αÑñÑ- ½Ñ¡¿Ñ »á¼∩Γ¿. î«ñπ½∞ System ß«ñÑαª¿Γ óßÑ ßΓá¡ñáαΓ¡δÑ ¿ óßΓα«Ñ¡¡δÑ »α«µÑñπ- αδ ¿ Σπ¡¬µ¿¿ Borland Pascal. ïεíá∩ »«ñ»α«úαá¼¼á Borland Pascal, ¡Ñ ∩ó½∩εΘá∩ß∩ τáßΓ∞ε ßΓá¡ñáαΓ¡«ú« Åáß¬á½∩ ¿ ¡Ñ ¡áσ«ñ∩Θá∩ß∩ ¡¿ ó ¬á¬«¼ ñαπú«¼ ¼«ñπ½Ñ, ß«ñÑαª¿Γß∩ ó ¼«ñπ½Ñ System. ¥Γ«Γ ¼«ñπ½∞ áó- Γ«¼áΓ¿τÑß¬¿ ¿ß»«½∞ºπÑΓß∩ ó« óßÑσ »α«úαá¼¼áσ, ¿ Ñú« ¡Ñ ΓαÑíπÑΓß∩ π¬áºδóáΓ∞ ó «»ÑαáΓ«αÑ uses. î«ñπ½∞ Dos ¿ WinDos ───────────────────────────────────────────────────────────────── î«ñπ½¿ Dos ¿ WinDos αÑá½¿ºπεΓ ¼¡«ú«τ¿ß½Ñ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ Åáß¬á½∩, ¬«Γ«αδÑ φ¬ó¿óá½Ñ¡Γ¡δ ¡á¿í«½ÑÑ τáßΓ« ¿ß»«½∞ºπÑ¼δ¼ óδº«óá¼ DOS, ¬á¬ ¡á»α¿¼Ñα, GetÆime, SetÆime, DiskSize ¿ Γá¬ ñá- ½ÑÑ. èα«¼Ñ Γ«ú«, WinDos «»αÑñÑ½∩ÑΓ ñóÑ »α«úαá¼¼δ ¡¿º¬«ú« πα«ó¡∩ îsDos ¿ Intr, ¬«Γ«αδÑ »«ºó«½∩εΓ á¬Γ¿ó¿º¿α«óáΓ∞ ½εí«⌐ óδº«ó MS-DOS ¿½¿ ß¿ßΓÑ¼¡«Ñ »αÑαδóá¡¿Ñ. Æ¿» Registers »αÑñßΓáó½∩ÑΓ ß«í«⌐ Γ¿» ñá¡¡δσ ñ½∩ »áαá¼ÑΓαá ó îsDos ¿ Intr. èα«¼Ñ Γ«ú«, «»αÑñÑ½∩εΓß∩ ¡Ñ- ¬«Γ«αδÑ ñαπú¿Ñ ¬«¡ßΓá¡Γδ ¿ Γ¿»δ ñá¡¡δσ. ì¿ «ñ¡á ¿º φΓ¿σ »«ñ»α«ú- αá¼¼ ¡Ñ «»αÑñÑ½Ñ¡á ó ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ, »«φΓ«¼π «¡¿ »«¼ÑΘÑ¡δ ó ßó«¿ ß«íßΓóÑ¡¡δÑ ¼«ñπ½¿. Å«ñα«í¡ÑÑ ¼«ñπ½¿ WinDos ¿ Dos «»¿ßδóáεΓ- ß∩ ó â½áóÑ 16 "ê¡ΓÑαΣÑ⌐ß ß DOS". î«ñπ½∞ Crt ───────────────────────────────────────────────────────────────── î«ñπ½∞ Crt αÑá½¿ºπÑΓ α∩ñ ¼«Θ¡δσ »α«úαá¼¼, »αÑñ«ßΓáó½∩εΘ¿σ B.Pascal 7 & Objects/LR - 196 - óá¼ »«½¡πε ó«º¼«ª¡«ßΓ∞ π»αáó½Ñ¡¿∩ ßαÑñßΓóá¼¿ ¬«¼»∞εΓÑαá Éæ, Γá¬¿- ¼¿, ¬á¬ π»αáó½Ñ¡¿Ñ αÑª¿¼«¼ φ¬αá¡á, αáßΦ¿αÑ¡¡δÑ ¬«ñδ ¬½áó¿áΓπαδ, µóÑΓá, «¬¡á, ¿ ºóπ¬«óδÑ ß¿ú¡á½δ. î«ñπ½∞ Crt ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ Γ«½∞¬« ó »α«úαá¼¼áσ, αáí«ΓáεΘ¿σ ¡á »Ñαß«¡á½∞¡δσ ¬«¼»∞εΓÑαáσ IBM Éæ, Éæ AT, ÉS/2 Σ¿α¼δ IBM ¿ »«½¡«ßΓ∞ε ß«ó¼ÑßΓ¿¼δσ ß ¡¿¼¿. Äñ¡¿¼ ¿º «ß¡«ó¡δσ »αÑ¿¼πΘÑßΓó ¿ß»«½∞º«óá¡¿∩ ¼«ñπ½∩ Crt ∩ó½∩- ÑΓß∩ í«½∞Φá∩ ß¬«α«ßΓ∞ ¿ ú¿í¬«ßΓ∞ »α¿ óδ»«½¡Ñ¡¿¿ «»Ñαáµ¿⌐ αáí«Γδ ß φ¬αá¡«¼. Åα«úαá¼¼δ, ¡Ñ αáí«ΓáεΘ¿Ñ ß ¼«ñπ½Ñ¼ Crt, óδó«ñ∩Γ ¡á φ¬αá¡ ¿¡Σ«α¼áµ¿ε ß »«¼«Θ∞ε ßαÑñßΓó «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼δ DOS, τΓ« ßó∩ºá- ¡« ß ñ«»«½¡¿ΓÑ½∞¡δ¼¿ ¡Ñ»α«¿ºó«ñ¿ΓÑ½∞¡δ¼¿ ºáΓαáΓá¼¿. Åα¿ ¿ß»«½∞º«- óá¡¿¿ ¼«ñπ½∩ Crt óδó«ñ¿¼á∩ ¿¡Σ«α¼áµ¿∩ »«ßδ½áÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó íáº«óπε ß¿ßΓÑ¼π óó«ñá-óδó«ñá (éIÄS), ¿½¿, ñ½∩ ÑΘÑ í«½ÑÑ íδßΓαδσ «»Ñαáµ¿⌐, ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ó¿ñÑ«»á¼∩Γ∞. Ä ¼«ñπ½Ñ Crt αáßß¬áºδóáÑΓ ó â½áóÑ 14 "éó«ñ ¿ óδó«ñ". î«ñπ½∞ WinCrt ───────────────────────────────────────────────────────────────── î«ñπ½∞ WinCrt - φΓ« ñpá⌐óÑp πßΓp«⌐ßΓóá ΓÑ¬ßΓ«óδσ Σá⌐½«ó, ¬«- Γ«pδ⌐ »ÑpÑ«»pÑñÑ½∩ÑΓ óδó«ñ ó »p«¬pπτ¿óáÑ¼«Ñ «¬¡«. ò«Γ∩ í«½∞Φá∩ τáßΓ∞ óáΦ¿σ »p«úpá¼¼ ñ½∩ Windows, ¬á¬ »páó¿½«, íπñÑΓ ß«ºñáóáΓ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ «¬¡á, ¼«ñπ½∞ WinCrt ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ íδßΓαδσ ¿ »α«ßΓδσ »α«úαá¼¼, íáº¿απεΘ¿σß∩ ¡á ΓÑ¬ßΓáσ, ¬«úñá óá¼ ¡πª¡« íδßΓα« »«½πτ¿Γ∞ αÑºπ½∞ΓáΓδ. î«ñπ½∞ WinCrt «»¿ßδóáÑΓß∩ ó ú½áóÑ 14 "éó«ñ ¿ óδó«ñ". î«ñπ½∞ Printer ───────────────────────────────────────────────────────────────── î«ñπ½∞ Printer »«ºó«½∩ÑΓ óá¼ »«ßδ½áΓ∞ ßΓá¡ñáαΓ¡δ⌐ óδó«ñ Åáß- ¬á½∩ ¡á »α¿¡ΓÑα, ¿ß»«½∞ºπ∩ »α«µÑñπαδ Write ¿ WriteLn. Å«ñα«í¡ÑÑ «¡ «»¿ßδóáÑΓß∩ ó ú½áóÑ 14 "éó«ñ ¿ óδó«ñ". î«ñπ½∞ WinPrn ───────────────────────────────────────────────────────────────── î«ñπ½∞ WinPrn »«ºó«½∩ÑΓ óá¼ »«ßδ½áΓ∞ ßó«Ñ⌐ óáΦÑ⌐ »α«úαá¼¼δ Windows ¡á »α¿¡ΓÑα »« óáΦÑ¼π óδí«απ. Å«ñα«í¡ÑÑ «¡ «»¿ßδóáÑΓß∩ ó ú½áóÑ 14 "éó«ñ ¿ óδó«ñ". î«ñπ½∞ Overlay ───────────────────────────────────────────────────────────────── î«ñπ½∞ Overlay »«ºó«½∩ÑΓ óá¼ π¼Ñ¡∞Φ¿Γ∞ ΓαÑí«óá¡¿∩ ¬ »á¼∩Γ¿ »α«úαá¼¼δ DOS αÑá½∞¡«ú« αÑª¿¼á. öá¬Γ¿τÑß¬¿, óδ ¼«ªÑΓÑ »¿ßáΓ∞ »α«úαá¼¼δ, »αÑóδΦáεΘ¿Ñ «íΘ¿⌐ «íΩÑ¼ ñ«ßΓπ»¡«⌐ »á¼∩Γ¿, »«ß¬«½∞¬π ó ¬áªñδ⌐ ¼«¼Ñ¡Γ ó »á¼∩Γ¿ íπñÑΓ ¡áσ«ñ¿Γ∞ß∩ Γ«½∞¬« τáßΓ∞ óáΦÑ⌐ »α«ú- B.Pascal 7 & Objects/LR - 197 - αá¼¼δ. Å«ñα«í¡« ñá¡¡δ⌐ ¼«ñπ½∞ «»¿ßá¡ ó â½áóÑ 20 "êß»«½∞º«óá¡¿Ñ «óÑα½ÑÑó". î«ñπ½∞ Strings ───────────────────────────────────────────────────────────────── î«ñπ½∞ Strings «íÑß»Ñτ¿óáÑΓ «íαáí«Γ¬π ¡«óδσ ßΓα«¬, ºá¬á¡τ¿- óáεΘ¿σß∩ »πßΓδ¼ ß¿¼ó«½«¼. æΓα«¬¿, ßΓá¡ñáαΓ¡δÑ ñ½∩ Åáß¬á½∩, «íαáíáΓδóáεΓß∩ ¼«ñπ½Ñ¼ System. Å«ñα«í¡ÑÑ ¼«ñπ½∞ Strings «»¿ßδóá- ÑΓß∩ ó â½áóÑ 18 "êß»«½∞º«óá¡¿Ñ ßΓα«¬ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼". î«ñπ½∞ Graph ───────────────────────────────────────────────────────────────── î«ñπ½∞ Graph «íÑß»Ñτ¿óáÑΓ α∩ñ íδßΓαδσ ¿ ¼«Θ¡δσ úαáΣ¿τÑß¬¿σ »«ñ»α«úαá¼¼. Ä¡ αÑá½¿ºπÑΓ ¡Ñºáó¿ß¿¼δ⌐ «Γ πßΓα«⌐ßΓó úαáΣ¿τÑß¬¿⌐ ñαá⌐óÑα Borland, »«ññÑαª¿óáεΘ¿⌐ úαáΣ¿¬π CGA, EGA, VGA, Hercules, AT&T 400, MCGA, 3270PC ¿ 8514. î«ñπ½∞ Graph ¡Ñ óßΓα«Ñ¡ ó TURBO.TPL, «¡ ¡áσ«ñ¿Γß∩ ¡á Γ«¼ ªÑ ñ¿ß¬Ñ, τΓ« ¿ Σá⌐½δ .BGI (úαáΣ¿- τÑß¬¿⌐ ¿¡ΓÑαΣÑ⌐ß Borland) ¿ .CHR (Φα¿ΣΓδ). Å«ñα«í¡ÑÑ « ¼«ñπ½Ñ Graph αáßß¬áºδóáÑΓß∩ ó â½áóÑ 19 "êß»«½∞- º«óá¡¿Ñ úαáΣ¿τÑß¬«ú« ¿¡ΓÑαΣÑ⌐ßá Borland". î«ñπ½¿ Turbo3 ¿ Graph3 ───────────────────────────────────────────────────────────────── î«ñπ½¿ Turbo3 ¿ Graph3 »αÑñπß¼«ΓαÑ¡δ Γ«½∞¬« ñ½∩ «íαáΓ¡«⌐ ß«ó¼ÑßΓ¿¼«ßΓ¿. Turbo3 ß«ñÑαª¿Γ ñóÑ »ÑαÑ¼Ñ¡¡δÑ ¿ ¡Ñß¬«½∞¬« »α«µÑ- ñπα, ¬«Γ«αδÑ í«½∞ΦÑ ¡Ñ »«ññÑαª¿óáεΓß∩ Borland Pascal. Graph3 ß«- ñÑαª¿Γ »«½¡δ⌐ ¡áí«α úαáΣ¿τÑß¬¿σ »«ñ»α«úαá¼¼ óÑαß¿¿ 3.0 - «ß¡«ó- ¡δσ, »α«ñó¿¡πΓδσ, ¿ ¿ß»«½∞ºπεΘ¿σ úαáΣ¿¬π ó «Γ¡«ß¿ΓÑ½∞¡δσ ¬«¼á¡- ñáσ. ê¡Σ«α¼áµ¿ε «í φΓ¿σ Σá⌐½áσ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó Σá⌐½Ñ TURBO3.INT. î«ñπ½¿ WinTypes ¿ WinProcs ───────────────────────────────────────────────────────────────── î«ñπ½∞ WinTypes ß«ñÑαª¿Γ óßÑ ¬«¡ßΓá¡Γδ, ßΓαπ¬Γπαδ ñá¡¡δσ ¿ ßΓ¿½¿, ¿ß»«½∞ºπÑ¼δÑ ó »α¿¬½áñ¡«¼ »α«úαá¼¼¡«¼ ¿¡ΓÑαΣÑ⌐ßÑ Windows. î«ñπ½∞ WinTypes »«ñα«í¡« «»¿ßδóáÑΓß∩ ó ß»αáó«τ¡«⌐ ß¿ßΓÑ¼Ñ Borland Pascal. î«ñπ½∞ WinProcs ß«ñÑαª¿Γ óßÑ Σπ¡¬µ¿¿ ¿ »α«µÑñπαδ, ß«ßΓáó½∩ε- Θ¿Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼¡δ⌐ ¿¡ΓÑαΣÑ⌐ß Windows. î«ñπ½∞ WinProcs Γá¬ªÑ »«ñα«í¡« «»¿ßδóáÑΓß∩ ó ß»αáó«τ¡«⌐ ß¿ßΓÑ¼Ñ. æ«ó¼ÑßΓ¡« φΓ¿ ¼«ñπ½¿ «íαáºπεΓ »α¿¬½áñ¡«⌐ »α«úαá¼¼¡δ⌐ ¿¡ΓÑα- ΣÑ⌐ß Windows (API). B.Pascal 7 & Objects/LR - 198 - î«ñπ½∞ Win31 ───────────────────────────────────────────────────────────────── î«ñπ½∞ Win31 «íÑß»Ñτ¿óáÑΓ ¿¡ΓÑαΣÑ⌐ß ß ñ«»«½¡¿ΓÑ½∞¡δ¼¿ »«ñ»- α«úαá¼¼á¼¿ API, ¬«Γ«αδÑ ¼«ª¡« ¡á⌐Γ¿ ó Windows 3.1. Åα¿¬½áñ¡δÑ »α«úαá¼¼δ, ¿ß»«½∞ºπεΘ¿Ñ Win31, ¡Ñ αáí«ΓáεΓ »«ñ Windows 3.0. î«ñπ½∞ WinAPI ───────────────────────────────────────────────────────────────── î«ñπ½∞ WinAPI «»αÑñÑ½∩ÑΓ »«ñ¼¡«ªÑßΓó« »«ñ»α«úαá¼¼ API Windows, »«ññÑαª¿óáÑ¼δσ ¿ ó Windows, ¿ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS. Å«ñα«í¡ÑÑ «í φΓ«¼ ¼«ñπ½Ñ αáßß¬áºδóáÑΓß∩ ó â½áóÑ 17 "Åα«úαá¼¼¿α«- óá¡¿Ñ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS". î«ñπ½¿, »«ññÑαª¿óáεΘ¿Ñ Windows 3.1 ───────────────────────────────────────────────────────────────── Borland Pascal »«ññÑαª¿óáÑΓ API Windows 3.1 ó ß½ÑñπεΘ¿σ ¼«- ñπ½∩σ: ColorDlg LZExpand ShellAPI CommDlg MMSystem Stress Cpl OLE ToolHelp DDEML PenWin Ver Dlgs Print WinMem32 B.Pascal 7 & Objects/LR - 199 - ─────────────────────────────────────────────────────────────────────── â½áóá 13. æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── é ñá¡¡«⌐ ú½áóÑ ¬αáΓ¬« «»¿ßδóáεΓß∩ ßΓá¡ñáαΓ¡δÑ (óßΓα«Ñ¡¡δÑ) »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ Borland Pascal ¿ »αÑñ«»¿ßá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ, «»αÑñÑ½Ñ¡¡δÑ ó ¼«ñπ½Ñ System. ü«½ÑÑ »«ñα«í¡πε ¿¡Σ«α¼áµ¿ε « ¬«¡¬- αÑΓ¡«⌐ »α«µÑñπαÑ, Σπ¡¬µ¿¿ ¿½¿ »αÑñ«»¿ßá¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") ó "Éπ¬«ó«ñßΓóÑ »α«ú- αá¼¼¿ßΓá". æΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ∩ó½∩εΓß∩ »αÑñ«»¿ßá¡¡δ¼¿. Æá¬ ¬á¬ ºá»¿ß¿ ß ¿σ »αÑñóáα¿ΓÑ½∞¡δ¼¿ «»¿ßá¡¿∩¼¿ ñÑ⌐ßΓóπεΓ Γ«τ¡« Γá¬- ªÑ, ¬á¬ Ñß½¿ íδ «¡¿ íδ½¿ «»¿ßá¡δ ó «¬απªáεΘÑ¼ »α«úαá¼¼π ¼«ñπ½Ñ, »α¿ «»¿ßá¡¿¿, »ÑαÑ«»αÑñÑ½∩εΘÑ¼ Γ«Γ ªÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ó¡πΓα¿ »α«ú- αá¼¼δ ¬«¡Σ½¿¬Γá ¡Ñ ó«º¡¿¬áÑΓ. Åα¿¼Ñτá¡¿Ñ: Ä ñαπú¿σ »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ óδ ¼«ªÑΓÑ »α«τÑßΓ∞ ó â½áóÑ 14 "éó«ñ ¿ óδó«ñ". é ñá¡¡«⌐ ú½áóÑ «ßóÑΘáεΓß∩ ß½ÑñπεΘ¿Ñ ΓÑ¼δ: - Åα«µÑñπαδ π»αáó½Ñ¡¿∩ »α«úαá¼¼«⌐. - öπ¡¬µ¿¿ »αÑ«íαáº«óá¡¿∩. - Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ Σπ¡¬µ¿¿. - Å«α∩ñ¬«óδÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. - æΓα«¬«óδÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿. - Åα«τ¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. - ÅαÑñ«»¿ßá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ System. B.Pascal 7 & Objects/LR - 200 - Åα«µÑñπαδ π»αáó½Ñ¡¿∩ αáí«Γ«⌐ »α«úαá¼¼δ ───────────────────────────────────────────────────────────────── Åα«µÑñπαδ π»αáó½Ñ¡¿∩ αáí«Γ«⌐ »α«úαá¼¼δ - φΓ« »α«µÑñπαδ, π»- αáó½∩εΘ¿Ñ ½«ú¿¬«⌐ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. ┌───────────────────┬───────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├───────────────────┼───────────────────────────────────────────┤ │ Break │ çáóÑαΦáÑΓ «»ÑαáΓ«α for, while ¿½¿ repeat. │ ├───────────────────┼───────────────────────────────────────────┤ │ Continue │ Åα«ñ«½ªáÑΓ ¿ΓÑαáµ¿ε «»ÑαáΓ«αá for, while,│ │ │ ¿½¿ repeat. │ ├───────────────────┼───────────────────────────────────────────┤ │ Eσit │ Å«ºó«½∩ÑΓ ¡Ñ¼Ññ½Ñ¡¡« óδ⌐Γ¿ ¿º ΓÑ¬πΘÑú« ¼«-│ │ │ ñπ½∩. │ ├───────────────────┼───────────────────────────────────────────┤ │ ìált │ ÄßΓá¡áó½¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿ ó«ºó-│ │ │ αáΘáÑΓ π»αáó½Ñ¡¿Ñ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ. │ ├───────────────────┼───────────────────────────────────────────┤ │ RunError │ ÄßΓá¡áó½¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿ úÑ¡Ñ-│ │ │ α¿απÑΓ «Φ¿í¬π φΓá»á óδ»«½¡Ñ¡¿∩. │ └───────────────────┴───────────────────────────────────────────┘ öπ¡¬µ¿¿ »αÑ«íαáº«óá¡¿∩ ───────────────────────────────────────────────────────────────── ì¿ªÑ »ÑαÑτ¿ß½Ñ¡δ Σπ¡¬µ¿¿ »αÑ«íαáº«óá¡¿∩. ┌──────────────────┬────────────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ Chr │ é«ºóαáΘáÑΓ ß¿¼ó«½, ºáñá¡¡δ⌐ µÑ½δ¼ τ¿ß½«¼. │ ├──────────────────┼────────────────────────────────────────────┤ │ High │ é«ºóαáΘáÑΓ ßΓáαΦÑÑ º¡áτÑ¡¿Ñ ó ñ¿á»áº«¡Ñ áα-│ │ │ úπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Low │ é«ºóαáΘáÑΓ ¼½áñΦÑÑ º¡áτÑ¡¿Ñ ó ñ¿á»áº«¡Ñ áα-│ │ │ úπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Ärd │ é«ºóαáΘáÑΓ »«α∩ñ¬«ó«Ñ τ¿ß½« »« º¡áτÑ¡¿ε »Ñ-│ │ │ αÑτ¿ß½¿¼«ú« Γ¿»á. │ ├──────────────────┼────────────────────────────────────────────┤ │ R«und │ Ä¬απú½∩ÑΓ º¡áτÑ¡¿Ñ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ñ«│ │ │ º¡áτÑ¡¿∩, ¿¼ÑεΘÑú« ñ½¿¡¡δ⌐ µÑ½δ⌐ Γ¿». │ ├──────────────────┼────────────────────────────────────────────┤ │ Ærunß │ ôßÑ¬áÑΓ º¡áτÑ¡¿Ñ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ñ« º¡á-│ │ │ τÑ¡¿∩, ¿¼ÑεΘÑú« ñ½¿¡¡δ⌐ µÑ½δ⌐ Γ¿». │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 201 - Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── ¥Γ¿ Σπ¡¬µ¿¿ »«½Ñº¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ óδ»«½¡Ñ¡¿∩ áα¿Σ¼ÑΓ¿τÑß- ¬¿σ «»Ñαáµ¿⌐. Åα¿¼Ñτá¡¿Ñ: ç¡áτÑ¡¿∩, ó«ºóαáΘáÑ¼δÑ »α«µÑñπαá¼¿ «»Ñαá- µ¿⌐ ß »½áóáεΘÑ⌐ ºá»∩Γ«⌐ ¼«ñπ½∩ System, »α¿ ¬«¼»¿½∩µ¿¿ ó αÑª¿¼Ñ τ¿ß½«ó«⌐ «íαáí«Γ¬¿ (ñ¿αÑ¬Γ¿óá {$N+}), ¿¼ÑεΓ ¡Ñ óÑ- ΘÑßΓóÑ¡¡δ⌐ Γ¿» (real), á αáßΦ¿αÑ¡¡δ⌐ (extended). ┌──────────────────┬────────────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ Abs │ é«ºóαáΘáÑΓ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Çrctan │ é«ºóαáΘáÑΓ áα¬Γá¡úÑ¡ß áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ C«s │ é«ºóαáΘáÑΓ ¬«ß¿¡πß áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Eσp │ é«ºóαáΘáÑΓ φ¬ß»«¡Ñ¡Γπ áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Fráß │ é«ºóαáΘáÑΓ ñα«í¡πε τáßΓ∞ áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Int │ é«ºóαáΘáÑΓ µÑ½πε τáßΓ∞ áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Ln │ é«ºóαáΘáÑΓ ¡áΓπαá½∞¡δ⌐ ½«úáα¿Σ¼ áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Pi │ é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ τ¿ß½á Pi │ │ │ (3.141592653897932385). │ ├──────────────────┼────────────────────────────────────────────┤ │ Sin │ é«ºóαáΘáÑΓ ß¿¡πß áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Sqr │ é«ºóαáΘáÑΓ áαúπ¼Ñ¡Γ ó ¬óáñαáΓÑ. │ ├──────────────────┼────────────────────────────────────────────┤ │ Sqrt │ é«ºóαáΘáÑΓ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞ áαúπ¼Ñ¡Γá. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 202 - Å«α∩ñ¬«óδÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá/Σπ¡¬µ¿∩│ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ DÑß │ ô¼Ñ¡∞ΦáÑΓ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ Inß │ ôóÑ½¿τ¿óáÑΓ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ Ädd │ Åα«óÑα∩ÑΓ, ∩ó½∩ÑΓß∩ ½¿ áαúπ¼Ñ¡Γ ¡ÑτÑΓ¡δ¼│ │ │ τ¿ß½«¼. │ ├──────────────────┼────────────────────────────────────────────┤ │ Éred │ é«ºóαáΘáÑΓ »αÑñΦÑßΓóπεΘÑÑ º¡áτÑ¡¿Ñ áαúπ¼Ñ¡-│ │ │ Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Sußß │ é«ºóαáΘáÑΓ Ñú« »«ß½ÑñπεΘÑÑ º¡áτÑ¡¿Ñ. │ └──────────────────┴────────────────────────────────────────────┘ æΓα«¬«óδÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── æ½ÑñπεΘ¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¿ß»«½∞ºπεΓß∩ ñ½∩ αáí«Γδ ß« ßΓα«¬á¼¿ Åáß¬á½∩. ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ C«ncat │ éδ»«½¡∩ÑΓ ¬«¡¬áΓÑ¡áµ¿ε »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿│ │ │ ßΓα«¬. │ ├──────────────────┼────────────────────────────────────────────┤ │ C«απ │ é«ºóαáΘáÑΓ »«ñßΓα«¬π ßΓα«¬¿. │ ├──────────────────┼────────────────────────────────────────────┤ │ Delete │ ôñá½∩ÑΓ ¿º ßΓα«¬¿ »«ñßΓα«¬π. │ ├──────────────────┼────────────────────────────────────────────┤ │ Insert │ ä«íáó½∩ÑΓ ó ßΓα«¬π »«ñßΓα«¬π. │ ├──────────────────┼────────────────────────────────────────────┤ │ Length │ é«ºóαáΘáÑΓ ñ¿¡á¼¿τÑß¬πε ñ½¿¡π ßΓα«¬¿. │ ├──────────────────┼────────────────────────────────────────────┤ │ P«s │ Åα«¿ºó«ñ¿Γ »«¿ß¬ »«ñßΓα«¬¿ ó ßΓα«¬Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ Str │ ÅαÑ«íαáºπÑΓ τ¿ß½Ñ¡¡«Ñ º¡áτÑ¡¿Ñ ó Ñú« ßΓα«-│ │ │ ¬«ó«Ñ »αÑñßΓáó½Ñ¡¿Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ Val │ ÅαÑ«íαáºπÑΓ ßΓα«¬«ó«Ñ º¡áτÑ¡¿Ñ ó Ñú« τ¿ß-│ │ │ ½Ñ¡¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 203 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ ───────────────────────────────────────────────────────────────── ¥Γ¿ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¿ß»«½∞ºπεΓß∩ ñ½∩ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε - «í½áßΓ∞ε »á¼∩Γ¿, ¬«Γ«αá∩ ºá¡¿¼áÑΓ óßε ßó«í«ñ¡πε »á¼∩Γ∞ ¿½¿ ÑÑ τáßΓ∞, «ßΓáεΘπεß∩ »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ. Å«½¡«Ñ «»¿ßá¡¿Ñ ¼ÑΓ«ñ«ó, ¿ß»«½∞ºπÑ¼δσ ñ½∩ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε »á¼∩Γ¿ »α¿ó«ñ¿Γß∩ ó αáºñÑ½Ñ "Åα«úαá¼¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿" ó â½áóÑ 21 ("é«»- α«ßδ π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε"). Åα«µÑñπαδ ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá/Σπ¡¬µ¿∩│ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ Dispose │ ô¡¿τΓ«ªáÑΓ ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε. │ ├──────────────────┼────────────────────────────────────────────┤ │ FrÑÑîÑ¼ │ ô¡¿τΓ«ªáÑΓ ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε ñá¡¡«ú«│ │ │ αáº¼Ñαá. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetîÑ¼ │ æ«ºñáÑΓ ¡«óπε ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε ºá-│ │ │ ñá¡¡«ú« αáº¼Ñαá ¿ πßΓá¡áó½¿óáÑΓ ¡á ¡ÑÑ »Ñ-│ │ │ αÑ¼Ñ¡¡πε-π¬áºáΓÑ½∞. │ ├──────────────────┼────────────────────────────────────────────┤ │ îáσÇvail │ é«ºóαáΘáÑΓ αáº¼Ñα ¡á¿í«½∞ΦÑú« ¡Ñ»αÑαδó¡«ú«│ │ │ ßó«í«ñ¡«ú« ¼«ñπ½∩ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩-│ │ │ Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿, ß««ΓóÑΓßΓóπεΘ¿⌐ αáº¼Ñ-│ │ │ απ ¡á¿í«½∞ΦÑ⌐ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¬«-│ │ │ Γ«αá∩ ¼«ªÑΓ íδΓ∞ óδñÑ½Ñ¡á »α¿ «íαáΘÑ¡¿¿ ó│ │ │ îáσAvail. │ ├──────────────────┼────────────────────────────────────────────┤ │ îÑ¼Çvail │ é«ºóαáΘáÑΓ ¬«½¿τÑßΓó« ¿¼ÑεΘ¿σß∩ ó ñ¿¡á¼¿-│ │ │ τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ßó«í«ñ¡δσ│ │ │ íá⌐Γ. │ ├──────────────────┼────────────────────────────────────────────┤ │ New │ æ«ºñáÑΓ ¡«óπε ñ¿¡á¼¿τÑß¬πε »ÑαÑ¼Ñ¡¡πε ¿ πß-│ │ │ Γá¡áó½¿óáÑΓ ¡á ¡ÑÑ »ÑαÑ¼Ñ¡¡πε-π¬áºáΓÑ½∞. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 204 - öπ¡¬µ¿¿ ñ½∩ αáí«Γδ ß π¬áºáΓÑ½∩¼¿ ¿ áñαÑßá¼¿ ───────────────────────────────────────────────────────────────── ì¿ªÑ »ÑαÑτ¿ß½Ñ¡δ Σπ¡¬µ¿¿ ñ½∩ αáí«Γδ ß π¬áºáΓÑ½∩¼¿ ¿ áñαÑßá- ¼¿. ┌──────────────────┬────────────────────────────────────────────┐ │ öπ¡¬µ¿¿ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ Çddr │ é«ºóαáΘáÑΓ áñαÑß ºáñá¡¡«ú« «íΩÑ¬Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ CSeg │ é«ºóαáΘáÑΓ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ αÑú¿ßΓαá CS. │ ├──────────────────┼────────────────────────────────────────────┤ │ DSeg │ é«ºóαáΘáÑΓ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ αÑú¿ßΓαá DS. │ ├──────────────────┼────────────────────────────────────────────┤ │ Äfs │ é«ºóαáΘáÑΓ ß¼ÑΘÑ¡¿Ñ ñ½∩ ºáñá¡¡«ú« «íΩÑ¬Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Ptr │ ÅαÑ«íαáºπÑΓ áñαÑß íáº«ó«ú« ßÑú¼Ñ¡Γá ¿ ß¼Ñ-│ │ │ ΘÑ¡¿Ñ ó º¡áτÑ¡¿Ñ Γ¿»á π¬áºáΓÑ½∞. │ ├──────────────────┼────────────────────────────────────────────┤ │ Seg │ é«ºóαáΘáÑΓ ßÑú¼Ñ¡Γ ñ½∩ ºáñá¡¡«ú« «íΩÑ¬Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ SPtr │ é«ºóαáΘáÑΓ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ αÑú¿ßΓαá SÉ. │ ├──────────────────┼────────────────────────────────────────────┤ │ SSeg │ é«ºóαáΘáÑΓ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ αÑú¿ßΓαá SS. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 205 - Åα«τ¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá/Σπ¡¬µ¿∩│ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ Exclude │ êß¬½ετáÑΓ φ½Ñ¼Ñ¡Γ ¿º ¼¡«ªÑßΓóá. │ ├──────────────────┼────────────────────────────────────────────┤ │ FillChar │ çá»«½¡∩ÑΓ ºáñá¡¡«Ñ τ¿ß½« ß½ÑñπεΘ¿σ ñαπú ºá│ │ │ ñαπú«¼ í¿Γ π¬áºá¡¡δ¼ º¡áτÑ¡¿Ñ¼. │ ├──────────────────┼────────────────────────────────────────────┤ │ Hi │ é«ºóαáΘáÑΓ ßΓáαΦ¿⌐ íá⌐Γ áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Include │ é¬½ετáÑΓ φ½Ñ¼Ñ¡Γ ó ¼¡«ªÑßΓó«. │ ├──────────────────┼────────────────────────────────────────────┤ │ Lo │ é«ºóαáΘáÑΓ ¼½áñΦ¿⌐ íá⌐Γ áαúπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ î«vÑ │ è«»¿απÑΓ ºáñá¡¡«Ñ τ¿ß½« ¡Ñ»αÑαδó¡δσ íá⌐Γ ó│ │ │ π¬áºá¡¡δσ úαá¡¿µáσ ¿º «ñ¡«ú« ¼ÑßΓá ó ñαπ-│ │ │ ú«Ñ, úαá¡¿µδ ¬«Γ«α«ú« Γá¬ªÑ π¬áºδóáεΓß∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ ParamCount │ é«ºóαáΘáÑΓ τ¿ß½« »áαá¼ÑΓα«ó, »ÑαÑñá¡¡δσ│ │ │ »α«úαá¼¼Ñ ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ ParamStr │ é«ºóαáΘáÑΓ »áαá¼ÑΓα, ºáñá¡¡δ⌐ ó ¬«¼á¡ñ¡«⌐│ │ │ ßΓα«¬Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ Random │ é«ºóαáΘáÑΓ ß½πτá⌐¡«Ñ τ¿ß½«. │ ├──────────────────┼────────────────────────────────────────────┤ │ Ránd«¼izÑ │ ê¡¿µ¿á½¿º¿απÑΓ óßΓα«Ñ¡¡δ⌐ úÑ¡ÑαáΓ«α ß½πτá⌐-│ │ │ ¡δσ τ¿ßÑ½ ß½πτá⌐¡δ¼ º¡áτÑ¡¿Ñ¼. │ ├──────────────────┼────────────────────────────────────────────┤ │ SizeOf │ é«ºóαáΘáÑΓ τ¿ß½« íá⌐Γ, ºá¡¿¼áÑ¼δσ áαúπ¼Ñ¡-│ │ │ Γ«¼. │ ├──────────────────┼────────────────────────────────────────────┤ │ Swap │ îÑ¡∩ÑΓ ¼ÑßΓá¼¿ ßΓáαΦ¿⌐ ¿ ¼½áñΦ¿⌐ íá⌐Γδ áα-│ │ │ úπ¼Ñ¡Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ TypeOf │ ô¬áºδóáÑΓ ¡á Γáí½¿µπ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó│ │ │ «íΩÑ¬Γá. │ ├──────────────────┼────────────────────────────────────────────┤ │ UpCase │ ÅαÑ«íαáºπÑΓ ß¿¼ó«½ ó óÑασ¡¿⌐ αÑú¿ßΓα. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 206 - ÅαÑñ«»¿ßá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── èα«¼Ñ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ó ¼«ñπ½Ñ System »αÑñπß¼«ΓαÑ¡ α∩ñ »αÑñ«»¿ßá¡¡δσ »ÑαÑ¼Ñ¡¡δσ. êσ »ÑαÑτÑ¡∞ ºáó¿ß¿Γ «Γ í¿í½¿«ΓÑ¬¿ ¿ß- »«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ, ¬ ¬«Γ«α«⌐ «Γ¡«ß¿Γß∩ ¼«ñπ½∞ System. æ½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ «»¿ßδóáεΓß∩ ó ¼«ñπ½Ñ System í¿í½¿«ΓÑ¬¿ TURBO.TPL - í¿í½¿«ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ñ½∩ »α¿½«ªÑ¡¿⌐ αÑá½∞- ¡«ú« αÑª¿¼á DOS. ┌───────────────┬────────────────┬──────────────────────────────┐ │ ÅÑαÑ¼Ñ¡¡á∩ │ Æ¿» │ Ä»¿ßá¡¿Ñ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ErrorAddr │ Pointer │ áñαÑß «Φ¿í¬¿ φΓá»á óδ»«½¡Ñ- │ │ │ │ ¡¿∩ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ExitProc │ Pointer │ »α«µÑñπαá óδσ«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ExitCode │ Integer │ ¬«ñ óδσ«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ FileMode │ Byte │ αÑª¿¼ «Γ¬αδΓ¿∩ Σá⌐½á │ ├───────────────┼────────────────┼──────────────────────────────┤ │ FreeList │ Pointer │ ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó ñ¿- │ │ │ │ ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- │ │ │ │ ½áßΓ¿ »á¼∩Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ FreeZero │ Pointer │ ñ«½ªÑ¡ íδΓ∞ αáóÑ¡ 0 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapOrg │ Pointer │ ¡áτá½« ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ- │ │ │ │ ½∩Ñ¼«⌐ «í½áßΓ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapPtr │ Pointer │ π¬áºáΓÑ½∞ ñ¿¡á¼¿τÑß¬¿ αáß- │ │ │ │ »αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapError │ Pointer │ Σπ¡¬µ¿∩ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ │ │ │ │ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩- │ │ │ │ Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Input │ Text │ ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óó«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ InOutRes │ Integer │ íπΣÑα αÑºπ½∞ΓáΓá «»Ñαáµ¿¿ │ │ │ │ óó«ñá-óδó«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Output │ Text │ ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óδó«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrCodeList │ Word │ ß»¿ß«¬ ßÑú¼Ñ¡Γ«ó «óÑα½Ñ⌐¡«ú« │ │ │ │ ¬«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrDebugPtr │ Pointer │ ¿ß»«½∞ºπÑΓß∩ »α¿ «Γ½áñ¬Ñ │ │ │ │ «óÑα½ÑÑó │ ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrDosHandle │ Word │ «»¿ßáΓÑ½∞ «óÑα½Ñ∩ DOS │ B.Pascal 7 & Objects/LR - 207 - ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrEmsHandle │ Word │ «»¿ßáΓÑ½∞ «óÑα½Ñ∩ EMS │ ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrHeapEnd │ Word │ ¬«¡Ñµ «óÑα½Ñ⌐¡«ú« íπΣÑαá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrHeapOrg │ Word │ ¡áτá½« «óÑα½Ñ⌐¡«ú« íπΣÑαá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrHeapPtr │ Word │ π¬áºáΓÑ½∞ «óÑα½Ñ⌐¡«ú« íπΣÑαá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrHeapSize │ Word │ ¡áτá½∞¡δ⌐ αáº¼Ñα «óÑα½Ñ⌐¡«ú« │ │ │ │ íπΣÑαá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ OvrLoadList │ Word │ ß»¿ß«¬ ºáúαπªÑ¡¡δσ «óÑα½ÑÑó │ ├───────────────┼────────────────┼──────────────────────────────┤ │ PrefixSeg │ Word │ »αÑΣ¿¬ß »α«úαá¼¼¡«ú« ßÑú¼Ñ¡- │ │ │ │ Γá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ RandSeed │ Longint │ ß½πτá⌐¡«Ñ τ¿ß½« (úÑ¡Ñα¿απ- │ │ │ │ ÑΓß∩ ñáΓτ¿¬«¼ ß½πτá⌐¡δσ τ¿- │ │ │ │ ßÑ½) │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt00 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $00 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt02 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $02 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt1B │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $1B │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt23 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $23 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt24 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $24 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt34 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $34 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt35 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $35 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt36 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $36 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt37 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $37 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt38 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $38 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt39 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $39 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3A │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3A │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3B │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3B │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3C │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3C │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3D │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3D │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3E │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3E │ ├───────────────┼────────────────┼──────────────────────────────┤ B.Pascal 7 & Objects/LR - 208 - │ SaveInt3F │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3F │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt75 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $75 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Seg0040 │ Word │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá $0040 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SegA000 │ Word │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá $A000 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SegB000 │ Word │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá $B000 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SegC000 │ Word │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá $C000 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SelectorInc │ Word │ Φáú πóÑ½¿τÑ¡¿∩ ßÑ½Ñ¬Γ«αá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ StackLimit │ Word │ π¬áºáΓÑ½∞ ¡á ¡¿ª¡εε úαá¡¿µπ │ │ │ │ ßΓÑ¬á │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Test8086 │ Byte │ αÑºπ½∞ΓáΓ »α«óÑα¬¿ »α«µÑß- │ │ │ │ ß«αá 8086 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Test8087 │ Byte │ αÑºπ½∞ΓáΓ »α«óÑα¬¿ ß«»α«µÑß- │ │ │ │ ß«αá 8087 │ └───────────────┴────────────────┴──────────────────────────────┘ PrefixSeg »αÑñßΓáó½∩ÑΓ ß«í«⌐ »ÑαÑ¼Ñ¡¡πε ñ½¿¡«⌐ ó ß½«ó«, ß«- ñÑαªáΘπε áñαÑß »αÑΣ¿¬ßá »α«úαá¼¼¡«ú« ßÑú¼Ñ¡Γá (PSP), ß«ºñáóáÑ¼«ú« »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼«⌐ DOS. Å«½¡«Ñ «»¿ßá- ¡¿Ñ PSP »α¿óÑñÑ¡« ó απ¬«ó«ñßΓóÑ »« «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ DOS. ÅÑαÑ¼Ñ¡¡á∩ StackLimit ß«ñÑαª¿Γ ß¼ÑΘÑ¡¿Ñ ¡áτá½á ßΓÑ¬á «Γ¡«ß¿- ΓÑ½∞¡« ßÑú¼Ñ¡Γá ßΓÑ¬á, τΓ« ß««ΓóÑΓßΓóπÑΓ ¼¿¡¿¼á½∞¡«¼π ñ«»πßΓ¿¼«¼π º¡áτÑ¡¿ε αÑú¿ßΓαá SP, »«ß½Ñ ¬«Γ«α«ú« πªÑ ó«º¡¿¬áÑΓ ß¿Γπáµ¿∩ »ÑαÑ- »«½¡Ñ¡¿∩ ßΓÑ¬á. Å« π¼«½τá¡¿ε º¡áτÑ¡¿Ñ φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ αáó¡« 0, ¡« Ñß½¿ »α«úαá¼¼á ¬«¼»¿½¿απÑΓß∩ ß ñ¿αÑ¬Γ¿óá¼¿ {$N+,$E+}, Γ« φ¼π½∩Γ«α ß«»α«µÑßß«αá 8087 »α¿ «ΓßπΓßΓó¿¿ ó ß¿ßΓÑ¼Ñ ß«»α«µÑßß«αá 8087 ñ½∩ αÑºÑαó¿α«óá¡¿∩ ¼ÑßΓá ó ¼½áñΦ¿σ áñαÑßáσ ßÑú¼Ñ¡Γá ßΓÑ¬á íπñÑΓ πßΓá- ¡áó½¿óáΓ∞ ÑÑ ó º¡áτÑ¡¿Ñ 224. ÅÑαÑ¼Ñ¡¡á∩ InOutRes ¿ß»«½∞ºπÑΓß∩ óßΓα«Ñ¡¡δ¼¿ »α«úαá¼¼á¼¿ óó«ñá-óδó«ñá ñ½∩ ß«σαá¡Ñ¡¿∩ º¡áτÑ¡¿∩, ó«ºóαáΘáÑ¼«ú« »α¿ ß½ÑñπεΘÑ¼ «íαáΘÑ¡¿¿ ¬ Σπ¡¬µ¿¿ IOResult. é RandSeed ß«σαá¡∩ÑΓß∩ ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ ñ½∩ óßΓα«Ñ¡¡«ú« úÑ¡ÑαáΓ«αá ß½πτá⌐¡δσ τ¿ßÑ½. àß½¿ »α¿ßóá¿óáΓ∞ φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ «»- αÑñÑ½Ñ¡¡«Ñ º¡áτÑ¡¿Ñ, Γ« Σπ¡¬µ¿∩ Random íπñÑΓ úÑ¡Ñα¿α«óáΓ∞ ºáñá¡- ¡πε »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ß½πτá⌐¡δσ τ¿ßÑ½. B.Pascal 7 & Objects/LR - 209 - ÅÑαÑ¼Ñ¡¡á∩ FileMode »«ºó«½∩ÑΓ ¿º¼Ñ¡∩Γ∞ αÑª¿¼ ñ«ßΓπ»á ¬ «Γ¬- αδΓδ¼ Γ¿»¿º¿α«óá¡¡δ¼ ¿ ¡ÑΓ¿»¿º¿α«óá¡¡δ¼ Σá⌐½á¼. é »ÑαÑ¼Ñ¡¡«⌐ Test8087 ß«σαá¡∩ÑΓß∩ αÑºπ½∞ΓáΓ αáí«Γδ á½ú«α¿Γ- ¼«ó áóΓ«¼áΓ¿τÑß¬«ú« αáß»«º¡áóá¡¿∩ ß«»α«µÑßß«αá 8087, ¬«Γ«αδÑ ¡á- τ¿¡áεΓ αáí«ΓáΓ∞ »α¿ ºá»πß¬Ñ »α«úαá¼¼δ, ß¬«¼»¿½¿α«óá¡¡«⌐ ß ñ¿αÑ¬- Γ¿ó«⌐ {$N+}. Input ¿ Äutput - φΓ« ßΓá¡ñáαΓ¡δÑ Σá⌐½δ óó«ñá-óδó«ñá, ¡Ñ«íσ«- ñ¿¼δÑ ó ¬áªñ«⌐ αÑá½¿ºáµ¿¿ Åáß¬á½∩. Å« π¼«½τá¡¿ε «¡¿ ßó∩ºδóáεΓß∩ ß« ßΓá¡ñáαΓ¡δ¼¿ óσ«ñ¡δ¼¿ ¿ óδσ«ñ¡δ¼¿ Σá⌐½á¼¿ ó Dos. B.Pascal 7 & Objects/LR - 210 - æ½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ «»¿ßδóáεΓß∩ ó ¼«ñπ½Ñ System í¿í½¿«ΓÑ¬¿ TPW.TPL - í¿í½¿«ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ñ½∩ »α¿½«ªÑ¡¿⌐ Windows. ┌───────────────┬────────────────┬──────────────────────────────┐ │ ÅÑαÑ¼Ñ¡¡á∩ │ Æ¿» │ Ä»¿ßá¡¿Ñ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ CmdLine │ PChar │ π¬áºáΓÑ½∞ ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ CmdShow │ Integer │ »áαá¼ÑΓα CmdShow ñ½∩ Create- │ │ │ │ Window │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ErrorAddr │ Pointer │ áñαÑß «Φ¿í¬¿ φΓá»á óδ»«½¡Ñ- │ │ │ │ ¡¿∩ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ExitProc │ Pointer │ »α«µÑñπαá óδσ«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ExitCode │ Integer │ ¬«ñ óδσ«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ FileMode │ Byte │ αÑª¿¼ «Γ¬αδΓ¿∩ Σá⌐½á │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Input │ Text │ ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óó«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapAllocFlag │ Word │ Σ½áú¿ αáß»αÑñÑ½Ñ¡¿∩ í½«¬á │ │ │ │ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ │ │ │ │ «í½áßΓ¿ »á¼∩Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapBlock │ Word │ αáº¼Ñα í½«¬á ñ¿¡á¼¿τÑß¬¿ │ │ │ │ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩- │ │ │ │ Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HearError │ Pointer │ Σπ¡¬µ¿∩ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ │ │ │ │ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩- │ │ │ │ Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapLimit │ Word │ αáº¼Ñα ¡á¿¼Ñ¡∞ΦÑú« í½«¬á ñ¿- │ │ │ │ ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- │ │ │ │ ½áßΓ¿ »á¼∩Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapList │ Word │ ß»¿ß«¬ ßÑú¼Ñ¡Γ«ó ñ¿¡á¼¿τÑß¬¿ │ │ │ │ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩- │ │ │ │ Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HInstance │ Word │ «»¿ßáΓÑ½∞ ñá¡¡«ú« φ¬ºÑ¼»½∩αá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HPrevInst │ Word │ «»¿ßáΓÑ½∞ »αÑñδñπΘÑú« φ¬ºÑ¼- │ │ │ │ »½∩αá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ InOutRes │ Integer │ íπΣÑα αÑºπ½∞ΓáΓá «»Ñαáµ¿¿ │ │ │ │ óó«ñá-óδó«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Output │ Text │ ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óδó«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ B.Pascal 7 & Objects/LR - 211 - │ PrefixSeg │ Word │ »αÑΣ¿¬ß »α«úαá¼¼¡«ú« ßÑú¼Ñ¡- │ │ │ │ Γá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ RandSeed │ Longint │ ß½πτá⌐¡«Ñ τ¿ß½« (úÑ¡Ñα¿απ- │ │ │ │ ÑΓß∩ ñáΓτ¿¬«¼ ß½πτá⌐¡δσ τ¿- │ │ │ │ ßÑ½) │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SelectorInc │ Word │ Φáú πóÑ½¿τÑ¡¿∩ ßÑ½Ñ¬Γ«αá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ StackLimit │ Word │ π¬áºáΓÑ½∞ ¡á ¡¿ª¡εε úαá¡¿µπ │ │ │ │ ßΓÑ¬á │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Test8086 │ Byte │ αÑºπ½∞ΓáΓ »α«óÑα¬¿ »α«µÑß- │ │ │ │ ß«αá 8086 │ └───────────────┴────────────────┴──────────────────────────────┘ HInstance ß«ñÑαª¿Γ «»¿ßáΓÑ½∞ φ¬ºÑ¼»½∩αá »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ¿½¿ í¿í½¿«ΓÑ¬¿, ¬á¬ φΓ« »αÑñπß¼áΓα¿óáÑΓß∩ «»Ñαáµ¿«¡¡«⌐ ßαÑñ«⌐ Windows. é »α«úαá¼¼Ñ HPrevInst ß«ñÑαª¿Γ »αÑñδñπΘ¿⌐ φ¬ºÑ¼»½∩α »α¿¬½áñ¡«⌐ »α«úαá¼¼δ, ¿½¿ 0, Ñß½¿ »αÑñδñπΘÑú« φ¬ºÑ¼»½∩αá ¡ÑΓ. é í¿í½¿«ΓÑ¬Ñ HPrevInst óßÑúñá αáó¡« 0. é »α«úαá¼¼Ñ CmdLine ß«ñÑαª¿Γ π¬áºáΓÑ½∞ ¡á ºáóÑαΦáεΘπεß∩ ¡π- ½Ñ¼ ßΓα«¬π, ¬«Γ«αá∩ ß«ñÑαª¿Γ áαúπ¼Ñ¡Γδ ¬«¼á¡ñ¡«⌐ ßΓα«¬¿, ºáñá¡¡δÑ »α¿ ºá»πß¬Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. é í¿í½¿«ΓÑ¬Ñ φΓá »ÑαÑ¼Ñ¡¡á∩ ¡Ñ «»αÑñÑ½Ñ¡á. é »α«úαá¼¼Ñ CmdShow ß«ñÑαª¿Γ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá, »ÑαÑñáτπ ¬«Γ«α«ú« ó ShowWindow «ª¿ñáÑΓ Windows, ¬«úñá »α¿¬½áñ¡á∩ »α«úαá¼¼á ß«ºñáÑΓ «ß¡«ó¡«Ñ «¬¡«. é í¿í½¿«ΓÑ¬Ñ φΓá »ÑαÑ¼Ñ¡¡á∩ óßÑúñá αáó¡á 0. Å«ñß¿ßΓÑ¼«⌐ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε »á¼∩Γ¿ ñ½∩ αÑá½¿ºáµ¿¿ »α«úαá¼¼ ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ Borland Pascal ¿ß»«½∞ºπεΓß∩ »ÑαÑ¼Ñ¡¡δÑ HeapList, HeapLimit, HeapBlock ¿ HeapError. ä½∩ αÑá½¿ºáµ¿¿ »α«µÑñπα óδσ«ñá ¿ß»«½∞ºπεΓß∩ »ÑαÑ¼Ñ¡¡δÑ ExitProc, ErrorCode ¿ ErrorAdr. ÅÑαÑ¼Ñ¡¡á∩ PrefixSeg »αÑñßΓáó½∩ÑΓ ß«í«⌐ »ÑαÑ¼Ñ¡¡πε ñ½¿¡«⌐ ó ß½«ó«, ß«ñÑαªáΘπε áñαÑß »αÑΣ¿¬ßá »α«úαá¼¼¡«ú« ßÑú¼Ñ¡Γá (PSP), ß«ºñáóáÑ¼«ú« »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼«⌐ DOS. Å«½¡«Ñ «»¿ßá¡¿Ñ PSP »α¿óÑñÑ¡« ó απ¬«ó«ñßΓóÑ »« «»Ñαáµ¿«¡¡«⌐ ß¿ß- ΓÑ¼Ñ DOS. ÅÑαÑ¼Ñ¡¡á∩ InOutRes ¿ß»«½∞ºπÑΓß∩ óßΓα«Ñ¡¡δ¼¿ »α«úαá¼¼á¼¿ óó«ñá-óδó«ñá ñ½∩ ß«σαá¡Ñ¡¿∩ º¡áτÑ¡¿∩, ó«ºóαáΘáÑ¼«ú« »α¿ ß½ÑñπεΘÑ¼ «íαáΘÑ¡¿¿ ¬ Σπ¡¬µ¿¿ IOResult. ÅÑαÑ¼Ñ¡¡á∩ FileMode »«ºó«½∩ÑΓ ¿º¼Ñ¡∩Γ∞ αÑª¿¼ ñ«ßΓπ»á ¬ «Γ¬- αδΓδ¼ Γ¿»¿º«óá¡¡δ¼ ¿ ¡ÑΓ¿»¿º¿α«óá¡¡δ¼ Σá⌐½á¼. ü«½ÑÑ »«ñα«í¡« φΓ« «»¿ßá¡« ó â½áóÑ 14 "éó«ñ ¿ óδó«ñ". B.Pascal 7 & Objects/LR - 212 - æ½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ «»¿ßδóáεΓß∩ ó ¼«ñπ½Ñ System í¿í½¿«ΓÑ¬¿ TPP.TPL - í¿í½¿«ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ñ½∩ »α¿½«ªÑ¡¿⌐ ºáΘ¿ΘÑ¡- ¡«ú« αÑª¿¼á DOS. ┌───────────────┬────────────────┬──────────────────────────────┐ │ ÅÑαÑ¼Ñ¡¡á∩ │ Æ¿» │ Ä»¿ßá¡¿Ñ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ErrorAddr │ Pointer │ áñαÑß «Φ¿í¬¿ φΓá»á óδ»«½¡Ñ- │ │ │ │ ¡¿∩ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ExitProc │ Pointer │ »α«µÑñπαá óδσ«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ ExitCode │ Integer │ ¬«ñ óδσ«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ FileMode │ Byte │ αÑª¿¼ «Γ¬αδΓ¿∩ Σá⌐½á │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapAllocFlags│ Word │ Σ½áú¿ αáß»αÑñÑ½Ñ¡¿∩ í½«¬á │ │ │ │ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ │ │ │ │ «í½áßΓ¿ »á¼∩Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapBlock │ Word │ αáº¼Ñα í½«¬á ñ¿¡á¼¿τÑß¬¿ │ │ │ │ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩- │ │ │ │ Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HearError │ Pointer │ Σπ¡¬µ¿∩ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ │ │ │ │ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩- │ │ │ │ Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapLimit │ Word │ αáº¼Ñα ¡á¿¼Ñ¡∞ΦÑú« í½«¬á ñ¿- │ │ │ │ ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- │ │ │ │ ½áßΓ¿ »á¼∩Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HeapList │ Word │ ß»¿ß«¬ ßÑú¼Ñ¡Γ«ó ñ¿¡á¼¿τÑß¬¿ │ │ │ │ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩- │ │ │ │ Γ¿ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HInstance │ Word │ «»¿ßáΓÑ½∞ ñá¡¡«ú« φ¬ºÑ¼»½∩αá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ HPrevInst │ Word │ «»¿ßáΓÑ½∞ »αÑñδñπΘÑú« φ¬ºÑ¼- │ │ │ │ »½∩αá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ InOutRes │ Integer │ íπΣÑα αÑºπ½∞ΓáΓá «»Ñαáµ¿¿ │ │ │ │ óó«ñá-óδó«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Output │ Text │ ßΓá¡ñáαΓ¡δ⌐ Σá⌐½ óδó«ñá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ PrefixSeg │ Word │ »αÑΣ¿¬ß »α«úαá¼¼¡«ú« ßÑú¼Ñ¡- │ │ │ │ Γá │ ├───────────────┼────────────────┼──────────────────────────────┤ │ RandSeed │ Longint │ ß½πτá⌐¡«Ñ τ¿ß½« (úÑ¡Ñα¿απ- │ │ │ │ ÑΓß∩ ñáΓτ¿¬«¼ ß½πτá⌐¡δσ τ¿- │ │ │ │ ßÑ½) │ B.Pascal 7 & Objects/LR - 213 - ├───────────────┼────────────────┼──────────────────────────────┤ │ RealModeRegs │ array[0..49] of│ αÑú¿ßΓαδ αÑá½∞¡«ú« αÑª¿¼á │ │ │ byte │ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt00 │ Pointer │ ß«σαá¡Ñ¡¡á∩ ¿ß¬½ετ¿ΓÑ½∞¡á∩ │ │ │ │ ß¿Γπáµ¿∩ $00 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt02 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $02 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt0C │ Pointer │ ß«σαá¡Ñ¡¡«Ñ ¿ß¬½ετ¿ΓÑ½∞¡á∩ │ │ │ │ ß¿Γπáµ¿∩ $0æ │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt0D │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $0D │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt1B │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $1B │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt21 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $21 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt23 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ │ │ │ │ αÑá½∞¡«ú« αÑª¿¼á $23 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt24 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ │ │ │ │ αÑá½∞¡«ú« αÑª¿¼á $24 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt34 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $34 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt35 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $35 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt36 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $36 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt37 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $37 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3B │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $38 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt39 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $39 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3A │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3A │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3B │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3B │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3C │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3C │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3D │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3D │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3E │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3E │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt3F │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $3F │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SaveInt75 │ Pointer │ ß«σαá¡Ñ¡¡«Ñ »αÑαδóá¡¿Ñ $75 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Seg0040 │ Word │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá $0040 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SegA000 │ Word │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá $A000 │ B.Pascal 7 & Objects/LR - 214 - ├───────────────┼────────────────┼──────────────────────────────┤ │ SegB000 │ Word │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá $B000 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ SegB800 │ Word │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá $B800 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Test8086 │ Byte │ αÑºπ½∞ΓáΓ »α«óÑα¬¿ »α«µÑß- │ │ │ │ ß«αá 8086 │ ├───────────────┼────────────────┼──────────────────────────────┤ │ Test8087 │ Byte │ αÑºπ½∞ΓáΓ »α«óÑα¬¿ ß«»α«µÑß- │ │ │ │ ß«αá 8087 │ └───────────────┴────────────────┴──────────────────────────────┘ ü«½ÑÑ »«ñα«í¡πε ¿¡Σ«α¼áµ¿ε «í φΓ¿σ »ÑαÑ¼Ñ¡¡δσ óδ ¼«ªÑΓÑ ¡á⌐- Γ¿ ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") ó "æ»αáó«τ¡«¼ απ¬«ó«ñß- ΓóÑ »α«úαá¼¼¿ßΓá. B.Pascal 7 & Objects/LR - 215 - ─────────────────────────────────────────────────────────────────────── â½áóá 14. éó«ñ ¿ óδó«ñ ───────────────────────────────────────────────────────────────── é ñá¡¡«⌐ â½áóÑ ¬αáΓ¬« «»¿ßδóáεΓß∩ ßΓá¡ñáαΓ¡δÑ (¿½¿ óßΓα«Ñ¡- ¡δÑ) Σπ¡¬µ¿¿ ¿ »α«µÑñπαδ óó«ñá-óδó«ñá Borland Pascal. ¥Γ¿ »α«µÑ- ñπαδ ¿ Σπ¡¬µ¿¿ ¼«ª¡« ¡á⌐Γ¿ ó ¼«ñπ½Ñ System. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ óó«ñá-óδó«ñá ┌──────────────────┬────────────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ Append │ ÄΓ¬αδóáÑΓ ßπΘÑßΓóπεΘ¿⌐ Σá⌐½ ñ½∩ ñ«íáó½Ñ-│ │ │ ¡¿∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ Assign │ Åα¿ßóá¿óáÑΓ ¿¼∩ ó¡ÑΦ¡Ñú« Σá⌐½á Σá⌐½«ó«⌐ »Ñ-│ │ │ αÑ¼Ñ¡¡«⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ BlockRead │ æτ¿ΓδóáÑΓ ¿º ¡ÑΓ¿»¿º¿α«óá¡¡«ú« Σá⌐½á «ñ¡π│ │ │ ¿½¿ í«½ÑÑ ºá»¿ßÑ⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ BlockWrite │ çá»¿ßδóáÑΓ ó ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ Σá⌐½ «ñ¡π│ │ │ ¿½¿ í«½ÑÑ ºá»¿ßÑ⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ ChDir │ éδ»«½¡∩ÑΓ ß¼Ñ¡π ΓÑ¬πΘÑú« ¬áΓá½«úá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Close │ çá¬αδóáÑΓ «Γ¬αδΓδ⌐ Σá⌐½. │ ├──────────────────┼────────────────────────────────────────────┤ │ Erase │ æΓ¿αáÑΓ ó¡ÑΦ¡¿⌐ Σá⌐½. │ ├──────────────────┼────────────────────────────────────────────┤ │ E«f │ é«ºóαáΘáÑΓ ñ½∩ Σá⌐½á ß«ßΓ«∩¡¿Ñ end-of-file│ │ │ (¬«¡Ñµ Σá⌐½á). │ ├──────────────────┼────────────────────────────────────────────┤ │ FilePos │ é«ºóαáΘáÑΓ ΓÑ¬πΘπε »«º¿µ¿ε ó Σá⌐½Ñ. ä½∩│ │ │ ΓÑ¬ßΓ«óδσ Σá⌐½«ó ¡Ñ ¿ß»«½∞ºπÑΓß∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ FileSize │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ αáº¼Ñα Σá⌐½á. ä½∩ ΓÑ¬ß-│ │ │ Γ«óδσ Σá⌐½«ó ¡Ñ ¿ß»«½∞ºπÑΓß∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ Flush │ æíαáßδóáÑΓ íπΣÑα ΓÑ¬ßΓ«ó«ú« Σá⌐½á óδó«ñá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Getdir │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ ¬áΓá½«ú ¡á ºáñá¡¡«¼ ñ¿ß-│ │ │ ¬Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ IÄResult │ é«ºóαáΘáÑΓ µÑ½«Ñ º¡áτÑ¡¿Ñ, ∩ó½∩εΘÑÑß∩ ß«ß-│ │ │ Γ«∩¡¿Ñ¼ »«ß½Ññ¡Ñ⌐ óδ»«½¡Ñ¡¡«⌐ «»Ñαáµ¿¿ óó«-│ │ │ ñá-óδó«ñá. │ ├──────────────────┼────────────────────────────────────────────┤ │ MkDir │ æ«ºñáÑΓ »«ñ¬áΓá½«ú. │ ├──────────────────┼────────────────────────────────────────────┤ │ Read │ æτ¿ΓδóáÑΓ «ñ¡« ¿½¿ í«½ÑÑ º¡áτÑ¡¿⌐ ¿º Σá⌐½á│ │ │ ó «ñ¡π ¿½¿ í«½ÑÑ »ÑαÑ¼Ñ¡¡δσ. │ ├──────────────────┼────────────────────────────────────────────┤ │ Readln │ äÑ½áÑΓ Γ« ªÑ, τΓ« ¿ Read, ¿ óδ»«½¡∩ÑΓ »α«-│ B.Pascal 7 & Objects/LR - 216 - │ │ »πß¬ ñ« ¡áτá½á ß½ÑñπεΘÑ⌐ ßΓα«¬¿ ΓÑ¬ßΓ«ó«ú«│ │ │ Σá⌐½á. │ ├──────────────────┼────────────────────────────────────────────┤ │ RÑná¼Ñ │ ÅÑαÑ¿¼Ñ¡«óδóáÑΓ ó¡ÑΦ¡¿⌐ Σá⌐½. │ ├──────────────────┼────────────────────────────────────────────┤ │ RÑset │ ÄΓ¬αδóáÑΓ ßπΘÑßΓóπεΘ¿⌐ Σá⌐½. │ ├──────────────────┼────────────────────────────────────────────┤ │ RewritÑ │ æ«ºñáÑΓ ¿ «Γ¬αδóáÑΓ ¡«óδ⌐ Σá⌐½. │ ├──────────────────┼────────────────────────────────────────────┤ │ R¼Dir │ ôñá½∩ÑΓ »πßΓ«⌐ »«ñ¬áΓá½«ú. │ ├──────────────────┼────────────────────────────────────────────┤ │ Seek │ ÅÑαÑ¼ÑΘáÑΓ ΓÑ¬πΘπε »«º¿µ¿ε ó Σá⌐½Ñ ¡á ºá-│ │ │ ñá¡¡δ⌐ φ½Ñ¼Ñ¡Γ. ä½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó ¡Ñ ¿ß-│ │ │ »«½∞ºπÑΓß∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ SeekEof │ é«ºóαáΘáÑΓ ñ½∩ ΓÑ¬ßΓ«ó«ú« Σá⌐½á ß«ßΓ«∩¡¿Ñ│ │ │ "¬«¡Ñµ Σá⌐½á". │ ├──────────────────┼────────────────────────────────────────────┤ │ SeekEoln │ é«ºóαáΘáÑΓ ñ½∩ ΓÑ¬ßΓ«ó«ú« Σá⌐½á ß«ßΓ«∩¡¿Ñ│ │ │ "¬«¡Ñµ ßΓα«¬¿". │ ├──────────────────┼────────────────────────────────────────────┤ │ SetTextBuf │ ìáº¡áτáÑΓ ñ½∩ ΓÑ¬ßΓ«ó«ú« Σá⌐½á íπΣÑα óó«ñá-│ │ │ óδó«ñá. │ ├──────────────────┼────────────────────────────────────────────┤ │ Truncate │ ôßÑ¬áÑΓ αáº¼Ñα Σá⌐½á ñ« ΓÑ¬πΘÑ⌐ »«º¿µ¿¿.│ │ │ ä½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó ¡Ñ ¿ß»«½∞ºπÑΓß∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ Write │ çá»¿ßδóáÑΓ ó Σá⌐½ «ñ¡« ¿½¿ í«½ÑÑ º¡áτÑ¡¿⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ Writeln │ äÑ½áÑΓ Γ« ªÑ, τΓ« Write, ¡« ºáΓÑ¼ ºá»¿ßδ-│ │ │ óáÑΓ ó ΓÑ¬ßΓ«óδ⌐ Σá⌐½ ß¿¼ó«½ ¬«¡µá ßΓα«¬¿. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 217 - öá⌐½«óδ⌐ óó«ñ-óδó«ñ ───────────────────────────────────────────────────────────────── öá⌐½«óá∩ »ÑαÑ¼Ñ¡¡á∩ ó Åáß¬á½Ñ - φΓ« ½εíá∩ »ÑαÑ¼Ñ¡¡á∩ Σá⌐½«- ó«ú« Γ¿»á. é Åáß¬á½Ñ ¿¼ÑεΓß∩ Γα¿ ¬½áßßá Σá⌐½«ó: Γ¿»¿º¿α«óá¡¡δ⌐ Σá⌐½, ΓÑ¬ßΓ«óδ⌐ Σá⌐½ ¿ ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ Σá⌐½. Åα¿¼Ñτá¡¿Ñ: æ¿¡Γá¬ß¿ß ºá»¿ß¿ Γ¿»«ó Σá⌐½«ó »αÑñßΓáó½Ñ¡ ó â½áóÑ 4, ó αáºñÑ½Ñ "æΓαπ¬Γπα¡δÑ Γ¿»δ". ÅÑαÑñ ¿ß»«½∞º«óá¡¿Ñ¼ Σá⌐½«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ «¡á ñ«½ª¡á íδΓ∞ ßó∩ºá¡á ß ó¡ÑΦ¡¿¼ Σá⌐½«¼ ß »«¼«Θ∞ε óδº«óá »α«µÑñπαδ Assign. é¡ÑΦ- ¡¿¼ Σá⌐½«¼ «íδτ¡« ∩ó½∩ÑΓß∩ »«¿¼Ñ¡«óá¡¡δ⌐ Σá⌐½ ¡á ñ¿ß¬Ñ, ¡« «¡ Γá¬ªÑ ¼«ªÑΓ »αÑñßΓáó½∩Γ∞ ß«í«⌐ πßΓα«⌐ßΓó«, ¡á»α¿¼Ñα, ¬½áó¿áΓπαπ ¿½¿ ñ¿ß»½Ñ⌐. é« ó¡ÑΦ¡¿σ Σá⌐½áσ ß«σαá¡∩ÑΓß∩ ºá»¿ßá¡¡á∩ ó Σá⌐½ ¿¡- Σ«α¼áµ¿∩, ¿½¿ «¡¿ ß½πªáΓ ¿ßΓ«τ¡¿¬á¼¿ ¿¡Σ«α¼áµ¿¿, ¬«Γ«αá∩ ßτ¿Γδóá- ÑΓß∩ ¿º Σá⌐½á. è«úñá ßó∩º∞ ß ó¡ÑΦ¡¿¼ Σá⌐½«¼ πßΓá¡«ó½Ñ¡á, ñ½∩ »«ñú«Γ«ó¬¿ ÑÑ ¬ «»Ñαáµ¿¿ óó«ñá ¿½¿ óδó«ñá Σá⌐½«óá∩ »ÑαÑ¼Ñ¡¡á∩ ñ«½ª¡á íδΓ∞ "«Γ¬- αδΓá". æπΘÑßΓóπεΘ¿⌐ Σá⌐½ ¼«ª¡« «Γ¬αδΓ∞ ß »«¼«Θ∞ε »α«µÑñπαδ Reset, á ¡«óδ⌐ Σá⌐½ ¼«ª¡« ß«ºñáΓ∞ ¿ «Γ¬αδΓ∞ ß »«¼«Θ∞ε »α«µÑñπαδ Rewrite. ÆÑ¬ßΓ«óδÑ Σá⌐½δ, «Γ¬αδΓδÑ ß »«¼«Θ∞ε »α«µÑñπαδ Reset ñ«ßΓπ»¡δ Γ«½∞¬« »« τΓÑ¡¿ε, á ΓÑ¬ßΓ«óδÑ Σá⌐½δ, «Γ¬αδΓδÑ ß »«¼«Θ∞ε »α«µÑñπαδ Rewrite, ñ«ßΓπ»¡δ Γ«½∞¬« »« ºá»¿ß¿. Æ¿»¿º¿α«óá¡¡δÑ ¿ ¡ÑΓ¿»¿º¿α«- óá¡¡δÑ Σá⌐½δ óßÑúñá ñ«»πß¬áεΓ ¬á¬ τΓÑ¡¿Ñ, Γá¬ ¿ ºá»¿ß∞, ¡Ñºáó¿ß¿- ¼« «Γ Γ«ú« íδ½¿ «¡¿ «Γ¬αδΓδ ß »«¼«Θ∞ε »α«µÑñπαδ Reset ¿½¿ ß »«- ¼«Θ∞ε »α«µÑñπαδ Rewrite. ïεí«⌐ Σá⌐½, »αÑñßΓáó½∩ÑΓ ß«í«⌐ ½¿¡Ñ⌐¡πε »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ φ½Ñ¼Ñ¡Γ«ó, ¬áªñδ⌐ ¿º ¬«Γ«αδσ ¿¼ÑÑΓ Γ¿» φ½Ñ¼Ñ¡Γá (¿½¿ Γ¿» ºá»¿ß¿) Σá⌐½á. èáªñδ⌐ φ½Ñ¼Ñ¡Γ Σá⌐½á ¿¼ÑÑΓ ¡«¼Ñα. ÅÑαóδ⌐ φ½Ñ¼Ñ¡Γ Σá⌐½á ßτ¿ΓáÑΓß∩ ¡π½Ñóδ¼ φ½Ñ¼Ñ¡Γ«¼. Äíδτ¡« ñ«ßΓπ» ¬ Σá⌐½á¼ «αúá¡¿ºπÑΓß∩ »«ß½Ññ«óáΓÑ½∞¡«, Γ« ÑßΓ∞, ¬«úñá φ½Ñ¼Ñ¡Γ ßτ¿ΓδóáÑΓß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ Read ¿½¿ ºá»¿ßδóáÑΓß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ Write, ΓÑ- ¬πΘá∩ »«º¿µ¿∩ Σá⌐½á »ÑαÑ¼ÑΘáÑΓß∩ ¬ ß½ÑñπεΘÑ¼π »« »«α∩ñ¬π φ½Ñ¼Ñ¡Γπ Σá⌐½á. Äñ¡á¬« ¬ Γ¿»¿º¿α«óá¡¡δ¼ ¿ ¡ÑΓ¿»¿º¿α«óá¡¡δ¼ Σá⌐½á¼ ¼«ª¡« «αúá¡¿º«óáΓ∞ »α∩¼«⌐ ñ«ßΓπ» ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ SÑÑk, ¬«Γ«αá∩ »ÑαÑ¼ÑΘáÑΓ ΓÑ¬πΘπε »«º¿µ¿ε Σá⌐½á ¬ ºáñá¡¡«¼π φ½Ñ¼Ñ¡Γπ. ä½∩ «»αÑñÑ½Ñ¡¿∩ ΓÑ¬πΘÑ⌐ »«º¿µ¿¿ ó Σá⌐½Ñ ¿ ΓÑ¬πΘÑú« αáº¼Ñαá Σá⌐½á ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ßΓá¡ñáαΓ¡δÑ Σπ¡¬µ¿¿ FileP«s ¿ Filesize. è«úñá »α«úαá¼¼á ºáóÑαΦáÑΓ «íαáí«Γ¬π Σá⌐½á, «¡ ñ«½ªÑ¡ ºá¬αδ- óáΓ∞ß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ Close. Å«ß½Ñ »«½¡«ú« ºá¬- αδΓ¿∩ Σá⌐½á ßó∩ºá¡¡δ⌐ ß ¡¿¼ ó¡ÑΦ¡¿⌐ Σá⌐½ «í¡«ó½∩ÑΓß∩. çáΓÑ¼ Σá⌐- ½«óá∩ »ÑαÑ¼Ñ¡¡á∩ ¼«ªÑΓ íδΓ∞ ßó∩ºá¡á ß ñαπú¿¼ ó¡ÑΦ¡¿¼ Σá⌐½«¼. Å« π¼«½τá¡¿ε »α¿ óßÑσ «íαáΘÑ¡¿∩σ ¬ ßΓá¡ñáαΓ¡δ¼ Σπ¡¬µ¿∩¼ ¿ »α«µÑñπαá¼ óó«ñá-óδó«ñá áóΓ«¼áΓ¿τÑß¬¿ »α«¿ºó«ñ¿Γß∩ »α«óÑα¬á ¡á ¡á½¿τ¿Ñ «Φ¿í«¬. Åα¿ «í¡áαπªÑ¡¿¿ «Φ¿í¬¿ »α«úαá¼¼á »αÑ¬αáΘáÑΓ αáí«- Γπ ¿ óδó«ñ¿Γ ¡á φ¬αá¡ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. æ »«¼«Θ∞ε ñ¿αÑ¬Γ¿ó B.Pascal 7 & Objects/LR - 218 - ¬«¼»¿½∩Γ«αá {$I+} ¿ {$I-} φΓπ áóΓ«¼áΓ¿τÑß¬πε »α«óÑα¬π ¼«ª¡« ó¬½ε- τ¿Γ∞ ¿½¿ óδ¬½ετ¿Γ∞. è«úñá áóΓ«¼áΓ¿τÑß¬á∩ »α«óÑα¬á «Γ¬½ετÑ¡á, Γ« ÑßΓ∞ ¬«úñá »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ íδ½á ß¬«¼»¿½¿α«óá¡á ß ñ¿αÑ¬Γ¿ó«⌐ {$I-}, «Φ¿í¬¿ óó«ñá-óδó«ñá, ó«º¡¿¬áεΘ¿Ñ »α¿ αáí«ΓÑ »α«úαá¼¼δ, ¡Ñ »α¿ó«ñ∩Γ ¬ ÑÑ «ßΓá¡«óπ. Åα¿ φΓ«¼, τΓ«íδ »α«óÑα¿Γ∞ αÑºπ½∞ΓáΓ óδ- »«½¡Ñ¡¿∩ «»Ñαáµ¿¿ óó«ñá-óδó«ñá, ¡πª¡« ¿ß»«½∞º«óáΓ∞ ßΓá¡ñáαΓ¡πε Σπ¡¬µ¿ε IÄResult. ä½∩ «τ¿ßΓ¬¿ «Φ¿í¬¿, ¬«Γ«αá∩ ¼«ªÑΓ »α«¿º«⌐Γ¿, óδ ¼«ªÑΓÑ óδº- óáΓ∞ Σπ¡¬µ¿ε IOResult. àß½¿ óδ φΓ«ú« ¡Ñ ßñÑ½áÑΓÑ, ¿ ΓÑ¬πΘ¿¼ ß«ß- Γ«∩¡¿Ñ¼ ∩ó½∩ÑΓß∩ {$I+}, Γ« ¿º-ºá «ßΓáóΦÑ⌐ß∩ «Φ¿í¬¿ IOResult ß½Ñ- ñπεΘá∩ «»Ñαáµ¿∩ óó«ñá-óδó«ñá ºáóÑαΦ¿Γß∩ ß «Φ¿í¬«⌐. Åα¿¼Ñτá¡¿Ñ: àß½¿ óδ »¿ΦÑΓÑ »α«úαá¼¼π ñ½ Windows ¿ ¡Ñ σ«Γ¿ΓÑ, τΓ«íδ Windows «íαáíáΓδóá½á ºá óáß «Φ¿í¬¿ óó«ñá-óδ- ó«ñá ¡á ñ¿ß¬ ¿½¿ ñαπú¿Ñ «Φ¿í¬¿ óó«ñá-óδó«ñá, óδº«ó¿ΓÑ SetErrorMode(1). B.Pascal 7 & Objects/LR - 219 - ÆÑ¬ßΓ«óδÑ Σá⌐½δ ───────────────────────────────────────────────────────────────── é ñá¡¡«¼ αáºñÑ½Ñ «»¿ßδóáεΓß∩ «»Ñαáµ¿¿ óó«ñá ¿ óδó«ñá, ¿ß- »«½∞ºπεΘ¿Ñ Σá⌐½«óπε »ÑαÑ¼Ñ¡¡πε ßΓá¡ñáαΓ¡«ú« ΓÑ¬ßΓ«ó«ú« Γ¿»á. çá- ¼ÑΓ¿¼, τΓ« ó Borland Pascal ΓÑ¬ßΓ«óδ⌐ Γ¿» (Γ¿» Text) «Γ½¿τáÑΓß∩ «Γ ß¿¼ó«½∞¡«ú« Γ¿»á Char. Åα¿ «Γ¬αδΓ¿¿ ΓÑ¬ßΓ«ó«ú« Σá⌐½á ó¡ÑΦ¡¿⌐ Σá⌐½ ¿¡ΓÑα»αÑΓ¿απÑΓß∩ «ß«íδ¼ «íαáº«¼: ßτ¿ΓáÑΓß∩, τΓ« «¡ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »«ß½Ññ«óá- ΓÑ½∞¡«ßΓ∞ ß¿¼ó«½«ó, ßúαπ»»¿α«óá¡¡δσ ó ßΓα«¬¿, úñÑ ¬áªñá∩ ßΓα«¬á ºá¬á¡τ¿óáÑΓß∩ ß¿¼ó«½«¼ ¬«¡µá ßΓα«¬¿ (end-of-line), ¬«Γ«αδ⌐ »αÑñß- Γáó½∩ÑΓ ß«í«⌐ ß¿¼ó«½ »ÑαÑó«ñá ¬áαÑΓ¬¿, ºá ¬«Γ«αδ¼ ó«º¼«ª¡« ß½Ññπ- ÑΓ ß¿¼ó«½ »ÑαÑó«ñá ßΓα«¬¿. ä½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó ßπΘÑßΓóπÑΓ ß»Ñµ¿á½∞¡δ⌐ ó¿ñ «»Ñαáµ¿⌐ τΓÑ¡¿∩ ¿ ºá»¿ß¿ (read ¿ write), ¬«Γ«αδ⌐ »«ºó«½∩εΓ óá¼ ßτ¿ΓδóáΓ∞ ¿ ºá»¿ßδóáΓ∞ º¡áτÑ¡¿∩, Γ¿» ¬«Γ«αδσ «Γ½¿τáÑΓß∩ «Γ ß¿¼ó«½∞¡«ú« Γ¿»á Char. Æá¬¿Ñ º¡áτÑ¡¿∩ áóΓ«¼áΓ¿τÑß¬¿ »ÑαÑó«ñ∩Γß∩ ó ß¿¼ó«½∞¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ ¿ «íαáΓ¡«. ìá»α¿¼Ñα, Read(f,i), úñÑ i - »ÑαÑ¼Ñ¡¡á∩ µÑ½«ú« Γ¿»á, »α¿óÑñÑΓ ¬ ßτ¿Γδóá¡¿ε »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ µ¿Σα, ¿¡- ΓÑα»αÑΓáµ¿¿ φΓ«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿, ¬á¬ ñÑß∩Γ¿τ¡«ú« τ¿ß½á, ¿ ß«σαá¡Ñ¡¿ε Ñú« ó i. èá¬ íδ½« «Γ¼ÑτÑ¡« αá¡ÑÑ, ¿¼ÑεΓß∩ ñóÑ ßΓá¡ñáαΓ¡δσ »ÑαÑ¼Ñ¡¡δσ ΓÑ¬ßΓ«ó«ú« Γ¿»á - φΓ« Input ¿ Äutput. æΓá¡ñáαΓ¡á∩ Σá⌐½«óá∩ »ÑαÑ- ¼Ñ¡¡á∩ Input - φΓ« ñ«ßΓπ»¡δ⌐ Γ«½∞¬« »« τΓÑ¡¿ε Σá⌐½, ßó∩ºá¡¡δ⌐ ß« ßΓá¡ñáαΓ¡δ¼ Σá⌐½«¼ óó«ñá «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼δ («íδτ¡« φΓ« ¬½áó¿á- Γπαá), á ßΓá¡ñáαΓ¡á∩ Σá⌐½«óá∩ »ÑαÑ¼Ñ¡¡á∩ Äutput - φΓ« ñ«ßΓπ»¡δ⌐ Γ«½∞¬« »« ºá»¿ß¿ Σá⌐½, ßó∩ºá¡¡δ⌐ ß« ßΓá¡ñáαΓ¡δ¼ Σá⌐½«¼ óδó«ñá «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼δ («íδτ¡« φΓ« ñ¿ß»½Ñ⌐). ÅÑαÑñ ¡áτá½«¼ óδ»«½¡Ñ- ¡¿∩ »α«úαá¼¼δ DOS Σá⌐½δ Input ¿ Äutput áóΓ«¼áΓ¿τÑß¬¿ «Γ¬αδóáεΓß∩, ¬á¬ Ñß½¿ íδ íδ½¿ óδ»«½¡Ñ¡δ ß½ÑñπεΘ¿Ñ «»ÑαáΓ«αδ: Assign(Input,''); Reset(Input); Assign(Output,''); Rewrite(Output); Æá¬ ¬á¬ Windows ¡Ñ »«ññÑαª¿óáÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡« «α¿Ñ¡Γ¿α«- óá¡¡δ⌐ ¡á ΓÑ¬ßΓ óó«ñ ¿ óδó«ñ, Σá⌐½δ Input ¿ Output »« π¼«½τá¡¿ε ó »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ Windows ¡Ñ »α¿ßóá¿óáεΓß∩, ¿ ½εíá∩ »«»δΓ¬á τΓÑ¡¿∩ ¿º φΓ¿σ Σá⌐½«ó ¿½¿ ºá»¿ß¿ ó ¡¿σ »α¿óÑñÑΓ ¬ «Φ¿í¬Ñ óó«- ñá-óδó«ñá. Äñ¡á¬«, Ñß½¿ »α¿¬½áñ¡á∩ »α«úαá¼¼á ¿ß»«½∞ºπÑΓ ¼«ñπ½∞ WinCrt, Γ« Input ¿ Output íπñπΓ ßßδ½áΓ∞ß∩ ¡á »α«¬απτ¿óáÑ¼«Ñ ΓÑ¬ß- Γ«ó«Ñ «¬¡«. î«ñπ½∞ WinCrt ß«ñÑαª¿Γ óßε ½«ú¿¬π π»αáó½Ñ¡¿∩, ¡Ñ«íσ«- ñ¿¼πε ñ½∩ φ¼π½∩µ¿¿ ΓÑ¬ßΓ«ó«ú« φ¬αá¡á ó «»Ñαáµ¿«¡¡«⌐ ßαÑñÑ Windows, »«φΓ«¼π ó »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ, ¿ß»«½∞ºπεΘÑ⌐ ¼«ñπ½∞ WinCrt, ¡Ñ ΓαÑíπÑΓß∩ ¡¿¬á¬¿σ »α¿Ñ¼«ó »α«úαá¼¼¿α«óá¡¿∩, ß»Ñµ¿Σ¿- τÑß¬¿σ ñ½∩ Windows. ä½∩ ¡Ñ¬«Γ«αδσ ¿º ßΓá¡ñáαΓ¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐, ß»¿ß«¬ ¬«- Γ«αδσ »α¿óÑñÑ¡ ó ñá¡¡«¼ αáºñÑ½Ñ, ¡Ñ ΓαÑíπÑΓß∩ ∩ó¡« π¬áºδóáΓ∞ ó B.Pascal 7 & Objects/LR - 220 - ¬áτÑßΓóÑ »áαá¼ÑΓαá Σá⌐½«óπε »ÑαÑ¼Ñ¡¡πε. àß½¿ φΓ«Γ »áαá¼ÑΓα «»π- ΘÑ¡, Γ« »« π¼«½τá¡¿ε íπñπΓ αáßß¼áΓα¿óáΓ∞ß∩ »ÑαÑ¼Ñ¡¡δÑ Input ¿½¿ Output, ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ«ú«, íπñÑΓ ½¿ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ «α¿Ñ¡Γ¿α«óá¡á ¡á óó«ñ ¿½¿ ¡á óδó«ñ. ìá»α¿¼Ñα, Read(σ) ß««ΓóÑΓß- ΓóπÑΓ Read(Input,σ) ¿ Write(σ) ß««ΓóÑΓßΓóπÑΓ Write(Output,σ). àß½¿ »α¿ óδº«óÑ «ñ¡«⌐ ¿º »α«µÑñπα ¿½¿ Σπ¡¬µ¿⌐ ¿º φΓ«ú« αáº- ñÑ½á óδ ºáñáÑΓÑ Σá⌐½, φΓ«Γ Σá⌐½ ñ«½ªÑ¡ íδΓ∞ ßó∩ºá¡ ß ó¡ÑΦ¡¿¼ Σá⌐- ½«ó ß »«¼«Θ∞ε »α«µÑñπαδ Assign ¿ «Γ¬αδΓ ß »«¼«Θ∞ε »α«µÑñπαδ Reset, RewritÑ ¿½¿ Append. àß½¿ ñ½∩ «α¿Ñ¡Γ¿α«óá¡¡«⌐ ¡á óδó«ñ »α«- µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ óδ π¬áºδóáÑΓÑ Σá⌐½, ¬«Γ«αδ⌐ íδ½ «Γ¬αδΓ ß »«- ¼«Θ∞ε »α«µÑñπαδ Reset, Γ« óδóÑñÑΓß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. Ç¡á½«- ú¿τ¡«, íπñÑΓ «Φ¿í¬«⌐ ºáñáóáΓ∞ ñ½∩ «α¿Ñ¡Γ¿α«óá¡¡«⌐ ¡á óó«ñ »α«µÑ- ñπαδ ¿½¿ Σπ¡¬µ¿¿ Σá⌐½, «Γ¬αδΓδ⌐ ß »«¼«Θ∞ε »α«µÑñπα Rewrite ¿½¿ Append. B.Pascal 7 & Objects/LR - 221 - ìÑΓ¿»¿º¿α«óá¡¡δÑ Σá⌐½δ ───────────────────────────────────────────────────────────────── ìÑΓ¿»¿º¿α«óá¡¡δÑ Σá⌐½δ »αÑñßΓáó½∩εΓ ß«í«⌐ ¬á¡á½δ óó«ñá-óδó«- ñá ¡¿ª¡Ñú« πα«ó¡∩, ¿ß»«½∞ºπÑ¼δÑ ó «ß¡«ó¡«¼ ñ½∩ »α∩¼«ú« ñ«ßΓπ»á ¬ ½εí«¼π Σá⌐½π ¡á ñ¿ß¬Ñ, ¡Ñºáó¿ß¿¼« «Γ Ñú« Γ¿»á ¿ ßΓαπ¬Γπαδ. ïεí«⌐ ¡ÑΓ¿»¿º¿α«óá¡¡δ⌐ Σá⌐½ «»¿ßδóáÑΓß∩ ß½«ó«¼ file íÑº áΓα¿íπΓ«ó. ìá»- α¿¼Ñα: var DataFile: file; ä½∩ ¡ÑΓ¿»¿º¿α«óá¡¡δσ Σá⌐½«ó ó »α«µÑñπαáσ Reset ¿ Rewrite ñ«- »πß¬áÑΓß∩ π¬áºδóáΓ∞ ñ«»«½¡¿ΓÑ½∞¡δ⌐ »áαá¼ÑΓα, τΓ«íδ ºáñáΓ∞ αáº¼Ñα ºá»¿ß¿, ¿ß»«½∞ºπεΘ¿⌐ß∩ »α¿ »ÑαÑñáτÑ Σá⌐½á. Å« ¿ßΓ«α¿τÑß¬¿¼ »α¿τ¿¡á¼ »α¿¡¿¼áÑ¼á∩ »« π¼«½τá¡¿ε ñ½¿¡á ºá- »¿ß¿ αáó¡á 128 íá⌐Γá¼. ÅαÑñ»«τΓ¿ΓÑ½∞¡«⌐ ñ½¿¡«⌐ ºá»¿ß¿ ∩ó½∩ÑΓß∩ ñ½¿¡á ºá»¿ß¿, αáó¡á∩ 1, »«ß¬«½∞¬π φΓ« Ññ¿¡ßΓóÑ¡¡«Ñ º¡áτÑ¡¿Ñ, ¬«- Γ«α«Ñ »«ºó«½∩ÑΓ Γ«τ¡« «Γαáº¿Γ∞ αáº¼Ñα ½εí«ú« Σá⌐½á (¬«úñá ñ½¿¡á ºá»¿ß¿ αáó¡á 1, Γ« ó Σá⌐½Ñ ¡Ñ ¼«úπΓ »α¿ßπΓßΓó«óáΓ∞ ¡Ñ»«½¡δÑ ºá»¿- ß¿, Γ« ÑßΓ∞ ºá»¿ß¿ ß ¼Ñ¡∞ΦÑ⌐ ñ½¿¡«⌐). çá ¿ß¬½ετÑ¡¿Ñ¼ »α«µÑñπα Read ¿ Write ñ½∩ óßÑσ ¡ÑΓ¿»¿º¿α«óá¡- ¡δσ Σá⌐½«ó ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ ½εí«⌐ ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ, ¬«Γ«αδÑ ñ«»πß¬áÑΓß∩ ¿ß»«½∞º«óáΓ∞ ß Γ¿»¿º¿α«óá¡¡δ¼¿ Σá⌐½á¼¿. é¼Ñß- Γ« »α«µÑñπα Read ¿ Write ºñÑß∞ ¿ß»«½∞ºπεΓß∩ ß««ΓóÑΓßΓóÑ¡¡« »α«µÑ- ñπαδ BlockrÑád ¿ BlockWrite »«ºó«½∩εΘ¿Ñ »ÑαÑßδ½áΓ∞ ñá¡¡δÑ ß óδß«- ¬«⌐ ß¬«α«ßΓ∞ε. ÅÑαÑ¼Ñ¡¡á∩ FileMode ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡á∩ FileMode, «»αÑñÑ½Ñ¡¡á∩ ó ¼«ñπ½Ñ System, ºáñáÑΓ ¬«ñ ñ«ßΓπ»á, »ÑαÑñáóáÑ¼δ⌐ ó DOS ñ½∩ Γ¿»¿º¿α«óá¡¡δσ ¿ ¡ÑΓ¿»¿º¿α«- óá¡¡δσ Σá⌐½«ó (¡Ñ ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó), ¬«úñá «¡¿ «Γ¬αδóáεΓß∩ ß »«¼«Θ∞ε »α«µÑñπαδ Reset. Å« π¼«½τá¡¿ε º¡áτÑ¡¿Ñ FileMode = 2. Åα¿ φΓ«¼ ñ«»πß¬áÑΓß∩ τΓÑ¡¿Ñ ¿ ºá»¿ß∞ Σá⌐½á. Åα¿ßóá¿óá¡¿Ñ FileMode ñαπú«ú« º¡áτÑ¡¿∩ »α¿ó«ñ¿Γ ¬ ¿ß»«½∞º«óá¡¿ε φΓ«ú« αÑª¿¼á »α¿ óßÑσ »«ß½ÑñπεΘ¿σ óδº«- óáσ Reset. Åα¿¼Ñτá¡¿Ñ: ì«óδÑ Σá⌐½δ, «Γ¬αδóáÑ¼δÑ ß »«¼«Θ∞ε Rewrite, óßÑúñá «Γ¬αδóáεΓß∩ ó αÑª¿¼Ñ τΓÑ¡¿∩/ºá»¿ß¿, τΓ« ß«- «ΓóÑΓßΓóπÑΓ Filemode = 2. ä¿á»áº«¡ ñ«»πßΓ¿¼δσ º¡áτÑ¡¿⌐ FileMode ºáó¿ß¿Γ «Γ ¿ß»«½∞ºπÑ- ¼«⌐ óÑαß¿¿ DOS. Äñ¡á¬« ó« óßÑσ óÑαß¿∩σ «»αÑñÑ½Ñ¡δ ß½ÑñπεΘ¿Ñ αÑª¿- ¼δ: 0: ñ«ßΓπ» Γ«½∞¬« »« τΓÑ¡¿ε 1: Æ«½∞¬« ºá»¿ß∞ B.Pascal 7 & Objects/LR - 222 - 2: ùΓÑ¡¿Ñ/ºá»¿ß∞ é DOS óÑαß¿¿ 3.σ «»αÑñÑ½Ñ¡δ ñ«»«½¡¿ΓÑ½∞¡δÑ αÑª¿¼δ, ¬«Γ«αδÑ ¬áßáεΓß∩ ó «ß¡«ó¡«¼ ß«ó¼ÑßΓ¡«ú« ¿ß»«½∞º«óá¡¿∩ Σá⌐½«ó »α¿ αáí«ΓÑ ó ßÑΓ¿ (í«½ÑÑ »«ñα«í¡« φΓ« «»¿ßδóáÑΓß∩ ó "Éπ¬«ó«ñßΓóÑ »α«úαá¼¼¿ßΓá »« DOS"). ôßΓα«⌐ßΓóá ó Borland Pascal ───────────────────────────────────────────────────────────────── é Borland Pascal ¿ ó «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ DOS ó¡ÑΦ¡∩∩ á»»á- αáΓπαá, ¬á¬, ¡á»α¿¼Ñα, ¬½áó¿áΓπαá, πßΓα«⌐ßΓó« »ÑτáΓ¿, ñ¿ß»½Ñ⌐, αáßß¼áΓα¿óáÑΓß∩, ¬á¬ πßΓα«⌐ßΓóá. æ Γ«τ¬¿ ºαÑ¡¿∩ »α«úαá¼¼¿ßΓá πßΓ- α«⌐ßΓó« ¼«ª¡« αáßß¼áΓα¿óáΓ∞, ¬á¬ Σá⌐½, ¿ ß ¡¿¼ ¼«ª¡« αáí«ΓáΓ∞ ß »«¼«Θ∞ε Γ«ú« ªÑ ¡áí«αá ßΓá¡ñáαΓ¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐, τΓ« ¿ ß Σá⌐½«¼. é Æπαí« Åáß¬á½Ñ »«ññÑαª¿óáÑΓß∩ ñóá Γ¿»á πßΓα«⌐ßΓó - πßΓ- α«⌐ßΓóá DOS ¿ πßΓα«⌐ßΓóá ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó. B.Pascal 7 & Objects/LR - 223 - ôßΓα«⌐ßΓóá DOS ───────────────────────────────────────────────────────────────── ôßΓα«⌐ßΓóá DOS αÑá½¿º«óá¡δ ß »«¼«Θ∞ε ºáαÑºÑαó¿α«óá¡¡δσ ¿¼Ñ¡ πßΓα«⌐ßΓó, ¬«Γ«αδÑ ¿¼ÑεΓ ß»Ñµ¿á½∞¡δ⌐ ß¼δß½. ôßΓα«⌐ßΓóá DOS »«½- ¡«ßΓ∞ε "»α«ºαáτ¡δ": ó Æπαí« Åáß¬á½Ñ ¡Ñ¿ºóÑßΓ¡« ñáªÑ, ¬«úñá Σá⌐½«- óá∩ »ÑαÑ¼Ñ¡¡á∩ ßó∩ºá¡á ß πßΓα«⌐ßΓó«¼, á ¬«úñá ß Σá⌐½«¼ ¡á ñ¿ß¬Ñ. ìá»α¿¼Ñα, »α«úαá¼¼á: var Lst: Text; begin Assign(Lst,'LPT1'); Rewrite(Lst); Writeln(Lst,'Åα¿óÑΓ...'); Close(Lst); end; óδóÑñÑΓ ßΓα«¬π "Åα¿óÑΓ..." ¡á πßΓα«⌐ßΓó« »ÑτáΓ¿, σ«Γ∩ ß¿¡Γá¬ß¿ß Γ«τ¡« Γá¬«⌐ ªÑ, ¬á¬ Ñß½¿ íδ «¡á óδó«ñ¿½áß∞ ó Σá⌐½. ôßΓα«⌐ßΓóá, αÑá½¿º«óá¡¡δÑ ó «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ DOS, ¿ß- »«½∞ºπεΓß∩ ñ½∩ «ñ¡«º¡áτ¡«ú« óó«ñá ¿½¿ óδó«ñá. Æá¬¿¼ «íαáº«¼, πßΓ- α«⌐ßΓóá ó DOS ¿ß»«½∞ºπεΓß∩ «íδτ¡« ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó. é αÑñ¬¿σ ß½πτá∩σ ñ½∩ αáí«Γδ ß πßΓα«⌐ßΓóá¼¿ DOS ¼«ªÑΓ «¬áºáΓ∞ß∩ »«½Ñº¡δ¼ ¿ß»«½∞º«óá¡¿Ñ Γá¬ªÑ ¡ÑΓ¿»¿º¿α«óá¡¡«ú« Σá⌐½á. B.Pascal 7 & Objects/LR - 224 - ôßΓα«⌐ßΓó« CÄN ───────────────────────────────────────────────────────────────── ôßΓα«⌐ßΓó« CÄN «º¡áτáÑΓ ¬«¡ß«½∞, »«ßαÑñßΓó«¼ ¬«Γ«α«⌐ óδó«ñ¿- ¼á∩ ¿¡Σ«α¼áµ¿∩ »ÑαÑßδ½áÑΓß∩ ¡á φ¬αá¡ ñ¿ß»½Ñ∩, á óó«ñ¿¼á∩ ¿¡Σ«α¼á- µ¿∩ ó«ß»α¿¡¿¼áÑΓß∩ ß ¬½áó¿áΓπαδ. àß½¿ ¡Ñ íδ½« ¿º¼Ñ¡Ñ¡« ¡á»αáó½Ñ- ¡¿Ñ óó«ñá ¿½¿ óδó«ñá, ßΓá¡ñáαΓ¡δÑ Σá⌐½δ Input ¿ Äutput ¿ óßÑ Σá⌐½δ, ¬«Γ«αδ¼ »α¿ßó«Ñ¡« »πßΓ«Ñ ¿¼∩, ßßδ½áεΓß∩ ¡á πßΓα«⌐ßΓó« CÄN. éó«ñ¿¼á∩ ß πßΓα«⌐ßΓóá CÄN ¿¡Σ«α¼áµ¿∩ ∩ó½∩ÑΓß∩ ßΓα«τ¡«-«α¿Ñ¡- Γ¿α«óá¡¡«⌐ ¿ ¿ß»«½∞ºπÑΓß∩ ßαÑñßΓóá¼¿ αÑñá¬Γ¿α«óá¡¿∩ ßΓα«¬¿, ¬«Γ«- αδÑ «»¿ßá¡δ ó απ¬«ó«ñßΓóÑ »« DOS. æ¿¼ó«½δ ßτ¿ΓδóáεΓß∩ ¿º íπΣÑαá ßΓα«¬¿, á ¬«úñá íπΣÑα ßΓá¡«ó¿Γß∩ »πßΓδ¼, óó«ñ¿Γß∩ ¡«óá∩ ßΓα«¬á. Åα¿ ¡áªáΓ¿¿ ¬½áó¿Φ Ctrl+Z úÑ¡Ñα¿απÑΓß∩ ß¿¼ó«½ ¬«¡µá Σá⌐½á (end-of-file), »«ß½Ñ ¬«Γ«α«ú« Σπ¡¬µ¿∩ E«f ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ TruÑ. ôßΓα«⌐ßΓóá LÉT1, LÉT2 ¿ LÉT3 ───────────────────────────────────────────────────────────────── é ¬áτÑßΓóÑ ó«º¼«ª¡«ú« πßΓα«⌐ßΓóá »«ßΓα«τ¡«⌐ »ÑτáΓ¿ ñ«»πß¬á- ÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ ñ« ΓαÑσ πßΓα«⌐ßΓó »ÑτáΓ¿. àß½¿ »α¿ß«Ññ¿¡Ñ¡« Γ«½∞¬« «ñ¡« πßΓα«⌐ßΓó« »ÑτáΓ¿, ¡á ¡Ñú« «íδτ¡« ßßδ½áεΓß∩, ¬á¬ ¡á πßΓα«⌐ßΓó« LÉT1. ä½∩ φΓ«ú« πßΓα«⌐ßΓóá ¼«ª¡« Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ ß¿¡«¡¿¼ ÉRN. Å«ßΓα«τ¡«Ñ πßΓα«⌐ßΓó« »ÑτáΓ¿ - φΓ« πßΓα«⌐ßΓó«, »αÑñ¡áº¡áτÑ¡- ¡«Ñ Γ«½∞¬« ñ½∩ óδó«ñá. Åα¿ ½εí«⌐ »«»δΓ¬Ñ ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ Reset ñ½∩ «Γ¬αδΓ¿∩ Σá⌐½á, ßó∩ºá¡¡«ú« ß «ñ¡¿¼ ¿º φΓ¿σ πßΓα«⌐ßΓó, ¡Ñ¼Ññ½Ñ¡¡« úÑ¡Ñα¿απÑΓß∩ »α¿º¡á¬ ¬«¡µá Σá⌐½á. æΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞ Érinter «»¿ßδóáÑΓ ΓÑ¬ßΓ«óπε Σá⌐½«óπε »Ñ- αÑ¼Ñ¡¡πε ß ¿¼Ñ¡Ñ¼ Lst ¿ πßΓá¡áó½¿óáÑΓ ÑÑ ßó∩º∞ ß πßΓα«⌐ßΓó«¼ LÉT1. ùΓ«íδ «í½Ñúτ¿Γ∞ óδó«ñ ¬á¬«⌐-½¿í« ¿¡Σ«α¼áµ¿¿ ¿º óáΦÑ⌐ »α«ú- αá¼¼δ ¡á πßΓα«⌐ßΓó« »ÑτáΓ¿, ó¬½ετ¿ΓÑ ó «»ÑαáΓ«α uses óáΦÑ⌐ »α«ú- αá¼¼δ ¼«ñπ½∞ Érinter, á ñ½∩ óδó«ñá ¿ß»«½∞ºπ⌐ΓÑ »α«µÑñπαδ WritÑ(Lst,...) ¿ WritÑln(Lst,...). Åα¿¼Ñτá¡¿Ñ: Ä »ÑτáΓ¿ ¿º »α«úαá¼¼δ Windows αáßß¬áºδóá- ÑΓß∩ ¡¿ªÑ. B.Pascal 7 & Objects/LR - 225 - ôßΓα«⌐ßΓóá CÄî1 ¿ CÄî2 ───────────────────────────────────────────────────────────────── è«¼¼π¡¿¬áµ¿«¡¡δ¼¿ »«αΓá¼¿ (CÄî1 ¿ CÄî2) ∩ó½∩εΓß∩ πßΓα«⌐ßΓóá, »αÑñßΓáó½∩εΘ¿Ñ ß«í«⌐ ñóá »«ß½Ññ«óáΓÑ½∞¡δσ ¬«¼¼π¡¿¬áµ¿«¡¡δσ »«αΓá. é¼ÑßΓ« CÄî1 ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ß¿¡«¡¿¼ AUò. ôßΓα«⌐ßΓó« NUL ───────────────────────────────────────────────────────────────── ìπ½Ñó«Ñ πßΓα«⌐ßΓó« (NUL) ¿ú¡«α¿απÑΓ ½εíπε »«»δΓ¬π ºá»¿ß¿ ¡á ¡Ñú« ¿ ¡Ñ¼Ññ½Ñ¡¡« úÑ¡Ñα¿απÑΓ »α¿º¡á¬ ¬«¡µá Σá⌐½á »α¿ »«»δΓ¬¿ ßτ¿- Γδóá¡¿∩ ß φΓ«ú« πßΓα«⌐ßΓóá. àú« ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞, Ñß½¿ óδ ¡Ñ σ«Γ¿ΓÑ ß«ºñáóáΓ∞ «ΓñÑ½∞¡δ⌐ Σá⌐½, á ó »α«úαá¼¼Ñ ΓαÑíπÑΓß∩ π¬áºáΓ∞ ¿¼∩ óσ«ñ¡«ú« ¿½¿ óδσ«ñ¡«ú« Σá⌐½á. é «íΘÑ¼ ß½πτáÑ ß½ÑñπÑΓ ¿ºíÑúáΓ∞ ¿ß»«½∞º«óá¡¿∩ πßΓα«⌐ßΓó DOS »«ñ Windows ¿ »α¿¼Ñ¡∩Γ∞ Σπ¡¬µ¿¿ óó«ñá-óδó«ñá API Windows. ìÑ¬«Γ«- αδÑ πßΓα«⌐ßΓóá, Γá¬¿Ñ ¬á¬ CON, ¡Ñ íπñπΓ »αáó¿½∞¡« αáí«ΓáΓ∞. äαπ- ú¿Ñ πßΓα«⌐ßΓóá ¼«úπΓ αáí«ΓáΓ∞, ¡« αÑºπ½∞ΓáΓδ ¼«úπΓ «¬áºáΓ∞ß∩ ¡Ñ ΓÑ¼¿, τΓ« óδ «ª¿ñáÑΓÑ. ìá»α¿¼Ñα, Ñß½¿ óδ ¿ß»«½∞ºπÑΓÑ LPT1, óáΦá αáß»ÑτáΓ¬á ¼«ªÑΓ óδó«ñ¿Γ∞ß∩, »αÑαδóá∩ ñαπú«Ñ ºáñá¡¿Ñ »ÑτáΓ¿. Å«φ- Γ«¼π ¡áñÑª¡ÑÑ ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿¿ API Windows. ôßΓα«⌐ßΓóá, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó ───────────────────────────────────────────────────────────────── ôßΓα«⌐ßΓóá, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó, ¿ß»«½∞ºπ- εΓß∩ ñ½∩ αÑá½¿ºáµ¿¿ πßΓα«⌐ßΓó, ¡Ñ »«ññÑαª¿óáÑ¼δσ ó DOS, ¿½¿ ñ½∩ Γ«ú«, τΓ«íδ ßñÑ½áΓ∞ ñ«ßΓπ»¡δ¼ ¡áí«α ßαÑñßΓó, «Γ½¿τáεΘ¿⌐ß∩ «Γ Γ«- ú«, ¬«Γ«αδ⌐ »αÑñπß¼«ΓαÑ¡ ñ½∩ á¡á½«ú¿τ¡«ú« πßΓα«⌐ßΓóá DOS. ò«α«Φ¿¼ »α¿¼Ñα«¼ πßΓα«⌐ßΓóá, »αÑñ¡áº¡áτÑ¡¡«ú« ñ½∩ ΓÑ¬ßΓ«ó«ú« Σá⌐½á, ∩ó½∩- ÑΓß∩ «¬¡« CRT, αÑá½¿º«óá¡¡«Ñ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«ú« ¼«ñπ½∩ Crt. Ä¡« «íÑß»Ñτ¿óáÑΓ á¡á½«ú¿τ¡δ⌐ ΓÑα¼¿¡á½π ΓÑ¬ßΓ«óδ⌐ φ¬αá¡ ¿ »«ºó«½∩- ÑΓ óá¼ ß«ºñáóáΓ∞ »α¿¬½áñ¡δÑ »α«úαá¼¼δ ß« "ßΓá¡ñáαΓ¡δ¼ óó«ñ«¼-óδ- ó«ñ«¼" ß ¼¿¡¿¼á½∞¡δ¼¿ πß¿½¿∩¼¿, ¿ß»«½∞ºπ∩ Γá¬¿Ñ ßαÑñßΓóá, ¬á¬ µóÑΓá ¿ «¬¡á. é «Γ½¿τ¿Ñ «Γ πßΓα«⌐ßΓó DOS, πßΓα«⌐ßΓóá, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ óδó«ñá ΓÑ¬ßΓ«óδσ Σá⌐½«ó, ¡Ñ ¿¼ÑεΓ ºáαÑºÑαó¿α«óá¡¡δσ ¿¼Ñ¡. öá¬Γ¿- τÑß¬¿, π ¡¿σ ó««íΘÑ «ΓßπΓßΓóπεΓ ¿¼Ñ¡á. é¼ÑßΓ« φΓ«ú« Σá⌐½ ßó∩ºδóá- ÑΓß∩ ó πßΓα«⌐ßΓó«¼ ß »«¼«Θ∞ε «íδτ¡«⌐ »α«µÑñπαδ Assign. ìá»α¿¼Ñα, ßΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞ Crt αÑá½¿ºπÑΓ »α«µÑñπαπ AssignCrt, ¬«Γ«αá∩ ßó∩ºδóáÑΓ ΓÑ¬ßΓ«óδÑ Σá⌐½δ ß πßΓα«⌐ßΓó«¼ CRT. ôßΓα«⌐ßΓóá, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó, ¿ß»«½∞ºπ- εΓß∩ ñ½∩ αÑá½¿ºáµ¿¿ πßΓα«⌐ßΓó, ¡Ñ »«ññÑαª¿óáÑ¼δσ ó DOS, ¿½¿ ñ½∩ Γ«ú«, τΓ«íδ ßñÑ½áΓ∞ ñ«ßΓπ»¡δ¼ ¡áí«α ßαÑñßΓó, «Γ½¿τáεΘ¿⌐ß∩ «Γ Γ«- ú«, ¬«Γ«αδ⌐ »αÑñπß¼«ΓαÑ¡ ñ½∩ á¡á½«ú¿τ¡«ú« πßΓα«⌐ßΓóá DOS. ò«α«Φ¿¼ »α¿¼Ñα«¼ πßΓα«⌐ßΓóá, »αÑñ¡áº¡áτÑ¡¡«ú« ñ½∩ ΓÑ¬ßΓ«ó«ú« Σá⌐½á, ∩ó½∩- ÑΓß∩ πßΓα«⌐ßΓó« CRT, αÑá½¿º«óá¡¡«Ñ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«ú« ¼«ñπ½∩ B.Pascal 7 & Objects/LR - 226 - Crt. àú« «ß¡«ó¡«⌐ Σπ¡¬µ¿Ñ⌐ ∩ó½∩ÑΓß∩ «íÑß»ÑτÑ¡¿Ñ ¿¡ΓÑαΣÑ⌐ßá ß ñ¿ß»½ÑÑ¼ ¿ ¬½áó¿áΓπα«⌐, á¡á½«ú¿τ¡« πßΓα«⌐ßΓóπ CÄN ó ¼«ñπ½Ñ Dos. é «Γ½¿τ¿Ñ «Γ πßΓα«⌐ßΓó DOS, πßΓα«⌐ßΓóá, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ óδó«ñá ΓÑ¬ßΓ«óδσ Σá⌐½«ó, ¡Ñ ¿¼ÑεΓ ºáαÑºÑαó¿α«óá¡¡δσ ¿¼Ñ¡. öá¬Γ¿- τÑß¬¿, π ¡¿σ ó««íΘÑ «ΓßπΓßΓóπεΓ ¿¼Ñ¡á. é¼ÑßΓ« φΓ«ú« Σá⌐½ ßó∩ºδóá- ÑΓß∩ ß πßΓα«⌐ßΓó«¼ ß »«¼«Θ∞ε «íδτ¡«⌐ »α«µÑñπαδ Assign. ìá»α¿¼Ñα, ßΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞ Crt αÑá½¿ºπÑΓ »α«µÑñπαπ AssignCrt, ¬«Γ«αá∩ ßó∩ºδóáÑΓ ΓÑ¬ßΓ«óδÑ Σá⌐½δ ß πßΓα«⌐ßΓó«¼ CRT. éó«ñ ¿ óδó«ñ ß »«¼«Θ∞ε ¼«ñπ½∩ Crt ───────────────────────────────────────────────────────────────── Åα¿¼Ñτá¡¿Ñ: ¥Γ«Γ αáºñÑ½ «Γ¡«ß¿Γß∩ Γ«½∞¬« ¬ »α«úαá¼¼á¼ αÑá½∞¡«ú« ¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS. î«ñπ½∞ Crt »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ óßÑ ó«º¼«ª¡«ßΓ¿ ñ¿ß»½Ñ∩ ¿ ¬½áó¿áΓπαδ »Ñαß«¡á½∞¡«ú« ¬«¼»∞εΓÑαá Éæ, ó¬½ετá∩ π»αáó½Ñ¡¿Ñ αÑª¿- ¼«¼ φ¬αá¡á, αáßΦ¿αÑ¡¡δÑ ¬«ñδ ¬½áó¿áΓπαδ, µóÑΓ, «¬¡á ¿ ºóπ¬«óδÑ ß¿ú¡á½δ. î«ñπ½∞ Crt αÑá½¿ºπÑΓ α∩ñ ¼«Θ¡δσ »α«úαá¼¼, »αÑñ«ßΓáó½∩εΘ¿σ óá¼ »«½¡πε ó«º¼«ª¡«ßΓ∞ π»αáó½Ñ¡¿∩ ßαÑñßΓóá¼¿ ¬«¼»∞εΓÑαá Éæ, Γá¬¿- ¼¿, ¬á¬ π»αáó½Ñ¡¿Ñ αÑª¿¼«¼ φ¬αá¡á, αáßΦ¿αÑ¡¡δÑ ¬«ñδ ¬½áó¿áΓπαδ, µóÑΓá, «¬¡á, ¿ ºóπ¬«óδÑ ß¿ú¡á½δ. î«ñπ½∞ Crt ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ Γ«½∞¬« ó »α«úαá¼¼áσ, αáí«ΓáεΘ¿σ ¡á »Ñαß«¡á½∞¡δσ ¬«¼»∞εΓÑαáσ IBM Éæ, Éæ AT, ÉS/2 Σ¿α¼δ IBM ¿ »«½¡«ßΓ∞ε ß«ó¼ÑßΓ¿¼δσ ß ¡¿¼¿. Äñ¡¿¼ ¿º «ß¡«ó¡δσ »αÑ¿¼πΘÑßΓó ¿ß»«½∞º«óá¡¿∩ ¼«ñπ½∩ Crt ∩ó½∩- ÑΓß∩ í«½∞Φá∩ ß¬«α«ßΓ∞ ¿ ú¿í¬«ßΓ∞ »α¿ óδ»«½¡Ñ¡¿¿ «»Ñαáµ¿⌐ αáí«Γδ ß φ¬αá¡«¼. Åα«úαá¼¼δ, ¡Ñ αáí«ΓáεΘ¿Ñ ß ¼«ñπ½Ñ¼ Crt, óδó«ñ∩Γ ¡á φ¬αá¡ ¿¡Σ«α¼áµ¿ε ß »«¼«Θ∞ε ßαÑñßΓó «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼δ DOS, τΓ« ßó∩ºá- ¡« ß ñ«»«½¡¿ΓÑ½∞¡δ¼¿ ¡Ñ»α«¿ºó«ñ¿ΓÑ½∞¡δ¼¿ ºáΓαáΓá¼¿. Åα¿ ¿ß»«½∞º«- óá¡¿¿ ¼«ñπ½∩ Crt óδó«ñ¿¼á∩ ¿¡Σ«α¼áµ¿∩ »«ßδ½áÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó íáº«óπε ß¿ßΓÑ¼π óó«ñá-óδó«ñá (éIÄS), ¿½¿, ñ½∩ ÑΘÑ í«½ÑÑ íδßΓαδσ «»Ñαáµ¿⌐, ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ó¿ñÑ«»á¼∩Γ∞. B.Pascal 7 & Objects/LR - 227 - êß»«½∞º«óá¡¿Ñ ¼«ñπ½∩ CRT ───────────────────────────────────────────────────────────────── ùΓ«íδ ¿ß»«½∞º«óáΓ∞ ¼«ñπ½∞ Crt, Ñú« ¡πª¡« π¬áºáΓ∞ ó «»ÑαáΓ«αÑ uses óáΦÑ⌐ »α«úαá¼¼δ: uses Crt; Åα¿ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ Crt ñ½∩ Γ«ú«, τΓ«íδ ¼«ª¡« íδ½« «í- αáΘáΓ∞ß∩ ¬ CRÆ, ó¼ÑßΓ« ßΓá¡ñáαΓ¡δσ Σá⌐½«ó óó«ñá ¿ óδó«ñá DOS ¡áº- ¡áτáεΓß∩ ßΓá¡ñáαΓ¡δÑ óσ«ñ¡δÑ ¿ óδσ«ñ¡δÑ ΓÑ¬ßΓ«óδÑ Σá⌐½δ. ¥Γ« ß«- «ΓóÑΓßΓóπÑΓ óδ»«½¡Ñ¡¿ε ó ¡áτá½Ñ »α«úαá¼¼δ ß½ÑñπεΘ¿σ «»ÑαáΓ«α«ó: AssignCrt(Input); Reset(Input); AssignCrt(Output); Rewrite(Output); ¥Γ« «º¡áτáÑΓ, τΓ« »ÑαÑ«»αÑñÑ½Ñ¡¿Ñ óσ«ñ¡δσ ¿ óδσ«ñ¡δσ Σá⌐½«ó ñá½ÑÑ ¡Ñ ñ«»πß¬áÑΓß∩ ñ« ΓÑσ »«α, »«¬á ñ½∩ ñá¡¡δσ Σá⌐½«ó ¡Ñ íπñÑΓ óδ»«½¡Ñ¡« «íαáΓ¡«ú« »ÑαÑ¡áº¡áτÑ¡¿∩ ¿ ¡Ñ »α«¿º«⌐ñÑΓ »ÑαÑσ«ñ ¬ ßΓá¡ñáαΓ¡«¼π óó«ñπ ¿ óδó«ñπ ß »«¼«Θ∞ε óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«α«ó: Assing(Input,''); Reset(Input); Assing(Output,''); RewriteOutput); Ä¬¡á CRT ───────────────────────────────────────────────────────────────── î«ñπ½∞ Crt »«ññÑαª¿óáÑΓ »α«ßΓπε, ¡«, ΓÑ¼ ¡Ñ ¼Ñ¡ÑÑ, ¼«Θ¡πε Σ«α¼π ¿ß»«½∞º«óá¡¿∩ «¬«¡. Åα«µÑñπαá Window »«ºó«½∩ÑΓ óá¼ «»αÑñÑ- ½¿Γ∞ ó ¬á¬«¼-½¿í« ¼ÑßΓÑ φ¬αá¡á «¬¡«. Åα¿ ºá»¿ß¿ ó φΓ« «¬¡« «¡« óÑñÑΓ ßÑí∩ Γ«τ¡« Γá¬ªÑ, ¬á¬ µÑ½δ⌐ φ¬αá¡. Åα¿ φΓ«¼ «ßΓá½∞¡á∩ τáßΓ∞ φ¬αá¡á «ßΓáÑΓß∩ ¡ÑΓα«¡πΓ«⌐. äαπú¿¼¿ ß½«óá¼¿, ñ«ßΓπ» ¬ φ¬αá¡π ó¡Ñ «¬¡á «ΓßπΓßΓóπÑΓ. é¡πΓα¿ «¬¡á ¼«ª¡« ñ«íáó½∩Γ∞ ¿ πñá½∩Γ∞ ßΓα«¬¿, »α¿ φΓ«¼ ¬παß«α ó«ºóαáΘáÑΓß∩ ¬ »αáó«¼π ¬αáε ¿ »α¿ ñ«ßΓ¿ªÑ¡¿¿ ¬πα- ß«α«¼ ¡¿ª¡Ñ⌐ ßΓα«¬¿ ΓÑ¬ßΓ »α«ñó¿úáÑΓß∩ óóÑασ. éßÑ ¬««αñ¿¡áΓδ φ¬αá¡á, ¬α«¼Ñ ΓÑσ, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ñ½∩ «»αÑñÑ½Ñ¡¿∩ «¬¡á, «Γ¡«ß∩Γß∩ ¬ ΓÑ¬πΘÑ¼π «¬¡π. è««αñ¿¡áΓá φ¬αá¡á (1,1) ß««ΓóÑΓßΓóπÑΓ ½Ñó«¼π óÑασ¡Ñ¼π πú½π φ¬αá¡á. Å« π¼«½τá¡¿ε «¬¡«¼ ßτ¿ΓáÑΓß∩ óÑß∞ φ¬αá¡. B.Pascal 7 & Objects/LR - 228 - æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ ───────────────────────────────────────────────────────────────── Åα¿ ºá»¿ß¿ ó óδσ«ñ¡«⌐ Σá⌐½ ¿½¿ ó Σá⌐½, ¬«Γ«αδ⌐ ¡áº¡áτÑ¡ ñ½∩ ¼«ñπ½∩ Crt, ß»Ñµ¿á½∞¡«Ñ º¡áτÑ¡¿Ñ ¿¼ÑεΓ ß½ÑñπεΘ¿Ñ π»αáó½∩εΘ¿Ñ ß¿¼- ó«½δ: ┌───────┬───────────────┬───────────────────────────────────────┐ │æ¿¼ó«½ │ ìáºóá¡¿Ñ │ Ä»¿ßá¡¿Ñ │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #7 │ çó«¡«¬ │ éδºδóáÑΓ ºóπ¬«ó«⌐ ß¿ú¡á½, ¿ºñáóáÑ¼δ⌐ ß│ │ │ BELL │ »«¼«Θ∞ε ó¡πΓαÑ¡¡Ñú« ñ¿¡á¼¿¬á. │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #8 │ÄíαáΓ¡δ⌐ »α«íÑ½│ é«ºóαáΓ ¡á «ñ¡π »«º¿µ¿ε. éδºδóáÑΓ »Ñ-│ │ │ BS │ αÑ¼ÑΘÑ¡¿Ñ ¬παß«αá ó½Ñó« ¡á «ñ¡π »«º¿-│ │ │ │ µ¿ε. àß½¿ ¬παß«α πªÑ ¡áσ«ñ¿Γß∩ π ½Ñó«-│ │ │ │ ú« ¬αá∩ ΓÑ¬πΘÑú« «¬¡á, Γ« ¡¿¬á¬¿σ│ │ │ │ ñÑ⌐ßΓó¿⌐ ¡Ñ »α«¿ºó«ñ¿Γß∩. │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #10 │ ÅÑαÑó«ñ ßΓα«¬¿│ ÅÑαÑ¼ÑΘáÑΓ ¬παß«α ¡á «ñ¡π ßΓα«¬π ó¡¿º.│ │ │ LF │ àß½¿ ¬παß«α πªÑ ¡áσ«ñ¿Γß∩ ¡á ¡¿ª¡Ñ⌐│ │ │ │ ßΓα«¬Ñ «¬¡á, Γ« «¬¡« »α«½¿ßΓδóáÑΓß∩│ │ │ │ óóÑασ ¡á «ñ¡π ßΓα«¬π. │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #13 │é«ºóαáΓ ¬áαÑΓ¬¿│ é«ºóαáΘáÑΓ ¬παß«α ß ½Ñó«¼π ¬αáε ΓÑ¬π-│ │ │ BS │ ΘÑú« «¬¡á. │ └───────┴───────────────┴───────────────────────────────────────┘ éó«ñ ßΓα«¬ ───────────────────────────────────────────────────────────────── Åα¿ τΓÑ¡¿¿ ¿º óσ«ñ¡«ú« Σá⌐½á (Input) ¿½¿ ¿º ΓÑ¬ßΓ«ó«ú« Σá⌐- ½á, ¬«Γ«αδ⌐ ¡áº¡áτÑ¡ ñ½∩ ¼«ñπ½∩ Crt, ΓÑ¬ßΓ óó«ñ¿Γß∩ »« «ñ¡«⌐ ßΓα«¬Ñ. æΓα«¬á ºá»«¼¿¡áÑΓß∩ ó« ó¡πΓαÑ¡¡Ñ¼ íπΣÑαÑ ΓÑ¬ßΓ«ó«ú« Σá⌐½á ¿ ¬«úñá »ÑαÑ¼Ñ¡¡δÑ ßτ¿ΓδóáεΓß∩, Γ« ó ¬áτÑßΓóÑ ¿ßΓ«τ¡¿¬á ¿ß»«½∞ºπ- ÑΓß∩ φΓ«Γ íπΣÑα. èáªñδ⌐ αáº ¬«úñá íπΣÑα ßΓá¡«ó¿Γß∩ »πßΓδ¼, óó«- ñ¿Γß∩ ¡«óá∩ ßΓα«¬á. Åα¿ óó«ñÑ ßΓα«¬ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ ¬½áó¿Φ¿ αÑñá¬Γ¿α«óá¡¿∩: ┌──────────────────────┬────────────────────────────────────────┐ │è½áó¿Φá αÑñá¬Γ¿α«óá¡¿∩│ Ä»¿ßá¡¿Ñ │ ├──────────────────────┼────────────────────────────────────────┤ │ BacksαáßÑ │ ôñá½∩ÑΓ »«ß½Ññ¡¿⌐ óóÑñÑ¡¡δ⌐ ß¿¼ó«½. │ ├──────────────────────┼────────────────────────────────────────┤ │ Esß │ ôñá½∩ÑΓ óßε óó«ñ¿¼πε ßΓα«¬π. │ ├──────────────────────┼────────────────────────────────────────┤ │ Enter │ ÅαÑ¬αáΘáÑΓ óó«ñ ßΓα«¬¿ ¿ ºá»¿ßδóáÑΓ│ │ │ ¼ÑΓ¬π ¬«¡µá ßΓα«¬¿ (ó«ºóαáΓ ¬áαÑΓ¬¿/»Ñ-│ │ │ αÑó«ñ ßΓα«¬¿) ó íπΣÑαÑ. │ ├──────────────────────┼────────────────────────────────────────┤ │ Ctrl+S │ äÑ⌐ßΓóπÑΓ Γá¬ªÑ, ¬á¬ Backspace. │ ├──────────────────────┼────────────────────────────────────────┤ B.Pascal 7 & Objects/LR - 229 - │ Ctrl+D │ êºó½Ñ¬áÑΓ «ñ¿¡ ß¿¼ó«½ ¿º »«ß½Ññ¡Ñ⌐ óó«-│ │ │ ñ¿¼«⌐ ßΓα«¬¿ ¿ óδó«ñ¿Γ Ñú« ¡á φ¬αá¡. │ ├──────────────────────┼────────────────────────────────────────┤ │ Ctrl+F │ é«ßßΓá¡áó½¿óáÑΓ ¡á φ¬αá¡Ñ »«ß½Ññ¡εε│ │ │ óó«ñ¿¼πε ßΓα«¬π. │ ├──────────────────────┼────────────────────────────────────────┤ │ Ctrl+Z │ çáóÑαΦáÑΓ óó«ñ ßΓα«¬¿ ¿ úÑ¡Ñα¿απÑΓ ß¿¼-│ │ │ ó«½ ¬«¡µá Σá⌐½á. │ ├──────────────────────┼────────────────────────────────────────┤ │ ætrl-Z │ âÑ¡Ñα¿απÑΓ ß¿¼ó«½ ¬«¡µá Σá⌐½á ¿ ºáóÑα-│ │ │ ΦáÑΓ ßΓα«¬π óó«ñá. │ └──────────────────────┴────────────────────────────────────────┘ Ctrl+Z íπñÑΓ úÑ¡Ñα¿α«óáΓ∞ ¬«¡Ñµ Σá⌐½á ó Γ«¼ ß½πτáÑ, Ñß½¿ »Ñ- αÑ¼Ñ¡¡á∩ CheckEOF πßΓá¡«ó½Ñ¡á ó True (»« π¼«½τá¡¿ε False). ä½∩ »α«óÑα¬¿ ß«ßΓ«∩¡¿∩ ¬½áó¿áΓπαδ ¿ óó«ñá «ΓñÑ½∞¡δσ ß¿¼ó«½«ó »«ñ π»αáó½Ñ¡¿Ñ¼ »α«úαá¼¼δ ¿ß»«½∞ºπ⌐ΓÑ Σπ¡¬µ¿¿ KeyÉressed ¿ RÑádKey. B.Pascal 7 & Objects/LR - 230 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Crt ───────────────────────────────────────────────────────────────── ┌──────────────────┬────────────────────────────────────────────┐ │öπ¡¬µ¿∩/»α«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ AssignCrt │ ìáº¡áτáÑΓ ΓÑ¬ßΓ«óδ⌐ Σá⌐½ ñ½∩ πßΓα«⌐ßΓóá│ │ │ CRT. │ ├──────────────────┼────────────────────────────────────────────┤ │ ClrE«l │ Äτ¿ΘáÑΓ óßÑ ß¿¼ó«½δ, ¡áτ¿¡á∩ «Γ »«º¿µ¿¿│ │ │ ¬παß«αá ñ« ¬«¡µá ßΓα«¬¿, íÑº »ÑαÑ¼ÑΘÑ¡¿∩│ │ │ ¬παß«αá. │ ├──────────────────┼────────────────────────────────────────────┤ │ ClrScr │ Äτ¿ΘáÑΓ φ¬αá¡ ¿ »«¼ÑΘáÑΓ ¬παß«α ó óÑασ¡Ñ¼│ │ │ ½Ñó«¼ πú½π. │ ├──────────────────┼────────────────────────────────────────────┤ │ DÑláπ │ éδ»«½¡∩ÑΓ ºáñÑαª¬π ¡á π¬áºá¡¡«Ñ τ¿ß½« ¼¿½-│ │ │ ½¿ßÑ¬π¡ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ DelLine │ ôñá½∩ÑΓ ßΓα«¬π, ¡á ¬«Γ«α«⌐ ¡áσ«ñ¿Γß∩ ¬παß«α│ │ │ ¿ »ÑαÑ¼ÑΘáÑΓ óßÑ ß½ÑñπεΘ¿Ñ ßΓα«¬¿ ¡á «ñ¡π│ │ │ ßΓα«¬π óóÑασ. ì¿ª¡∩∩ ßΓα«¬á «τ¿ΘáÑΓß∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ G«t«òY │ éδ»«½¡∩ÑΓ »«º¿µ¿«¡¿α«óá¡¿Ñ ¬παß«αá. ò - φΓ«│ │ │ ú«α¿º«¡Γá½∞¡á∩ »«º¿µ¿∩, Y - óÑαΓ¿¬á½∞¡á∩│ │ │ »«º¿µ¿∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ ìightVideo │ éδí¿αáÑΓ ß¿¼ó«½δ ß »«ñßóÑΓ¬«⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ InsLine │ éßΓáó½∩ÑΓ »πßΓπε ßΓα«¬π ó ¼ÑßΓÑ αáß»«½«ªÑ-│ │ │ ¡¿∩ ¬παß«αá. │ ├──────────────────┼────────────────────────────────────────────┤ │ KeyÉrÑssÑd │ é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ TruÑ, Ñß½¿ ¬½áó¿Φá ¡á│ │ │ ¬½áó¿áΓπαÑ ¡áªáΓá ¿ FalsÑ - ó »α«Γ¿ó¡«¼│ │ │ ß½πτáÑ. │ ├──────────────────┼────────────────────────────────────────────┤ │ LowVidÑ │ éδí¿αáÑΓ ß¿¼ó«½δ ß »«¡¿ªÑ¡¡«⌐ ∩α¬«ßΓ∞ε. │ ├──────────────────┼────────────────────────────────────────────┤ │ NormVideo │ éδí¿αáÑΓ ß¿¼ó«½δ ß ¡«α¼á½∞¡«⌐ ∩α¬«ßΓ∞ε. │ ├──────────────────┼────────────────────────────────────────────┤ │ NoSound │ éδ¬½ετáÑΓ ó¡πΓαÑ¡¡¿⌐ ñ¿¡á¼¿¬. │ ├──────────────────┼────────────────────────────────────────────┤ │ Sound │ é¬½ετáÑΓ ó¡πΓαÑ¡¡¿⌐ ñ¿¡á¼¿¬. │ ├──────────────────┼────────────────────────────────────────────┤ │ Textéáckground │ éδí¿αáÑΓ Σ«¡«óδ⌐ µóÑΓ. │ ├──────────────────┼────────────────────────────────────────────┤ │ TextColor │ éδí¿αáÑΓ µóÑΓ ßá¼«ú« ß¿¼ó«½á. │ ├──────────────────┼────────────────────────────────────────────┤ │ Textî«dÑ │ éδí¿αáÑΓ ¬«¡¬αÑΓ¡δ⌐ ΓÑ¬ßΓ«óδ⌐ αÑª¿¼. │ ├──────────────────┼────────────────────────────────────────────┤ │ Window │ Ä»αÑñÑ½∩ÑΓ ¡á φ¬αá¡Ñ ΓÑ¬ßΓ«ó«Ñ «¬¡«. │ ├──────────────────┼────────────────────────────────────────────┤ │ RÑád¬Ñπ │ æτ¿ΓδóáÑΓ ß¿¼ó«½ ß ¬½áó¿áΓπαδ. │ B.Pascal 7 & Objects/LR - 231 - ├──────────────────┼────────────────────────────────────────────┤ │ WherÑò │ é«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ ò ñ½∩ ΓÑ¬πΘÑ⌐ »«º¿µ¿¿│ │ │ ¬παß«αá, «Γ¡«ß∩Θπεß∩ ¬ ΓÑ¬πΘÑ¼π «¬¡π. ò│ │ │ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ú«α¿º«¡Γá½∞¡πε »«º¿µ¿ε.│ ├──────────────────┼────────────────────────────────────────────┤ │ WhereY │ é«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ Y ñ½∩ ΓÑ¬πΘÑ⌐ »«º¿µ¿¿│ │ │ ¬παß«αá, «Γ¡«ß∩Θπεß∩ ¬ ΓÑ¬πΘÑ¼π «¬¡π. Y│ │ │ »αÑñßΓáó½∩ÑΓ ß«í«⌐ óÑαΓ¿¬á½∞¡πε »«º¿µ¿ε. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 232 - è«¡ßΓá¡Γδ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Crt ───────────────────────────────────────────────────────────────── é ¼«ñπ½Ñ Crt ß«ñÑαª¿Γß∩ αáñ ¬«¡ßΓá¡Γ, «í½ÑúτáεΘ¿σ »α«úαá¼¼¿- α«óá¡¿Ñ. Å«ñα«í¡« «¡¿ «»¿ßδóáεΓß∩ ó â½áóÑ 1 "æ»αáó«τ¡«ú« απ¬«- ó«ñßΓóá »α«úαá¼¼¿ßΓá". Ä»¿ΦÑ¼ úαπ»»δ φΓ¿σ ¬«¡ßΓá¡Γ: ┌────────────────────────────┬──────────────────────────────────┐ │ âαπ»»á ¬«¡ßΓá¡Γ │ Ä»¿ßá¡¿Ñ │ ├────────────────────────────┼──────────────────────────────────┤ │ è«¡ßΓá¡Γδ αÑª¿¼á Crt │ âαáΣ¿τÑß¬¿Ñ ¬«¡ßΓá¡Γδ, ¿ß»«½∞ºπÑ-│ │ │ ¼δÑ ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó »α«µÑ-│ │ │ ñπαδ TextMode. │ ├────────────────────────────┼──────────────────────────────────┤ │ è«¡ßΓá¡Γδ µóÑΓ«ó │ è«¡ßΓá¡Γδ, ¿ß»«½∞ºπÑ¼δÑ ñ½∩ πßΓá-│ │ │ ¡«ó¬¿ µóÑΓ«ó ß »«¼«Θ∞ε »α«µÑñπα│ │ │ TextColor ¿ TextBackGround. │ └────────────────────────────┴──────────────────────────────────┘ ìá»α¿¼Ñα, τΓ«íδ ¡á⌐Γ¿ º¡áτÑ¡¿Ñ ¬«¡ßΓá¡Γδ, ¬«Γ«αá∩ »«ºó«½¿Γ óá¼ óδó«ñ¿Γ∞ ΓÑ¬ßΓ ó »α«úαá¼¼Ñ ¬αáß¡δ¼ µóÑΓ«¼, »α«ß¼«Γα¿ΓÑ ¬«¡ß- Γá¡Γδ µóÑΓ«ó ΓÑ¬ßΓá ¿ ¡á⌐ñ¿ΓÑ ¬«¡ßΓá¡Γπ Red ß« º¡áτÑ¡¿Ñ¼ 4. é ¼«ñπ½Ñ Crt ß«ñÑαªáΓß∩ ß½ÑñπεΘ¿Ñ »ÑαÑ¼Ñ¡¡δÑ: ┌──────────────────┬─────────────┬──────────────────────────────┐ │ ÅÑαÑ¼Ñ¡¡á∩ │ Æ¿» │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼─────────────┼──────────────────────────────┤ │ CheckBreak │ boolean │ ÉáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ »α«-│ │ │ │ óÑα¬π ¡á Ctrl+Break. │ ├──────────────────┼─────────────┼──────────────────────────────┤ │ CheckEof │ boolean │ ÉáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ ß¿¼-│ │ │ │ ó«½ ¬«¡µá Σá⌐½á. │ ├──────────────────┼─────────────┼──────────────────────────────┤ │ CheckSnow │ boolean │ ÉáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ »α«-│ │ │ │ óÑα¬π ¡á »«¼Ñσ¿. │ ├──────────────────┼─────────────┼──────────────────────────────┤ │ DirectVideo │ boolean │ ÉáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ »α∩- │ │ │ │ ¼«⌐ ñ«ßΓπ» ¬ »á¼∩Γ¿ ñ½∩ »α«- │ │ │ │ µÑñπα WriteLn ¿ Write. │ ├──────────────────┼─────────────┼──────────────────────────────┤ │ LastMode │ word │ Åα¿ ¬áªñ«¼ óδº«óÑ TextMode │ │ │ │ ß«σαá¡∩ÑΓ ΓÑ¬πΘ¿⌐ ó¿ñÑ«αÑ- │ │ │ │ ª¿¼. │ ├──────────────────┼─────────────┼──────────────────────────────┤ │ TextAttr │ byte │ æ«ñÑαª¿Γ áΓα¿íπΓδ ΓÑ¬πΘÑú« │ │ │ │ óδíαá¡¡«ú« ΓÑ¬ßΓá. │ ├──────────────────┼─────────────┼──────────────────────────────┤ │ WindMin │ word │ æ«ñÑαª¿Γ ¬««αñ¿¡áΓδ óÑασ¡Ñú« │ │ │ │ ½Ñó«ú« πú½á ΓÑ¬πΘÑú« «¬¡á. │ ├──────────────────┼─────────────┼──────────────────────────────┤ │ WindMax │ word │ æ«ñÑαª¿Γ ¬««αñ¿¡áΓδ ¡¿ª¡Ñú« │ │ │ │ »αáó«ú« πú½á ΓÑ¬πΘÑú« «¬¡á. │ └──────────────────┴─────────────┴──────────────────────────────┘ B.Pascal 7 & Objects/LR - 233 - éó«ñ ¿ óδó«ñ ß »«¼«Θ∞ε ¼«ñπ½∩ WinCrt ───────────────────────────────────────────────────────────────── Åα¿¼Ñτá¡¿Ñ: ¥Γ«Γ αáºñÑ½ «Γ¡«ß¿Γß∩ Γ«½∞¬« ¬ »α«úαá¼¼á¼ Windows. î«ñπ½∞ WinCrt αÑá½¿ºπÑΓ á¡á½«ú¿τ¡δ⌐ ΓÑα¼¿¡á½π ΓÑ¬ßΓ«óδ⌐ φ¬- αá¡ ó «¬¡Ñ. æ »«¼«Θ∞ε ¼«ñπ½∩ WinCrt óδ ¼«ªÑΓÑ ½Ñú¬« ß«ºñáóáΓ∞ »α«úαá¼¼δ, ¿ß»«½∞ºπεΘ¿Ñ ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ Read. ReadLn, Write ¿ WriteLn ñ½∩ óδ»«½¡Ñ¡¿∩ «»Ñαáµ¿⌐ óó«ñá ¿ óδó«ñá (Γá¬ ªÑ, ¬á¬ ó «íδτ¡«⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ, αáí«ΓáεΘÑ⌐ ó ΓÑ¬ßΓ«ó«¼ αÑª¿¼Ñ). î«- ñπ½∞ WinCrt ß«ñÑαª¿Γ óßÑ á½ú«α¿Γ¼δ, π»αáó½∩εΘ¿Ñ φ¼π½∩µ¿Ñ⌐ ΓÑ¬ßΓ«- ó«ú« φ¬αá¡á ó »α«úαá¼¼¡«⌐ ßαÑñÑ Windows. àß½¿ óáΦá »α«úαá¼¼á ¿ß- »«½∞ºπÑΓ ¼«ñπ½∞ WinCrt, óá¼ ¡Ñ »«ΓαÑíπÑΓß∩ »¿ßáΓ∞ "ß»Ñµ¿Σ¿τÑß¬¿⌐ ñ½∩ Windows" ¿ßσ«ñ¡δ⌐ ¬«ñ. B.Pascal 7 & Objects/LR - 234 - êß»«½∞º«óá¡¿Ñ ¼«ñπ½∩ WinCrt ───────────────────────────────────────────────────────────────── ùΓ«íδ ¿ß»«½∞º«óáΓ∞ ¼«ñπ½∞ WinCrt, ¡πª¡« »α«ßΓ« π¬áºáΓ∞ ó óá- ΦÑ⌐ »α«úαá¼¼Ñ «»ÑαáΓ«α uses, ¬á¬ ¿ »α¿ ¿ß»«½∞º«óá¡¿¿ ½εí«ú« ñαπ- ú«ú« ¼«ñπ½∩. uses WinCrt; Å« π¼«½τá¡¿ε ßΓá¡ñáαΓ¡δÑ ΓÑ¬ßΓ«óδÑ Σá⌐½δ Input ¿ Output, «»- αÑñÑ½Ñ¡¡δÑ ó ¼«ñπ½Ñ System, ¡Ñ »α¿ßóá¿óáεΓß∩, ¿ óßÑ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαá¼ Read, Readln, Write ¿½¿ Writeln íÑº π¬áºá¡¿∩ Σá⌐½«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿ó«ñ∩Γ ¬ «Φ¿í¬Ñ óó«ñá-óδó«ñá. Äñ¡á¬«, ¬«úñá »α«úαá¼- ¼á ¿ß»«½∞ºπÑΓ ¼«ñπ½∞ WinCrt, ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ ñá¡¡«ú« ¼«ñπ½∩ »α¿ßóá¿óáÑΓ Input ¿ Output ßΓá¡ñáαΓ¡δÑ ΓÑ¬ßΓ«óδÑ Σá⌐½δ, τΓ«íδ ßßδ½áΓ∞ß∩ ¡á «¬¡«, φ¼π½¿απεΘÑÑ ΓÑ¬ßΓ«óδ⌐ φ¬αá¡. ¥Γ« ß««ΓóÑΓßΓóπÑΓ óδ»«½¡Ñ¡¿ε ó ¡áτá½Ñ »α«úαá¼¼δ ß½ÑñπεΘ¿σ «»ÑαáΓ«α«ó: AssignWinCrt(Input); Reset(Input); AssignWinCrt(Output); Rewrite(Output); è«úñá ó »α«úαá¼¼Ñ óδ»«½¡∩εΓß∩ »α«µÑñπαδ Readln, Read, Write ¿½¿ Writeln, ó «»ÑαáΓ¿ó¡«⌐ «í½áßΓ¿ Windows «Γ¬αδóáÑΓß∩ «¬¡« CRT. Å« π¼«½τá¡¿ε ºáú«½«ó¬«¼ «¬¡á CRT íπñÑΓ »«½¡«Ñ ¿¼∩ ¼áαΦαπΓá Σá⌐½á .EXE »α«úαá¼¼δ. è«úñá »α«úαá¼¼á ºáóÑαΦáÑΓ αáí«Γπ (π»αáó½Ñ¡¿Ñ ñ«ß- Γ¿úáÑΓ ¬«¡Ñτ¡«ú« ºáαÑºÑαó¿α«óá¡¡«ú« ß½«óá end), ºáú«½«ó«¬ «¬¡á CRT ¿º¼Ñ¡∩ÑΓß∩ ¡á "(Inactive nnnnn)", úñÑ nnnnn - ºáú«½«ó«¬ «¬¡á ó Ñú« á¬Γ¿ó¡«¼ ß«ßΓ«∩¡¿¿. çá¼ÑΓ¿¼, τΓ« σ«Γ∩ »α«úαá¼¼á ¿ ºáóÑαΦ¿½á αáí«Γπ, «¬¡« «ßΓáÑΓ- ß∩ ¡á φ¬αá¡Ñ, í½áú«ñáα∩ τÑ¼π »«½∞º«óáΓÑ½∞ ¼«ªÑΓ »α«óÑα¿Γ∞ óδó«ñ »α«úαá¼¼δ. Ç¡á½«ú¿τ¡« ñαπú¿¼ »α¿¬½áñ¡δ¼ »α«úαá¼¼á¼ Windows, »α«ú- αá¼¼á ¡Ñ ºáóÑαΦáÑΓß∩ »«½¡«ßΓ∞ε, »«¬á »«½∞º«óáΓÑ½∞ ¡Ñ ºá¬α«ÑΓ «¬- ¡«. ü«½ÑÑ »«½¡« π»αáó½∩Γ∞ ª¿º¡Ñ¡¡δ¼ µ¿¬½«¼ «¬¡á CRT óá¼ »«ºó«½∩- εΓ »«ñ»α«úαá¼¼δ InitWinCrt ¿ DoneWinCrt. Åα¿ «íαáΘÑ¡¿¿ ¬ »Ñαó«⌐ ¿º ¡¿σ íÑº «ª¿ñá¡¿∩ »Ñαó«ú« óδº«óá »α«µÑñπα Readln, Read, Write ¿½¿ Writeln ¡Ñ¼Ññ½Ñ¡¡« ß«ºñáÑΓß∩ «¬¡« CRT. Ç¡á½«ú¿τ¡«, «íαáΘÑ¡¿Ñ ¬ DoneWinCrt ¡Ñ¼Ññ½Ñ¡¡« π¡¿τΓ«ªáÑΓ «¬¡« CRT, ¡Ñ «ª¿ñá∩, »«¬á Ñú« ºá¬α«ÑΓ »«½∞º«óáΓÑ½∞. Ä¬¡« CRT »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«¬απτ¿óáÑ¼«Ñ "»á¡«αá¼¡«Ñ" «¬¡« ¡á ó¿αΓπá½∞¡«¼ ΓÑ¬ßΓ«ó«¼ φ¬αá¡Ñ. Å« π¼«½τá¡¿ε ó¿αΓπá½∞¡δ⌐ φ¬αá¡ ¿¼ÑÑΓ αáº¼Ñαδ 80 ßΓ«½íµ«ó ¡á 25 ßΓα«¬, ¡« αÑá½∞¡δ⌐ αáº¼Ñα «¬¡á CRT ¼«ªÑΓ íδΓ∞ ¼Ñ¡∞ΦÑ. àß½¿ φΓ«Γ αáº¼Ñα ¼Ñ¡∞ΦÑ, »«½∞º«óáΓÑ½∞ ñ½∩ »ÑαÑ¼ÑΘÑ¡¿∩ «í½áßΓ¿ «¬¡á »« ΓÑ¬ßΓ«ó«¼π φ¬αá¡π í«½∞ΦÑú« αáº¼Ñαá ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ »«½«ßδ »α«¬απΓ¬¿ «¬¡á ¿½¿ ¬½áó¿Φ¿ π»αáó½Ñ¡¿∩ ¬παß«α«¼. ¥Γ« «ß«íÑ¡¡« »«½Ñº¡« ñ½∩ "«íαáΓ¡«⌐ »α«¬απΓ¬¿" ¿ »α«óÑα- ¬¿ αá¡ÑÑ ¡á»¿ßá¡¡«ú« ΓÑ¬ßΓá. Å« π¼«½τá¡¿ε »á¡«αá¼¡«Ñ «¬¡« «Γß½Ñ- ª¿óáÑΓ ¬παß«α ΓÑ¬ßΓ«ó«ú« φ¬αá¡á. äαπú¿¼¿ ß½«óá¼¿, »á¡«αá¼¡«Ñ «¬¡« áóΓ«¼áΓ¿τÑß¬¿ »α«¬απτ¿óáÑΓß∩, τΓ«íδ «íÑß»Ñτ¿Γ∞ »«ßΓ«∩¡¡πε ó¿ñ¿- ¼«ßΓ∞ ¬παß«αá. ôßΓá¡«ó¿ó »ÑαÑ¼Ñ¡¡πε AutoTracking ó º¡áτÑ¡¿Ñ B.Pascal 7 & Objects/LR - 235 - False, óδ ¼«ªÑΓÑ ºá»αÑΓ¿Γ∞ ßαÑñßΓó« áóΓ«¼áΓ¿τÑß¬«⌐ »α«¬απΓ¬¿. Éáº¼Ñαδ ó¿αΓπá½∞¡«ú« φ¬αá¡á «»αÑñÑ½∩εΓß∩ »ÑαÑ¼Ñ¡¡«⌐ ScreenSize. Åα¿ßó«¿ó φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¡«óδÑ αáº¼Ñα¡«ßΓ¿ »ÑαÑñ ΓÑ¼, ¬á¬ óáΦá »α«úαá¼¼á ß«ºñáÑΓ «¬¡« CRT, óδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ αáº¼Ñαδ ó¿αΓπá½∞¡«ú« φ¬αá¡á. è«úñá «¬¡« ß«ºñáÑΓß∩, ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ »á¼∩Γ¿ óδñÑ½∩ÑΓß∩ íπΣÑα φ¬αá¡á. Éáº¼Ñα φΓ«ú« íπΣÑαá αá- óÑ¡ »α«¿ºóÑñÑ¡¿ε ScreenSize.Y ¡á ScreenSize.Y ¿ ¡Ñ ¼«ªÑΓ »αÑóδ- ΦáΓ∞ 65520 íá⌐Γ. ÄΓóÑΓßΓóÑ¡¡«ßΓ∞ ºá »α¿ßóá¿óá¡¿∩ º¡áτÑ¡¿⌐ φΓ¿¼ »ÑαÑ¼Ñ¡¡δ¼ ó«º½áúáÑΓß∩ ¡á óáß («¡¿ ¡Ñ ñ«½ª¡δ »αÑóδΦáΓ∞ π¬áºá¡¡πε úαá¡¿µπ). àß½¿, ¡á»α¿¼Ñα, óδ »α¿ßó«¿ΓÑ ScreenSize.X º¡áτÑ¡¿Ñ 64, Γ« ¡á¿í«½∞Φ¿¼ ñ«»πßΓ¿¼δ¼ º¡áτÑ¡¿Ñ¼ ñ½∩ ScreenSize.Y íπñÑΓ 1023. é ½εí«⌐ ¼«¼Ñ¡Γ ó »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ, ¿ß»«½∞ºπεΘÑ⌐ ¼«ñπ½∞ WinCrt, »«½∞º«óáΓÑ½∞ ¼«ªÑΓ »αÑαóáΓ∞ óδ»«½¡Ñ¡¿Ñ, óδíαáó ó ¼Ñ¡ε Control (ô»αáó½Ñ¡¿Ñ) «¬¡á CRT ¬«¼á¡ñπ Close (çá¬αδΓ¿Ñ), ñóáªñδ ΘÑ½¬¡πó ¬¡«»¬«⌐ "¼δΦ¿" ó αá¼¬Ñ ¼Ñ¡ε Control ¿½¿ ¡áªáó ¬½á- ó¿Φ¿ Alt+F4. Ç¡á½«ú¿τ¡«, ó ½εí«⌐ ¼«¼Ñ¡Γ ñ½∩ »αÑαδóá¡¿∩ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ »«½∞º«óáΓÑ½∞ ¼«ªÑΓ ¡áªáΓ∞ Ctrl+C ¿½¿ Ctrl+Break, »α¿ φΓ«¼ «¬¡« »ÑαÑó«ñ¿Γß∩ ó ¡Ñá¬Γ¿ó¡«Ñ ß«ßΓ«∩¡¿Ñ. ôßΓá¡«ó¿ó »ÑαÑ¼Ñ¡- ¡πε CheckBreak ó º¡áτÑ¡¿Ñ False, óδ ¼«ªÑΓÑ ºá»αÑΓ¿Γ∞ φΓπ ó«º¼«ª- ¡«ßΓ∞. B.Pascal 7 & Objects/LR - 236 - æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ ───────────────────────────────────────────────────────────────── Åα¿ ºá»¿ß¿ ó óδσ«ñ¡«⌐ Σá⌐½ (Output) ¿½¿ ó Σá⌐½, ¬«Γ«αδ⌐ ¡áº- ¡áτÑ¡ ñ½∩ «¬¡á CRT, ß»Ñµ¿á½∞¡«Ñ º¡áτÑ¡¿Ñ ¿¼ÑεΓ ß½ÑñπεΘ¿Ñ π»αáó½∩- εΘ¿Ñ ß¿¼ó«½δ: ┌───────┬───────────────┬───────────────────────────────────────┐ │æ¿¼ó«½ │ ìáºóá¡¿Ñ │ Ä»¿ßá¡¿Ñ │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #7 │ çó«¡«¬ │ éδºδóáÑΓ ºóπ¬«ó«⌐ ß¿ú¡á½, ¿ºñáóáÑ¼δ⌐ ß│ │ │ BELL │ »«¼«Θ∞ε ó¡πΓαÑ¡¡Ñú« ñ¿¡á¼¿¬á. │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #8 │ÄíαáΓ¡δ⌐ »α«íÑ½│ é«ºóαáΓ ¡á «ñ¡π »«º¿µ¿ε. éδºδóáÑΓ »Ñ-│ │ │ BS │ αÑ¼ÑΘÑ¡¿Ñ ¬παß«αá ó½Ñó« ¡á «ñ¡π »«º¿-│ │ │ │ µ¿ε. àß½¿ ¬παß«α πªÑ ¡áσ«ñ¿Γß∩ π ½Ñó«-│ │ │ │ ú« ¬αá∩ ΓÑ¬πΘÑú« «¬¡á, Γ« ¡¿¬á¬¿σ│ │ │ │ ñÑ⌐ßΓó¿⌐ ¡Ñ »α«¿ºó«ñ¿Γß∩. │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #10 │ ÅÑαÑó«ñ ßΓα«¬¿│ ÅÑαÑ¼ÑΘáÑΓ ¬παß«α ¡á «ñ¡π ßΓα«¬π ó¡¿º.│ │ │ LF │ àß½¿ ¬παß«α πªÑ ¡áσ«ñ¿Γß∩ ¡á ¡¿ª¡Ñ⌐│ │ │ │ ßΓα«¬Ñ «¬¡á, Γ« «¬¡« »α«½¿ßΓδóáÑΓß∩│ │ │ │ óóÑασ ¡á «ñ¡π ßΓα«¬π. │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #13 │é«ºóαáΓ ¬áαÑΓ¬¿│ é«ºóαáΘáÑΓ ¬παß«α ß ½Ñó«¼π ¬αáε ΓÑ¬π-│ │ │ CR │ ΘÑú« «¬¡á. │ └───────┴───────────────┴───────────────────────────────────────┘ éó«ñ ßΓα«¬ ───────────────────────────────────────────────────────────────── Åα¿ τΓÑ¡¿¿ ¿º óσ«ñ¡«ú« Σá⌐½á (Input) ¿½¿ ¿º ΓÑ¬ßΓ«ó«ú« Σá⌐- ½á, ¬«Γ«αδ⌐ ¡áº¡áτÑ¡ ñ½∩ «¬¡á CRT, ΓÑ¬ßΓ óó«ñ¿Γß∩ »« «ñ¡«⌐ ßΓα«- ¬Ñ. æΓα«¬á ºá»«¼¿¡áÑΓß∩ ó« ó¡πΓαÑ¡¡Ñ¼ íπΣÑαÑ ΓÑ¬ßΓ«ó«ú« Σá⌐½á ¿ ¬«úñá »ÑαÑ¼Ñ¡¡δÑ ßτ¿ΓδóáεΓß∩, Γ« ó ¬áτÑßΓóÑ ¿ßΓ«τ¡¿¬á ¿ß»«½∞ºπÑΓ- ß∩ φΓ«Γ íπΣÑα. èáªñδ⌐ αáº ¬«úñá íπΣÑα ßΓá¡«ó¿Γß∩ »πßΓδ¼, óó«ñ¿Γß∩ ¡«óá∩ ßΓα«¬á. Åα¿ óó«ñÑ ßΓα«¬ ó «¬¡Ñ CRT ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ ¬½á- ó¿Φ¿ αÑñá¬Γ¿α«óá¡¿∩: éacksαáßÑ - πñá½∩ÑΓ »«ß½Ññ¡¿⌐ óóÑñÑ¡¡δ⌐ ß¿¼- ó«½, Esß - πñá½∩ÑΓ óßε óó«ñ¿¼πε ßΓα«¬π, Enter - »αÑ¬αáΘáÑΓ óó«ñ ßΓα«¬¿ ¿ ºá»¿ßδóáÑΓ ¼ÑΓ¬π ¬«¡µá ßΓα«¬¿ (ó«ºóαáΓ ¬áαÑΓ¬¿/»ÑαÑó«ñ ßΓα«¬¿) ó íπΣÑαÑ. èα«¼Ñ Γ«ú«, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¬½áó¿Φ¿ ætrl+Z, ¬«Γ«αδÑ úÑ¡Ñα¿απεΓ ß¿¼ó«½ ¬«¡µá Σá⌐½á Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ »ÑαÑ¼Ñ¡¡á∩ CheckEof πßΓá¡«ó½Ñ¡á ó º¡áτÑ¡¿Ñ TruÑ (»« π¼«½τá¡¿ε Ñ⌐ »α¿ßó«Ñ¡« º¡áτÑ¡¿Ñ FalsÑ). ìáªáΓ¿Ñ Ctrl+Z Γá¬ªÑ ºáóÑαΦáÑΓ ßΓα«¬π óó«ñá ¿ úÑ¡Ñα¿απÑΓ ¼áα¬Ñα ¬«¡µá ßΓα«¬¿. ä½∩ »α«óÑα¬¿ ß«ßΓ«∩¡¿∩ ¬½áó¿áΓπαδ ¿ óó«ñá «ΓñÑ½∞¡δσ ß¿¼ó«½«ó »«ñ π»αáó½Ñ¡¿Ñ¼ »α«úαá¼¼δ ¿ß»«½∞ºπ⌐ΓÑ Σπ¡¬µ¿¿ KeyÉressed ¿ RÑádkey. B.Pascal 7 & Objects/LR - 237 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── é ß½ÑñπεΘ¿σ Γáí½¿µáσ »ÑαÑτ¿ß½∩εΓß∩ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«- Γ«αδÑ ¼«ª¡« ¡á⌐Γ¿ ó ¼«ñπ½Ñ WinCrt. ┌───────────────────┬───────────────────────────────────────────┐ │ Åα«µÑñπαá/Σπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├───────────────────┼───────────────────────────────────────────┤ │ AssignCrt │ ìáº¡áτáÑΓ ΓÑ¬ßΓ«óδ⌐ Σá⌐½ ñ½∩ «¬¡á CRT. │ ├───────────────────┼───────────────────────────────────────────┤ │ ClrE«l │ Äτ¿ΘáÑΓ óßÑ ß¿¼ó«½δ, ¡áτ¿¡á∩ «Γ »«º¿µ¿¿│ │ │ ¬παß«αá ñ« ¬«¡µá ßΓα«¬¿, íÑº »ÑαÑ¼ÑΘÑ¡¿∩│ │ │ ¬παß«αá. │ ├───────────────────┼───────────────────────────────────────────┤ │ ClrScr │ Äτ¿ΘáÑΓ φ¬αá¡ ¿ »«¼ÑΘáÑΓ ¬παß«α ó óÑασ¡Ñ¼│ │ │ ½Ñó«¼ πú½π. │ ├───────────────────┼───────────────────────────────────────────┤ │ CursorTo │ ÅÑαÑ¼ÑΘáÑΓ ¬παß«α ó Γ«τ¬π ¡á ó¿αΓπá½∞¡«¼│ │ │ φ¬αá¡Ñ ß ºáñá¡¡δ¼¿ ¬««αñ¿¡áΓá¼¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ DoneWinCrt │ ô¡¿τΓ«ªáÑΓ «¬¡á CRT. │ ├───────────────────┼───────────────────────────────────────────┤ │ G«t«òY │ éδ»«½¡∩ÑΓ »«º¿µ¿«¡¿α«óá¡¿Ñ ¬παß«αá. ò -│ │ │ φΓ« ú«α¿º«¡Γá½∞¡á∩ »«º¿µ¿∩, Y - óÑαΓ¿¬á½∞-│ │ │ ¡á∩ »«º¿µ¿∩ ó¿αΓπá½∞¡«ú« φ¬αá¡á. │ ├───────────────────┼───────────────────────────────────────────┤ │ InitWinCrt │ ê¡¿µ¿á½¿º¿απÑΓ «¬¡« CRT. │ ├───────────────────┼───────────────────────────────────────────┤ │ KeyÉrÑssÑd │ é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ TruÑ, Ñß½¿ ¬½áó¿Φá ¡á│ │ │ ¬½áó¿áΓπαÑ ¡áªáΓá ¿ FalsÑ - ó »α«Γ¿ó¡«¼ │ │ │ ß½πτáÑ. │ ├───────────────────┼───────────────────────────────────────────┤ │ ReadBuf │ æτ¿ΓδóáÑΓ ¿º «¬¡á CRT ßΓα«¬π. │ ├───────────────────┼───────────────────────────────────────────┤ │ RÑádKÑπ │ æτ¿ΓδóáÑΓ ß¿¼ó«½ ß ¬½áó¿áΓπαδ. │ ├───────────────────┼───────────────────────────────────────────┤ │ ScrollTo │ Åα«¬απτ¿óáÑΓ «¬¡« CRT, τΓ«íδ ó¿ñ¡á íδ½á│ │ │ Γ«τ¬á ß ºáñá¡¡δ¼¿ ¬««αñ¿¡áΓá¼¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ TrackCursor │ Åα«¬απτ¿óáÑΓ «¬¡« CRT, τΓ«íδ ¬παß«α íδ½│ │ │ ó¿ñ¿¼δ¼. │ ├───────────────────┼───────────────────────────────────────────┤ │ WherÑò │ é«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ ò ñ½∩ ΓÑ¬πΘÑ⌐ »«º¿µ¿│ │ │ ¬παß«αá, «Γ¡«ß∩Θπεß∩ ¬ ΓÑ¬πΘÑ¼π «¬¡π. ò │ │ │ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ú«α¿º«¡Γá½∞¡πε │ │ │ »«º¿µ¿ε. │ ├───────────────────┼───────────────────────────────────────────┤ │ WhereY │ é«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ Y ñ½∩ ΓÑ¬πΘÑ⌐ »«º¿-│ │ │ µ¿¿ ¬παß«αá, «Γ¡«ß∩Θπεß∩ ¬ ΓÑ¬πΘÑ¼π «¬¡π.│ │ │ Y »αÑñßΓáó½∩ÑΓ ß«í«⌐ óÑαΓ¿¬á½∞¡πε »«º¿µ¿ε.│ ├───────────────────┼───────────────────────────────────────────┤ │ WriteBuf │ éδó«ñ¿Γ ó «¬¡« CRT í½«¬ ß¿¼ó«½«ó. │ B.Pascal 7 & Objects/LR - 238 - ├───────────────────┼───────────────────────────────────────────┤ │ WriteChar │ éδó«ñ¿Γ ó «¬¡« CRT «ΓñÑ½∞¡δ⌐ ß¿¼ó«½. │ └───────────────────┴───────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 239 - ÅÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ WinCrt ───────────────────────────────────────────────────────────────── é ¼«ñπ½Ñ WinCrt «»¿ßδóáÑΓß∩ ¡Ñß¬«½∞¬« »ÑαÑ¼Ñ¡¡δσ: ┌───────────────────┬───────────────────────────────────────────┐ │ ÅÑαÑ¼Ñ¡¡á∩ │ Æ¿» │ ├───────────────────┼───────────────────────────────────────────┤ │ WindowOrg │ êß»«½∞ºπÑ¼«Ñ »« π¼«½τá¡¿ε αáº¼ÑΘÑ¡¿Ñ »«º-│ │ │ ó«½∩ÑΓ Windows óδí¿αáΓ∞ »«ñσ«ñ∩ΘÑÑ αáß»«-│ │ │ ½«ªÑ¡¿Ñ «¬¡á CRT. éδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ ¡á-│ │ │ τá½∞¡«Ñ º¡áτÑ¡¿Ñ, »α¿ßó«¿ó »ÑαÑñ ß«ºñá¡¿Ñ¼│ │ │ «¬¡á CRT ¡«óδÑ º¡áτÑ¡¿∩ ¬««αñ¿¡áΓá¼ X ¿ Y.│ ├───────────────────┼───────────────────────────────────────────┤ │ WindowSize │ êß»«½∞ºπÑ¼δ⌐ »« π¼«½τá¡¿ε αáº¼Ñα »«ºó«½∩ÑΓ│ │ │ Windows óδí¿αáΓ∞ »«ñσ«ñ∩Θ¿⌐ αáº¼Ñα «¬¡á│ │ │ CRT. éδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ ¡áτá½∞¡δ⌐ αáº¼Ñα,│ │ │ »α¿ßó«¿ó »ÑαÑñ ß«ºñá¡¿Ñ¼ «¬¡á CRT ¡«óδÑ│ │ │ º¡áτÑ¡¿∩ ¬««αñ¿¡áΓá¼ X ¿ Y. │ ├───────────────────┼───────────────────────────────────────────┤ │ ScreenSize │ Å« π¼«½τá¡¿ε φ¬αá¡ ¿¼ÑÑΓ αáº¼Ñα 80 ßΓ«½í-│ │ │ µ«ó ¡á 25 ßΓα«¬. Åα¿ßó«¿ó ñαπú¿Ñ º¡áτÑ¡¿∩│ │ │ ¬««αñ¿¡áΓá¼ X ¿ Y ScreenSize »ÑαÑñ ß«ºñá-│ │ │ ¡¿Ñ¼ «¬¡á CRT, óδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ ¿ß»«½∞-│ │ │ ºπÑ¼δ⌐ »« π¼«½τá¡¿ε αáº¼Ñα φ¬αá¡á CRT.│ │ │ ç¡áτÑ¡¿Ñ, »«½πτáÑ¼«Ñ »α¿ »α«¿ºóÑñÑ¡¿¿│ │ │ ScreenSize.X ¡á ScreenSize.Y, ¡Ñ ñ«½ª¡«│ │ │ »αÑóδΦáΓ∞ 65520. │ ├───────────────────┼───────────────────────────────────────────┤ │ Cursor │ éÑασ¡¿⌐ ½Ñóδ⌐ πú«½ ß««ΓóÑΓßΓóπÑΓ ¬««αñ¿¡á-│ │ │ ΓÑ (0,0). Cursor - φΓ« »ÑαÑ¼Ñ¡¡á∩, ñ«ßΓπ»-│ │ │ ¡á∩ Γ«½∞¬« »« τΓÑ¡¿ε. Åα¿ßóá¿óáΓ∞ Ñ⌐ º¡á-│ │ │ τÑ¡¿∩ ¡Ñ½∞º∩. │ ├───────────────────┼───────────────────────────────────────────┤ │ Origin │ æ«ñÑαª¿Γ ΓÑ¬πΘπε »«º¿µ¿ε ¬παß«αá ¡á ó¿αΓπ-│ │ │ á½∞¡«¼ φ¬αá¡Ñ - ¬««αñ¿¡áΓδ ∩τÑ⌐¬¿ ß¿¼ó«½á,│ │ │ óδó«ñ¿¼«⌐ ó ½Ñó«¼ óÑασ¡Ñ¼ πú½π «¬¡á CRT.│ │ │ ÄΓßτ¿ΓδóáÑΓß∩ ß 0. │ ├───────────────────┼───────────────────────────────────────────┤ │ InactiveTitle │ ô¬áºδóáÑΓ ¡á ºáóÑαΦáεΘπεß∩ ¡π½Ñ¼ ßΓα«¬π,│ │ │ ¿ß»«½∞ºπÑ¼πε ñ½∩ ß«ºñá¡¿∩ ºáú«½«ó¬á ¡Ñá¬-│ │ │ Γ¿ó¡«ú« «¬¡á CRT. │ ├───────────────────┼───────────────────────────────────────────┤ │ AutoTracking │ ÉáºαÑΦáÑΓ ¿½¿ ºá»αÑΘáÑΓ áóΓ«¼áΓ¿τÑß¬πε│ │ │ »α«¬απΓ¬π «¬¡á ñ½∩ «Γß½Ñª¿óá¡¿∩ ó¿ñ¿¼«ú«│ │ │ ¬παß«αá. │ ├───────────────────┼───────────────────────────────────────────┤ │ CheakBreak │ ÅÑαÑ¼Ñ¡¡á∩ ChÑckEOF αáºαÑΦáÑΓ ¿½¿ ºá»αÑΘá-│ │ │ ÑΓ ß¿¼ó«½ ¬«¡µá Σá⌐½á. àß½¿ »ÑαÑ¼Ñ¡¡á∩│ │ │ ChÑckEOF ¿¼ÑÑΓ º¡áτÑ¡¿Ñ TruÑ, Γ« ¬«úñá│ │ │ τΓÑ¡¿Ñ »α«¿ºó«ñ¿Γß∩ ¿º Σá⌐½á, ¡áº¡áτÑ¡¡«ú«│ │ │ «¬¡π CRT, »α¿ ¡áªáΓ¿¿ ¬½áó¿Φ Ctrl+Z úÑ¡Ñ-│ │ │ α¿απÑΓß∩ ß¿¼ó«½ ¬«¡µá Σá⌐½á. è«úñá »ÑαÑ-│ B.Pascal 7 & Objects/LR - 240 - │ │ ¼Ñ¡¡á∩ ChÑckEOF ¿¼ÑÑΓ º¡áτÑ¡¿Ñ False »α¿│ │ │ ¡áªáΓ¿¿ ¬½áó¿Φ Ctrl+Z ¡¿¬á¬¿σ ñÑ⌐ßΓó¿⌐ ¡Ñ│ │ │ óδ»«½¡∩ÑΓß∩. │ ├───────────────────┼───────────────────────────────────────────┤ │ CheckEof │ ÅÑαÑ¼Ñ¡¡á∩ CheckérÑak αáºαÑΦáÑΓ ¿½¿ ºá»αÑ-│ │ │ ΘáÑΓ »α«óÑα¬¿ ß¿Γπáµ¿¿ Ctrl+Break. è«úñá│ │ │ »ÑαÑ¼Ñ¡¡á∩ ChÑckérÑak »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ│ │ │ TruÑ, ¡áªáΓ¿Ñ »«½∞º«óáΓÑ½Ñ¼ ¬½áó¿Φ Alt+F4,│ │ │ óδí«α »«½∞º«óáΓÑ½Ñ¼ ¬«¼á¡ñδ Close ó ¼Ñ¡ε│ │ │ Control «¬¡á CRT ¿½¿ ñó«⌐¡«Ñ ¡áªáΓ¿Ñ ¬¡«»-│ │ │ ¬¿ "¼δΦ¿" ó π»αáó½∩εΘÑ⌐ αá¼¬Ñ ¼Ñ¡ε Control│ │ │ φΓ«ú« «¬¡á »α¿óÑñÑΓ ¬ »α¿¡πñ¿ΓÑ½∞¡«¼π ºá-│ │ │ óÑαΦÑ¡¿ε αáí«Γδ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ »α¿│ │ │ ß½ÑñπεΘÑ⌐ «»Ñαáµ¿¿ óδó«ñá ¡á φ¬αá¡ ñ¿ß»-│ │ │ ½Ñ∩, ¬«Γ«απε óδ»«½¡¿Γ φΓá »α«úαá¼¼á. │ ├───────────────────┼───────────────────────────────────────────┤ │ WindowTitle │ Ä»αÑñÑ½∩ÑΓ ºáú«½«ó«¬ «¬¡á CRT. Å« π¼«½τá-│ │ │ ¡¿ε ¿ß»«½∞ºπÑΓß∩ º¡áτÑ¡¿Ñ, αáó¡«Ñ »«½¡«¼π│ │ │ ¿¼Ñ¡¿ ¼áαΦαπΓá Σá⌐½á .EXE »α«úαá¼¼δ. │ └───────────────────┴───────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 241 - ÅÑτáΓ∞ ¿º »α«úαá¼¼δ Windows ───────────────────────────────────────────────────────────────── î«ñπ½∞ WinPrn »«ºó«½∩ÑΓ óá¼ »ÑτáΓáΓ∞ ΓÑ¬ßΓ ¿º »α«úαá¼¼δ Windows. ùΓ«íδ ¿ß»«½∞º«óáΓ∞ WinPrn, π¬áª¿ΓÑ φΓ«Γ ¼«ñπ½∞ ó «»Ñαá- Γ«αÑ uses óáΦÑ⌐ »α«úαá¼¼δ; uses WinPrn; ÅÑαÑñ ¡áτá½«¼ »ÑτáΓ¿ óá¼ ¡πª¡« »α¿ßó«¿Γ∞ »α¿¡ΓÑαπ »ÑαÑ¼Ñ¡¡πε Γ¿»á ΓÑ¬ßΓ«ó«ú« Σá⌐½á. æñÑ½áΓ∞ φΓ« ¼«ª¡« ñóπ¼∩ »πΓ∩¼¿ - ¡áº¡áτ¿ó ¿ß»«½∞ºπÑ¼δ⌐ »« π¼«½τá¡¿ε »α¿¡ΓÑα ¿½¿ óδíαáó ¬«¡¬αÑΓ¡δ⌐ »α¿¡ΓÑα, ñαá⌐óÑα ¿ »«αΓ. ä½∩ óδó«ñá ¡á ¿ß»«½∞ºπÑ¼δ⌐ »« π¼«½τá¡¿ε »α¿¡ΓÑα óδº«ó¿ΓÑ Σπ¡¬µ¿ε AssignPrn. ïεíá∩ ºá»¿ß∞ ó »α¿ßó«Ñ¡¡πε Σá⌐½«óπε »ÑαÑ¼Ñ¡¡πε Γ¿»á ΓÑ¬ßΓ«ó«ú« Σá⌐½á »α¿óÑñÑΓ ¬ óδó«ñπ ¡á »α¿¡ΓÑα. êº¼Ñ¡Ñ¡¿Ñ ºáú«½«ó¬«ó ───────────────────────────────────────────────────────────────── Å« π¼«½τá¡¿ε áñ¼¿¡¿ßΓαáΓ«α »ÑτáΓ¿ Windows íπñÑΓ óδó«ñ¿Γ∞ óßÑ ºáñá¡¿∩ »ÑτáΓ¿ τÑαÑº WinPrn íÑº ºáú«½«ó¬«ó. æ »«¼«Θ∞ε »α«µÑñπαδ TitlePrn (óδºóáó ÑÑ óß½Ññ ºá Rewrite) óδ ¼«ªÑΓÑ ºáñáΓ∞ ºáú«½«ó«¬, ¡á»α¿¼Ñα: AssignDefPrn(Prn); TitlePrn(Prn, 'è«¡Ñµ ú«ñ«ó«ú« «ΓτÑΓá'); Rewrite(Prn); ºáñáÑΓ ñ½∩ óδó«ñá ¿ß»«½∞ºπÑ¼δ⌐ »« π¼«½τá¡¿ε »α¿¡ΓÑα ¿ ¿º¼Ñ¡∩ÑΓ ºáú«½«ó«¬ ¡á "è«¡Ñµ ú«ñ«ó«ú« «ΓτÑΓá", óδó«ñ∩ Ñú« ¡á φΓ«Γ »α¿¡ΓÑα. àß½¿ TitlePrn óδºδóáÑΓß∩ »«ß½Ñ Rewrite, Γ« ¡¿¬á¬«ú« φΣΣÑ¬Γá φΓ« ¡Ñ óδºδóáÑΓ. B.Pascal 7 & Objects/LR - 242 - êº¼Ñ¡Ñ¡¿Ñ Φα¿ΣΓ«ó ───────────────────────────────────────────────────────────────── WinPrn ¿ß»«½∞ºπÑΓ ¡áº¡áτÑ¡¡δ⌐ »« π¼«½τá¡¿ε Φα¿ΣΓ, ¬«Γ«αδ⌐ ó«ºóαáΘáÑΓß∩ ñαá⌐óÑα«¼ πßΓα«⌐ßΓóá. ùΓ«íδ ¿º¼Ñ¡¿Γ∞ Φα¿ΣΓ, óδº«ó¿ΓÑ Σπ¡¬µ¿ε SetPrnFont, »ÑαÑñáó Ñ⌐ «»¿ßáΓÑ½∞ ¿ß»«½∞ºπÑ¼«ú« Φα¿ΣΓá. SetPrnFont ó«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ ¿ß»«½∞ºπÑ¼δ⌐ Φα¿ΣΓ. é«ºóαáΘáÑ¼δ⌐ Φα¿ΣΓ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ íπñπΘÑú« óδº«óá SetPrnFont ¿½¿ ñ½∩ »ÑαÑñáτ¿ Ñú« DeleteObject. Åα¿óÑñÑ¼ »α¿¼Ñα »α«úαá¼¼δ, ñÑ¼«¡ßΓα¿- απεΘÑ⌐ ¿º¼Ñ¡Ñ¡¿Ñ Φα¿ΣΓá:; program Test; uses WinTypes, WinProcs, WinCrt, WinPrn; var Prn: Text; OldFont: HFont; begin Writeln('ÅÑτáΓ∞...'); AssingDefPrn(Prn); Rewrite(Prn); Rewrite(Prn, 'ìÑ¬«Γ«αδ⌐ ΓÑ¬ßΓ'); OldFont := SetPrnFont(Prn, CreateFont(100,0,0,0,0,0,0,0,1, Out_Default_Precis,Clip_Default_Precis, Default_Quality,ff_Roman,nil); Writeln(Prn,' Åα«¿ºó«½∞¡δ⌐ ΓÑ¬ßΓ ¡«óδ¼ Φα¿ΣΓ«¼'); DeleteObject(SetPrnFont(Prn, OldFont)); Writeln(Prn, ' é«ºóαáΓ ¬ ßΓáα«¼π Φα¿ΣΓπ'); Close(Prn); Writeln('éδ»«½¡Ñ¡«'); end. B.Pascal 7 & Objects/LR - 243 - ÄßΓá¡«ó¬á ºáñá¡¿∩ »ÑτáΓ¿ ───────────────────────────────────────────────────────────────── ùΓ«íδ «ßΓá¡«ó¿Γ∞ ºáñá¡¿Ñ »ÑτáΓ¿, ºá»πΘÑ¡¡«Ñ ß »«¼«Θ∞ε WinPrn, óδº«ó¿ΓÑ »α«µÑñπαπ AbortPrn. ¥Γ« »α¿óÑñÑΓ ¬ »αÑ¬αáΘÑ¡¿ε »ÑτáΓ¿, ßíα«ßπ πßΓα«⌐ßΓóá ¿ »«ñú«Γ«ó¬¿ Ñú« ¬ óδó«ñπ ¡«ó«ú« ºáñá- ¡¿∩ »ÑτáΓ¿. æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ ───────────────────────────────────────────────────────────────── è«úñá óáΦá »α«úαá¼¼á ¿ß»«½∞ºπÑΓ ¼«ñπ½∞ WinPrn, ß½ÑñπεΘ¿Ñ ß¿¼ó«½δ íπñπΓ ¿¼ÑΓ∞ ß»Ñµ¿á½∞¡δ⌐ ß¼δß½: ┌───────┬───────────────┬───────────────────────────────────────┐ │æ¿¼ó«½ │ ìáºóá¡¿Ñ │ Ä»¿ßá¡¿Ñ │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #9 │ Æáíπ½∩µ¿∩ │ ìáτ¿¡áÑΓ »ÑτáΓ∞ ß¿¼ó«½«ó ß« ß½ÑñπεΘÑ⌐│ │ │ TAB │ »«º¿µ¿¿ Γáíπ½∩µ¿¿, ¬«Γ«αá∩ «ΓßΓ«¿Γ «Γ│ │ │ │ »αÑñδñπΘÑ⌐ »«º¿µ¿¿ Γáíπ½∩µ¿¿ ¡á 8-│ │ │ │ ¬αáΓ¡πε ßαÑñ¡εε Φ¿α¿¡π Φα¿ΣΓá. │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #10 │ ÅÑαÑó«ñ ßΓα«¬¿│ ìáτ¿¡áÑΓ »ÑτáΓ∞ ß ¡«ó«⌐ ßΓα«¬¿. │ │ │ LF │ │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #12 │ÅÑαÑó«ñ Σ«α¼áΓá│ Åα¿¡πñ¿ΓÑ½∞¡δ⌐ »ÑαÑó«ñ ßΓαá¡¿µδ. │ │ │ FF │ │ ├───────┼───────────────┼───────────────────────────────────────┤ │ #13 │é«ºóαáΓ ¬áαÑΓ¬¿│ ìáτ¿¡áÑΓ »ÑτáΓ∞ ß ¡áτá½á ¡«ó«⌐ ßΓα«¬¿.│ │ │ CR │ │ └───────┴───────────────┴───────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 244 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ WinPrn ───────────────────────────────────────────────────────────────── Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ WinPrn »ÑαÑτ¿ß½Ñ¡δ ó ß½ÑñπεΘÑ⌐ Γáí½¿µÑ: ┌──────────────────────────┬────────────────────────────────────┐ │ Åα«µÑñπαá/Σπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────────────┼────────────────────────────────────┤ │ AbortPrn │ ÅαÑ¬αáΘáÑΓ »ÑτáΓ∞ ºáñá¡¿∩, «Γíαáßδ-│ │ │ óá∩ óßÑ ¡Ñαáß»ÑτáΓá¡¡δÑ ñá¡¡δÑ. │ ├──────────────────────────┼────────────────────────────────────┤ │ AssignPrn │ Åα¿ßóá¿óáÑΓ »α¿¡ΓÑαπ Σá⌐½. │ ├──────────────────────────┼────────────────────────────────────┤ │ AssingDefPrn │ Åα¿ßóá¿óáÑΓ Σá⌐½ ¿ß»«½∞ºπÑ¼«¼π »«│ │ │ π¼«½τá¡¿ε »α¿¡ΓÑαπ. │ ├──────────────────────────┼────────────────────────────────────┤ │ SetPrnFont │ ìáτ¿¡áÑΓ »ÑτáΓ∞ Σá⌐½á ß óδíαá¡¡δ¼│ │ │ Φα¿ΣΓ«¼. │ ├──────────────────────────┼────────────────────────────────────┤ │ TitlePrn │ éδó«ñ¿Γ ºáú«½«ó«¬ »ÑτáΓáÑ¼«ú« Σá⌐-│ │ │ ½á. │ └──────────────────────────┴────────────────────────────────────┘ äαá⌐óÑαδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó Borland Pascal »«ºó«½∩ÑΓ óá¼ «»αÑñÑ½¿Γ∞ óáΦ¿ ß«íßΓóÑ¡¡δÑ ñαá⌐óÑαδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó. äαá⌐óÑα πßΓα«⌐ßΓóá ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡áí«α ¿º τÑΓδαÑσ Σπ¡¬µ¿⌐, αÑ- á½¿ºπεΘ¿σ »«½¡δ⌐ ¿¡ΓÑαΣÑ⌐ß ¼Ñªñπ Σá⌐½«ó«⌐ ß¿ßΓÑ¼«⌐ Borland Pascal ¿ ¬á¬¿¼-½¿í« πßΓα«⌐ßΓó«¼. ¥Γ¿¼¿ τÑΓδα∞¼∩ Σπ¡¬µ¿∩¼¿, ß »«¼«Θ∞ε ¬«Γ«αδσ «»αÑñÑ½∩ÑΓß∩ ½ε- í«⌐ ñαá⌐óÑα πßΓα«⌐ßΓóá, ∩ó½∩εΓß∩ Σπ¡¬µ¿¿ Open, InOut, Flush ¿ Close. çáú«½«ó«¬ ¬áªñ«⌐ Σπ¡¬µ¿¿ ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ó¿ñ: function DeviceFunc(var F: TextRec) integer úñÑ TÑσtRÑß (¿½¿ TTextRec ñ½∩ Windows) - Γ¿» ºá»¿ß¿ ΓÑ¬ßΓ«ó«ú« Σá⌐½á, ¬«Γ«αδ⌐ «»αÑñÑ½∩ÑΓß∩ ó â½áóÑ 21. ùΓ«íδ ó Σπ¡¬µ¿¿ ¿ß»«½∞º«- óá½ß∩ ñá½∞¡¿⌐ Γ¿» óδº«óá, ¬áªñá∩ ¿º ¡¿σ ñ«½ª¡á ¬«¼»¿½¿α«óáΓ∞ß∩ ß ñ¿αÑ¬Γ¿ó«⌐ {$F+}. ç¡áτÑ¡¿Ñ, ó«ºóαáΘáÑ¼«Ñ ¬áªñ«⌐ Σπ¡¬µ¿Ñ⌐, »αÑñß- Γáó½∩εΘÑ⌐ ß«í«⌐ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ßΓá¡«ó¿Γß∩ º¡áτÑ¡¿Ñ¼, ó«ºóαáΘáÑ¼δ¼ Σπ¡¬µ¿Ñ⌐ IOResult. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 0 ßó¿ñÑ- ΓÑ½∞ßΓóπÑΓ «í πß»ÑΦ¡«¼ ºáóÑαΦÑ¡¿¿ «»Ñαáµ¿¿. ä½∩ Γ«ú«, τΓ«íδ ßó∩ºáΓ∞ Σπ¡¬µ¿ε, «ßπΘÑßΓó½∩εΘπε ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ß ¬«¡¬αÑΓ¡δ¼ Σá⌐½«¼, ¡πª¡« ¡á»¿ßáΓ∞ ß»Ñµ¿á½∞¡πε »α«- µÑñπαπ Assign (á¡á½«ú¿τ¡πε »α«µÑñπαÑ AssignCrt ó ¼«ñπ½Ñ Crt ¿½¿ WinCrt). ¥Γá »α«µÑñπαá ñ«½ª¡á »α¿ßóá¿óáΓ∞ áñαÑßá τÑΓδαÑσ Σπ¡¬µ¿⌐, «ßπΘÑßΓó½∩εΘ¿σ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓóá¼¿, τÑΓδαÑ¼ π¬áºáΓÑ½∩¼ ¡á Σπ¡¬µ¿¿ ó »ÑαÑ¼Ñ¡¡«⌐ ΓÑ¬ßΓ«ó«ú« Σá⌐½á. é »α¿ñáτπ ¬ φΓ«¼π óδ ñ«½ª- ¡δ ß«σαá¡¿Γ∞ ß¿ßΓÑ¼¡πε ¬«¡ßΓá¡Γπ fmClosed ó »«½Ñ î«dÑ, ºá»¿ßáΓ∞ B.Pascal 7 & Objects/LR - 245 - αáº¼Ñα íπΣÑαá ΓÑ¬ßΓ«ó«ú« Σá⌐½á ó »ÑαÑ¼Ñ¡¡πε BufSize, ß«σαá¡¿Γ∞ π¬áºáΓÑ½∞ íπΣÑαá ΓÑ¬ßΓ«ó«ú« Σá⌐½á ó »ÑαÑ¼Ñ¡¡«⌐ BufPtr ¿ «τ¿ßΓ¿Γ∞ ßΓα«¬π Ná¼Ñ. ÅαÑñ»«½«ª¿¼, ¡á»α¿¼Ñα, τΓ« ¿¼Ñ¡á¼¿ τÑΓδαÑσ Σπ¡¬µ¿⌐, αÑá½¿ºπ- εΘ¿σ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ∩ó½∩εΓß∩ Σπ¡¬µ¿¿ DevOpen, DevInOut, DevFlush, DevClose ¿ Assign. Æ«úñá »α«µÑñπαá Assing ¼«ªÑΓ óδú½∩ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαáº«¼: procedure AssignDev(var F: Text); begin with TextRec(F) do begin mode := fmClosed; BufSize := SizeOf(Buffer); BufPtr := @Buffer; OpenFunc := @DevOpen; InOutFunc := @DevInOut; FlushFunc := @DevFlush; CloseFunc := @DevClose; Name[0] := #0; end; end; ä½∩ σαá¡Ñ¡¿∩ »«½∞º«óáΓÑ½∞ß¬«⌐ ¿¡Σ«α¼áµ¿¿ ó Σπ¡¬µ¿¿, αÑá½¿ºπ- εΘÑ⌐ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼, ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ »«½Ñ ºá»¿ß¿ UserData. ¥Γ« »«½Ñ ¡Ñ ¿º¼Ñ¡∩ÑΓß∩ Σá⌐½«ó«⌐ ß¿ßΓÑ¼«⌐ Borland Pascal. B.Pascal 7 & Objects/LR - 246 - öπ¡¬µ¿∩ Open ───────────────────────────────────────────────────────────────── öπ¡¬µ¿∩ Open óδºδóáÑΓß∩ ßΓá¡ñáαΓ¡δ¼¿ »α«µÑñπαá¼¿ RÑset, RÑwritÑ ¿ AppÑnd ñ½∩ «Γ¬αδΓ¿∩ ΓÑ¬ßΓ«ó«ú« Σá⌐½á, ßó∩ºá¡¡«ú« ß πßΓ- α«⌐ßΓó«¼. ùΓ«íδ «Γ¼ÑΓ¿Γ∞ íδ½á ½¿ Σπ¡¬µ¿∩ Open óδºóá¡á ¿º »α«µÑñπ- αδ RÑset, RÑwritÑ ¿½¿ AppÑnd, ¡á óσ«ñÑ »«½Ñ î«dÑ ß«ñÑαª¿Γ º¡áτÑ- ¡¿Ñ fmInput, fmOutput ¿½¿ fmInOut. é ß««ΓóÑΓßΓó¿¿ ß« º¡áτÑ¡¿Ñ¼ î«dÑ Σπ¡¬µ¿∩ Open »«ñú«Γáó½¿óáÑΓ Σá⌐½ ñ½∩ óó«ñá ¿½¿ óδó«ñá. àß½¿ ó î«dÑ π¬áºδóáÑΓß∩ FmInOut (π¬á- ºδóá∩, τΓ« Σπ¡¬µ¿∩ ÄpÑn íδ½á óδºóá¡á ¿º AppÑnd), Γ« »ÑαÑñ ó«ºóαá- Γ«¼ π»αáó½Ñ¡¿∩ Σπ¡¬µ¿Ñ⌐ ÄpÑn φΓ« º¡áτÑ¡¿Ñ ñ«½ª¡« íδΓ∞ ¿º¼Ñ¡Ñ¡« ¡á fmOutput. öπ¡¬µ¿∩ OpÑn óßÑúñá óδºδóáÑΓß∩ »ÑαÑñ ½εí«⌐ ñαπú«⌐ Σπ¡¬µ¿Ñ⌐, αÑá½¿ºπεΘÑ⌐ ¿¡ΓÑαΣÑ⌐ß ß πßΓα«⌐ßΓó«¼. Å« φΓ«⌐ »α¿τ¿¡Ñ Σπ¡¬µ¿∩ Assign ¿¡¿µ¿á½¿º¿απÑΓ Γ«½∞¬« »«½Ñ OpÑnFunc, «Γ¬½áñδóá∩ ¿¡¿µ¿á½¿- ºáµ¿ε «ßΓáóΦ¿σß∩ óÑ¬Γ«α«ó ñ« ºáóÑαΦÑ¡¿∩ óδ»«½¡Ñ¡¿∩ Σπ¡¬µ¿¿ OpÑn. Äß¡«óδóá∩ß∞ ¡á º¡áτÑ¡¿¿ »«½∩ î«dÑ Σπ¡¬µ¿∩ OpÑn ¼«ªÑΓ πßΓá¡«ó¿Γ∞ π¬áºáΓÑ½¿ ¬á¬ ñ½∩ Σπ¡¬µ¿⌐, «α¿Ñ¡Γ¿α«óá¡¡δσ ¡á óó«ñ, Γá¬ ¿ ñ½∩ Σπ¡¬µ¿⌐, «α¿Ñ¡Γ¿α«óá¡¡δσ ¡á óδó«ñ. ¥Γ« »«ºó«½∩ÑΓ ¿ºíÑªáΓ∞ «»αÑñÑ- ½Ñ¡¿∩ ΓÑ¬πΘÑú« αÑª¿¼á ó Σπ¡¬µ¿∩σ InOut, Flush ¿ Close. öπ¡¬µ¿∩ InOut ───────────────────────────────────────────────────────────────── éß∩¬¿⌐ αáº, ¬«úñá ΓαÑíπÑΓß∩ óó«ñ ß πßΓα«⌐ßΓóá ¿½¿ óδó«ñ ¡á ¡Ñú«, Σπ¡¬µ¿∩¼¿ Readln, Read, Write, Writeln, Page, Eof, SeekEof, SeekEoln ¿ Close óδºδóáÑΓß∩ Σπ¡¬µ¿∩ InOut. è«úñá ó »«½Ñ î«dÑ πßΓá¡«ó½Ñ¡« º¡áτÑ¡¿Ñ fnInput, Σπ¡¬µ¿∩ InOut ßτ¿ΓδóáÑΓ ß¿¼ó«½δ («íΩÑ¼ óó«ñá ºáñáÑΓß∩ »ÑαÑ¼Ñ¡¡«⌐ BufSize) ó BufPtr^ ¿ ó«ºóαáΘáÑΓ τ¿ß½« ßτ¿Γá¡¡δσ ß¿¼ó«½«ó ó BufEnd, á Γá¬ªÑ ºá»¿ßδóáÑΓ 0 ó BufPos. àß½¿ Σπ¡¬µ¿∩ InOut ó αÑºπ½∞ΓáΓÑ ºá»α«ßá ¡á óó«ñ ó«ºóαáΘáÑΓ ó BufEnd º¡áτÑ¡¿Ñ 0, Γ« »ÑαÑ¼Ñ¡¡á∩ E«f ñ½∩ Σá⌐½á »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ TruÑ. è«úñá ó »«½Ñ î«dÑ πßΓá¡«ó½Ñ¡« º¡áτÑ¡¿Ñ fnOutput, Σπ¡¬µ¿∩ InOut ºá»¿ßδóáÑΓ ß¿¼ó«½δ, ¬«½¿τÑßΓó« ¬«Γ«αδσ «»αÑñÑ½∩ÑΓß∩ »ÑαÑ- ¼Ñ¡¡«⌐ BufÉ«s, ¿º BufPtr^ ¿ ó«ºóαáΘáÑΓ ó BufÉ«s º¡áτÑ¡¿Ñ 0. B.Pascal 7 & Objects/LR - 247 - öπ¡¬µ¿∩ Flush ───────────────────────────────────────────────────────────────── öπ¡¬µ¿∩ Flush óδºδóáÑΓß∩ ó ¬«¡µÑ óδ»«½¡Ñ¡¿∩ ¬áªñ«⌐ Σπ¡¬µ¿¿ RÑád, Write, RÑádln ¿½¿ Writeln. Ä¡á ¼«ªÑΓ Γá¬ªÑ ßíαáßδóáΓ∞ íπΣÑα ΓÑ¬ßΓ«ó«ú« Σá⌐½á. àß½¿ ó »«½Ñ î«dÑ ¡áσ«ñ¿Γß∩ fmInput, Σπ¡¬µ¿∩ Flush ñ½∩ Γ«ú«, τΓ«íδ «Γíα«ß¿Γ∞ «ßΓáóΦ¿Ñß∩ (¡Ñßτ¿Γá¡¡δÑ) ß¿¼ó«½δ ó íπΣÑαÑ, ¼«ªÑΓ ºá»¿ßáΓ∞ 0 ó BufPos ¿ BufEnd. ¥Γ« ßαÑñßΓó« ¿ß»«½∞ºπÑΓß∩ αÑñ¬«. àß½¿ ó »«½Ñ î«dÑ ¡áσ«ñ¿Γß∩ fnOutput, Γ« Σπ¡¬µ¿∩ Flush ¼«ªÑΓ ºá»¿ßáΓ∞ ß«ñÑαª¿¼«Ñ íπΣÑαá, ó Γ«τ¡«ßΓ¿ Γá¬¿¼ ªÑ «íαáº«¼, ¬á¬ Σπ¡¬µ¿∩ InOut. ¥Γ¿¼ «íÑß»Ñτ¿óáÑΓß∩, τΓ« óδóÑñÑ¡¡δ⌐ ¡á πßΓα«⌐ßΓó« ΓÑ¬ßΓ »«∩ó¿Γß∩ ¡á πßΓα«⌐ßΓóÑ ¡Ñ¼Ññ½Ñ¡¡«. àß½¿ Σπ¡¬µ¿∩ Flush ¡Ñ óδ»«½¡∩ÑΓ ¡¿¬á¬¿σ ñÑ⌐ßΓó¿⌐, ΓÑ¬ßΓ ¡Ñ íπñÑΓ óδóÑñÑ¡ ¡á πßΓα«⌐ßΓó«, »«¬á íπΣÑα ¡Ñ ßΓá¡ÑΓ »«½¡δ¼, ¿½¿ Σá⌐½ ¡Ñ íπñÑΓ ºá¬αδΓ. öπ¡¬µ¿∩ Cl«sÑ ───────────────────────────────────────────────────────────────── öπ¡¬µ¿∩ Cl«sÑ óδºδóáÑΓß∩ ßΓá¡ñáαΓ¡«⌐ »α«µÑñπα«⌐ Cl«sÑ ñ½∩ ºá¬αδΓ¿∩ ßó∩ºá¡¡«ú« ß πßΓα«⌐ßΓó«¼ ΓÑ¬ßΓ«ó«ú« Σá⌐½á. (Åα«µÑñπαδ RÑsÑt, RÑwritÑ, AppÑnd Γá¬ªÑ óδºδóáεΓ Σπ¡¬µ¿ε Cl«sÑ, Ñß½¿ Σá⌐½, ¬«Γ«αδ⌐ «¡¿ «Γ¬αδóáεΓ, πªÑ íδ½ «Γ¬αδΓ.) àß½¿ ó »«½Ñ î«dÑ ¡áσ«ñ¿Γ- ß∩ fmOut, Γ« »ÑαÑñ óδº«ó«¼ Σπ¡¬µ¿¿ Cl«sÑ Σá⌐½«óá∩ ß¿ßΓÑ¼á Æπαí« Åáß¬á½∩ «íαáΘáÑΓß∩ ¬ Σπ¡¬µ¿¿ InOut. ¥Γ« úáαá¡Γ¿απÑΓ óδó«ñ ¡á πßΓ- α«⌐ßΓó« óßÑσ ß¿¼ó«½«ó. B.Pascal 7 & Objects/LR - 248 - ─────────────────────────────────────────────────────────────────────── â½áóá 15. êß»«½∞º«óá¡¿Ñ ß«»α«µÑßß«αá 80x87 ───────────────────────────────────────────────────────────────── é Borland Pascal óδ ¼«ªÑΓÑ αáí«ΓáΓ∞ ß ñóπ¼∩ Γ¿»á¼¿ τ¿ßÑ½ - µÑ½δ¼¿ (¬«α«Γ¬¿¼¿ µÑ½δ¼¿ - Shortint, µÑ½δ¼¿ - Integer, ñ½¿¡¡δ¼¿ µÑ½δ¼¿ - Longint, µÑ½δ¼¿ ñ½¿¡«⌐ ó íá⌐Γ - Byte, µÑ½δ¼¿ ñ½¿¡«⌐ ó ß½«ó« - Word) ¿ óÑΘÑßΓóÑ¡¡δ¼¿ (óÑΘÑßΓóÑ¡¡δ¼¿ - Real, óÑΘÑßΓóÑ¡¡δ- ¼¿ «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ¿ - Single, óÑΘÑßΓóÑ¡¡δ¼¿ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿ - Double, »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ¿ - Extended, ß½«ª¡δ¼¿ - Comp). éÑΘÑßΓ- óÑ¡¡δÑ τ¿ß½á ¡áºδóáεΓ Γá¬ªÑ τ¿ß½á¼¿ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ (»½áóáεΘÑ⌐ ºá»∩Γ«⌐). ä½∩ «í½ÑúτÑ¡¿∩ αáí«Γδ ß µÑ½δ¼¿ τ¿ß½á¼¿ ß«ºñá¡ »α«µÑßß«α 8086, ¡« ñ½∩ αáí«Γδ ß óÑΘÑßΓóÑ¡¡δ¼¿ τ¿ß½á¼¿ ¡á φΓ«¼ »α«µÑßß«αÑ ºáΓαáτ¿óáÑΓß∩ ú«αáºñ« í«½∞ΦÑ óαÑ¼Ñ¡¿ ¿ πß¿½¿⌐. ä½∩ ßÑ¼Ñ⌐ßΓóá »α«- µÑßß«α«ó 8086 »αÑñ¡áº¡áτÑ¡« ß««ΓóÑΓßΓóπεΘÑÑ ßÑ¼Ñ⌐ßΓó« óß»«¼«úá- ΓÑ½∞¡δσ ß»Ñµ¿á½¿º¿α«óá¡¡δσ »α«µÑßß«α«ó ñ½∩ ¼áΓÑ¼áΓ¿τÑß¬¿σ óδτ¿ß- ½Ñ¡¿⌐ (ß«»α«µÑßß«α«ó) 80x87. Åα«µÑßß«α 80x87 - φΓ« ß»Ñµ¿á½∞¡δ⌐ ß«»α«µÑßß«α ñ½∩ «íαáí«Γ¬¿ τ¿ßÑ½, ¬«Γ«αδ⌐ ¼«ªÑΓ óσ«ñ¿Γ∞ ó ß«ßΓáó óáΦÑú« ¬«¼»∞εΓÑαá Éæ. æ »«- ¼«Θ∞ε ¡Ñú« «»Ñαáµ¿¿ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ óδ»«½¡∩εΓß∩ «τÑ¡∞ íδßΓα«. Å«φΓ«¼π Ñß½¿ óδ ß«í¿αáÑΓÑß∞ ¿ß»«½∞º«óáΓ∞ í«½∞Φ«⌐ «íΩÑ¼ óδτ¿ß½Ñ¡¿⌐ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐, Γ« óá¼, óÑα«∩Γ¡«, »«¡áñ«í¿Γß∩ ß«»α«µÑßß«α. Borland Pascal »«ßΓα«Ñ¡ Γá¬¿¼ «íαáº«¼, τΓ« «¡ «íÑß»Ñτ¿óáÑΓ «»Γ¿¼á½∞¡«Ñ óδ»«½¡Ñ¡¿Ñ «»Ñαáµ¿⌐ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ¡Ñºáó¿ß¿¼« «Γ ¡á½¿τ¿∩ ß«»α«µÑßß«αá 80x87. * ä½∩ »α«úαá¼¼, αáí«ΓáεΘ¿σ ¡á ¬«¼»∞εΓÑαÑ Éæ, ¡Ñºáó¿ß¿¼« «Γ Γ«ú«, «ß¡áΘÑ¡ «¡ ß«»α«µÑßß«α«¼ 80x87 ¿½¿ ¡ÑΓ, ó Borland Pascal »αÑñπß¼«ΓαÑ¡« ¿ß»«½∞º«óá¡¿Ñ óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½ ¿ ß««ΓóÑΓßΓóπεΘá∩ í¿í½¿«ΓÑ¬á »α«úαá¼¼, ¬«Γ«αδÑ »αÑñ¡áº¡áτÑ¡δ ñ½∩ óδ»«½¡Ñ¡¿∩ «»Ñαáµ¿⌐ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐. ù¿ß½á óÑΘÑßΓ- óÑ¡¡«ú« Γ¿»á ºá¡¿¼áεΓ 6 íá⌐Γ »á¼∩Γ¿. Åα¿ φΓ«¼ «íÑß»Ñτ¿óá- ÑΓß∩ »αÑñßΓáó½Ñ¡¿Ñ τ¿ßÑ½ ó ñ¿á»áº«¡Ñ «Γ 2.9σ10^-39 ñ« 1.7σ10^38 ß 11-12 º¡áτáΘ¿¼¿ µ¿Σαá¼¿. Åα«úαá¼¼δ ó í¿í½¿«ΓÑ- ¬Ñ »α«úαá¼¼ ñ½∩ αáí«Γδ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ «»Γ¿¼¿º¿α«óá¡δ »« ß¬«α«ßΓ¿ ¿ »« αáº¼Ñαπ ¿ ¿ß»«½∞ºπεΓ ßá¼δÑ ¡«óÑ⌐Φ¿Ñ ßαÑñßΓóá »α«µÑßß«αá 80x87. * àß½¿ óδ »¿ΦÑΓÑ »α«úαá¼¼δ, ¿ß»«½∞ºπεΘ¿Ñß∩ Γ«½∞¬« ¡á ¬«¼»∞- εΓÑαáσ, «ß¡áΘÑ¡¡δσ ß«»α«µÑßß«α«¼ 80x87, Γ« óδ ¼«ªÑΓÑ π¬á- ºáΓ∞ Borland Pascal ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ »«½πτÑ¡¿∩ óδ»«½¡∩Ñ¼«- ú« ¬«ñá, ó ¬«Γ«α«¼ ¿ß»«½∞ºπÑΓß∩ »½áΓá »α«µÑßß«αá 80x87. ¥Γ« ñáßΓ óá¼ ó«º¼«ª¡«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ τÑΓδαÑσ ñ«»«½¡¿- ΓÑ½∞¡δσ Γ¿»«ó óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½ («ñ¿¡áα¡«⌐ ¿ ñó«⌐¡«⌐ Γ«τ- ¡«ßΓ¿, »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ¿, ß½«ª¡«ú« Γ¿»á) ¿ αáßΦ¿αÑ¡¡δ⌐ ñ¿á»áº«¡ »αÑñßΓáó½Ñ¡¿∩ τ¿ßÑ½ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ - «Γ 1.9σ10^-4951 ñ« 1,1σ10^4943 ß 19-20 º¡áτáΘ¿¼¿ µ¿Σαá¼¿. æ »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $N ¿½¿ »áαá¼ÑΓαá ¼Ñ¡ε Options│C«mpiler (Åáαá¼ÑΓαδ│è«¼»¿½∩Γ«α) 80x87/80287 ¼«ª¡« »ÑαÑ¬- ½ετáΓ∞ß∩ ¼Ñªñπ αáº½¿τ¡δ¼¿ ¼«ñÑ½∩¼¿ úÑ¡Ñαáµ¿¿ ¬«ñá ß »½áóáεΘÑ⌐ Γ«τ¬«⌐. Å« π¼«½τá¡¿ε ¿ß»«½∞ºπÑΓß∩ ß«ßΓ«∩¡¿Ñ {$N-}. é φΓ«¼ ß«ßΓ«∩- B.Pascal 7 & Objects/LR - 249 - ¡¿¿ ¬«¼»¿½∩Γ«α ¿ß»«½∞ºπÑΓ 6-íá⌐Γ«óπε í¿í½¿«ΓÑ¬π ß »½áóáεΘÑ⌐ Γ«τ- ¬«⌐, τΓ« »«ºó«½∩ÑΓ óá¼ αáí«ΓáΓ∞ Γ«½∞¬« ß »ÑαÑ¼Ñ¡¡δ¼¿ Γ¿»á Real. é ß«ßΓ«∩¡¿¿ {$N+} ¬«¼»¿½∩Γ«α úÑ¡Ñα¿απÑΓ ¬«ñ ñ½∩ ß«»α«µÑßß«αá 80x87, τΓ« ñáÑΓ óá¼ ñ«»«½¡¿ΓÑ½∞¡πε Γ«τ¡«ßΓ∞ ¿ ñ«ßΓπ» ¬ 4 ñ«»«½¡¿ΓÑ½∞¡δ¼ óÑΘÑßΓóÑ¡¡δ¼ Γ¿»á¼. é Windows »α¿ ¬«¼»¿½∩µ¿¿ ß αÑª¿¼«¼ τ¿ß½«ó«⌐ «íαáí«Γ¬¿, Γ« ÑßΓ∞ ß ñ¿αÑ¬Γ¿ó«⌐ {$N+}, πíÑñ¿ΓÑß∞, τΓ« ó óáΦÑ⌐ ß¿ßΓÑ¼Ñ ¼«ª¡« ¡á⌐Γ¿ í¿í½¿«ΓÑ¬π φ¼π½∩µ¿¿ Windows 8087 - WIN87EM.DLL. ¥Γá í¿í½¿«- ΓÑ¬á «íÑß»Ñτ¿óáÑΓ ¡Ñ«íσ«ñ¿¼δ⌐ ¿¡ΓÑαΣÑ⌐ß ¼Ñªñπ ß«»α«µÑßß«α«¼ 80σ87, Windows ¿ óáΦÑ⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼«⌐. àß½¿ ß«»α«µÑßß«α 80σ87 ó óáΦÑ⌐ ß¿ßΓÑ¼Ñ «ΓßπΓßΓóπÑΓ, Γ« í¿í½¿«ΓÑ¬á WIN87EM.DLL íπ- ñÑΓ φ¼π½¿α«óáΓ∞ Ñú« »α«úαá¼¼¡«. ¥¼π½∩µ¿∩ ßπΘÑßΓóÑ¡¡« ºá¼Ññ½∩ÑΓ αáí«Γπ »« ßαáó¡Ñ¡¿ε ß αÑá½∞¡δ¼ ß«»α«µÑßß«α«¼ 80σ87, ¡« «íÑß»Ñτ¿- óáÑΓ óδ»«½¡Ñ¡¿Ñ óáΦÑ⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ¡á ½εí«⌐ ¼áΦ¿¡Ñ. é αÑá½∞¡«¼ ¿½¿ ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS, ñáªÑ Ñß½¿ π óáß ¡ÑΓ ß«»α«µÑßß«αá 8087, óδ ¼«ªÑΓÑ π¬áºáΓ∞ Borland Pascal, τΓ« ¡πª¡« ó¬½ετ¿Γ∞ í¿í½¿«ΓÑ¬π ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ, ¬«Γ«αá∩ φ¼π½¿απÑΓ áα¿Σ- ¼ÑΓ¿τÑß¬¿⌐ ß«»α«µÑßß«α 8087. é ß½πτáÑ ¡á½¿τ¿∩ ß«»α«µÑßß«αá 8087 «¡ ¿ß»«½∞ºπÑΓß∩. àß½¿ ß«»α«µÑßß«α «ΓßπΓßΓóπÑΓ, Ñú« αáí«Γá φ¼π½¿- απÑΓß∩ í¿í½¿«ΓÑ¬«⌐ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ (ºá ßτÑΓ ¡Ñ¬«Γ«α«⌐ »«ΓÑα¿ ß¬«α«ßΓ¿ αáí«Γδ »α«úαá¼¼δ). ä½∩ αáºαÑΦÑ¡¿∩ ¿ ºá»αÑΘÑ¡¿∩ φ¼π½∩µ¿¿ ß«»α«µÑßß«αá 8087 ¿ß- »«½∞ºπεΓß∩ ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $E ¿ »áαá¼ÑΓα Emulation (¥¼π½∩- µ¿∩) ¼Ñ¡ε Options│Compiler (Åáαá¼ÑΓαδ│è«¼»¿½∩Γ«α). Å« π¼«½τá¡¿ε ¿ß»«½∞ºπÑΓß∩ ß«ßΓ«∩¡¿Ñ {$E+}. é φΓ«¼ ß«ßΓ«∩¡¿¿ ó »α«úαá¼¼π áóΓ«- ¼áΓ¿τÑß¬¿ ó¬½ετáÑΓß∩ »«½¡á∩ φ¼π½∩µ¿∩ ß«»α«µÑßß«αá 8087. é ß«ßΓ«∩- ¡¿¿ {$E-} ¿ß»«½∞ºπÑΓß∩ ßπΘÑßΓóÑ¡¡« ¼Ñ¡∞Φá∩ τáßΓ∞ í¿í½¿«ΓÑ¬¿ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐, á »«½πτÑ¡¡δ⌐ ó αÑºπ½∞ΓáΓÑ Σá⌐½ .EXE íπñÑΓ αáí«- ΓáΓ∞ Γ«½∞¬« ¡á ¼áΦ¿¡áσ ß ß«»α«µÑßß«α«¼ 8087. é »α¿½«ªÑ¡¿¿ Windows ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $E ¡Ñ ñÑ⌐ßΓóπÑΓ. ìÑ ñÑ⌐ßΓóπÑΓ «¡á Γá¬ªÑ ó ¼«ñπ½Ñ. ü«½ÑÑ Γ«ú«, Ñß½¿ »α«úαá¼¼á ¬«¼- »¿½¿α«óá½áß∞ ß ñ¿αÑ¬Γ¿ó«⌐ {$N-}, á óßÑ ¼«ñπ½¿ »α«úαá¼¼δ ¬«¼»¿½¿- α«óá½¿ß∞ ß ñ¿αÑ¬Γ¿ó«⌐ {$N+}, Γ« í¿í½¿«ΓÑ¬á ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ñ½∩ ß«»α«µÑßß«αá 8087 ¡Ñ ΓαÑíπÑΓß∩, ¿ ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $E ¿ú¡«α¿απÑΓß∩. Åα¿¬½áñ¡«⌐ »α«úαá¼¼Ñ Windows ¡Ñ ΓαÑíπÑΓß∩ í¿í½¿«ΓÑ¬á ¿ß»«½- ¡∩εΘÑ⌐ ß¿ßΓÑ¼δ 80x87. é¼ÑßΓ« φΓ«ú« Ñ⌐ ¡πª¡« »«ññÑαª¿óáεΘá∩ í¿í½¿- «ΓÑ¬á WIN87EM.DLL, »«ßΓáó½∩Ñ¼á∩ ß Windows, ¬«Γ«αá∩ «íÑß»Ñτ¿óáÑΓ ¡Ñ«íσ«ñ¿¼δ⌐ ¿¡ΓÑαΣÑ⌐ß ¼Ñªñπ óáΦÑ⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼«⌐, Windows ¿ ß«»α«µÑßß«α«¼. Æá¬¿¼ «íαáº«¼, ó Windows ñáªÑ »α¿ ¡á½¿τ¿¿ ó óá- ΦÑ⌐ ß¿ßΓÑ¼Ñ ß«»α«µÑßß«αá 80σ87 ñ½∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼, ß¬«¼»¿½¿- α«óá¡¡δσ ó ß«ßΓ«∩¡¿¿ {$N+}, ñ«½ª¡á »α¿ßπΓßΓó«óáΓ∞ í¿í½¿«ΓÑ¬á φ¼π- ½∩µ¿¿ WIN87EM.DLL (ñá¡¡á∩ í¿í½¿«ΓÑ¬á - φΓ« τáßΓ∞ Windows, á ¡Ñ Borland Pascal). Åα¿ «ΓßπΓßΓó¿¿ ß«»α«µÑßß«αá WIN87EM.DLL íπñÑΓ φ¼π½¿α«óáΓ∞ Ñú« «»Ñαáµ¿¿ »α«úαá¼¼¡δ¼ »πΓÑ¼, τΓ« ºá¼Ññ½∩ÑΓ óδ»«½- ¡Ñ¡¿Ñ »α«úαá¼¼δ ¿ ¡Ñ úáαá¡Γ¿απÑΓ, τΓ« ¿ß»«½∞ºπεΘá∩ ß«»α«µÑßß«α 80x87 »α«úαá¼¼á ß¼«ªÑΓ αáí«ΓáΓ∞ ¡á ½εí«⌐ ¼áΦ¿¡Ñ. B.Pascal 7 & Objects/LR - 250 - è«úñá óδ ºá»πß¬áÑΓÑ »α¿¬½áñ¡πε »α«úαá¼¼π Windows, c¬«¼»¿½¿- α«óá¡¡πε ó ß«ßΓ«∩¡¿¿ {$N+}, πíÑñ¿ΓÑß∞, τΓ« «¡á ¼«ªÑΓ ¡á⌐Γ¿ ó ß¿ß- ΓÑ¼Ñ Σá⌐½ WIN87EM.DLL. è«úñá óδ óδ»«½¡∩ÑΓÑ ¬«¼»¿½∩µ¿ε ó αÑª¿¼Ñ ¬«ñá 80σ87 (ñ¿αÑ¬Γ¿- óá {$N+}), Γ« ó«ºóαáΘáÑ¼δÑ »«ñ»α«úαá¼¼δ ¼«ñπ½∩ SystÑ¼ (Sqrt, Éi, Sin ¿ Γ.ñ.) º¡áτÑ¡¿∩ »αÑñßΓáó½∩εΓ ß«í«⌐ ¡Ñ óÑΘÑßΓóÑ¡¡δÑ τ¿ß½á, á τ¿ß½á Γ¿»á Extended (ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε). {$N+} begin Writeln(Pi); { 3.14159265358979E+0000 } end. {$N-} begin Writeln(Pi); { 3.1415926536E+00 } end. é «ßΓáóΦÑ⌐ß∩ τáßΓ¿ ñá¡¡«⌐ ú½áóδ «íßπªñáεΓß∩ ß»Ñµ¿á½∞¡δÑ ó«»- α«ßδ, ¬áßáεΘ¿Ñß∩ ¿ß»«½∞º«óá¡¿∩ »α«µÑßß«αá 80x87 ó »α«úαá¼¼áσ Borland Pascal. B.Pascal 7 & Objects/LR - 251 - Æ¿»δ ñá¡¡δσ »α«µÑßß«αá 80x87 ───────────────────────────────────────────────────────────────── é ñ«»«½¡Ñ¡¿Ñ ¬ óÑΘÑßΓóÑ¡¡«¼π Γ¿»π ñ½∩ »α«úαá¼¼, ¿ß»«½∞ºπεΘ¿σ ßαÑñßΓóá »α«µÑßß«αá 80x87, »αÑñπß¼áΓα¿óáÑΓß∩ τÑΓδαÑ ¡«óδσ óÑΘÑßΓ- óÑ¡¡«ú« Γ¿»á: 1. Æ¿» ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε Single, »αÑñßΓáó½∩εΘ¿⌐ ß«í«⌐ ¡á¿¼Ñ¡∞Φ¿⌐ Σ«α¼áΓ, ¬«Γ«αδ⌐ óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ñ½∩ τ¿ßÑ½ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐. Ä¡ ºá¡¿¼áÑΓ 4 íá⌐Γá »á¼∩Γ¿ «íÑß»Ñτ¿óáÑΓ ñ¿á»áº«¡ »αÑñßΓáó½Ñ¡¿∩ τ¿ßÑ½ «Γ 1.5σ10^-45 ñ« 3.4σ10^48 ß 7-8 º¡áτáΘ¿¼¿ µ¿Σαá¼¿. 2. Æ¿» ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε Double, ºá¡¿¼áεΘ¿⌐ 8 íá⌐Γ »á¼∩Γ¿ ¿ «íÑß»Ñτ¿óáεΘ¿⌐ »αÑñßΓáó½Ñ¡¿Ñ τ¿ßÑ½ ó ñ¿á»áº«¡Ñ «Γ 5.0σ10^-334 ñ« 1.7σ10^308 ß 15-16 º¡áτáΘ¿¼¿ µ¿Σαá¼¿. 3. Æ¿» ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε Extended »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡á¿í«½∞Φ¿⌐ Σ«α¼áΓ »αÑñßΓáó½Ñ¡¿∩ τ¿ßÑ½ ß »½áóáεΘÑ⌐ ºá»∩- Γ«⌐, «íÑß»Ñτ¿óáÑ¼δ⌐ »α«µÑßß«α«¼ 8087. Ä¡ ºá¡¿¼áÑΓ 10 íá⌐Γ »á¼∩Γ¿ ¿ «íÑß»Ñτ¿óáÑΓ ñ¿á»áº«¡ »αÑñßΓáó½Ñ¡¿∩ τ¿ßÑ½ «Γ 1.9σ10^-4952 ñ« 1.1σ10^4932 ß 19-20 º¡áτáΘ¿¼¿ µ¿Σαá- ¼¿. ïεíδÑ áα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿, ó ¬«Γ«αδσ πτáßΓóπεΓ τ¿ß½á óÑΘÑßΓóÑ¡¡«ú« Γ¿»á, óδ»«½¡∩εΓß∩ ß Γ«τ¡«ßΓ∞ε ¿ ñ¿á- »áº«¡«¼ »αÑñßΓáó½Ñ¡¿∩, ß««ΓóÑΓßΓóπεΘ¿¼¿ Γ¿»π ß »«óδΦÑ¡- ¡«⌐ Γ«τ¡«ßΓ∞ε. 4. ù¿ß½á ß½«ª¡«ú« Γ¿»á Comp ¿ß»«½∞ºπεΓß∩ ñ½∩ »αÑñóáα¿ΓÑ½∞¡« «íΩÑñ¿¡Ñ¡¡δσ º¡áτÑ¡¿⌐ ó 8 íá⌐Γáσ »á¼∩Γ¿, «íÑß»Ñτ¿óá∩ »α¿ φΓ«¼ ñ¿á»áº«¡ »αÑñßΓáó½Ñ¡¿∩ «Γ -2^63+1 ñ« 2^63-1, τΓ« ß«ßΓáó½∩ÑΓ »α¿í½¿º¿ΓÑ½∞¡« «Γ -9.2σ10^18 ñ« 9.2σ10^18. æ½«ª¡δ⌐ Γ¿» ¼«ª¡« ßαáó¡¿Γ∞ ß ñ½¿¡¡δ¼ µÑ½δ¼ Γ¿»«¼ (ñó«⌐- ¡á∩ Γ«τ¡«ßΓ∞), ¡« «¡ ßτ¿ΓáÑΓß∩ óÑΘÑßΓóÑ¡¡δ¼ Γ¿»«¼, »«ß- ¬«½∞¬π »α¿ «»Ñαáµ¿∩σ ß τ¿ß½á¼¿ φΓ«ú« Γ¿»á ¿ß»«½∞ºπÑΓß∩ ß«»α«µÑßß«α 8087. æ½«ª¡δ⌐ Γ¿» σ«α«Φ« »«ñσ«ñ¿Γ ñ½∩ »αÑñß- Γáó½Ñ¡¿∩ º¡áτÑ¡¿⌐ ñÑ¡Ñª¡δσ Ññ¿¡¿µ, »αÑñßΓáó½∩εΘ¿σ ß«í«⌐ ß«Γ¡¿ ¿ Γδß∩τ¿, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ó »α¿¬½áñ¡δσ ¬«¼- ¼ÑατÑß¬¿σ »α«úαá¼¼áσ. ìÑºáó¿ß¿¼« «Γ Γ«ú«, ¿ß»«½∞ºπÑΓÑ óδ ß«»α«µÑßß«α 80x87 ¿½¿ ¡ÑΓ, 6-í¿Γ«óδ⌐ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ∩ó½∩ÑΓß∩ ñ«»πßΓ¿¼δ¼. Æá¬¿¼ «íαá- º«¼, »α¿ »ÑαÑσ«ñÑ ¬ ¿ß»«½∞º«óá¡¿ε ß«»α«µÑßß«αá 80 x87 óá¼ ¡Ñ »«Γ- αÑíπÑΓß∩ ¿º¼Ñ¡∩Γ∞ ¿ßσ«ñ¡δ⌐ ΓÑ¬ßΓ »α«úαá¼¼δ, ¿ óδ ¼«ªÑΓÑ ¿ß»«½∞º«- óáΓ∞ Σá⌐½δ ñá¡¡δσ, ß«ºñá¡¡δÑ »α«úαá¼¼á¼¿, ¬«Γ«αδÑ αáí«ΓáεΓ ß »α«úαá¼¼¡« «íÑß»Ñτ¿óáÑ¼δ¼¿ «»Ñαáµ¿∩¼¿ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐. ÄΓ¼ÑΓ¿¼, «ñ¡á¬«, τΓ« á»»áαáΓ¡δÑ óδτ¿ß½Ñ¡¿∩ ß »ÑαÑ¼Ñ¡¡δ¼¿ óÑ- ΘÑßΓóÑ¡¡«ú« Γ¿»á óδ»«½¡∩εΓß∩ ¡Ñß¬«½∞¬« ¼Ññ½Ñ¡¡ÑÑ, τÑ¼ ß »ÑαÑ¼Ñ¡- ¡δ¼¿ ñαπú«ú« Γ¿»á. ¥Γ« ßó∩ºá¡« ß ΓÑ¼, τΓ« ß«»α«µÑßß«α 80x87 ¡Ñ ¼«ªÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡« «íαáíáΓδóáΓ∞ óÑΘÑßΓóÑ¡¡δ⌐ Σ«α¼áΓ. é¼ÑßΓ« φΓ«ú«, »ÑαÑñ óδ»«½¡Ñ¡¿Ñ¼ «»Ñαáµ¿⌐, ñ½∩ »αÑ«íαáº«óá¡¿∩ óÑΘÑßΓóÑ¡- ¡δσ º¡áτÑ¡¿⌐ ó τ¿ß½á ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ΓαÑíπεΓß∩ «íαáΘÑ¡¿∩ ¬ í¿í½¿«ΓÑτ¡δ¼ »α«úαá¼¼á¼. àß½¿ óδ ºá¿¡ΓÑαÑß«óá¡δ ó ¼á¬ß¿¼á½∞¡«⌐ B.Pascal 7 & Objects/LR - 252 - ß¬«α«ßΓ¿ óδ»«½¡Ñ¡¿∩ ¿ ¡Ñ ß«í¿αáÑΓÑß∞ ¿ß»«½∞º«óáΓ∞ ßó«ε »α«úαá¼¼π ¡á ß¿ßΓÑ¼áσ íÑº ß«»α«µÑßß«αá 80x87, Γ« ó«º¼«ª¡« óδ ºáσ«Γ¿ΓÑ ¿ß- »«½∞º«óáΓ∞ óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, óÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ ß½«ª¡δ⌐ Γ¿»δ ∩ó¡δ¼ «íαáº«¼. Çα¿Σ¼ÑΓ¿τÑß¬¿Ñ «»Ñαáµ¿¿ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ───────────────────────────────────────────────────────────────── Åα¿ ¿ß»«½∞º«óá¡¿¿ ß«»α«µÑßß«αá 80x87 Γ¿» ß »«óδΦÑ¡¡«⌐ Γ«τ- ¡«ßΓ∞ε Extended ∩ó½∩ÑΓß∩ «ß¡«ó«⌐ óßÑσ «»Ñαáµ¿⌐ ß »½áóáεΘÑ⌐ Γ«τ- ¬«⌐. é Æπαí« Åáß¬á½Ñ Γ¿» ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ß»«½∞ºπÑΓß∩ ñ½∩ »αÑñßΓáó½Ñ¡¿∩ óßÑσ ¡ÑµÑ½δσ τ¿ß½«óδσ ¬«¡ßΓá¡Γ, á Γá¬ªÑ »α¿ óδτ¿ß- ½Ñ¡¿¿ óßÑσ óδαáªÑ¡¿⌐ ¡ÑµÑ½«ú« Γ¿»á. ìá»α¿¼Ñα, ó ß½ÑñπεΘ¿σ «»Ñαá- µ¿∩σ »α¿ßóá¿óá¡¿∩ óßÑ »αáóδÑ τáßΓ¿ óδαáªÑ¡¿⌐ íπñπΓ óδτ¿ß½∩Γ∞ß∩, ¬á¬ óδαáªÑ¡¿∩ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε, á ºáΓÑ¼ ¿σ Γ¿» íπñÑΓ »αÑ«í- αáº«óá¡ ¬ Γ¿»π ß««ΓóÑΓßΓóπεΘÑ⌐ ½Ñó«⌐ τáßΓ¿: {$N+} var X, AA, B, C : real; begin X := (B + Sqrt(B*B - A*C))/A; end; Borland Pascal óδ»«½¡∩ÑΓ óδτ¿ß½Ñ¡¿∩ ß Γ«τ¡«ßΓ∞ε ¿ ñ¿á»áº«¡«¼ »αÑñßΓáó½Ñ¡¿∩ τ¿ßÑ½, ß««ΓóÑΓßΓóπεΘ¿¼¿ Γ¿»π ß »«óδΦÑ¡¡«⌐ Γ«τ- ¡«ßΓ∞ε, íÑº ñ«»«½¡¿ΓÑ½∞¡δσ πß¿½¿⌐ »α«úαá¼¼¿ßΓá. ä«»«½¡¿ΓÑ½∞¡á∩ Γ«τ¡«ßΓ∞ »α¿ó«ñ¿Γ ¬ ¼Ñ¡∞Φ¿¼ «Φ¿í¬á¼ «¬απú½Ñ¡¿∩, á ñ«»«½¡¿ΓÑ½∞¡δ⌐ ñ¿á»áº«¡ «º¡áτáÑΓ, τΓ« ß¿Γπáµ¿¿ »ÑαÑ»«½¡Ñ¡¿∩ ¿ »«ΓÑα¿ º¡áτ¿¼«ßΓ¿ íπñπΓ óßΓαÑτáΓ∞ß∩ ó »α«úαá¼¼áσ αÑªÑ. éδ ¼«ªÑΓÑ «í«⌐Γ¿ß∞ ¿ íÑº ñ«»«½¡¿ΓÑ½∞¡δσ áóΓ«¼áΓ¿τÑß¬¿σ ó«º- ¼«ª¡«ßΓÑ⌐ óδτ¿ß½Ñ¡¿⌐ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε Borland Pascal. ìá»- α¿¼Ñα, «»¿ßáΓ∞ »ÑαÑ¼Ñ¡¡δÑ, ¿ß»«½∞ºπεΘ¿Ñß∩ ñ½∩ »α«¼ÑªπΓ«τ¡δσ óδ- τ¿ß½Ñ¡¿⌐, ¬á¬ »ÑαÑ¼Ñ¡¡δÑ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε. é ß½ÑñπεΘÑ¼ »α¿- ¼ÑαÑ óδτ¿ß½∩ÑΓß∩ ßπ¼¼á »α«¿ºóÑñÑ¡¿⌐: var Sm : single; X,Y array[1..100] of single; I : integer; T : extended; { ñ½∩ »α«¼ÑªπΓ«τ¡δσ αÑºπ½∞ΓáΓ«ó } begin T := 0.0; for I := 1 to 100 do T := T + X[I] * Y[I] Sum := T; end; àß½¿ íδ »ÑαÑ¼Ñ¡¡á∩ T íδ½á «»¿ßá¡á, ¬á¬ »ÑαÑ¼Ñ¡¡á∩ ß «ñ¿¡áα- ¡«⌐ Γ«τ¡«ßΓ∞ε, Γ« »α¿ ¬áªñ«¼ µ¿¬½Ñ «»Ñαáµ¿¿ »α¿ßóá¿óá¡¿∩ ñ½∩ »Ñ- αÑ¼Ñ¡¡«⌐ T íδ½¿ íδ óδ»«½¡Ñ¡δ ß «Φ¿í¬«⌐ «¬απú½Ñ¡¿∩ ¿ «úαá¡¿τÑ¡¿∩- ¼¿, ß««ΓóÑΓßΓóπεΘ¿¼¿ «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ¿. ì«, »«ß¬«½∞¬π »ÑαÑ¼Ñ¡¡á∩ B.Pascal 7 & Objects/LR - 253 - T ∩ó½∩ÑΓß∩ »ÑαÑ¼Ñ¡¡«⌐ ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε, Γ« óßÑ «Φ¿í¬¿ «¬- απú½Ñ¡¿∩ (¬α«¼Ñ «»Ñαáµ¿¿, »α¿ ¬«Γ«α«⌐ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ T »α¿ß- óá¿óáÑΓß∩ »ÑαÑ¼Ñ¡¡«⌐ Su¼) ¿¼ÑεΓ «úαá¡¿τÑ¡¿∩, ß««ΓóÑΓßΓóπεΘ¿Ñ »«- óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ¿. îÑ¡∞Φ¿Ñ «Φ¿í¬¿ «¬απú½Ñ¡¿∩ «º¡áτáεΓ í«½ÑÑ Γ«τ- ¡δ⌐ αÑºπ½∞ΓáΓ. ä½∩ º¡áτÑ¡¿⌐ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ¿ αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿ óδ Γá¬ªÑ ¼«ªÑΓÑ ºáñáΓ∞ »«óδΦÑ¡¡πε Γ«τ¡«ßΓ∞. ¥Γ« »«¼«ªÑΓ ¿ºíÑªáΓ∞ ¡Ñ- ¡πª¡δσ »αÑ«íαáº«óá¡¿⌐ Γ¿»«ó τ¿ßÑ½, »α¿ó«ñ∩Θ¿σ ¬ »«ΓÑαÑ Γ«τ¡«ßΓ¿. ìá»α¿¼Ñα: function Area(Radius: extended): extended; begin Area := Pi * Radius * Radius; end; æαáó¡Ñ¡¿Ñ óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½ ───────────────────────────────────────────────────────────────── Å«ß¬«½∞¬π º¡áτÑ¡¿∩ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ∩ó½∩εΓß∩ »α¿í½¿º¿ΓÑ½∞- ¡δ¼¿, αÑºπ½∞ΓáΓ ßαáó¡Ñ¡¿∩ º¡áτÑ¡¿⌐ αáº½¿τ¡«ú« óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ¡Ñ óßÑúñá ¼«ª¡« »αÑñß¬áºáΓ∞. ìá»α¿¼Ñα, Ñß½¿ ò - »ÑαÑ¼Ñ¡¡á∩ óÑ- ΘÑßΓóÑ¡¡«ú« Γ¿»á ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, á Y - »ÑαÑ¼Ñ¡¡á∩ óÑΘÑßΓ- óÑ¡¡«ú« Γ¿»á ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, Γ« αÑºπ½∞ΓáΓ«¼ óδ»«½¡Ñ¡¿∩ ß½Ñ- ñπεΘ¿σ «»ÑαáΓ«α«ó íπñÑΓ º¡áτÑ¡¿Ñ False: X := 1/3; Y := 1/3; Writeln(X = Y); Åα¿τ¿¡á φΓ«ú« ß«ßΓ«¿Γ ó Γ«¼, τΓ« ò ¿¼ÑÑΓ Γ«τ¡«ßΓ∞ Γ«½∞¬« ñ« 7-8 µ¿Σα, á Y - Γ«τ¡«ßΓ∞ ñ« 15-16 µ¿Σα, ¿ ¬«úñá «íá º¡áτÑ¡¿∩ »αÑ- «íαáºπεΓß∩ ¬ Γ¿»π ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε, Γ« »«ß½Ñ »Ñαóδσ 7-8 µ¿Σα «ßΓá½∞¡δÑ µ¿Σαδ íπñπΓ αáº½¿τáΓ∞ß∩. Ç¡á½«ú¿τ¡«, αÑºπ½∞ΓáΓ«¼ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«α«ó: X := 1/3; Writeln(X = 1/3); íπñÑΓ º¡áτÑ¡¿Ñ False, αÑºπ½∞ΓáΓ 1/3 ó «»ÑαáΓ«αÑ Writeln óδτ¿ß½∩- ÑΓß∩ ß Γ«τ¡«ßΓ∞ε ñ« 20 º¡áτáΘ¿σ µ¿Σα. æΓÑ¬ óδτ¿ß½Ñ¡¿⌐ ß«»α«µÑßß«αá 80x87 ───────────────────────────────────────────────────────────────── ô ß«»α«µÑßß«αá 80x87 ¿¼ÑÑΓß∩ ó¡πΓαÑ¡¡¿⌐ ßΓÑ¬ óδτ¿ß½Ñ¡¿⌐, ¬«- Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ ú½πí¿¡«⌐ ñ« ó«ß∞¼¿ πα«ó¡Ñ⌐. ä«ßΓπ» ¬ º¡áτÑ¡¿ε, ¡áσ«ñ∩ΘÑ¼πß∩ ó ßΓÑ¬Ñ ß«»α«µÑßß«αá 80x87 «ßπΘÑßΓó½∩ÑΓß∩ ¡á¼¡«ú« íδßΓαÑÑ, τÑ¼ ñ«ßΓπ» ¬ »ÑαÑ¼Ñ¡¡«⌐ ó »á¼∩Γ¿, »«φΓ«¼π ñ½∩ ñ«ßΓ¿ªÑ¡¿∩ ¼á¬ß¿¼á½∞¡« ó«º¼«ª¡«⌐ »α«¿ºó«ñ¿ΓÑ½∞¡«ßΓ¿ ó Borland Pascal ó¡πΓ- αÑ¡¡¿⌐ ßΓÑ¬ ß«»α«µÑßß«αá 80x87 ¿ß»«½∞ºπÑΓß∩ ñ½∩ σαá¡Ñ¡¿∩ óαÑ¼Ñ¡- ¡δσ αÑºπ½∞ΓáΓ«ó ¿ ñ½∩ »ÑαÑñáτ¿ »áαá¼ÑΓα«ó »α«µÑñπαá¼ ¿ Σπ¡¬µ¿∩¼. B.Pascal 7 & Objects/LR - 254 - ÆÑ«αÑΓ¿τÑß¬¿, ß½¿Φ¬«¼ ß½«ª¡δÑ óδαáªÑ¡¿∩ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á ¼«úπΓ óδºóáΓ∞ »ÑαÑ»«½¡Ñ¡¿Ñ ßΓÑ¬á ß«»α«µÑßß«αá 80x87. Äñ¡á¬« φΓ«ú« ¡Ñ ¼«ªÑΓ ß½πτ¿Γ∞ß∩, »«ß¬«½∞¬π ñ½∩ φΓ«ú« »«ΓαÑí«óá½«ß∞ íδ, τΓ«íδ ó óδαáªÑ¡¿¿ »«½πτá½«ß∞ í«½ÑÑ ó«ß∞¼¿ »α«¼ÑªπΓ«τ¡δσ αÑºπ½∞ΓáΓ«ó. ü«½ÑÑ óÑß«¼á∩ «»áß¡«ßΓ∞ Γá¿Γß∩ ó« ó½«ªÑ¡¡δσ óδº«óáσ Σπ¡¬µ¿⌐. àß½¿ Γá¬¿Ñ ¬«¡ßΓαπ¬µ¿¿ ß«ßΓáó½Ñ¡δ ¡Ñ¬«ααÑ¬Γ¡«, Γ« «¡¿, ó»«½¡Ñ óÑ- α«∩Γ¡«, ¼«úπΓ »α¿óÑßΓ¿ ¬ »ÑαÑ»«½¡Ñ¡¿ε ßΓÑ¬á ß«»α«µÑßß«αá 80x87. Éáßß¼«Γα¿¼, ß½ÑñπεΘπε Σπ¡¬µ¿ε, ó ¬«Γ«α«⌐ ß »«¼«Θ∞ε αÑ¬παß¿¿ óδτ¿ß½∩εΓß∩ τ¿ß½á ö¿í«¡áττ¿: function Fib(N: integer): extended; begin if N = 0 then Fib := 0.0 else if N = 1 then Fib := 1.0 else Fib := Fib(N-1) + Fib(N-2); end; ÄíαáΘÑ¡¿Ñ ¬ ñá¡¡«⌐ óÑαß¿¿ »α«µÑñπαδ Fib »α¿óÑñÑΓ ¬ »ÑαÑ»«½- ¡Ñ¡¿ε ßΓÑ¬á ß«»α«µÑßß«αá 80x87, Γá¬ ¬á¬ º¡áτÑ¡¿⌐ N í«½∞ΦÑ, τÑ¼ 8. Åα¿τ¿¡á ºá¬½ετáÑΓß∩ ó Γ«¼, τΓ« »«ß½Ññ¡¿⌐ «»ÑαáΓ«α »α¿ßóá¿óá¡¿∩ ΓαÑíπÑΓ óαÑ¼Ñ¡¡«ú« ß«σαá¡Ñ¡¿∩ αÑºπ½∞ΓáΓá óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ Fib (N-1) ó ßΓÑ¬Ñ ß«»α«µÑßß«αá 80x87. èáªñ«Ñ αÑ¬παß¿ó¡«Ñ «íαáΘÑ¡¿Ñ óδñÑ½∩ÑΓß∩ «ñ¡á ∩τÑ⌐¬á ßΓÑ¬á ¿ ¡á ñÑó∩Γ«¼ «íαáΘÑ¡¿¿ »α«¿º«⌐ñÑΓ »ÑαÑ»«½¡Ñ¡¿Ñ ßΓÑ¬á. è«ααÑ¬Γ¡«⌐ ¬«¡ßΓαπ¬µ¿Ñ⌐ ó φΓ«¼ ß½πτáÑ íπñÑΓ: function Fib(N : integer) : extended; var F1,F2 : Extended; begin if N = 0 then Fib := 0.0 else if N = 1 then Fib := 1.0 else begin F1 := Fib(N-1); F2 := Fib(N-2); Fib := F1 + F2; end; end; éαÑ¼Ñ¡¡δÑ αÑºπ½∞ΓáΓδ ΓÑ»Ñα∞ ß«σαá¡∩εΓß∩ ó »ÑαÑ¼Ñ¡¡δσ, ñ½∩ ¬«Γ«αδσ «Γó«ñ¿Γß∩ ßΓÑ¬ »α«µÑßß«αá 8086. (æΓÑ¬ »α«µÑßß«αá 8086 ¬«- ¡Ñτ¡« Γ«ªÑ ¼«ªÑΓ »ÑαÑ»«½¡¿Γ∞ß∩, ¡« φΓ« «íδτ¡« ΓαÑíπÑΓ ú«αáºñ« í«½∞ΦÑú« τ¿ß½á αÑ¬παß¿ó¡δσ óδº«ó«ó). B.Pascal 7 & Objects/LR - 255 - çá»¿ß∞ óÑΘÑßΓóÑ¡¡δσ τ¿ßÑ½ »α¿ ¿ß»«½∞º«óá¡¿¿ ß«»α«µÑßß«αá 80x87 ───────────────────────────────────────────────────────────────── àß½¿ íδ½á π¬áºá¡á ñ¿αÑ¬Γ¿óá {$N+}, Γ« ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ Write ¿ Writeln, τΓ«íδ «íÑß»Ñτ¿Γ∞ »αÑñßΓáó½Ñ¡¿Ñ ó αáßΦ¿αÑ¡¡«¼ ñ¿- á»áº«¡Ñ, óδó«ñ∩Γ ó ßΓα«¬Ñ ß ñÑß∩Γ¿τ¡δ¼¿ τ¿ß½á¼¿ ß »½áóáεΘÑ⌐ Γ«τ- ¬«⌐ τÑΓδαÑ µ¿Σαδ ñ½∩ »«¬áºáΓÑ½∩ ßΓÑ»Ñ¡¿ ó¼ÑßΓ« ñóπσ. Ç¡á½«ú¿τ¡«, ßΓá¡ñáαΓ¡á∩ »α«µÑñπαá Str »α¿ óδí«αÑ Σ«α¼áΓá ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ »«¬áºáΓÑ½∩ ßΓÑ»Ñ¡¿, ß«ßΓ«∩ΘÑÑ ¿º τÑΓδαÑσ µ¿Σα. î«ñπ½¿, ó ¬«Γ«αδσ ¿ß»«½∞ºπÑΓß∩ ß«»α«µÑßß«α 80x87 ───────────────────────────────────────────────────────────────── î«ñπ½¿, ó ¬«Γ«αδσ ¿ß»«½∞ºπÑΓß∩ ß«»α«µÑßß«α 80x87, ¼«úπΓ óδ- ºδóáΓ∞ß∩ ñαπú¿¼¿ ¼«ñπ½∩¼¿ ¿½¿ »α«úαá¼¼á¼¿ Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ φΓ¿ ¼«ñπ½¿ ¿½¿ »α«úαá¼¼δ íδ½¿ ß¬«¼»¿½¿α«óá¡δ ß ñ¿αÑ¬Γ¿ó«⌐ {$N+}. Æ«, τΓ« ¼«ñπ½∞ ¿ß»«½∞ºπÑΓ ß«»α«µÑßß«α 80x87, «»αÑñÑ½∩ÑΓß∩ ¡á½¿τ¿Ñ¼ ó ¡Ñ¼ ¿¡ßΓαπ¬µ¿⌐ ß«»α«µÑßß«αá 80x87, á ¡Ñ ñ¿αÑ¬Γ¿ó«⌐ $N ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿. ¥Γ« »«ºó«½∩ÑΓ ¬«¼»¿½∩Γ«απ íδΓ∞ í«½ÑÑ "ß¡¿ß- σ«ñ¿ΓÑ½∞¡δ¼", ¬«úñá óδ ß½πτá⌐¡« ¬«¼»¿½¿απÑΓÑ ¼«ñπ½∞ (ó ¬«Γ«α«¼ ¿ß»«½∞ºπÑΓß∩ ß«»α«µÑßß«α 80x87), ¡Ñ π¬áºáó ñ¿αÑ¬Γ¿óπ {$N+}. è«úñá óδ óδ»«½¡∩ÑΓÑ ¬«¼»¿½∩µ¿ε ó αÑª¿¼Ñ ¬«ñá 80σ87 (ñ¿αÑ¬Γ¿- óá {$N+}), Γ« ó«ºóαáΘáÑ¼δÑ »«ñ»α«úαá¼¼á¼¿ ¼«ñπ½∩ SystÑ¼ (Sqrt, Éi, Sin ¿ Γ.ñ.) º¡áτÑ¡¿∩ »αÑñßΓáó½∩εΓ ß«í«⌐ ¡Ñ óÑΘÑßΓóÑ¡¡δÑ τ¿ß- ½á, á τ¿ß½á Γ¿»á Extended (ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε). B.Pascal 7 & Objects/LR - 256 - Éáß»«º¡áóá¡¿Ñ ß«»α«µÑßß«αá 80σ87 ó »α«úαá¼¼áσ DOS ───────────────────────────────────────────────────────────────── êß»«½¡∩εΘá∩ í¿í½¿«ΓÑ¬á Borland Pascal, óßΓα«Ñ¡¡á∩ ó óáΦπ »α«úαá¼¼π (ß¬«¼»¿½¿α«óá¡¡πε ß ñ¿αÑ¬Γ¿ó«⌐ {$N+}) ó¬½ετáÑΓ ó ßÑí∩ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿, ¬«Γ«αδ⌐ áóΓ«¼áΓ¿τÑß¬¿ αáß»«º¡áÑΓ ¡á½¿τ¿Ñ ó ß¿ßΓÑ¼Ñ ¼¿¬α«ßσÑ¼δ ß«»α«µÑßß«αá 8087. àß½¿ ß«»α«µÑßß«α 8087 ¿¼Ñ- ÑΓß∩, Γ« »α«úαá¼¼á íπñÑΓ Ñú« áóΓ«¼áΓ¿τÑß¬¿ ¿ß»«½∞º«óáΓ∞. é ß½πτáÑ ªÑ Ñú« «ΓßπΓßΓó¿∩ »α«úαá¼¼á íπñÑΓ ¿ß»«½∞º«óáΓ∞ φ¼π½¿απεΘπε í¿í½¿- «ΓÑ¬π ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ. àß½¿ »α«úαá¼¼á ¬«¼»¿½¿α«óá½áß∞ ß ñ¿- αÑ¬Γ¿ó«⌐ {$E-} ¿ »« óαÑ¼∩ ¡áτá½á ÑÑ αáí«Γδ ß«»α«µÑßß«α ¡Ñ «í¡áαπ- ª¿óáÑΓß∩, Γ« »α«úαá¼¼á ºáóÑαΦáÑΓ αáí«Γπ ß ß««íΘÑ¡¿Ñ¼ Numeric coprocessor required ("ÆαÑíπÑΓß∩ ß«»α«µÑßß«α áα¿Σ¼ÑΓ¿τÑß¬¿σ óδ- τ¿ß½Ñ¡¿⌐"). àßΓ∞ ¡Ñß¬«½∞¬« ß½πτáÑó, ¬«úñá óδ ó«º¼«ª¡« ºáσ«Γ¿ΓÑ ¿º¼Ñ¡¿Γ∞ Γá¬πε »α¿¡∩Γπε »« π¼«½τá¡¿ε ½«ú¿¬π áóΓ«¼áΓ¿τÑß¬«ú« «í¡áαπªÑ¡¿∩ ß«»α«µÑßß«αá. ìá»α¿¼Ñα, ó óáΦÑ⌐ ß¿ßΓÑ¼Ñ ¼«ªÑΓ »α¿ßπΓßΓó«óáΓ∞ ß«»- α«µÑßß«α 8087, ¡« óδ ºáσ«Γ¿ΓÑ »α«óÑα¿Γ∞, ¬á¬ íπñÑΓ αáí«ΓáΓ∞ »α«ú- αá¼¼á, »αÑñ¡áº¡áτÑ¡¡á∩ ñ½∩ Σπ¡¬µ¿«¡¿α«óá¡¿∩ ¡á ß¿ßΓÑ¼áσ íÑº ß«»- α«µÑßß«αá. ê½¿ ªÑ »«ΓαÑíπÑΓß∩ ºá»πßΓ¿Γ∞ óáΦπ »α«úαá¼¼π ¡á ß¿ßΓÑ¼Ñ, ß«ó¼ÑßΓ¿¼«⌐ ß ¬«¼»∞εΓÑα«¼ Éæ, ¡« ¡á φΓ«⌐ ß¿ßΓÑ¼Ñ »α¿ αá- í«ΓÑ á½ú«α¿Γ¼á áóΓ««í¡áαπªÑ¡¿∩ íπñÑΓ óδó«ñ¿Γ∞ß∩ ¡Ñ¬«ααÑ¬Γ¡á∩ ¿¡- Σ«α¼áµ¿∩ (¡á»α¿¼Ñα, íπñÑΓ ß««íΘáΓ∞ß∩ « ¡á½¿τ¿Ñ ß«»α«µÑßß«αá, ¬«ú- ñá ¡á ßá¼«¼ ñÑ½Ñ Ñú« ¡ÑΓ, ¿½¿ ¡á«í«α«Γ). é Borland Pascal »αÑñπß¼«ΓαÑ¡á ó«º¼«ª¡«ßΓ∞ «Γ¼Ñ¡δ »α¿¡∩Γ«⌐ »« π¼«½τá¡¿ε ½«ú¿¬¿ áóΓ«¼áΓ¿τÑß¬«ú« αáß»«º¡áóá¡¿∩. ¥Γá ó«º¼«ª- ¡«ßΓ∞ ºáñáÑΓß∩ »ÑαÑ¼Ñ¡¡«⌐ «»Ñαáµ¿«¡¡«⌐ ßαÑñδ 87. éδ ¼«ªÑΓÑ πßΓá¡«ó¿Γ∞ »ÑαÑ¼Ñ¡¡πε «»Ñαáµ¿«¡¡«⌐ ßαÑñδ 87 ó «Γ- óÑΓ ¡á »«ñß¬áº¬π DOS ß »«¼«Θ∞ε ¬«¼á¡ñδ SET, ¡á»α¿¼Ñα, ß½ÑñπεΘ¿¼ «íαáº«¼: SET 87=Y ¿½¿ SET 87=N ôßΓá¡«ó¬á ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ «»Ñαáµ¿«¡¡«⌐ ßαÑñδ 87 º¡áτÑ¡¿∩ N (ìÑΓ) π¬áºδóáÑΓ ¬«ñπ ¿¡¿µ¿á½¿ºáµ¿¿, τΓ« óδ ¡Ñ σ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞ ß«»α«µÑßß«α 8087, σ«Γ∩ «¡ ¼«ªÑΓ ¿ »α¿ßπΓßΓó«óáΓ∞ ó ß¿ßΓÑ¼Ñ. ê ¡á- «í«α«Γ: πßΓá¡«ó¬á ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ 87 º¡áτÑ¡¿∩ Y (äá) «º¡áτáÑΓ, τΓ« ß«»α«µÑßß«α ¿¼ÑÑΓß∩, ¿ óδ σ«Γ¿ΓÑ, τΓ«íδ óáΦá »α«úαá¼¼á Ñú« ¿ß- »«½∞º«óá½á. Äñ¡á¬« »α¿ φΓ«¼ ¡πª¡« »«¼¡¿Γ∞ « Γ«¼, τΓ« πßΓá¡«ó¬á ñ½∩ »ÑαÑ¼Ñ¡¡«⌐ 87 º¡áτÑ¡¿∩ Y »α¿ «ΓßπΓßΓó¿¿ ó ß¿ßΓÑ¼Ñ ß«»α«µÑßß«- αá 8087 »α¿óÑñÑΓ ¬ Γ«¼π, τΓ« óáΦá »α«úαá¼¼á áóáα¿⌐¡« ºáóÑαΦ¿Γ αá- í«Γπ ¿½¿ "ºáó¿ß¡ÑΓ". àß½¿ »ÑαÑ¼Ñ¡¡á∩ «»Ñαáµ¿«¡¡«⌐ ßαÑñδ 87 «»αÑñÑ½Ñ¡á, á óδ σ«Γ¿- ΓÑ, τΓ«íδ «¡á ßΓá½á ¡Ñ«»αÑñÑ½Ñ¡¡«⌐, Γ« ¼«ª¡« óóÑßΓ¿ ó «ΓóÑΓ ¡á »«ñß¬áº¬π DOS: SET 87= B.Pascal 7 & Objects/LR - 257 - ¿ ¡áªáΓ∞ ¬½áó¿Φπ Enter. àß½¿ ó «»Ñαáµ¿«¡¡«⌐ ßαÑñÑ DOS »α¿ßπΓßΓóπÑΓ ºá»¿ß∞ 87=Y, ¿½¿ Ñß½¿ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ πß»ÑΦ¡« αáß»«º¡áÑΓ ß«»α«µÑßß«α, Γ« ñá½ÑÑ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ óδ»«½¡∩ÑΓ »«ß½ÑñπεΘ¿Ñ »α«óÑα¬¿, τΓ«íδ «»αÑñÑ- ½¿Γ∞, ¬á¬«⌐ φΓ« ß«»α«µÑßß«α (8087, 80287 ¿½¿ 80387). ¥Γ« ¡Ñ«íσ«- ñ¿¼« ñ½∩ Γ«ú«, τΓ«íδ Æπαí« Åáß¬á½∞ ¼«ú ¬«ααÑ¬Γ¡« αáí«ΓáΓ∞ ß «Γ- ñÑ½∞¡δ¼¿ ¡Ñß«ó¼ÑßΓ¿¼«ßΓ∩¼¿, ¬«Γ«αδÑ ¿¼ÑεΓß∩ ¼Ñªñπ ß«»α«µÑßß«αá¼¿ αáº½¿τ¡δσ Γ¿»«ó. ÉÑºπ½∞ΓáΓ áóΓ«¼áΓ¿τÑß¬«ú« αáß»«º¡áóá¡¿∩ ¡á½¿τ¿∩ ß«»α«µÑßß«αá ¿ Ñú« ¼«ñÑ½¿ ß«σαá¡∩ÑΓß∩ ó »ÑαÑ¼Ñ¡¡«⌐ Test8087 (¬«Γ«αá∩ «»¿ßδóá- ÑΓß∩ ó ¼«ñπ½Ñ System). ä½∩ ¡ÑÑ «»αÑñÑ½Ñ¡δ ß½ÑñπεΘ¿Ñ º¡áτÑ¡¿∩: ┌──────────────┬────────────────────────────────┐ │ ç¡áτÑ¡¿Ñ │ Ä»αÑñÑ½Ñ¡¿Ñ │ ├──────────────┼────────────────────────────────┤ │ 0 │ ß«»α«µÑßß«α ¡Ñ «í¡áαπªÑ¡ │ │ 1 │ «í¡áαπªÑ¡ ß«»α«µÑßß«α 8087 │ │ 2 │ «í¡áαπªÑ¡ ß«»α«µÑßß«α 80287 │ │ 3 │ «í¡áαπªÑ¡ ß«»α«µÑßß«α 80387 │ └──────────────┴────────────────────────────────┘ ùΓ«íδ «»αÑñÑ½¿Γ∞ σáαá¬ΓÑα¿ßΓ¿¬¿ ß¿ßΓÑ¼δ, ¡á ¬«Γ«α«⌐ αáí«ΓáÑΓ óáΦá »α«úαá¼¼á, óδ ¼«ªÑΓÑ ó »α«úαá¼¼Ñ »α«óÑα¿Γ∞ ß«ñÑαª¿¼«Ñ »ÑαÑ- ¼Ñ¡¡«⌐ Test8087. é τáßΓ¡«ßΓ¿, φΓπ »ÑαÑ¼Ñ¡¡πε ¼«ª¡« »α«á¡á½¿º¿α«- óáΓ∞ ñ½∩ Γ«ú«, τΓ«íδ «»αÑñÑ½¿Γ∞, φ¼π½¿απεΓß∩ ¿¡ßΓαπ¬µ¿¿ αáí«Γδ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐, ¿½¿ «¡¿ ñÑ⌐ßΓó¿ΓÑ½∞¡« óδ»«½¡∩εΓß∩. Éáß»«º¡áóá¡¿Ñ ß«»α«µÑßß«αá 80x87 ó »α«úαá¼¼Ñ Windows ───────────────────────────────────────────────────────────────── Ä»Ñαáµ¿«¡¡á∩ ßαÑñá Windows ¿ í¿í½¿«ΓÑ¬á φ¼π½∩µ¿¿ WIN87EM.DLL áóΓ«¼áΓ¿τÑß¬¿ αáß»«º¡áÑΓ ¡á½¿τ¿Ñ ó ß¿ßΓÑ¼Ñ »½áΓδ ß«»α«µÑßß«αá 80x87. àß½¿ ß«»α«µÑßß«α 80x87 ¿¼ÑÑΓß∩, Γ« »α«úαá¼¼á íπñÑΓ Ñú« áó- Γ«¼áΓ¿τÑß¬¿ ¿ß»«½∞º«óáΓ∞. é ß½πτáÑ ªÑ Ñú« «ΓßπΓßΓó¿∩ »α«úαá¼¼á íπñÑΓ ¿ß»«½∞º«óáΓ∞ φ¼π½∩µ¿ε ß »«¼«Θ∞ε WIn87EM.DLL. ùΓ«íδ «»αÑñÑ- ½¿Γ∞ ¡á½¿τ¿Ñ ó ß¿ßΓÑ¼Ñ ß«»α«µÑßß«αá 80σ87, óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε GetWinFlags (¬«Γ«αá∩ «»αÑñÑ½Ñ¡á ó ¼«ñπ½Ñ WinProcs) ¿ í¿- Γ«óπε ¼áß¬π wf_80x87 («»αÑñÑ½Ñ¡¡πε ó ¼«ñπ½Ñ WinTypes). ìá»α¿¼Ñα: if GetWinFlags and wf_80x87 <> 0 then Writeln('80x87 »α¿ßπΓßΓóπÑΓ') else Writeln('80x87 «ΓßπΓßΓóπÑΓ'); B.Pascal 7 & Objects/LR - 258 - êß»«½∞º«óá¡¿Ñ φ¼π½∩µ¿¿ ß«»α«µÑßß«αá 80x87 ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── è«úñá ¬«¼»«¡«ó¬á «íΩÑ¬Γ¡δσ Σá⌐½«ó óδ»«½¡∩ÑΓß∩ ß ñ¿αÑ¬Γ¿ó«⌐ {$L ¿¼∩_Σá⌐½á}, ¡Ñ«íσ«ñ¿¼« «íÑß»Ñτ¿Γ∞, τΓ«íδ φΓ¿ Σá⌐½δ ¬«¼»¿½¿α«- óáΓ∞ ß αáºαÑΦÑ¡¿Ñ¼ φ¼π½∩µ¿¿ ß«»α«µÑßß«αá 80x87. ìá»α¿¼Ñα, Ñß½¿ óδ ¿ß»«½∞ºπÑΓÑ ¿¡ßΓαπ¬µ¿¿ ß«»α«µÑßß«αá 80x87 ó« ó¡ÑΦ¡¿σ »α«µÑñπαáσ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá, ¡Ñ«íσ«ñ¿¼« πíÑñ¿Γ∞ß∩, τΓ« »α¿ áßßÑ¼í½¿α«óá- ¡¿¿ Σá⌐½«ó .ASM ó Σá⌐½δ .OBJ φ¼π½∩µ¿∩ αáºαÑΦÑ¡á. é »α«Γ¿ó¡«¼ ß½π- τáÑ ¿¡ßΓαπ¬µ¿¿ ß«»α«µÑßß«αá 80x87 ¡Ñ ¼«úπΓ φ¼π½¿α«óáΓ∞ß∩ ¡á ¼áΦ¿- ¡áσ íÑº ß«»α«µÑßß«αá 80x87. ä½∩ αáºαÑΦÑ¡¿∩ φ¼π½∩µ¿¿ ¿ß»«½∞ºπ⌐ΓÑ »áαá¼ÑΓα ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ Æπαí« ÇßßÑ¼í½Ñαá /E. B.Pascal 7 & Objects/LR - 259 - ─────────────────────────────────────────────────────────────────────── â½áóá 16. î«ñπ½∞ D«s ───────────────────────────────────────────────────────────────── æ »«¼«Θ∞ε ¼«ñπ½Ñ⌐ Dos ¿ WinDos αÑá½¿ºπÑΓß∩ µÑ½δ⌐ α∩ñ »α«ú- αá¼¼ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼δ ¿ »α«úαá¼¼ «íαáí«Γ¬¿ Σá⌐½«ó. ì¿ «ñ¡á ¿º »α«úαá¼¼ ¼«ñπ½∩ Dos ¡Ñ «»αÑñÑ½Ñ¡á ó ßΓá¡ñáαΓ¡«¼ Åáß¬á½Ñ, »«φΓ«¼π «¡¿ »«¼ÑΘáεΓß∩ ó «ΓñÑ½∞¡δ⌐ ¼«ñπ½∞. ü«½ÑÑ »«½¡«Ñ «»¿ßá¡¿Ñ «»Ñαáµ¿⌐ DOS »α¿óÑñÑ¡« ó απ¬«ó«ñßΓóáσ »« DOS Σ¿α¼δ IBM. Äß¡«ó¡«Ñ αáº½¿τ¿Ñ ¼«ñπ½Ñ⌐ Dos ¿ WinDos ß«ßΓ«¿Γ ó Γ«¼, τΓ« »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Dos ¿ß»«½∞ºπεΓ ßΓá¡ñáαΓ¡δÑ ßΓα«¬¿ Åáß- ¬á½∩, á »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ WinDos - ßΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼. æΓá¡ñáαΓ¡á∩ ßΓα«¬á Åáß¬á½∩ - φΓ« íá⌐Γ ñ½¿¡δ, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ß¿¼ó«½«ó. æΓα«¬á ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ - φΓ« »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ¡Ñ¡π½Ñóδσ ß¿¼ó«½«ó ß ºáóÑαΦáεΘ¿¼ ß¿¼ó«½«¼ NULL (#0). Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡ÑÑ « αáº½¿τ¿¿ φΓ¿σ ßΓα«¬ αáßß¬áºδ- óáÑΓß∩ ó â½áóÑ 18. àß½¿ óδ αáºαáíáΓδóáÑΓÑ Γ«½∞¬« »α«úαá¼¼δ Windows, ¿ß»«½∞ºπ⌐ΓÑ ¼«ñπ½∞ WinDos. àß½¿ óδ αáºαáíáΓδóáÑΓÑ Γ«½∞¬« »α«úαá¼¼δ DOS, Γ« ªÑ½áΓÑ½∞¡« »«½∞º«óáΓ∞ß∩ ó »α«úαá¼¼áσ ¼«ñπ½Ñ¼ Dos, Γá¬ ¬á¬ í«½∞Φ¿¡ßΓó« »α«ú- αá¼¼ Åáß¬á½∩ Γαáñ¿µ¿«¡¡« αáí«ΓáεΓ ß« ßΓα«¬á¼¿ Åáß¬á½∩. Äñ¡á¬«, Ñß½¿ óδ αáºαáíáΓδóáÑΓÑ »α¿½«ªÑ¡¿∩ ñ½∩ ßαÑñδ Windows, Γ« ¼«ªÑΓÑ ¡á»¿ßáΓ∞ »α«úαá¼¼π, ¿ß»«½∞ºπÑ¼πε ó «íÑ¿σ »½áΓΣ«α¼áσ - DOS ¿ Windows, »α¿¼Ñ¡∩∩ ñ½∩ φΓ«ú« ¼«ñπ½¿ WinDos ¿ Strings. Windows ΓαÑ- íπÑΓ ¿ß»«½∞º«óá¡¿∩ ßΓα«¬ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼. éδ ¼«ªÑΓÑ Γá¬ªÑ ó«ß»«½∞º«óáΓ∞ß∩ ñá¡¡δ¼¿ ¼«ñπ½∩¼¿, Ñß½¿ π óáß ÑßΓ∞ Σá⌐½ ñá¡¡δσ æ¿, ¿ óδ σ«Γ¿ΓÑ Ñú« ¬«¡óÑαΓ¿α«óáΓ∞. é ∩ºδ¬Ñ æ¿ ¿ß»«½∞ºπεΓß∩ ßΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼. B.Pascal 7 & Objects/LR - 260 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Dos ───────────────────────────────────────────────────────────────── ì¿ªÑ »ÑαÑτ¿ß½Ñ¡δ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Dos. ùΓ«íδ ¿ß- »«½∞º«óáΓ∞ ¿σ, óδ ñ«½ª¡δ ßßδ½áΓ∞ß∩ ¡á ¼«ñπ½∞ Dos ß »«¼«Θ∞ε «»Ñαá- Γ«αá »α«úαá¼¼δ uses. æ¼. Γá¬ªÑ â½áóπ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ- ¬Ñ") ó "Éπ¬«ó«ñßΓóÑ »α«úαá¼¼¿ßΓá". Åα«µÑñπαδ ñ½∩ αáí«Γδ ß ñáΓ«⌐ ¿ óαÑ¼Ñ¡Ñ¼ ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ GetDate │ é«ºóαáΘáÑΓ ΓÑ¬πΘπε ñáΓπ, πßΓá¡«ó½Ñ¡¡πε ó│ │ │ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetFTime │ é«ºóαáΘáÑΓ ñáΓπ ¿ óαÑ¼∩ »«ß½Ññ¡Ñ⌐ ºá»¿ß¿│ │ │ Σá⌐½á. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetTi¼Ñ │ é«ºóαáΘáÑΓ ΓÑ¬πΘÑÑ óαÑ¼∩, πßΓá¡«ó½Ñ¡¡«Ñ ó│ │ │ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ ÉackTi¼Ñ │ ÅαÑ«íαáºπÑΓ ºá»¿ß∞ DateTi¼Ñ ó τÑΓδαÑσíá⌐Γ«-│ │ │ ó«Ñ π»á¬«óá¡¡«Ñ ß¿¼ó«½∞¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ│ │ │ ñáΓδ ¿ óαÑ¼Ñ¡¿ ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á, ¬«Γ«-│ │ │ α«Ñ ¿ß»«½∞ºπÑΓß∩ ó »α«µÑñπαÑ SetTi¼Ñ. Å«½∩│ │ │ ºá»¿ß¿ DateTi¼Ñ ¡Ñ »α«óÑα∩εΓß∩ ¡á ñ«»πßΓ¿-│ │ │ ¼«ßΓ∞ úαá¡¿µ. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetDate │ ôßΓá¡áó½¿óáÑΓ ñ½∩ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼δ ΓÑ-│ │ │ ¬πΘπε ñáΓπ. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetFTi¼Ñ │ ôßΓá¡áó½¿óáÑΓ óαÑ¼∩ ¿ ñáΓπ »«ß½Ññ¡Ñ⌐ ºá»¿ß¿│ │ │ Σá⌐½á. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetTi¼Ñ │ ôßΓá¡áó½¿óáÑΓ ó «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ ΓÑ¬π-│ │ │ ΘÑÑ óαÑ¼∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ UnpackTi¼Ñ │ ÅαÑ«íαáºπÑΓ τÑΓδαÑσíá⌐Γ«ó«Ñ π»á¬«óá¡¡«⌐│ │ │ ß¿¼ó«½∞¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ ñáΓδ ¿ óαÑ¼Ñ¡¿│ │ │ ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á, ó«ºóαáΘáÑ¼«ú« »α«µÑ-│ │ │ ñπαá¼¿ GetFTi¼Ñ, FindFirst, FindNext ó αáß-│ │ │ »á¬«óá¡¡πε ºá»¿ß∞ DateTi¼Ñ. │ └──────────────────┴────────────────────────────────────────────┘ Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ «íß½πª¿óá¡¿∩ »αÑαδóá¡¿⌐ ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ GetIntVÑß │ é«ºóαáΘáÑΓ áñαÑß, ß«σαá¡Ñ¡¡δ⌐ ó ºáñá¡¡«¼│ │ │ óÑ¬Γ«αÑ »αÑαδóá¡¿⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ Intr │ éδ»«½¡∩ÑΓ ºáñá¡¡«Ñ »α«úαá¼¼¡«Ñ »αÑαδóá¡¿Ñ.│ ├──────────────────┼────────────────────────────────────────────┤ B.Pascal 7 & Objects/LR - 261 - │ îsDos │ éδ»«½¡∩ÑΓ óδº«ó Σπ¡¬µ¿¿ DOS. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetIntVÑß │ ôßΓá¡áó½¿óáÑΓ »« ºáñá¡¡«¼π áñαÑßπ ºáñá¡¡δ⌐│ │ │ óÑ¬Γ«α »αÑαδóá¡¿∩. │ └──────────────────┴────────────────────────────────────────────┘ öπ¡¬µ¿¿, »α«óÑα∩εΘ¿Ñ ß«ßΓ«∩¡¿Ñ ñ¿ß¬á ┌──────────────────┬────────────────────────────────────────────┐ │ öπ¡¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ DiskFrÑÑ │ é«ºóαáΘáÑΓ τ¿ß½« ßó«í«ñ¡δσ íá⌐Γ ¡á ñ¿ß¬Ñ ó│ │ │ ºáñá¡¡«¼ ñ¿ß¬«ó«ñÑ. │ ├──────────────────┼────────────────────────────────────────────┤ │ DiskSize │ é«ºóαáΘáÑΓ »«½¡δ⌐ «íΩÑ¼ ó íá⌐Γáσ ºáñá¡¡«ú«│ │ │ ñ¿ß¬á. │ └──────────────────┴────────────────────────────────────────────┘ Åα«µÑñπαδ «íαáí«Γ¬¿ Σá⌐½«ó ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ FExpand │ é«ß»α¿¡¿¼áÑΓ ¿¼∩ Σá⌐½á ¿ ó«ºóαáΘáÑΓ »«½¡«Ñ│ │ │ πΓ«τ¡Ñ¡¡«Ñ ¿¼∩ (ñ¿ß¬, ¬áΓá½«ú, αáßΦ¿αÑ¡¿Ñ).│ ├──────────────────┼────────────────────────────────────────────┤ │ FSearch │ êΘÑΓ Σá⌐½ ó ß»¿ß¬Ñ ¬áΓá½«ú«ó. │ ├──────────────────┼────────────────────────────────────────────┤ │ FindFirst │ Åα«¿ºó«ñ¿Γ »«¿ß¬ ó ºáñá¡¡«¼ (¿½¿ ΓÑ¬πΘÑ¼)│ │ │ ¬áΓá½«úÑ ºá»¿ß¿, ß«ñÑαª¿¼«Ñ ¬«Γ«α«⌐ ß«ó»á-│ │ │ ñáÑΓ ß ºáñá¡¡δ¼ ¿¼Ñ¡Ñ¼ Σá⌐½á ¿ áΓα¿íπΓá¼¿.│ ├──────────────────┼────────────────────────────────────────────┤ │ FindNext │ é«ºóαáΘáÑΓ ß½ÑñπεΘπε ºá»¿ß∞, ¿¼∩ Σá⌐½á ¿│ │ │ áΓα¿íπΓδ ó ¬«Γ«α«⌐ ß«ó»áñáεΓ ß ΓÑ¼¿, ¬«Γ«-│ │ │ αδÑ íδ½¿ ºáñá¡δ »α¿ »αÑñδñπΘÑ¼ «íαáΘÑ¡¿¿ ¬│ │ │ »α«µÑñπαÑ FindFirst. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetFAttr │ é«ºóαáΘáÑΓ áΓα¿íπΓδ Σá⌐½á. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetFAttr │ ôßΓá¡áó½¿óáÑΓ áΓα¿íπΓδ Σá⌐½á. │ └──────────────────┴────────────────────────────────────────────┘ öπ¡¬µ¿¿ π»αáó½Ñ¡¿∩ «»Ñαáµ¿«¡¡«⌐ ßαÑñ«⌐ ┌──────────────────┬────────────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ EnvCount │ é«ºóαáΘáÑΓ τ¿ß½« ßΓα«¬, ß«ñÑαªáΘ¿σß∩ ó «»Ñ-│ │ │ αáµ¿«¡¡«⌐ ßαÑñÑ DOS. │ ├──────────────────┼────────────────────────────────────────────┤ │ EnvStr │ é«ºóαáΘáÑΓ ºáñá¡¡πε ßΓα«¬π «»Ñαáµ¿«¡¡«⌐│ │ │ ßαÑñδ. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetEnv │ é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ ºáñá¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐│ │ │ «»Ñαáµ¿«¡¡«⌐ ßαÑñδ. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 262 - Åα«µÑñπαδ π»αáó½Ñ¡¿∩ »α«µÑßßá¼¿ ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ EσÑßutÑ │ éδ»«½¡∩ÑΓ ºáñá¡¡πε »α«úαá¼¼π ß π¬áºá¡¡«⌐│ │ │ ¬«¼á¡ñ¡«⌐ ßΓα«¬«⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ Keep │ æ«σαá¡∩ÑΓ (»αÑ¬αáΘáÑΓ óδ»«½¡Ñ¡¿Ñ ¿ ß«σαá¡∩-│ │ │ ÑΓ ó »á¼∩Γ¿) »αÑ¬αáΓ¿óΦπε αáí«Γπ »α«úαá¼¼π,│ │ │ «ßΓáó½∩∩ ÑÑ αÑº¿ñÑ¡Γ¡«⌐ ó »á¼∩Γ¿. │ ├──────────────────┼────────────────────────────────────────────┤ │ SwapVectors │ îÑ¡∩ÑΓ ¼ÑßΓá¼¿ ß«ñÑαª¿¼«Ñ ß«σαá¡Ñ¡¡δσ óÑ¬-│ │ │ Γ«α«ó »αÑαδóá¡¿⌐ ¿ ΓÑ¬πΘ¿σ óÑ¬Γ«α«ó. │ └──────────────────┴────────────────────────────────────────────┘ Åα«τ¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ┌──────────────────┬────────────────────────────────────────────┐ │Åα«µÑñπαá/Σπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ DosVersion │ é«ºóαáΘáÑΓ ¡«¼Ñα óÑαß¿¿ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ-│ │ │ ¼δ DOS. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetCBreak │ é«ºóαáΘáÑΓ »α«óÑα∩Ñ¼«Ñ DOS ß«ßΓ«∩¡¿Ñ│ │ │ Ctrl+Break. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetCBreak │ ôßΓá¡áó½¿óáÑΓ »α«óÑα∩Ñ¼«Ñ DOS ß«ßΓ«∩¡¿Ñ│ │ │ Ctrl+Break. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetVerify │ é«ºóαáΘáÑΓ ß«ßΓ«∩¡¿Ñ Σ½áúá »α«óÑα¬¿ ó DOS. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetVerify │ ôßΓá¡áó½¿óáÑΓ ß«ßΓ«∩¡¿Ñ Σ½áúá »α«óÑα¬¿ ó│ │ │ DOS. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 263 - è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Dos ───────────────────────────────────────────────────────────────── é ñá¡¡«¼ αáºñÑ½Ñ ¬αáΓ¬« «íßπªñáεΓß∩ ¬«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαÑ- ¼Ñ¡¡δÑ, «»αÑñÑ½∩Ñ¼δÑ ó ¼«ñπ½Ñ Dos. ü«½ÑÑ ñÑΓá½∞¡á∩ ¿¡Σ«α¼áµ¿∩ ß«- ñÑαª¿Γß∩ ó αáºñÑ½Ñ "è«¡ßΓá¡Γδ Σ½áú«ó" (º¡áτÑ¡¿Ñ FParity) ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼- ¼¿ßΓá". âαπ»»δ ¬«¡ßΓá¡Γ ┌────────────────────────────┬──────────────────────────────────┐ │ âαπ»»á ¬«¡ßΓá¡Γ │ Ä»¿ßá¡¿Ñ │ ├────────────────────────────┼──────────────────────────────────┤ │ ö½áú¿ │ êß»«½∞ºπεΓß∩ ñ½∩ »α«óÑα¬¿ «ΓñÑ½∞-│ │ │ ¡δσ Σ½áú«ó »«ß½Ñ óδº«óá Σπ¡¬µ¿⌐│ │ │ Intr ¿½¿ MsDos. ¥Γ« Σ½áú¿:│ │ │ FParity, FAuxiliary, FZero,│ │ │ FSign, FOverflow, fCarry. │ ├────────────────────────────┼──────────────────────────────────┤ │ fmXXXX │ Ä»αÑñÑ½∩ÑΓ ñ«»πßΓ¿¼δÑ º¡áτÑ¡¿∩│ │ │ »«½∩ Mode ºá»¿ß¿ TextRec ΓÑ¬ßΓ«-│ │ │ ó«ú« Σá⌐½á: fmClosed, fmInput,│ │ │ fmOutput, fmInOut. │ ├────────────────────────────┼──────────────────────────────────┤ │ ÇΓα¿íπΓδ Σá⌐½á │ êß»«½∞ºπεΓß∩ ñ½∩ »«ßΓα«Ñ¡¿∩ áΓ-│ │ │ α¿íπΓ«ó, »α¿¼Ñ¡∩Ñ¼δσ ó FindFirst,│ │ │ GetFAttr ¿ SetFAttr. ¥Γ« Σ½áú¿│ │ │ ReadOnly, Hidden, SysFile,│ │ │ VolumeID, Directory, Archive,│ │ │ AnyFile. │ └────────────────────────────┴──────────────────────────────────┘ Æ¿»δ ──────────────────────────────────────────────────────────────── é ¼«ñπ½Ñ Dos «»αÑñÑ½∩εΓß∩ ß½ÑñπεΘ¿Ñ Γ¿»δ: ┌──────────────────────────┬────────────────────────────────────┐ │ Æ¿» │ Ä»¿ßá¡¿Ñ │ ├──────────────────────────┼────────────────────────────────────┤ │ Æ¿» ºá»¿ß¿ Σá⌐½á │ Ä»αÑñÑ½Ñ¡¿∩ ºá»¿ßÑ⌐, ¿ß»«½∞ºπεΘ¿Ñ-│ │ │ ß∩ ó Borland Pascal ñ½∩ ó¡πΓαÑ¡¡¿σ│ │ │ µÑ½Ñ⌐, «»¿ßδóáεΓß∩ Γá¬ªÑ ó ¼«ñπ½Ñ│ │ │ Dos. Æ¿» FilÑRÑß ¿ß»«½∞ºπÑΓß∩ ¬á¬│ │ │ ñ½∩ Γ¿»¿º«óá¡¡δσ, Γá¬ ¿ ñ½∩ ¡ÑΓ¿»¿-│ │ │ º«óá¡¡δσ Σá⌐½«ó, ó Γ« óαÑ¼∩, ¬á¬│ │ │ TÑσtRÑß »αÑñßΓáó½∩ÑΓ ß«í«⌐ ó¡πΓαÑ¡-│ │ │ ¡¿⌐ Σ«α¼áΓ »ÑαÑ¼Ñ¡¡«⌐ ΓÑ¬ßΓ«ó«ú«│ │ │ Γ¿»á. │ ├──────────────────────────┼────────────────────────────────────┤ │ Registers │ ÅÑαÑ¼Ñ¡¡δÑ αÑú¿ßΓα«ó«ú« Γ¿»á »α¿¼Ñ-│ │ │ ¡∩εΓß∩ ó »α«µÑñπαáσ Intr ¿ îsDos│ │ │ ñ½∩ ºáñá¡¿∩ ß«ñÑαª¿¼«ú« óσ«ñ¡«ú«│ B.Pascal 7 & Objects/LR - 264 - │ │ αÑú¿ßΓαá ¿ »α«óÑα¬¿ ß«ñÑαª¿¼«ú« óδ-│ │ │ σ«ñ¡«ú« αÑú¿ßΓαá »α¿ »αÑαδóá¡¿∩σ,│ │ │ ¿ß»«½∞ºπεΘ¿σß∩ ó »α«úαá¼¼¡«¼ «íÑß-│ │ │ »ÑτÑ¡¿¿. │ ├──────────────────────────┼────────────────────────────────────┤ │ DateTime │ ÅÑαÑ¼Ñ¡¡δÑ Γ¿»á DateTi¼Ñ (ñáΓδ ¿│ │ │ óαÑ¼Ñ¡¿) ¿ß»«½∞ºπεΓß∩ ó »α«µÑñπαáσ│ │ │ Unαáß¬Æi¼Ñ ¿ Éáß¬Æi¼Ñ ñ½∩ á¡á½¿ºá,│ │ │ π»á¬«ó¬¿ ¿ »«ßΓα«Ñ¡¿∩ τÑΓδαÑσíá⌐Γ«-│ │ │ ó«ú« º¡áτÑ¡¿∩, ß«ñÑαªáΘÑú« ñáΓπ ¿│ │ │ óαÑ¼∩. ¥Γ« τÑΓδαÑσíá⌐Γ«ó«Ñ º¡áτÑ¡¿Ñ│ │ │ ¿ß»«½∞ºπÑΓß∩ ºáΓÑ¼ ó »α«µÑñπαáσ│ │ │ GetFTi¼Ñ, SetTi¼Ñ, FindFirst ¿│ │ │ FindNÑσt. │ ├──────────────────────────┼────────────────────────────────────┤ │ SearchRec │ ÅÑαÑ¼Ñ¡¡δÑ Γ¿»á SearchRÑß ¿ß»«½∞ºπ-│ │ │ εΓß∩ ó »α«µÑñπαáσ FindFirst ¿│ │ │ Findnext ñ½∩ »α«ß¼«Γαá ¬áΓá½«ú«ó│ │ │ Σá⌐½«ó. │ ├──────────────────────────┼────────────────────────────────────┤ │ æΓα«¬«óδÑ Γ¿»δ │ ¥Γ¿ ßΓα«¬«óδÑ Γ¿»δ «»αÑñÑ½Ñ¡δ ó ¼«-│ │ αáí«Γδ ß Σá⌐½á¼¿ │ ñπ½Ñ Dos ¿ ¿ß»«½∞ºπεΓß∩ ñ½∩ αáí«Γδ│ │ │ ß ¿¼Ñ¡á¼¿ Σá⌐½«ó ¿ ¼áαΦαπΓ«ó »α¿│ │ │ óδº«óÑ ßΓα«¬«ó«⌐ »α«µÑñπαδ FSplit.│ │ │ ¥Γ« Γ¿»δ ComStr, PathStr, DirStr,│ │ │ NameStr, ExtStr. │ └──────────────────────────┴────────────────────────────────────┘ ÅÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Dos ───────────────────────────────────────────────────────────────── î¡«ú¿¼¿ »«ñ»α«úαá¼¼á¼¿ ¼«ñπ½∩ Dos ñ½∩ ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ ¿ß»«½∞ºπÑΓß∩ »ÑαÑ¼Ñ¡¡á∩ DosError. B.Pascal 7 & Objects/LR - 265 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ WinDos ───────────────────────────────────────────────────────────────── ì¿ªÑ »ÑαÑτ¿ß½Ñ¡δ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ WinDos. ùΓ«íδ ¿ß»«½∞º«óáΓ∞ ¿σ, óδ ñ«½ª¡δ ßßδ½áΓ∞ß∩ ¡á ¼«ñπ½∞ WinDos ß »«¼«Θ∞ε «»ÑαáΓ«αá »α«úαá¼¼δ uses. Åα«µÑñπαδ ñ½∩ αáí«Γδ ß ñáΓ«⌐ ¿ óαÑ¼Ñ¡Ñ¼ ¼«ñπ½∩ WinDos ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ GetDate │ é«ºóαáΘáÑΓ ΓÑ¬πΘπε ñáΓπ, πßΓá¡«ó½Ñ¡¡πε ó│ │ │ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetFTime │ é«ºóαáΘáÑΓ ñáΓπ ¿ óαÑ¼∩ »«ß½Ññ¡Ñ⌐ ºá»¿ß¿│ │ │ Σá⌐½á. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetTi¼Ñ │ é«ºóαáΘáÑΓ ΓÑ¬πΘÑÑ óαÑ¼∩, πßΓá¡«ó½Ñ¡¡«Ñ ó│ │ │ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ ÉackTi¼Ñ │ ÅαÑ«íαáºπÑΓ ºá»¿ß∞ DateTi¼Ñ ó τÑΓδαÑσíá⌐Γ«-│ │ │ ó«Ñ π»á¬«óá¡¡«Ñ ß¿¼ó«½∞¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ│ │ │ ñáΓδ ¿ óαÑ¼Ñ¡¿ ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á, ¬«Γ«-│ │ │ α«Ñ ¿ß»«½∞ºπÑΓß∩ ó »α«µÑñπαÑ SetTi¼Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetDate │ ôßΓá¡áó½¿óáÑΓ ñ½∩ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼δ ΓÑ-│ │ │ ¬πΘπε ñáΓπ. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetFTi¼Ñ │ ôßΓá¡áó½¿óáÑΓ óαÑ¼∩ ¿ ñáΓπ »«ß½Ññ¡Ñ⌐ ºá»¿ß¿│ │ │ Σá⌐½á. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetTi¼Ñ │ ôßΓá¡áó½¿óáÑΓ ó «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ ΓÑ¬π-│ │ │ ΘÑÑ óαÑ¼∩. │ ├──────────────────┼────────────────────────────────────────────┤ │ UnpackTi¼Ñ │ ÅαÑ«íαáºπÑΓ τÑΓδαÑσíá⌐Γ«ó«Ñ π»á¬«óá¡¡«⌐│ │ │ ß¿¼ó«½∞¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ ñáΓδ ¿ óαÑ¼Ñ¡¿│ │ │ ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á, ó«ºóαáΘáÑ¼«ú« »α«µÑ-│ │ │ ñπαá¼¿ GetFTi¼Ñ, FindFirst, FindNext ó αáß-│ │ │ »á¬«óá¡¡πε ºá»¿ß∞ DateTi¼Ñ. │ └──────────────────┴────────────────────────────────────────────┘ Åα«µÑñπαδ «íß½πª¿óá¡¿∩ »αÑαδóá¡¿⌐ ¼«ñπ½∩ WinDos ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ GetIntVÑß │ é«ºóαáΘáÑΓ áñαÑß, ß«σαá¡Ñ¡¡δ⌐ ó ºáñá¡¡«¼│ │ │ óÑ¬Γ«αÑ »αÑαδóá¡¿⌐. │ ├──────────────────┼────────────────────────────────────────────┤ │ Intr │ éδ»«½¡∩ÑΓ ºáñá¡¡«Ñ »α«úαá¼¼¡«Ñ »αÑαδóá¡¿Ñ.│ ├──────────────────┼────────────────────────────────────────────┤ │ îsDos │ éδ»«½¡∩ÑΓ óδº«ó Σπ¡¬µ¿¿ DOS. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetIntVÑß │ ôßΓá¡áó½¿óáÑΓ »« ºáñá¡¡«¼π áñαÑßπ ºáñá¡¡δ⌐│ B.Pascal 7 & Objects/LR - 266 - │ │ óÑ¬Γ«α »αÑαδóá¡¿∩. │ └──────────────────┴────────────────────────────────────────────┘ öπ¡¬µ¿¿ ¼«ñπ½∩ WinDos, »α«óÑα∩εΘ¿Ñ ß«ßΓ«∩¡¿Ñ ñ¿ß¬á ┌──────────────────┬────────────────────────────────────────────┐ │ öπ¡¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ DiskFrÑÑ │ é«ºóαáΘáÑΓ τ¿ß½« ßó«í«ñ¡δσ íá⌐Γ ¡á ñ¿ß¬Ñ ó│ │ │ ºáñá¡¡«¼ ñ¿ß¬«ó«ñÑ. │ ├──────────────────┼────────────────────────────────────────────┤ │ DiskSize │ é«ºóαáΘáÑΓ »«½¡δ⌐ «íΩÑ¼ ó íá⌐Γáσ ºáñá¡¡«ú«│ │ │ ñ¿ß¬á. │ └──────────────────┴────────────────────────────────────────────┘ Åα«µÑñπαδ αáí«Γδ ß Σá⌐½á¼¿ ¼«ñπ½∩ WinDos ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ FileExpand │ é«ß»α¿¡¿¼áÑΓ ¿¼∩ Σá⌐½á ¿ ó«ºóαáΘáÑΓ »«½¡«Ñ│ │ │ πΓ«τ¡Ñ¡¡«Ñ ¿¼∩ (ñ¿ß¬, ¬áΓá½«ú, αáßΦ¿αÑ¡¿Ñ).│ ├──────────────────┼────────────────────────────────────────────┤ │ FileSearch │ êΘÑΓ Σá⌐½ ó ß»¿ß¬Ñ ¬áΓá½«ú«ó. │ ├──────────────────┼────────────────────────────────────────────┤ │ FileSplit │ Éáºí¿óáÑΓ »«½¡«Ñ ¿¼∩ Σá⌐½á ¡á Γα¿ ¬«¼»«¡Ñ¡-│ │ │ Γá (ñ¿ß¬, ¬áΓá½«ú, ¿¼∩ ¿ αáßΦ¿αÑ¡¿Ñ). │ ├──────────────────┼────────────────────────────────────────────┤ │ FindFirst │ Åα«¿ºó«ñ¿Γ »«¿ß¬ ó ºáñá¡¡«¼ (¿½¿ ΓÑ¬πΘÑ¼)│ │ │ ¬áΓá½«úÑ ºá»¿ß¿, ß«ñÑαª¿¼«Ñ ¬«Γ«α«⌐ ß«ó»á-│ │ │ ñáÑΓ ß ºáñá¡¡δ¼ ¿¼Ñ¡Ñ¼ Σá⌐½á ¿ áΓα¿íπΓá¼¿.│ ├──────────────────┼────────────────────────────────────────────┤ │ FindNext │ é«ºóαáΘáÑΓ ß½ÑñπεΘπε ºá»¿ß∞, ¿¼∩ Σá⌐½á ¿│ │ │ áΓα¿íπΓδ ó ¬«Γ«α«⌐ ß«ó»áñáεΓ ß ΓÑ¼¿, ¬«Γ«-│ │ │ αδÑ íδ½¿ ºáñá¡δ »α¿ »αÑñδñπΘÑ¼ «íαáΘÑ¡¿¿ ¬│ │ │ »α«µÑñπαÑ FindFirst. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetFAttr │ é«ºóαáΘáÑΓ áΓα¿íπΓδ Σá⌐½á. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetFAttr │ ôßΓá¡áó½¿óáÑΓ áΓα¿íπΓδ Σá⌐½á. │ └──────────────────┴────────────────────────────────────────────┘ Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ½∩ αáí«Γδ ß ¬áΓá½«úá¼¿ ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá/Σπ¡¬µ¿∩│ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ CreateDir │ æ«ºñáÑΓ ¡«óδ⌐ »«ñ¬áΓá½«ú. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetCurDir │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ ¬áΓá½«ú ¡á ºáñá¡¡«¼ ñ¿ß-│ │ │ ¬Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ RemoveDir │ ôñá½∩ÑΓ »«ñ¬áΓá½«ú. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetCurDir │ êº¼Ñ¡∩ÑΓ ΓÑ¬πΘ¿⌐ ¬áΓá½«ú. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 267 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ «íß½πª¿óá¡¿∩ »αÑαδóá¡¿⌐ ¼«ñπ½∩ WinDos ┌──────────────────┬────────────────────────────────────────────┐ │ Åα«µÑñπαá │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ GetArgCount │ é«ºóαáΘáÑΓ τ¿ß½« »áαá¼ÑΓα«ó, »ÑαÑñá¡¡δσ│ │ │ »α«úαá¼¼Ñ ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetArgStr │ é«ºóαáΘáÑΓ ºáñá¡¡δ⌐ áαúπ¼Ñ¡Γ ¬«¼á¡ñ¡«⌐│ │ │ ßΓα«¬¿. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetEnvVar │ é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á º¡áτÑ¡¿Ñ ºáñá¡¡«⌐│ │ │ »ÑαÑ¼Ñ¡¡«⌐ «»Ñαáµ¿«¡¡«⌐ ßαÑñδ. │ └──────────────────┴────────────────────────────────────────────┘ Åα«τ¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ WinDos ┌──────────────────┬────────────────────────────────────────────┐ │Åα«µÑñπαá/Σπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ DosVersion │ é«ºóαáΘáÑΓ ¡«¼Ñα óÑαß¿¿ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ-│ │ │ ¼δ DOS. │ ├──────────────────┼────────────────────────────────────────────┤ │ GetCBreak │ é«ºóαáΘáÑΓ »α«óÑα∩Ñ¼«Ñ DOS ß«ßΓ«∩¡¿Ñ│ │ │ Ctrl+Break. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetCBreak │ ôßΓá¡áó½¿óáÑΓ »α«óÑα∩Ñ¼«Ñ DOS ß«ßΓ«∩¡¿Ñ│ │ │ Ctrl+Break. │ ├──────────────────┼────────────────────────────────────────────┤ │ SetVerify │ ôßΓá¡áó½¿óáÑΓ ß«ßΓ«∩¡¿Ñ Σ½áúá »α«óÑα¬¿ ó│ │ │ DOS. │ └──────────────────┴────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 268 - è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ WinDos ───────────────────────────────────────────────────────────────── é ñá¡¡«¼ αáºñÑ½Ñ ¬αáΓ¬« «íßπªñáεΓß∩ ¬«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαÑ- ¼Ñ¡¡δÑ, «»αÑñÑ½∩Ñ¼δÑ ó ¼«ñπ½Ñ WinDos. ü«½ÑÑ ñÑΓá½∞¡á∩ ¿¡Σ«α¼áµ¿∩ ß«ñÑαª¿Γß∩ ó αáºñÑ½Ñ "è«¡ßΓá¡Γδ Σ½áú«ó" (º¡áτÑ¡¿Ñ FParity) ó â½á- óÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«ú- αá¼¼¿ßΓá". âαπ»»δ ¬«¡ßΓá¡Γ ┌────────────────────────────┬──────────────────────────────────┐ │ âαπ»»á ¬«¡ßΓá¡Γ │ Ä»¿ßá¡¿Ñ │ ├────────────────────────────┼──────────────────────────────────┤ │ ö½áú¿ │ êß»«½∞ºπεΓß∩ ñ½∩ »α«óÑα¬¿ «ΓñÑ½∞-│ │ │ ¡δσ Σ½áú«ó »«ß½Ñ óδº«óá Σπ¡¬µ¿⌐│ │ │ Intr ¿½¿ MsDos. ¥Γ« Σ½áú¿:│ │ │ FParity, FAuxiliary, FZero,│ │ │ FSign, FOverflow, fCarry. │ ├────────────────────────────┼──────────────────────────────────┤ │ fmXXXX │ Ä»αÑñÑ½∩ÑΓ ñ«»πßΓ¿¼δÑ º¡áτÑ¡¿∩│ │ │ »«½∩ Mode ºá»¿ß¿ TextRec ΓÑ¬ßΓ«-│ │ │ ó«ú« Σá⌐½á: fmClosed, fmInput,│ │ │ fmOutput, fmInOut. │ ├────────────────────────────┼──────────────────────────────────┤ │ faXXXX │ êß»«½∞ºπεΓß∩ ñ½∩ »«ßΓα«Ñ¡¿∩ áΓ-│ │ │ α¿íπΓ«ó, ¿σ »α«óÑα¬¿ ¿ ¿º¼Ñ¡Ñ¡¿∩│ │ │ ó »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ αáí«Γδ ß│ │ │ Σá⌐½á¼¿. ¥Γ« ¬«¡ßΓá¡Γδ faHidden,│ │ │ faSysFile, faVolumeID, faDirecto-│ │ │ ry, faArchive, faAnyFile. │ ├────────────────────────────┼──────────────────────────────────┤ │ fsXXXX │ îá¬ß¿¼á½∞¡δÑ ñ½¿¡δ ¬«¼»«¡Ñ¡Γ«ó│ │ │ ¿¼Ñ¡¿ Σá⌐½á, ¿ß»«½∞ºπÑ¼δσ ó »«ñ-│ │ │ »α«úαá¼¼áσ FileSearch ¿ File-│ │ │ Expand. ¥Γ« ¬«¡ßΓá¡Γδ: fsPathNa-│ │ │ me, fsDirectory, fsFileName,│ │ │ fsExtension. │ ├────────────────────────────┼──────────────────────────────────┤ │ fcXXXX │ ö½áú¿, ó«ºóαáΘáÑ¼δÑ Σπ¡¬µ¿Ñ⌐│ │ │ FileSplit: fcExtension, fcFile-│ │ │ Name, fcDirectory, fcWildcards. │ └────────────────────────────┴──────────────────────────────────┘ B.Pascal 7 & Objects/LR - 269 - Æ¿»δ ──────────────────────────────────────────────────────────────── é ¼«ñπ½Ñ WinDos «»αÑñÑ½∩εΓß∩ ß½ÑñπεΘ¿Ñ Γ¿»δ: ┌──────────────────────────┬────────────────────────────────────┐ │ Æ¿» │ Ä»¿ßá¡¿Ñ │ ├──────────────────────────┼────────────────────────────────────┤ │ Æ¿» ºá»¿ß¿ Σá⌐½á │ Ä»αÑñÑ½Ñ¡¿∩ ºá»¿ßÑ⌐, ¿ß»«½∞ºπεΘ¿Ñ-│ │ │ ß∩ ó Borland Pascal ñ½∩ ó¡πΓαÑ¡¡¿σ│ │ │ µÑ½Ñ⌐, «»¿ßδóáεΓß∩ Γá¬ªÑ ó ¼«ñπ½Ñ│ │ │ Dos. Æ¿» TFilÑRÑß ¿ß»«½∞ºπÑΓß∩ ¬á¬│ │ │ ñ½∩ Γ¿»¿º«óá¡¡δσ, Γá¬ ¿ ñ½∩ ¡ÑΓ¿»¿-│ │ │ º¿α«óá¡¡δσ Σá⌐½«ó, ó Γ« óαÑ¼∩, ¬á¬│ │ │ TTÑσtRÑß »αÑñßΓáó½∩ÑΓ ß«í«⌐ ó¡πΓ-│ │ │ αÑ¡¡¿⌐ Σ«α¼áΓ »ÑαÑ¼Ñ¡¡«⌐ ΓÑ¬ßΓ«ó«ú«│ │ │ Γ¿»á. │ ├──────────────────────────┼────────────────────────────────────┤ │ TRegisters │ ÅÑαÑ¼Ñ¡¡δÑ αÑú¿ßΓα«ó«ú« Γ¿»á »α¿¼Ñ-│ │ │ ¡∩εΓß∩ ó »α«µÑñπαáσ Intr ¿ îsDos│ │ │ ñ½∩ ºáñá¡¿∩ ß«ñÑαª¿¼«ú« óσ«ñ¡«ú«│ │ │ αÑú¿ßΓαá ¿ »α«óÑα¬¿ ß«ñÑαª¿¼«ú« óδ-│ │ │ σ«ñ¡«ú« αÑú¿ßΓαá »α¿ »αÑαδóá¡¿∩σ,│ │ │ ¿ß»«½∞ºπεΘ¿σß∩ ó »α«úαá¼¼¡«¼ «íÑß-│ │ │ »ÑτÑ¡¿¿. │ ├──────────────────────────┼────────────────────────────────────┤ │ TDateTime │ ÅÑαÑ¼Ñ¡¡δÑ Γ¿»á TDateTi¼Ñ (ñáΓδ ¿│ │ │ óαÑ¼Ñ¡¿) ¿ß»«½∞ºπεΓß∩ ó »α«µÑñπαáσ│ │ │ Unαáß¬Æi¼Ñ ¿ Páß¬Æi¼Ñ ñ½∩ á¡á½¿ºá,│ │ │ π»á¬«ó¬¿ ¿ »«ßΓα«Ñ¡¿∩ τÑΓδαÑσíá⌐Γ«-│ │ │ ó«ú« º¡áτÑ¡¿∩, ß«ñÑαªáΘÑú« ñáΓπ ¿│ │ │ óαÑ¼∩. ¥Γ« τÑΓδαÑσíá⌐Γ«ó«Ñ º¡áτÑ¡¿Ñ│ │ │ ¿ß»«½∞ºπÑΓß∩ ºáΓÑ¼ ó »α«µÑñπαáσ│ │ │ GetFTi¼Ñ, SetTi¼Ñ, FindFirst ¿│ │ │ FindNÑσt. │ ├──────────────────────────┼────────────────────────────────────┤ │ TSearchRec │ ÅÑαÑ¼Ñ¡¡δÑ Γ¿»á TSearchRÑß ¿ß»«½∞-│ │ │ ºπεΓß∩ ó »α«µÑñπαáσ FindFirst ¿│ │ │ Findnext ñ½∩ »α«ß¼«Γαá ¬áΓá½«ú«ó│ │ │ Σá⌐½«ó. │ └──────────────────────────┴────────────────────────────────────┘ ÅÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ WinDos ───────────────────────────────────────────────────────────────── î¡«ú¿¼¿ »«ñ»α«úαá¼¼á¼¿ ¼«ñπ½∩ WinDos ñ½∩ ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ ¿ß»«½∞ºπÑΓß∩ »ÑαÑ¼Ñ¡¡á∩ DosError. B.Pascal 7 & Objects/LR - 270 - ─────────────────────────────────────────────────────────────────────── â½áóá 17. Åα«úαá¼¼¿α«óá¡¿Ñ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS ───────────────────────────────────────────────────────────────── î¿¬α«»α«µÑßß«α 80286 ñáÑΓ ¡«óδ⌐ ß»«ß«í áñαÑßáµ¿¿ ¬ »á¼∩Γ¿: ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ ó¿αΓπá½∞¡«⌐ áñαÑßáµ¿¿ ¿½¿ »α«ßΓ« ºáΘ¿ΘÑ¡¡δ⌐ αÑ- ª¿¼. ¥Γ«Γ ¡«óδ⌐ αÑª¿¼ áñαÑßáµ¿¿ ñáÑΓ Γα¿ «ß¡«ó¡δσ »αÑ¿¼πΘÑßΓóá: * ÇñαÑßáµ¿∩ ¬ »á¼∩Γ¿ «íΩÑ¼«¼ ñ« 16 ¼Ñúáíá⌐Γ. * ï«ú¿τÑß¬«Ñ áñαÑß¡«Ñ »α«ßΓαá¡ßΓó«, »αÑóδΦáεΘÑÑ »α«ßΓαá¡ßΓó« Σ¿º¿τÑß¬¿σ áñαÑß«ó. * æ»«ß«í ¿º«½∩µ¿¿ »α«úαá¼¼ ñαπú «Γ ñαπúá, Γá¬ τΓ« «ñ¡á »α«ú- αá¼¼á ¡Ñ ¼«ªÑΓ ¡áαπΦáΓ∞ ñαπú«⌐ óδ»«½¡∩εΘÑ⌐ß∩ «ñ¡«óαÑ¼Ñ¡¡« ß ¡Ñ⌐ »α«úαá¼¼δ. æ »«¼«Θ∞ε Borland Pascal óδ ½Ñú¬« ¼«ªÑΓÑ »¿ßáΓ∞ αáí«ΓáεΘ¿Ñ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ »α¿¬½áñ¡δÑ »α«úαá¼¼δ DOS íÑº ¡Ñ«íσ«ñ¿¼«ßΓ¿ »α¿- ¼Ñ¡Ñ¡¿∩ ñ«»«½¡¿ΓÑ½∞¡«ú« "αáßΦ¿α¿ΓÑ½∩" DOS. éδ «í¡áαπª¿ΓÑ, τΓ« ¼¡«ú¿Ñ »α«úαá¼¼δ αÑá½∞¡«ú« αÑª¿¼á »αÑ¬αáß¡« αáí«ΓáεΓ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ. äá¡¡á∩ ú½áóá »«¼«ªÑΓ óá¼ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ΓÑ »α«úαá¼¼δ, ¬«- Γ«αδÑ φΓ«ú« ¡Ñ ñÑ½áεΓ, ¿ »α«∩ß¡¿Γ ¡Ñ¬«Γ«αδÑ «ß¡«ó¡δÑ ¼«¼Ñ¡Γδ ºá- Θ¿ΘÑ¡¡«ú« αÑª¿¼á ¿ Ñú« «Γ½¿τ¿∩ «Γ αÑá½∞¡«ú« αÑª¿¼á. ùΓ« Γá¬«Ñ ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼? ───────────────────────────────────────────────────────────────── Åα«µÑßß«α 80286 ¿ í«½ÑÑ »«ºñ¡¿Ñ »α«µÑßß«αδ »«ññÑαª¿óáεΓ ñóá αÑª¿¼á «»Ñαáµ¿⌐: ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ ¿ αÑá½∞¡δ⌐ αÑª¿¼. ÉÑá½∞¡δ⌐ αÑ- ª¿¼ ß«ó¼ÑßΓ¿¼ ß αáí«Γ«⌐ »α«µÑßß«αá 8086 ¿ »«ºó«½∩ÑΓ »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ áñαÑß«óáΓ∞ß∩ ¬ »á¼∩Γ¿ «íΩÑ¼«¼ ñ« «ñ¡«ú« ¼Ñúáíá⌐Γá. çá- Θ¿ΘÑ¡¡δ⌐ αÑª¿¼ αáßΦ¿α∩ÑΓ ñ¿á»áº«¡ áñαÑßáµ¿¿ ñ« 16 ¼Ñúáíá⌐Γ. Äß- ¡«ó¡«Ñ «Γ½¿τ¿Ñ ¼Ñªñπ αÑá½∞¡δ¼ ¿ ºáΘ¿ΘÑ¡¡δ¼ αÑª¿¼«¼ ºá¬½ετáÑΓß∩ ó ß»«ß«íÑ »αÑ«íαáº«óá¡¿∩ »α«µÑßß«α«¼ ½«ú¿τÑß¬¿σ áñαÑß«ó ó Σ¿º¿τÑß- ¬¿Ñ. ï«ú¿τÑß¬¿Ñ áñαÑßá - φΓ« áñαÑßá, ¿ß»«½∞ºπÑ¼δÑ ó »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ. èá¬ ó αÑá½∞¡«¼, Γá¬ªÑ ¿ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ ½«ú¿τÑß¬¿⌐ áñαÑß - φΓ« 32-αáºα∩ñ¡«Ñ º¡áτÑ¡¿Ñ, ß«ßΓ«∩ΘÑÑ ¿º 16-í¿Γ«ó«ú« ßÑ- ½Ñ¬Γ«αá (áñαÑßá ßÑú¼Ñ¡Γá) ¿ 16-í¿Γ«ó«ú« ß¼ÑΘÑ¡¿∩. ö¿º¿τÑß¬¿Ñ áñ- αÑßá - φΓ« áñαÑßá, ¬«Γ«αδÑ »α«µÑßß«α ¿ß»«½∞ºπÑΓ ñ½∩ «í¼Ñ¡á ñá¡¡δ- ¼¿ ß ¬«¼»«¡Ñ¡Γá¼¿ ß¿ßΓÑ¼¡«⌐ »á¼∩Γ¿. é αÑá½∞¡«¼ αÑª¿¼Ñ Σ¿º¿τÑß¬¿⌐ áñαÑß »αÑñßΓáó½∩ÑΓ ß«í«⌐ 20-í¿Γ«ó«Ñ º¡áτÑ¡¿Ñ, á ó ºáΘ¿ΘÑ¡¡«¼ αÑ- ª¿¼Ñ - 24-í¿Γ«ó«Ñ. B.Pascal 7 & Objects/LR - 271 - è«úñá »α«µÑßß«α «íαáΘáÑΓß∩ ¬ »á¼∩Γ¿ (ñ½∩ óδí«α¬¿ ¿¡ßΓαπ¬µ¿¿ ¿½¿ ºá»¿ß¿ »ÑαÑ¼Ñ¡¡«⌐), «¡ úÑ¡Ñα¿απÑΓ ¿º ½«ú¿τÑß¬«ú« áñαÑßá Σ¿º¿- τÑß¬¿⌐ áñαÑß. é αÑá½∞¡«¼ αÑª¿¼Ñ úÑ¡Ñαáµ¿∩ Σ¿º¿τÑß¬«ú« áñαÑßá ß«ß- Γ«¿Γ ¿º ßñó¿úá ßÑ½Ñ¬Γ«αá (áñαÑßá ßÑú¼Ñ¡Γá) ¡á 4 í¿Γá ó½Ñó« (φΓ« «º¡áτáÑΓ π¼¡«ªÑ¡¿Ñ ¡á 16) ¿ »α¿íáó½Ñ¡¿∩ ß¼ÑΘÑ¡¿∩. Å«½πτÑ¡¡δ⌐ ó αÑºπ½∞ΓáΓÑ 20-αáºα∩ñ¡δ⌐ áñαÑß ¿ß»«½∞ºπÑΓß∩ ºáΓÑ¼ ñ½∩ ñ«ßΓπ»á ¬ »á¼∩Γ¿. 16îí┌────────────────┐ │ │ ┌────────┐ │ │ │æ¼ÑΘÑ¡¿Ñ├─┐ │ │ └────────┘ │ │ │ │ ├────────────────┤┐ └──┼─────>▒▒▒▒▒▒▒▒▒▒│├ ßÑú¼Ñ¡Γ 64è ┌─>├────────────────┤┘ │ │ │ │ │ Åα«ßΓαá¡ßΓó« │ ┌────────┐ ┌──────┐ │ │ áñαÑß«ó │ │æÑ½Ñ¬Γ«α├─┤ x 16 ├─────┘ │ │ └────────┘ └──────┘ │ │ 0└────────────────┘ É¿ß. 17.1 âÑ¡Ñαáµ¿∩ Σ¿º¿τÑß¬«ú« áñαÑßá ó αÑá½∞¡«¼ αÑª¿¼Ñ. B.Pascal 7 & Objects/LR - 272 - ùΓ«íδ »«½πτ¿Γ∞ Σ¿º¿τÑß¬¿⌐ áñαÑß ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ, ßÑ½Ñ¬- Γ«α¡á∩ τáßΓ∞ ½«ú¿τÑß¬«ú« áñαÑßá ¿ß»«½∞ºπÑΓß∩ ó ¬áτÑßΓóÑ ¿¡ñÑ¬ßá Γáí½¿µδ ñÑß¬α¿»Γ«α«ó. çá»¿ß∞ ó Γáí½¿µÑ ñÑß¬α¿»Γ«α«ó ß«ñÑαª¿Γ 24-í¿Γ«óδ⌐ íáº«óδ⌐ áñαÑß, ¬ ¬«Γ«α«¼π ºáΓÑ¼ ñ½∩ «íαáº«óá¡¿∩ Σ¿º¿- τÑß¬«ú« áñαÑßá »α¿íáó½∩ÑΓß∩ ß¼ÑΘÑ¡¿Ñ ½«ú¿τÑß¬«ú« áñαÑßá. 16îí┌────────────────┐ │ │ ┌────────┐ │ │ │æ¼ÑΘÑ¡¿Ñ├─┐ │ │ └────────┘ │ │ │ │ ├────────────────┤┐ Æáí½¿µá ñÑß¬α¿»Γ«α«ó └──┼─────>▒▒▒▒▒▒▒▒▒▒│├ ßÑú¼Ñ¡Γ 64è ┌──────┐ ┌─>├────────────────┤┘ ├──────┤ │ │ │ ├──────┤ │ │ Åα«ßΓαá¡ßΓó« │ ├──────┤ │ │ áñαÑß«ó │ ┌─>├──────┤───┘ │ │ │ ├──────┤ │ │ │ ├──────┤ 0└────────────────┘ │ ├──────┤ │ ├──────┤ │ ├──────┤ │ ├──────┤ │ ├──────┤ │ ├──────┤ │ ├──────┤ │ ├──────┤ ┌────────┐ │ ├──────┤ │æÑ½Ñ¬Γ«α├─┘ └──────┘ └────────┘ É¿ß. 17.2 âÑ¡Ñαáµ¿∩ Σ¿º¿τÑß¬«ú« áñαÑßá ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ. èáªñá∩ ºá»¿ß∞ ó Γáí½¿µÑ ñÑß¬α¿»Γ«α«ó ¡áºδóáÑΓß∩ ñÑß¬α¿»Γ«α«¼ ¿ «»αÑñÑ½∩ÑΓ ßÑú¼Ñ¡Γ ó »á¼∩Γ¿. çá»¿ß∞ Γáí½¿µδ ñÑß¬α¿»Γ«α«ó ºá¡¿- ¼áÑΓ 8 íá⌐Γ, á ºá»¿ßá¡¡á∩ ó ñÑß¬α¿»Γ«αÑ ¿¡Σ«α¼áµ¿∩ ó¬½ετáÑΓ ó ßÑ- í∩ íáº«óδ⌐ áñαÑß, »αÑñÑ½∞¡«Ñ º¡áτÑ¡¿Ñ ¿ Σ½áú¿ »«½¡«¼«τ¿⌐ ñ«ßΓπ»á ¬ ßÑú¼Ñ¡Γπ. çá»¿ß¿ »αÑñÑ½∞¡«ú« º¡áτÑ¡¿∩ ßÑú¼Ñ¡Γá ¿ »«½¡«¼«τ¿⌐ ñ«ßΓπ»á ó ñÑß¬α¿»Γ«αÑ «»αÑñÑ½∩εΓ αáº¼Ñα ¿ Γ¿» ßÑú¼Ñ¡Γá. æÑú¼Ñ¡Γδ ¼«úπΓ ¿¼ÑΓ∞ αáº¼Ñα «Γ 1 ñ« 65536 íá⌐Γ ¿ ¼«úπΓ íδΓ∞ ßÑú¼Ñ¡Γá¼¿ ¬«ñá ¿½¿ ßÑú¼Ñ¡Γá¼¿ ñá¡¡δσ. æÑú¼Ñ¡Γδ ¬«ñá ¼«úπΓ ß«ñÑαªáΓ∞ óδ»«½¡∩Ñ¼δÑ ¼á- Φ¿¡¡δÑ ¿¡ßΓαπ¬µ¿¿ ¿ ñ«ßΓπ»¡δÑ Γ«½∞¬« »« τΓÑ¡¿ε ñá¡¡δÑ. æÑú¼Ñ¡Γδ ñá¡¡δσ ¼«úπΓ ß«ñÑαªáΓ∞ ñá¡¡δÑ, ñ«ßΓπ»¡δÑ »« τΓÑ¡¿ε ¿ ºá»¿ß¿. çá- »¿ßδóáΓ∞ ñá¡¡δÑ ó ßÑú¼Ñ¡Γδ ¬«ñá ¿½¿ óδ»«½¡∩Γ∞ ¿¡ßΓαπ¬µ¿¿ ó ßÑú- ¼Ñ¡Γáσ ñá¡¡δσ ¡Ñó«º¼«ª¡«. ïεíá∩ »«»δΓ¬á ßñÑ½áΓ∞ φΓ« ¿½¿ »«»δΓ¬á ñ«ßΓπ»á ¬ ñá¡¡δ¼ ó¡Ñ úαá¡¿µ ßÑú¼Ñ¡Γá óδºδóáÑΓ «íΘ¿⌐ ßí«⌐ »« ¡á- απΦÑ¡¿ε ºáΘ¿Γδ (ß«¬αáΘÑ¡¡« ßí«⌐ GP). Å«φΓ«¼π αÑª¿¼ ¿ ¡áºδóáÑΓß∩ ºáΘ¿ΘÑ¡¡δ¼. B.Pascal 7 & Objects/LR - 273 - Å« ñá¡¡«¼π áñαÑßπ ó αÑá½∞¡«¼ αÑª¿¼Ñ »α¿¬½áñ¡á∩ »α«úαá¼¼á ¼«- ªÑΓ «»αÑñÑ½¿Γ∞ Σ¿º¿τÑß¬¿⌐ áñαÑß. é ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ φΓ« «íδτ¡« ¡Ñ Γá¬, »«ß¬«½∞¬π ßÑ½Ñ¬Γ«α¡á∩ τáßΓ∞ ½«ú¿τÑß¬«ú« áñαÑßá ∩ó½∩ÑΓß∩ ¿¡ñÑ¬ß«¼ ó Γáí½¿µÑ ñÑß¬α¿»Γ«α«ó, ¿ ßá¼ ßÑ½Ñ¬Γ«α ¡Ñ ¿¼ÑÑΓ »α∩¼«ú« «Γ¡«ΦÑ¡¿∩ ¬ óδτ¿ß½Ñ¡¿ε Σ¿º¿τÑß¬«ú« áñαÑßá. ¥Γ« ñáÑΓ Γ« »αÑ¿¼π- ΘÑßΓó«, τΓ« π»αáó½Ñ¡¿Ñ ó¿αΓπá½∞¡«⌐ »á¼∩Γ∞ε ¼«ª¡« αÑá½¿º«óáΓ∞, ¡Ñ ó½¿∩∩ ¡á »α¿¬½áñ¡πε »α«úαá¼¼π. ìá»α¿¼Ñα, »πΓÑ¼ »α«ßΓ«ú« «í¡«ó½Ñ- ¡¿∩ »«½∩ íáº«ó«ú« áñαÑßá ñÑß¬α¿»Γ«αá ßÑú¼Ñ¡Γá, «»Ñαáµ¿«¡¡á∩ ß¿ß- ΓÑ¼á ¼«ªÑΓ »ÑαÑ¼ÑΘáΓ∞ ßÑú¼Ñ¡Γ ó Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿ íÑº ó½¿∩¡¿∩ ¡á ¿ß»«½∞ºπεΘπε ßÑú¼Ñ¡Γ »α¿¬½áñ¡πε »α«úαá¼¼π. Åα¿¬½áñ¡á∩ »α«úαá¼¼á ßßδ½áÑΓß∩ Γ«½∞¬« ¡á ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá, ¿ ¡á ßÑ½Ñ¬Γ«α ¡Ñ ó½¿∩εΓ ¿º¼Ñ¡Ñ¡¿∩ ó ñÑß¬α¿»Γ«αÑ. Åα¿¬½áñ¡á∩ »α«úαá¼¼á αÑñ¬« ¿¼ÑÑΓ ñÑ½« ß ñÑß¬α¿»Γ«αá¼¿. Åα¿ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ñÑß¬α¿»Γ«αδ ß«ºñáεΓß∩ ¿ π¡¿τΓ«ªáεΓß∩ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼«⌐ ¿ áñ¼¿¡¿ßΓαáΓ«α«¼ »á¼∩Γ¿, á »α¿¬½áñ¡á∩ »α«úαá¼¼á º¡áÑΓ « ß««ΓóÑΓßΓóπεΘ¿σ ßÑ½Ñ¬Γ«αáσ. æÑ½Ñ¬Γ«αδ á¡á½«ú¿τ¡δ «»¿ßáΓÑ½∩¼ Σá⌐- ½«ó - ß Γ«τ¬¿ ºαÑ¡¿∩ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ φΓ« Γ«, τΓ« «íß½πª¿óá- ÑΓß∩ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼«⌐, ¡« ó «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼Ñ «¡¿ αáí«Γá- εΓ ¬á¬ ¿¡ñÑ¬ßδ ß«ñÑαªáΘ¿σ ñ«»«½¡¿ΓÑ½∞¡πε ¿¡Σ«α¼áµ¿ε Γáí½¿µ. B.Pascal 7 & Objects/LR - 274 - ÉáßΦ¿αÑ¡¿∩ Borland ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ───────────────────────────────────────────────────────────────── ÉáßΦ¿αÑ¡¿∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á Borland Pascal αÑá½¿º«óá¡δ τÑ- αÑº ñóá ¬«¼»«¡Ñ¡Γá: DPMI-ßÑαóÑα (Σá⌐½ DPMI16BI.OVL) ¿ áñ¼¿¡¿ßΓαá- Γ«α φΓá»á óδ»«½¡Ñ¡¿∩ (Σá⌐½ RTM.EXE). DPMI-ßÑαóÑα ───────────────────────────────────────────────────────────────── ê¡ΓÑαΣÑ⌐ß ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS (DPMI) - φΓ« «Γαáß½Ñó«⌐ ßΓá¡ñáαΓ, »«ºó«½∩εΘ¿⌐ »α«úαá¼¼á¼ DOS á»»áαáΓ¡«-¡Ñºáó¿ß¿¼δ¼ »πΓÑ¼ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ αáºó¿Γδ¼ ßαÑñßΓóá¼ »Ñαß«¡á½∞¡δσ ¬«¼»∞εΓÑα«ó, αÑá½¿º«óá¡¡δσ ¡á »α«µÑßß«αáσ 80286, 80386 ¿ 80486. Ä»αÑñÑ½Ñ¡δ Σπ¡¬µ¿¿ DPMI ñ½∩ «íß½πª¿óá¡¿∩ Γáí½¿µ ñÑß¬α¿»Γ«α«ó, »ÑαÑ¬½ετÑ¡¿∩ αÑª¿¼á, αáß»αÑñÑ½Ñ¡¿∩ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿, óδñÑ½Ñ¡¿∩ »á¼∩Γ¿ DOS, π»αáó½Ñ¡¿∩ »«ñß¿ßΓÑ¼«⌐ »αÑαδóá¡¿⌐ ¿ óºá¿¼«ñÑ⌐ßΓó¿∩ ß »α«úαá¼¼á¼¿ αÑá½∞¡«ú« αÑª¿¼á. ÉáßΦ¿αÑ¡¿∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á Borland Pascal «ß¡«óá¡δ ¡á ß»Ñµ¿Σ¿¬áµ¿¿ DPMI 0.9. ò«Γ∩ ß»Ñµ¿Σ¿¬áµ¿∩ DPMI ¡Ñ »«ññÑαª¿óáÑΓ óδ- º«óδ DOS ¿º »α¿¬½áñ¡δσ »α«úαá¼¼ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á, DPMI-ßÑαóÑα Borland ¿ ßÑαóÑαδ ¼¡«ú¿σ ñαπú¿σ Σ¿α¼, ó¬½ετá∩ π½πτΦÑ¡¡δ⌐ αÑª¿¼ Windows 3.x, »«ññÑαª¿óáεΓ »αÑαδóá¡¿Ñ INT 21H ¿ ñαπú¿Ñ ßΓá¡ñáαΓ¡δÑ »αÑαδóá¡¿∩ DOS ¿ BIOS, ¿ß»«½∞ºπÑ¼δÑ «íδτ¡« ó »α¿½«ªÑ¡¿∩σ DOS ºá- Θ¿ΘÑ¡¡«ú« αÑª¿¼á. Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ ───────────────────────────────────────────────────────────────── Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ (RTM.EXE) ∩ó½∩ÑΓß∩ ¡áñßΓα«⌐- ¬«⌐ DPMI-ßÑαóÑαá ¿ «íÑß»Ñτ¿óáΓ∞ ñ½∩ »α¿¬½áñ¡δσ »α«úαá¼¼ ºáΘ¿ΘÑ¡- ¡«ú« αÑª¿¼á ¡Ñß¬«½∞¬« ß½πªÑí¡δσ Σπ¡¬µ¿⌐. Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ- »«½¡Ñ¡¿∩ ß«ñÑαª¿Γ ºáúαπºτ¿¬ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ¿ áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ¿ »«ºó«½∩ÑΓ »«ñ DPMI ß«ßπΘÑßΓó«óáΓ∞ ¡Ñß¬«½∞¬¿¼ ¬½¿Ñ¡Γá¼ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á. Åα¿½«ªÑ¡¿∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á Borland ¿ß»«½∞ºπεΓ ΓÑ ªÑ Σ«α- ¼áΓδ óδ»«½¡∩Ñ¼δσ Σá⌐½«ó, τΓ« ¿ Windows 3.x ¿ OS/2 1.x. Åα«úαá¼¼- ¡δ⌐ ºáúαπºτ¿¬ áñ¼¿¡¿ßΓαáΓ«αá φΓá»á óδ»«½¡Ñ¡¿∩ ¼«ªÑΓ ºáúαπªáΓ∞ ¬á¬ óδ»«½¡∩Ñ¼δÑ Σá⌐½δ (.EXE), Γá¬ ¿ ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δÑ í¿í½¿«ΓÑ- ¬¿ (.DLL). Çñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á »«ºó«½∩ÑΓ »α¿¬½áñ¡δ¼ »α«úαá¼¼á¼ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á αáß»αÑñÑ½∩Γ∞ í½«¬¿ ñ¿¡á¼¿τÑß¬«⌐ »á- ¼∩Γ¿. Çñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ »«ññÑαª¿óáÑΓ Σ¿¬ß¿α«óá¡¡δÑ, »ÑαÑ¼ÑΘáÑ- ¼δÑ ¿ óδúαπªáÑ¼δÑ í½«¬¿, á Γá¬ªÑ «íß½πª¿óáÑΓ ¬«ñ ¿ ßÑú¼Ñ¡Γδ ñá¡- ¡δσ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. êß»«½∞ºπ∩ π¡¿¬á½∞¡δÑ ñ½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ßαÑñßΓóá, áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ Σπ¡¬µ¿«¡¿απÑΓ Γá¬ªÑ ó ¬á- τÑßΓóÑ áñ¼¿¡¿ßΓαáΓ«αá «óÑα½ÑÑó, áóΓ«¼áΓ¿τÑß¬¿ ºáúαπªá∩ ¿ óδúαπªá∩ ßÑú¼Ñ¡Γδ ¬«ñá (»« φΓ«⌐ »α¿τ¿¡Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ¡Ñ ΓαÑíπÑΓß∩ ¼«ñπ½∞ Overlay). B.Pascal 7 & Objects/LR - 275 - Åα¿¬½áñ¡δÑ »α«úαá¼¼δ ¼«úπΓ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ »α«úαá¼¼á¼ ºá- Θ¿ΘÑ¡¡«ú« αÑª¿¼á τÑαÑº ¼«ñπ½∞ WinAPI. î«ñπ½∞ WinAPI, «»¿ßá¡¡δ⌐ ó ß½ÑñπεΘÑ¼ αáºñÑ½Ñ, αÑá½¿ºπÑΓ »«ñ¼¡«ªÑßΓó« Σπ¡¬µ¿⌐ API (»α¿¬½áñ¡«- ú« »α«úαá¼¼¡«ú« ¿¡ΓÑαΣÑ⌐ßá) Windows, «íÑß»Ñτ¿óá∩ π»αáó½Ñ¡¿Ñ »á- ¼∩Γ∞ε, «íß½πª¿óá¡¿Ñ »α«úαá¼¼¡δσ ¼«ñπ½Ñ⌐, π»αáó½Ñ¡¿Ñ αÑßπαßá¼¿, ºáúαπº¬π ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δσ í¿í½¿«ΓÑ¬ ¿ ñ«ßΓπ» ¬ ßÑ½Ñ¬Γ«αá¼ ¡á ¡¿ª¡Ñ¼ πα«ó¡Ñ. Å«ß¬«½∞¬π áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ API ∩ó½∩ÑΓß∩ »«ñ¼¡«ªÑßΓó«¼ API Windows, óδ ¼«ªÑΓÑ ¡á»¿ßáΓ∞ ß«ó¼ÑßΓ¿- ¼δÑ ¡á πα«ó¡Ñ ñó«¿τ¡«ú« ¬«ñá ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δÑ í¿í½¿«ΓÑ¬¿, ¬«Γ«αδÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¿ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS, ¿ ó Windows. B.Pascal 7 & Objects/LR - 276 - Éáºαáí«Γ¬á »α¿¬½áñ¡δσ »α«úαá¼¼ DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ───────────────────────────────────────────────────────────────── ìá»¿ßá¡¿Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ¡Ñ »αÑñß- Γáó½∩ÑΓ ß«í«⌐ ß½«ª¡«⌐ ºáñáτ¿. éá¼ ¡Ñ ¡πª¡« íÑß»«¬«¿Γ∞ß∩ « ßÑ½Ñ¬- Γ«αáσ ¿ áñαÑßáσ »á¼∩Γ¿. Ä»Ñαáµ¿«¡¡á∩ ß¿ßΓÑ¼á ß αáßΦ¿αÑ¡¿∩¼¿ Borland óßÑ ñÑ½áÑΓ ºá óáß. öá¬Γ¿τÑß¬¿, í«½∞Φ¿¡ßΓó« óáΦ¿σ »α«úαá¼¼ αÑá½∞¡«ú« αÑª¿¼á ¼«ªÑΓ »αÑ¬αáß¡« αáí«ΓáΓ∞ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ. é ß½ÑñπεΘ¿σ αáºñÑ½áσ «»¿ßδóáÑΓß∩ ¡Ñ¬«Γ«αá∩ αáº¡¿µá ¼Ñªñπ αÑá½∞¡δ¼ ¿ ºáΘ¿ΘÑ¡¡δ¼ αÑª¿¼«¼, « ¬«Γ«αδσ óδ ñ«½ª¡δ º¡áΓ∞ »α¿ αáºαáí«Γ¬Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á. ìáñÑª¡«Ñ »α«úαá¼¼¿α«óá¡¿Ñ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ ───────────────────────────────────────────────────────────────── æπΘÑßΓóπÑΓ ¡Ñß¬«½∞¬« »α¿Ñ¼«ó, ¿ß»«½∞ºπÑ¼δσ «íδτ¡« ó »α«úαá¼- ¼áσ αÑá½∞¡«ú« αÑª¿¼á, ¬«Γ«αδÑ ó »α«úαá¼¼áσ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á íπ- ñπΓ »α¿ó«ñ¿Γ∞ ¬ «íΘÑ¼π ¡áαπΦÑ¡¿ε ºáΘ¿Γδ (ßí«⌐ GP). Borland Pascal »α¿ ßí«Ñ GP óδó«ñ¿Γ «Φ¿í¬π φΓá»á óδ»«½¡Ñ¡¿∩ 216. æí«⌐ GP »α«¿ßσ«- ñ¿Γ, ¬«úñá óδ »δΓáÑΓÑß∞ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ »á¼∩Γ¿, ¬ ¬«Γ«α«⌐ óáΦá »α¿¬½áñ¡á∩ »α«úαá¼¼á «íαáΘáΓ∞ß∩ ¡Ñ ¼«ªÑΓ. Ä»Ñαáµ¿«¡¡á∩ ß¿ßΓÑ¼á «ßΓá¡áó½¿óáÑΓ »α¿¬½áñ¡πε »α«úαá¼¼π, ¡« ßí«∩ ß¿ßΓÑ¼δ ¡Ñ »α«¿ßσ«- ñ¿Γ. ò«Γ∩ ßí«¿ GP ¿ »αÑ¬αáΘáεΓ αáí«Γπ óáΦÑ⌐ »α«úαá¼¼δ, ß¿ßΓÑ¼á "ºáΘ¿ΘÑ¡á" «Γ ßí«∩. è ßí«ε GP »α¿ó«ñ¿Γ ß½ÑñπεΘÑÑ: * ºáúαπº¬á ó ßÑú¼Ñ¡Γ¡δÑ αÑú¿ßΓαδ ¡Ññ«»πßΓ¿¼δσ º¡áτÑ¡¿⌐; * «íαáΘÑ¡¿Ñ ¬ »á¼∩Γ¿ ó¡Ñ úαá¡¿µδ ßÑú¼Ñ¡Γá; * ºá»¿ß∞ ó ßÑú¼Ñ¡Γ ¬«ñá; * αáºδ¼Ñ¡«óá¡¿Ñ π¬áºáΓÑ½Ñ⌐ nil. Åα¿¼Ñτá¡¿Ñ: æí«¿ »« ¡áαπΦÑ¡¿ε ºáΘ¿Γδ »αÑñ«σαá¡∩εΓ óáΦπ ß¿ßΓÑ¼π «Γ »½«σ«⌐ »αá¬Γ¿¬¿ »α«úαá¼¼¿α«óá¡¿∩. B.Pascal 7 & Objects/LR - 277 - çáúαπº¬á ó ßÑú¼Ñ¡Γ¡δÑ αÑú¿ßΓαδ ¡Ññ«»πßΓ¿¼δσ º¡áτÑ¡¿⌐ ───────────────────────────────────────────────────────────────── è«úñá »α«µÑßß«α αáí«ΓáÑΓ ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ, ßÑú¼Ñ¡Γ¡δÑ αÑ- ú¿ßΓαδ (CS, DS, ES ¿ SS) ¼«úπΓ ß«ñÑαªáΓ∞ Γ«½∞¬« ßÑ½Ñ¬Γ«αδ. Å«ß- ¬«½∞¬π ßÑ½Ñ¬Γ«αδ ∩ó½∩εΓß∩ ¿¡ñÑ¬ßá¼¿ ó Γáí½¿µÑ ñÑß¬α¿»Γ«α«ó, «¡¿ ¡Ñ ¿¼ÑεΓ Σ¿º¿τÑß¬«ú« «Γ¡«ΦÑ¡¿∩ ¬ »á¼∩Γ¿, ¡á ¬«Γ«απε ßßδ½áÑΓß∩. àß½¿ óδ »δΓáÑΓÑß∞ ºáúαπº¿Γ∞ ó ßÑú¼Ñ¡Γ¡δ⌐ αÑú¿ßΓα »α«¿ºó«½∞¡«Ñ º¡áτÑ¡¿Ñ, Γ« ó«º¼«ª¡« »«½πτ¿ΓÑ ßí«⌐ GP, »«ß¬«½∞¬π φΓ« º¡áτÑ¡¿Ñ ¼«ªÑΓ ¡Ñ »αÑñßΓáó½∩Γ∞ ñ«»πßΓ¿¼«ú« ñÑß¬α¿»Γ«αá. öπ¡¬µ¿∩ Ptr ¿ ¼áßß¿óδ Mem ───────────────────────────────────────────────────────────────── Åα¿ αáºδ¼Ñ¡«óá¡¿¿ π¬áºáΓÑ½Ñ⌐ ¬«¼»¿½∩Γ«α úÑ¡Ñα¿απÑΓ ¬«ñ ñ½∩ ºáúαπº¬¿ ßÑú¼Ñ¡Γ¡«ú« αÑú¿ßΓαá. àß½¿ óδ ßΓα«¿ΓÑ π¬áºáΓÑ½¿ ß »«- ¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ Σπ¡¬µ¿¿ Ptr, Γ« ¡πª¡« «íÑß»Ñτ¿Γ∞, τΓ«íδ ßÑú- ¼Ñ¡Γ¡á∩ τáßΓ∞ π¬áºáΓÑ½∩ íδ½á ñ«»πßΓ¿¼δ¼ ßÑ½Ñ¬Γ«α«¼. Ç¡á½«ú¿τ¡«, »α¿ αáí«ΓÑ ß ¼áßß¿óá¼¿ Mem, MemW ¿ MemL óδ ó¼ÑßΓ« Σ¿º¿τÑß¬¿σ áñ- αÑß«ó ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ß∩ ßÑ½Ñ¬Γ«αδ. ìá»α¿¼Ñα, »α¿ ñ«ßΓπ»Ñ ¬ αáí«τÑ⌐ «í½áßΓ¿ ROM BIOS (ßÑú¼Ñ¡Γ $0040) ¿½¿ ¬ «í½áßΓ∩¼ ó¿ñÑ«»á- ¼∩Γ¿ (ßÑú¼Ñ¡Γδ $A000, $B000 ¿ $B800) ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ ó¼ÑßΓ« áíß«½εΓ¡δσ º¡áτÑ¡¿⌐ »ÑαÑ¼Ñ¡¡δÑ SegXXXX. (ÅÑαÑ¼Ñ¡¡δÑ SegXXXX «»¿- ßδóáεΓß∩ ¡¿ªÑ.) Çíß«½εΓ¡δÑ »ÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── é ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ óδ ¡Ñ ¼«ªÑΓÑ ºáñáóáΓ∞ áíß«½εΓ¡δ⌐ áñαÑß »ÑαÑ¼Ñ¡¡«⌐. ïεí«⌐ ¿ßσ«ñ¡δσ ¬«ñ, úñÑ ßÑú¼Ñ¡Γ ¿ ß¼ÑΘÑ¡¿Ñ ºáñáεΓß∩ ó «»ÑαáΓ«αÑ absolute, ¡πª¡« »ÑαÑ»¿ßáΓ∞. ìá»α¿¼Ñα, óá¼ ¼«ªÑΓ »«ΓαÑ- í«óáΓ∞ß∩ »«ßΓα«¿Γ∞ π¬áºáΓÑ½∞, ¿ß»«½∞ºπ∩ »ÑαÑ¼Ñ¡¡δÑ SegXXXX. B.Pascal 7 & Objects/LR - 278 - Ä»Ñαáµ¿¿ ß ßÑú¼Ñ¡Γá¼¿ ───────────────────────────────────────────────────────────────── ä«íáó½Ñ¡¿Ñ ¿½¿ óδτ¿Γá¡¿Ñ º¡áτÑ¡¿⌐ ¿º ßÑ½Ñ¬Γ«α¡«⌐ τáßΓ¿ π¬á- ºáΓÑ½∩ «íδτ¡« ¡Ñ ñ«»πß¬áÑΓß∩. ìá»α¿¼Ñα, ñ«íáó½Ñ¡¿Ñ ¬ ßÑ½Ñ¬Γ«α¡«⌐ τáßΓ¿ π¬áºáΓÑ½∩ $1000 ó αÑá½∞¡«¼ αÑª¿¼Ñ πóÑ½¿τ¿óáÑΓ π¬áºáΓÑ½∞ ¡á 64è, ¡« ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ αÑºπ½∞Γ¿απεΘ¿⌐ π¬áºáΓÑ½∞ íπñÑΓ ¡Ññ«- »πßΓ¿¼δ¼. é¼ÑßΓ« φΓ«ú« ñ½∩ óδñÑ½Ñ¡¿∩ ¿ π»αáó½Ñ¡¿∩ í½«¬á¼¿ »á¼∩Γ¿ ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε GlobalXXXX ¼«ñπ½∩ WinAPI. é Borland Pascal ßπΘÑßΓóπÑΓ ß»«ß«í óδ»«½¡Ñ¡¿∩ áα¿Σ¼ÑΓ¿τÑß¬¿σ «»Ñαáµ¿⌐ ß ßÑ½Ñ¬Γ«αá¼¿ ß »«¼«Θ∞ε »ÑαÑ¼Ñ¡¡«⌐ SelectorInc (ß¼. ¡¿- ªÑ). êß»«½∞º«óá¡¿Ñ ßÑú¼Ñ¡Γ¡δσ αÑú¿ßΓα«ó ó ¬áτÑßΓóÑ óαÑ¼Ñ¡¡δσ »ÑαÑ¼Ñ¡¡δσ ───────────────────────────────────────────────────────────────── é αÑá½∞¡«¼ αÑª¿¼Ñ ¡Ñ¬«Γ«αδÑ ßΓáαδÑ »α«úαá¼¼δ ¡á áßßÑ¼í½ÑαÑ ¿ß»«½∞ºπεΓ ßÑú¼Ñ¡Γ¡δÑ αÑú¿ßΓαδ ñ½∩ σαá¡Ñ¡¿∩ óαÑ¼Ñ¡¡δσ »ÑαÑ¼Ñ¡¡δσ. é ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ φΓ« αáí«ΓáΓ∞ ¡Ñ íπñÑΓ, Γá¬ ¬á¬ «íδτ¡« ß«σαá- ¡∩Ñ¼δÑ ó ßÑú¼Ñ¡Γ¡δσ αÑú¿ßΓαáσ óαÑ¼Ñ¡¡δÑ º¡áτÑ¡¿∩ ¡Ñ ∩ó½∩εΓß∩ ñ«- »πßΓ¿¼δ¼¿ ßÑ½Ñ¬Γ«αá¼¿. ä«ßΓπ» ¬ »á¼∩Γ¿ ó¡Ñ úαá¡¿µ ßÑú¼Ñ¡Γá ───────────────────────────────────────────────────────────────── é αÑá½∞¡«¼ αÑª¿¼Ñ ¬áªñδ⌐ ßÑú¼Ñ¡Γ ¿¼ÑÑΓ αáº¼Ñα 64è. é ºáΘ¿- ΘÑ¡¡«¼ αÑª¿¼Ñ ñÑß¬α¿»Γ«α ßÑú¼Ñ¡Γá ß«ñÑαª¿Γ »«½Ñ, ß»Ñµ¿Σ¿µ¿απεΘÑÑ »αÑñÑ½∞¡δ⌐ αáº¼Ñα ßÑú¼Ñ¡Γá, ¿ Ñß½¿ óδ »δΓáÑΓÑß∞ «íαáΓ¿Γ∞ß∩ ¬ ñá¡- ¡δ¼ ó¡Ñ úαá¡¿µ ßÑú¼Ñ¡Γá, »« »«½πτ¿ΓÑ ßí«⌐ GP. Åα¿ ºáúαπº¬Ñ »α¿¬- ½áñ¡«⌐ »α«úαá¼¼δ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ πßΓá¡áó½¿óáÑΓ ß«- «ΓóÑΓßΓóπεΘ¿Ñ »αÑñÑ½∞¡δÑ º¡áτÑ¡¿∩ ñ½∩ ßÑú¼Ñ¡Γ«ó ¬«ñá, ñá¡¡δσ ¿ ßΓÑ¬á. èα«¼Ñ Γ«ú«, í½«¬ »á¼∩Γ¿, αáß»αÑñÑ½∩Ñ¼δ⌐ ß »«¼«Θ∞ε Σπ¡¬µ¿¿ GlobalAlloc ¼«ñπ½∩ WinAPI, ¿¼ÑÑΓ »αÑñÑ½∞¡«Ñ º¡áτÑ¡¿Ñ ßÑú¼Ñ¡Γá, ß««ΓóÑΓßΓóπεΘÑÑ αáº¼Ñαπ í½«¬á »á¼∩Γ¿. B.Pascal 7 & Objects/LR - 279 - çá»¿ß∞ ó ßÑú¼Ñ¡Γ ¬«ñá ───────────────────────────────────────────────────────────────── é αÑá½∞¡«¼ αÑª¿¼Ñ ¼«ª¡« ºá»¿ßδóáΓ∞ »ÑαÑ¼Ñ¡¡δÑ ó ßÑú¼Ñ¡Γ ¬«- ñá, »«ß¬«½∞¬π αÑá½∞¡δÑ αÑª¿¼ ¡Ñ «»αÑñÑ½∩ÑΓ, τΓ« ¼«ªÑΓ ¿ τΓ« ¡Ñ ¼«ªÑΓ ßπΘÑßΓó«óáΓ∞ ó ßÑú¼Ñ¡ΓÑ. é ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ φΓ« ¡Ñ Γá¬. æÑ½Ñ¬Γ«α ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ¿¼ÑÑΓ Σ½áú τΓÑ¡¿∩/ºá»¿ß¿ ¿½¿ ñ«ßΓπ»á Γ«½∞¬« »« τΓÑ¡¿ε, á ßÑ½Ñ¬Γ«αδ ¬«ñá óßÑúñá «Γ¼ÑτÑ¡δ ¬á¬ ñ«ßΓπ»¡δÑ Γ«½∞¬« »« τΓÑ¡¿ε. àß½¿ óδ »δΓáÑΓÑß∞ ºá»¿ßδóáΓ∞ ó ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡- Γá ¬«ñá, »α«¿ßσ«ñ¿Γ ßí«⌐ GP. Äñ¡á¬« óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ »ßÑó- ñ«¡¿¼ ¿ ¡á»¿ßáΓ∞ ßá¼«¼«ñ¿Σ¿µ¿απεΘ¿⌐ß∩ ¬«ñ (ß¼. ¡¿ªÑ). Éáºδ¼Ñ¡«óá¡¿Ñ π¬áºáΓÑ½Ñ⌐ nil ───────────────────────────────────────────────────────────────── Åα¿ »αÑ«íαáº«óá¡¿¿ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ αÑá½∞¡«ú« αÑª¿¼á ó ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼, ó »α«úαá¼¼Ñ, ¬«Γ«αá∩ πªÑ ú«ñδ αáí«Γá½á íÑº «Φ¿- í«¬, ó«º¼«ª¡« ó¡Ñºá»¡«Ñ »«∩ó½Ñ¡¿Ñ «»αÑñÑ½Ñ¡¡δσ «Φ¿í«¬. ìá»α¿¼Ñα, óδ ¼«ªÑΓÑ ß½πτá⌐¡« αáºδ¼Ñ¡«óδóáΓ∞ π¬áºáΓÑ½∞ nil, ¿½¿ «í¡áαπª¿ΓÑ, τΓ« óáΦá »α«úαá¼¼á ß«ñÑαª¿Γ "»«ΓÑα∩¡¡δÑ" π¬áºáΓÑ½¿, ¬«Γ«αδÑ αáºδ- ¼Ñ¡«óδóáεΓß∩ »«ß½Ñ ¿σ «ßó«í«ªñÑ¡¿∩. é αÑá½∞¡«¼ αÑª¿¼Ñ Γá¬¿Ñ «Φ¿í- ¬¿ ¡Ñ «í∩ºáΓÑ½∞¡« »α«∩ó½∩εΓß∩, ¡« ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ «¡¿ «íδτ¡« »α¿ó«ñ∩Γ ¬ ßí«ε GP. æ«ú½áß¡« ßó«Ñ¼π ¡áºóá¡¿ε, ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ º¡áτ¿ΓÑ½∞¡« ½πτΦÑ »αÑñ«σαá¡∩ÑΓ óáß «Γ «Φ¿í«¬, ßó∩ºá¡¡δσ ß π¬áºá- ΓÑ½∩¼¿. æÑú¼Ñ¡Γδ ¬«ñá ¿ ñá¡¡δσ ───────────────────────────────────────────────────────────────── Ç¡á½«ú¿τ¡« »α«úαá¼¼Ñ Borland Pascal αÑá½∞¡«ú« αÑª¿¼á, »α«ú- αá¼¼á ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ß«ñÑαª¿Γ ¡Ñß¬«½∞¬« ßÑú¼Ñ¡Γ«ó ¬«ñá, ßÑú- ¼Ñ¡Γ ñá¡¡δσ ¿ ßÑú¼Ñ¡Γ ßΓÑ¬á. Åα¿ ºáúαπº¬Ñ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ áóΓ«¼áΓ¿τÑß¬¿ óδñÑ½∩ÑΓ ßÑ- ½Ñ¬Γ«αδ ñ½∩ ßÑú¼Ñ¡Γ«ó ¬«ñá, ñá¡¡δσ ¿ ßΓÑ¬á. ä½∩ ßÑú¼Ñ¡Γ«ó ¬«ñá ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $C ¼«ª¡« π»αáó½∩Γ∞ «ΓñÑ½∞¡δ¼¿ áΓ- α¿íπΓá¼¿. é τáßΓ¡«ßΓ¿, ßÑú¼Ñ¡Γδ ¬«ñá ¼«ª¡« ßñÑ½áΓ∞ »ÑαÑ¼ÑΘáÑ¼δ¼¿ ¿½¿ Σ¿¬ß¿α«óá¡¡δ¼¿ ó Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿, «¡¿ ¼«úπΓ ºáúαπªáΓ∞ß∩ »αÑñóáα¿ΓÑ½∞¡« ¿½¿ »« ºá»α«ßπ, á Γá¬ªÑ ¼«úπΓ íδΓ∞ óδúαπªáÑ¼δ¼¿ ¿½¿ »«ßΓ«∩¡¡δ¼¿. Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡ÑÑ « ñ¿αÑ¬Γ¿óÑ ¬«¼»¿½∩Γ«αá $C αáßß- ¬áºδóáÑΓß∩ ó â½áóÑ 21 ñá¡¡«ú« απ¬«ó«ñßΓóá ¿ ó â½áóÑ 2 ("ä¿- αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ß- Γá". ÇΓα¿íπΓδ ßÑú¼Ñ¡Γá ¬«ñá »«ºó«½∩εΓ óá¼ «í«º¡áτáΓ∞ ßÑú¼Ñ¡Γ ¬á¬ ßΓáΓ¿τÑß¬¿⌐ (»ÑαÑ¼ÑΘáÑ¼δ⌐, »αÑñóáα¿ΓÑ½∞¡« ºáúαπªáÑ¼δ⌐, »«ßΓ«∩¡- ¡δ⌐) ¿½¿ ñ¿¡á¼¿τÑß¬¿⌐ (»ÑαÑ¼ÑΘáÑ¼δ⌐, ºáúαπªáÑ¼δ⌐ »« ºá»α«ßπ, óδú- απªáÑ¼δ⌐). Æá¬¿¼ «íαáº«¼, ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ óá¼ ¡Ñ ¡πª¡« ¿ß- »«½∞º«óáΓ∞ ¼«ñπ½∞ Overlay ¿ ñ¿αÑ¬Γ¿óπ ¬«¼»¿½∩Γ«αá $O, ¿ ó óÑαß¿¿ ¼«ñπ½∩ System ñ½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á »ÑαÑ¼Ñ¡¡δÑ OvrXXXXXX «ΓßπΓß- ΓóπεΓ. B.Pascal 7 & Objects/LR - 280 - ô»αáó½Ñ¡¿Ñ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ∞ε ───────────────────────────────────────────────────────────────── Çñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ Borland Pascal ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ñ«ó«½∞¡« ßπΘÑßΓóÑ¡¡« «Γ½¿τáÑΓß∩ «Γ áñ¼¿¡¿ßΓαáΓ«αá ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ¿ Borland Pascal αÑá½∞¡«ú« αÑª¿¼á. é τáßΓ¡«ßΓ¿, »ÑαÑ¼Ñ¡¡δÑ HeapOrg, HeapEnd, HeapPtr ¿ FreeList ó óÑαß¿¿ ¼«ñπ½∩ System ñ½∩ ºáΘ¿ΘÑ¡¡«- ú« αÑª¿¼á ¡Ñ «»αÑñÑ½Ñ¡δ. Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ Borland Pascal ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á (¬«Γ«αδ⌐ ¿ñÑ¡Γ¿τÑ¡ áñ¼¿¡¿ßΓαáΓ«απ φΓá»á óδ»«½¡Ñ¡¿∩ ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ Borland Pascal ñ½∩ Windows) ñ½∩ óδ»«½¡Ñ¡¿∩ «ß¡«ó¡δσ «»Ñαáµ¿⌐ »« óδñÑ½Ñ¡¿ε ¿ «ßó«í«ªñÑ¡¿ε »á- ¼∩Γ¿ ¿ß»«½∞ºπÑΓ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩, á ñ½∩ «»Γ¿¼¿ºáµ¿¿ αáß»αÑñÑ½Ñ¡¿∩ ¡Ñí«½∞Φ¿σ í½«¬«ó »á¼∩Γ¿ ó¬½ετáÑΓ ó ßÑí∩ »«ñß¿ßΓÑ¼π óΓ«α¿τ¡«ú« αáß»αÑñÑ½Ñ¡¿∩ ßÑú¼Ñ¡Γá. Å«ñα«í¡ÑÑ «í áñ¼¿¡¿ßΓαáΓ«αÑ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ φΓá»á óδ»«½¡Ñ¡¿∩ αáßß- ¬áºδóáÑΓß∩ ó â½áóÑ 21. ÅαÑñ«»αÑñÑ½Ñ¡¡δÑ ßÑ½Ñ¬Γ«αδ ───────────────────────────────────────────────────────────────── é ¼«ñπ½Ñ System ñ½∩ «íδτ¡« ¿ß»«½∞ºπÑ¼δσ áñαÑß«ó αÑá½∞¡«ú« αÑª¿¼á »αÑñπß¼«ΓαÑ¡« ¡Ñß¬«½∞¬« »αÑñ«»αÑñÑ½Ñ¡¡δσ ßÑ½Ñ¬Γ«α«ó. Ä¡¿ ¿¼Ñ¡πεΓß∩ »« Σ¿º¿τÑß¬«¼π ßÑú¼Ñ¡Γπ, ¬«Γ«α«¼π ñá¡¡δÑ ßÑ½Ñ¬Γ«αδ »α¿ßó«Ñ¡δ, ¿ ¿ß»«½∞ºπεΓß∩ ñ½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ¼Ñªñπ αÑá½∞¡δ¼ ¿ ºá- Θ¿ΘÑ¡¡δ¼ αÑª¿¼«¼ DOS. ÅαÑñ«»αÑñÑ½Ñ¡¡δÑ ßÑ½Ñ¬Γ«αδ Æáí½¿µá 17.1 ┌──────────────────┬────────────────────────────────────────────┐ │ æÑ½Ñ¬Γ«α │ Ä»¿ßá¡¿Ñ │ ├──────────────────┼────────────────────────────────────────────┤ │ Seg0040 │ êß»«½∞ºπÑΓß∩ ñ½∩ ñ«ßΓπ»á ¬ «í½áßΓ¿ ñá¡¡δσ│ │ │ BIOS $40 ó ¼½áñΦ¿σ áñαÑßáσ. │ ├──────────────────┼────────────────────────────────────────────┤ │ SegA000 │ êß»«½∞ºπÑΓß∩ ñ½∩ ñ«ßΓπ»á ¬ úαáΣ¿τÑß¬«⌐ »á-│ │ │ ¼∩Γ¿ EGA ¿ VGA »« áñαÑßπ ßÑú¼Ñ¡Γá $A000. │ ├──────────────────┼────────────────────────────────────────────┤ │ SegB000 │ êß»«½∞ºπÑΓß∩ ñ½∩ ñ«ßΓπ»á ¬ ó¿ñÑ«»á¼∩Γ¿ ¼«-│ │ │ ¡«σα«¼¡«ú« áñá»ΓÑαá »« áñαÑßπ ßÑú¼Ñ¡Γá│ │ │ $A000. │ ├──────────────────┼────────────────────────────────────────────┤ │ SegB800 │ êß»«½∞ºπÑΓß∩ ñ½∩ ñ«ßΓπ»á ¬ ó¿ñÑ«»á¼∩Γ¿│ │ │ µóÑΓ¡«ú« úαáΣ¿τÑß¬«ú« áñá»ΓÑαá »« áñαÑßπ│ │ │ ßÑú¼Ñ¡Γá $A000. │ └──────────────────┴────────────────────────────────────────────┘ é αÑá½∞¡«¼ αÑª¿¼Ñ »ÑαÑ¼Ñ¡¡δÑ SegXXXX óßÑúñá ß«ñÑαªáΓ º¡áτÑ- ¡¿∩ $0040, $A000, $B000 ¿ $B800 ß««ΓóÑΓßΓóÑ¡¡«. é ºáΘ¿ΘÑ¡¡«¼ αÑ- ª¿¼Ñ ¬«ñ ºá»πß¬á í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ß«ºñáÑΓ τÑΓδαÑ ßÑ½Ñ¬Γ«αá, ßßδ½áεΘ¿σß∩ ¡á ¬«¡¬αÑΓ¡δÑ «í½áßΓ¿ »á¼∩Γ¿ αÑá½∞¡«ú« αÑ- ª¿¼á. Åα¿ ßßδ½¬Ñ ¡á φΓ¿ «í½áßΓ¿ »á¼∩Γ¿ óá¼ ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ »ÑαÑ¼Ñ¡¡δÑ SegXXXX. ìá»α¿¼Ñα, Ñß½¿ π óáß íδ½ ¬«ñ ß½ÑñπεΘÑú« ó¿ñá: B.Pascal 7 & Objects/LR - 281 - CtrMode := Mem[$40: $49]; Γ« ó¼ÑßΓ« ¡Ñú« ß½ÑñπÑΓ ºá»¿ßáΓ∞: CtrMode := Mem[Seg0040: $49]; êß»«½∞ºπ∩ »ÑαÑ¼Ñ¡¡δÑ SegXXXX, óδ ¼«ªÑΓÑ úáαá¡Γ¿α«óáΓ∞, τΓ« óáΦá »α«úαá¼¼á íÑº ¿º¼Ñ¡Ñ¡¿⌐ íπñÑΓ αáí«ΓáΓ∞ ó αÑá½∞¡«¼ ¿ ºáΘ¿ΘÑ¡- ¡«¼ αÑª¿¼áσ. ÅÑαÑ¼Ñ¡¡á∩ SelectorInc ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡á∩ SelectorInc ¼«ñπ½∩ System ß«ñÑαª¿Γ º¡áτÑ¡¿Ñ, ¬«- Γ«α«Ñ ñ«½ª¡« »α¿íáó½∩Γ∞ß∩ ¬ ßÑ½Ñ¬Γ«απ ¿½¿ óδτ¿ΓáΓ∞ß∩ ¿º ¡Ñú« ñ½∩ »«½πτÑ¡¿∩ ß½ÑñπεΘÑú« ¿½¿ »αÑñδñπΘÑú« ßÑ½Ñ¬Γ«αá ó Γáí½¿µÑ ñÑß¬α¿»- Γ«α«ó. SelectorInc »«½Ñº¡« ¿ß»«½∞º«óáΓ∞ »α¿ αáí«ΓÑ ß í«½∞Φ¿¼¿ í½«¬á¼¿ »á¼∩Γ¿ (»αÑóδΦáεΘ¿¼¿ 64è) ¿ »α¿ ñ«ßΓπ»Ñ ¬ »ßÑóñ«¡¿¼á¼ ßÑú¼Ñ¡Γ«ó. ä½∩ óδñÑ½Ñ¡¿∩ í½«¬«ó, »αÑóδΦáεΘ¿σ 64è (Γá¬¿Ñ í½«¬¿ ¡áºδóáεΓ Γá¬ªÑ í«½∞Φ¿¼¿ í½«¬á¼¿ »á¼∩Γ¿), ¼«ª¡« ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿¿ GlobalAlloc ¿ GlobalAllocPrt ó ¼«ñπ½Ñ WinAPI. ü«½∞Φ¿Ñ í½«¬¿ ¡Ñ»- αÑαδó¡δ ó Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿, ¡« ¿º-ºá 16-αáºα∩ñ¡«⌐ áασ¿ΓÑ¬Γπαδ »α«µÑßß«αá »α¿¬½áñ¡á∩ »α«úαá¼¼á ¡Ñ ¼«ªÑΓ »«½πτ¿Γ∞ ¬ ¡¿¼ ñ«ßΓπ» µÑ½¿¬«¼. ä½∩ í«½∞Φ«ú« í½«¬á »á¼∩Γ¿ áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ óδñÑ½∩ÑΓ ¡Ñß¬«½∞¬« ¡Ñ»αÑαδó¡δσ (ß½ÑñπεΘ¿σ »«ñα∩ñ) ßÑ½Ñ¬Γ«α«ó, ¬áªñδ⌐ ¿º ¬«Γ«αδσ (¬α«¼Ñ »«ß½Ññ¡Ñú«) ßßδ½áÑΓß∩ ¡á τáßΓ∞ í«½∞Φ«ú« í½«¬á »á- ¼∩Γ¿ αáº¼Ñα«¼ 64è. ìá»α¿¼Ñα, τΓ«íδ óδñÑ½¿Γ∞ í½«¬á »á¼∩Γ¿ αáº¼Ñα«¼ ó 220è, áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ ß«ºñáÑΓ τÑΓδαÑ ßÑ½Ñ¬Γ«αá, »α¿ φΓ«¼ »ÑαóδÑ Γα¿ ßÑ½Ñ¬Γ«αá ßßδ½áεΓß∩ ¡á í½«¬¿ »« 64è, á »«ß½Ññ¡¿⌐ ßÑ- ½Ñ¬Γ«α - ¡á í½«¬ αáº¼Ñα«¼ 28è. Åα¿íáó½∩∩ SelectorInc ¬ ßÑ½Ñ¬Γ«απ, »α¿¡áñ½ÑªáΘÑ¼π í«½∞Φ«¼π í½«¬π, óδ ¼«ªÑΓÑ »«½πτ¿Γ∞ ßÑ½Ñ¬Γ«α ñ½∩ ß½ÑñπεΘÑú« ßÑú¼Ñ¡Γá, á óδτ¿Γá∩ SelectorInc - ñ½∩ »αÑñδñπΘÑú«. Åα¿ αáß»αÑñÑ½Ñ¡¿¿ í«½∞Φ«ú« í½«¬á Σπ¡¬µ¿∩ GlobalAlloc óßÑúñá ó«ºóαáΘáÑΓ «»¿ßáΓÑ½∞ »Ñαó«ú« ßÑú¼Ñ¡Γá, á GlobalAllocPtr - π¬áºá- ΓÑ½∞ ¡á »Ñαóδ⌐ ßÑú¼Ñ¡Γ. Åα¿óÑñÑ¡¡á∩ ¡¿ªÑ Σπ¡¬µ¿∩ GetPtr ó«ß»α¿¡¿¼áÑΓ π¬áºáΓÑ½∞ í«½∞- Φ«ú« í½«¬á (ó«ºóαáΘáÑ¼δ⌐ Σπ¡¬µ¿Ñ⌐ GlobalAllocPtr) ¿ 32-αáºα∩ñ¡«Ñ ß¼ÑΘÑ¡¿Ñ ¿ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á ºáñá¡¡«Ñ ó¡πΓα¿ í½«¬á ß¼ÑΘÑ- ¡¿Ñ. function GetPtr(P: Pointer; Offset: Longint): Pointer; type Long = record Lo, Hi: Word; end; begin GetPtr := Ptr( B.Pascal 7 & Objects/LR - 282 - Long(P).Hi + Long(Offset).Hi * SelectorInc, Long(P).Lo + Long(Offset).Lo); end; çá¼ÑΓ¿¼, τΓ« ßΓáαΦÑÑ ß½«ó« »áαá¼ÑΓαá Offset ¿ß»«½∞ºπÑΓß∩ ñ½∩ «»αÑñÑ½Ñ¡¿∩ Γ«ú«, ß¬«½∞¬« αáº ¡πª¡« πóÑ½¿τ¿Γ∞ ßÑ½Ñ¬Γ«α¡πε τáßΓ∞ P ñ½∩ »«½πτÑ¡¿∩ ¬«ααÑ¬Γ¡«ú« ßÑú¼Ñ¡Γá. ìá»α¿¼Ñα, Ñß½¿ Offset αáó¡« $24000, Γ« ßÑ½Ñ¬Γ«α¡á∩ τáßΓ∞ P íπñÑΓ πóÑ½¿τÑ¡á ¡á 2 * SelectorInc, á ß¼ÑΘÑ¡¿Ñ P - ¡á $4000. æ½ÑñπεΘá∩ Σπ¡¬µ¿∩ LoadFile ºáúαπªáÑΓ ó í½«¬ »á¼∩Γ¿ óÑß∞ Σá⌐½ ¿ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á í½«¬. àß½¿ Σá⌐½ »αÑóδΦáÑΓ 64è, Γ« óδñÑ- ½∩ÑΓß∩ í«½∞Φ«⌐ í½«¬ »á¼∩Γ¿. function LoadFile(const FileName: string): Pointer; var Buffer: Pointer; Size, Offset, Count: Longint; F: file; begin Buffer := nil; Assign(F, FileName); Reset(F, 1); Size := FileSize(F); Buffer := GlobalAllocPtr(gmem_Moveable, Size); if Buffer <> nil then begin Offset := 0; while Offset < Size do begin Count := Size - Offset; if Count > $8000 then Count := $8000; BlockRead(F, GetPtr(Buffer, Offset)^, Count); Inc(Offset, Count); end; end; LoadFile := Buffer; end; ÅÑαÑ¼Ñ¡¡á∩ SelectorInc «»αÑñÑ½Ñ¡á Γá¬ªÑ ó óÑαß¿¿ ¼«ñπ½∩ System ñ½∩ αÑá½∞¡«ú« αÑª¿¼á. é αÑá½∞¡«¼ αÑª¿¼Ñ «¡á óßÑúñá ß«ñÑα- ª¿Γ º¡áτÑ¡¿Ñ $1000, ¬«Γ«α«Ñ »α¿ ß½«ªÑ¡¿¿ Ñú« ß ßÑú¼Ñ¡Γ¡«⌐ τáßΓ∞ε π¬áºáΓÑ½∩ αÑá½∞¡«ú« αÑª¿¼á πóÑ½¿τ¿óáÑΓ π¬áºáΓÑ½∞ ¡á 64è. äαπú¿¼ «íαáº«¼ óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ »ÑαÑ¼Ñ¡¡πε SelectorInß Γ«½∞¬« ó »α«úαá¼¼áσ DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á. êß»«½∞ºπ⌐ΓÑ »ÑαÑ¼Ñ¡- ¡πε SelectorInc ñ½∩ ñ«ßΓπ»á ¬ »ßÑóñ«¡¿¼á¼ ßÑú¼Ñ¡Γ«ó, óδñÑ½∩Ñ¼δσ áñ¼¿¡¿ßΓαáΓ«α«¼ φΓá»á óδ»«½¡Ñ¡¿∩ »α¿ ºáúαπº¬Ñ »α¿¬½áñ¡«⌐ »α«úαá¼- ¼δ. ä½∩ ¬áªñ«ú« ßÑú¼Ñ¡Γá ¬«ñá »α¿¬½áñ¡«⌐ »α«úαá¼¼δ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ ß«ºñáÑΓ ßÑ½Ñ¬Γ«α-»ßÑóñ«¡¿¼, ßßδ½áεΘ¿⌐ß∩ ¡á Γ«Γ ªÑ ßÑú¼Ñ¡Γ, ¡« ¿¼ÑεΘ¿⌐ »«½¡«¼«τ¿∩ ßÑ½Ñ¬Γ«αá ñá¡¡δσ. ä½∩ ßÑú¼Ñ¡Γ«ó ßΓÑ¬á ¿ ñá¡¡δσ ßÑ½Ñ¬Γ«αδ-»ßÑóñ«¡¿¼δ ¡Ñ ß«ºñáεΓß∩. B.Pascal 7 & Objects/LR - 283 - ùΓ«íδ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ßÑ½Ñ¬Γ«απ-»ßÑóñ«¡¿¼π ñ½∩ ¬«¡¬αÑΓ¡«ú« ßÑú¼Ñ¡Γá, ñ«íáó∞ΓÑ ¬ ßÑ½Ñ¬Γ«απ ßÑú¼Ñ¡Γá SelectorInc. ÅαÑñ»«½«ª¿¼, ¡á»α¿¼Ñα, τΓ« P - φΓ« »ÑαÑ¼Ñ¡¡á∩ Γ¿»á Pointer, á Foo - »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩. Æ«úñá »α¿ßóá¿óá¡¿Ñ ó¿ñá: P := Addr(Foo) »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« P íπñÑΓ π¬áºδóáΓ∞ ¡á óδ»«½¡∩Ñ¼πε ñ«ßΓπ»¡πε Γ«½∞¬« »« τΓÑ¡¿ε Γ«τ¬π óσ«ñá Foo, á »«ß½Ñ «»ÑαáΓ«αá: P := Ptr(Seg(Foo) + SelectorInc, Ofs(Foo)); P íπñÑΓ ßßδ½áΓ∞ß∩ ¡á Γ«Γ ªÑ áñαÑß, ¡« ß »«½¡«¼«τ¿∩¼¿ ¡á τΓÑ- ¡¿Ñ/ºá»¿ß∞. B.Pascal 7 & Objects/LR - 284 - î«ñπ½∞ WinAPI ───────────────────────────────────────────────────────────────── î«ñπ½∞ WinAPI ñáÑΓ óá¼ ¡Ñ»«ßαÑñßΓóÑ¡¡δ⌐ ñ«ßΓπ» ¬ αáßΦ¿αÑ¡¿∩¼ Borland ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS. ùΓ«íδ «í½Ñúτ¿Γ∞ ¡á»¿ßá¡¿Ñ »ÑαÑ¡«- ß¿¼δσ »α¿¬½áñ¡δσ »α«úαá¼¼ ¿ ß«ó¼ÑßΓ¿¼δσ ¡á πα«ó¡Ñ ñó«¿τ¡«ú« ¬«ñá DLL, αáºαáí«Γá¡ ¿¡ΓÑαΣÑ⌐ß WinAPI, ∩ó½∩εΘ¿⌐ß∩ »«ñ¼¡«ªÑßΓó«¼ ¿¡ΓÑα- ΣÑ⌐ßá API Windows. î«ñπ½∞ WinAPI »«ºó«½∩ÑΓ óá¼ ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿¿ π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε, π»αáó½Ñ¡¿∩ αÑßπαßá¼¿, ¼«ñπ½∩¼¿, ßÑ½Ñ¬Γ«αá¼¿ ¿ ¼¡«ú¿Ñ ñαπú¿Ñ Σπ¡¬µ¿¿ API. ì¿ªÑ »α¿óÑñÑ¡« ¿σ ¬αáΓ¬«Ñ «»¿ßá¡¿Ñ. Å«½¡«Ñ «»¿ßá¡¿Ñ ¬«¡ßΓá¡Γ, Γ¿»«ó, »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ¼«ñπ½∩ WinAPI óδ ¼«- ªÑΓÑ ¡á⌐Γ¿ ó "æ»αáó«τ¡«¼ απ¬«ó«ñßΓóÑ »α«úαá¼¼¿ßΓá". Åα¿ αáí«ΓÑ »«ñ Windows »«ñ»α«úαá¼¼δ API, »«ññÑαª¿óáÑ¼δÑ ß »«¼«Θ∞ε ¼«ñπ½∩ WinAPI, ¡áσ«ñ∩Γß∩ ó ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δσ í¿í½¿- «ΓÑ¬áσ KERNEL.DLL ¿ USER.DLL. é ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS φΓ¿ DLL ¡Ñ ΓαÑíπεΓß∩, Γá¬ ¬á¬ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ ºáΘ¿ΘÑ¡¡«ú« αÑ- ª¿¼á ß«ñÑαª¿Γ αÑá½¿ºáµ¿ε »«ñ»α«úαá¼¼ KERNEL ¿ USER, áóΓ«¼áΓ¿τÑß- ¬¿ »ÑαÑ¡á»αáó½∩∩ ¿σ óδº«óδ áñ¼¿¡¿ßΓαáΓ«απ. ô»αáó½Ñ¡¿Ñ »á¼∩Γ∞ε ───────────────────────────────────────────────────────────────── Åα¿ αáºαáí«Γ¬Ñ »α«úαá¼¼, αáí«ΓáεΘ¿σ ß ñ¿¡á¼¿τÑß¬«⌐ »á¼∩Γ∞ε, «íδτ¡« ¿ß»«½∞ºπεΓß∩ ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ New, Dispose, GetMem ¿ FreeMem. Äñ¡á¬« »«½πτ¿Γ∞ ñ«ßΓπ» ¬ áñ¼¿¡¿ßΓαáΓ«απ »á¼∩Γ¿ ºáΘ¿ΘÑ¡- ¡«ú« αÑª¿¼á Borland óδ ¼«ªÑΓÑ ß »«¼«Θ∞ε Σπ¡¬µ¿⌐ GlobalXXXX ó ¼«- ñπ½Ñ WinAPI. çá¼ÑΓ¿¼, τΓ« Σπ¡¬µ¿¿ GlobalXXXXPtr ¬«¼í¿¡¿απεΓ ó «ñ¡«⌐ »«ñ»- α«úαá¼¼Ñ «íΘ¿Ñ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ óδº«ó«ó Σπ¡¬µ¿⌐, Γá¬¿Ñ ¬á¬ GlobalAlloc, ºá ¬«Γ«αδ¼¿ ß½ÑñπεΓ óδº«óδ GlobalLock, GlobalUnlock ¿½¿ GlobalFree. B.Pascal 7 & Objects/LR - 285 - Å«ñ»α«úαá¼¼δ π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε API Æáí½¿µá 17.2 ┌─────────────────────┬─────────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├─────────────────────┼─────────────────────────────────────────┤ │ GetFreeSpace │ Ä»αÑñÑ½∩ÑΓ «íΩÑ¼ ßó«í«ñ¡«⌐ »á¼∩Γ¿ ó ñ¿-│ │ │ ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalAlloc │ éδñÑ½∩ÑΓ í½«¬ »á¼∩Γ¿ ó ñ¿¡á¼¿τÑß¬¿ αáß»-│ │ │ αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalAllocPtr │ éδñÑ½∩ÑΓ ¿ í½«¬¿απÑΓ í½«¬ »á¼∩Γ¿ (ß »«-│ │ │ ¼«Θ∞ε óδº«ó«ó GlobalAlloc ¿ GlobalLock).│ │ │ │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalCompact │ ÅÑαÑπ»«α∩ñ«τ¿óáÑΓ »á¼∩Γ∞, αáß»αÑñÑ½Ñ¡-│ │ │ ¡πε ó ñ¿¡á¼¿τÑß¬«⌐ «í½áßΓ¿, Γá¬ τΓ« «ß-│ │ │ ó«í«ªñáÑΓß∩ ºáñá¡¡δ⌐ «íΩÑ¼ »á¼∩Γ¿. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalDiscard │ éδúαπªáÑΓ ºáñá¡¡δ⌐ «íΩÑ¬Γ »á¼∩Γ¿. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalDosAlloc │ Éáß»αÑñÑ½∩ÑΓ »á¼∩Γ∞, ¬ ¬«Γ«α«⌐ ¼«ª¡« »«-│ │ │ ½πτ¿Γ∞ ñ«ßΓπ» ó αÑá½∞¡«¼ αÑª¿¼Ñ DOS. ¥Γá│ │ │ »á¼∩Γ∞ íπñÑΓ ßπΘÑßΓó«óáΓ∞ ó »Ñαó«¼ ¼Ñúá-│ │ │ íá⌐ΓÑ ½¿¡Ñ⌐¡«ú« áñαÑß¡«ú« »α«ßΓαá¡ßΓóá. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalDosFree │ Äßó«í«ªñáÑΓ »á¼∩Γ∞, óδñÑ½Ñ¡¡πε αá¡ÑÑ ß│ │ │ »«¼«Θ∞ε GlobalDosAlloc. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalFlags │ Å«½πτáÑΓ ¿¡Σ«α¼áµ¿ε « í½«¬Ñ »á¼∩Γ¿. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalFree │ Äßó«í«ªñáÑΓ αáºí½«¬¿α«óá¡¡δ⌐ í½«¬ »á¼∩Γ¿│ │ │ ¿ ñÑ½áÑΓ Ñú« «»¿ßáΓÑ½∞ ¡ÑñÑ⌐ßΓó¿ΓÑ½∞¡δ¼.│ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalFreePtr │ Éáºí½«¬¿απÑΓ ¿ «ßó«í«ªñáÑΓ í½«¬ »á¼∩Γ¿│ │ │ ß »«¼«Θ∞ε GlobalUnlock ¿ GlobalFree. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalHandle │ Å«½πτáÑΓ «»¿ßáΓÑ½∞ «íΩÑ¬Γá ó »á¼∩Γ¿ »«│ │ │ ºáñá¡¡«¼π áñαÑßπ ßÑú¼Ñ¡Γá. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalLock │ ôóÑ½¿τ¿óáÑΓ ßτÑΓτ¿¬ ßßδ½¬¿ í½«¬á »á¼∩Γ¿│ │ │ ¿ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á ¡Ñú«. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalLockPtr │ Æ« ªÑ, τΓ« ¿ GlobalLock, ¡« ó¼ÑßΓ« «»¿-│ │ │ ßáΓÑ½∩ ó«ß»α¿¡¿¼áÑΓ π¬áºáΓÑ½∞. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalLRUNewest │ ÅÑαÑ¼ÑΘáÑΓ «íΩÑ¬Γ ó »á¼∩Γ¿ ¡á ¡«óπε ¡Ñ-│ │ │ ñáó¡« ¿ß»«½∞ºπÑ¼πε »«º¿µ¿ε, ¼¿¡¿¼¿º¿απ∩,│ │ │ Γá¬¿¼ «íαáº«¼, óÑα«∩Γ¡«ßΓ∞ óδúαπº¬¿│ │ │ «íΩÑ¬Γá. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalLRUOldest │ ÅÑαÑ¼ÑΘáÑΓ «íΩÑ¬Γ ó »á¼∩Γ¿ ¡á ßá¼πε│ │ │ "ßΓáαπε" ¡Ññáó¡« ¿ß»«½∞ºπÑ¼πε »«º¿µ¿ε,│ B.Pascal 7 & Objects/LR - 286 - │ │ ¼á¬ß¿¼¿º¿απε óÑα«∩Γ¡«ßΓ∞ óδúαπº¬¿ «íΩ-│ │ │ Ñ¬Γá. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalNorify │ éδºδóáÑΓ áñαÑß φ¬ºÑ¼»½∩αá »α«µÑñπαδ πóÑ-│ │ │ ñ«¼½Ñ¡¿∩, »ÑαÑñáóá∩ «»¿ßáΓÑ½∞ í½«¬á, ¬«-│ │ │ Γ«αδ⌐ ¡πª¡« óδúαπº¿Γ∞. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalPageLock │ ôóÑ½¿τ¿óáÑΓ º¡áτÑ¡¿Ñ ßτÑΓτ¿¬á í½«¬¿α«ó-│ │ │ ¬¿ ñ½∩ »á¼∩Γ¿, ßó∩ºá¡¡«⌐ ß ñá¡¡δ¼ ßÑ½Ñ¬-│ │ │ Γ«α«¼. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalPageUnlock │ ô¼Ñ¡∞ΦáÑΓ º¡áτÑ¡¿Ñ ßτÑΓτ¿¬á í½«¬¿α«ó¬¿│ │ │ ñ½∩ »á¼∩Γ¿, ßó∩ºá¡¡«⌐ ß ñá¡¡δ¼ ßÑ½Ñ¬Γ«-│ │ │ α«¼. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalPtrHandle │ Å« ºáñá¡¡«¼π π¬áºáΓÑ½ε ¡á í½«¬ »á¼∩Γ¿│ │ │ ó«ºóαáΘáÑΓ «»¿ßáΓÑ½∞ φΓ«ú« í½«¬á. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalReAlloc │ ÅÑαÑαáß»αÑñÑ½∩ÑΓ í½«¬ »á¼∩Γ¿. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalReAllocPtr │ Éáºí½«¬¿απÑΓ, »ÑαÑαáß»αÑñÑ½∩ÑΓ ¿ í½«¬¿-│ │ │ απÑΓ í½«¬ »á¼∩Γ¿ (¿ß»«½∞ºπ∩ Σπ¡¬µ¿¿│ │ │ GlobalUnlock, GlobalReAlloc ¿│ │ │ GlobalLock). │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalSize │ Ä»αÑñÑ½∩ÑΓ ΓÑ¬πΘ¿⌐ αáº¼Ñα í½«¬á »á¼∩Γ¿. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalUnfix │ Éáºí½«¬¿απÑΓ í½«¬ »á¼∩Γ¿, í½«¬¿α«óá¡¡δ⌐│ │ │ αá¡ÑÑ ß »«¼«Θ∞ε GlobalLock. │ ├─────────────────────┼─────────────────────────────────────────┤ │ GlobalUnockPtr │ Æ« ªÑ, τΓ« ¿ GlobalUnlock, ¡« ó¼ÑßΓ«│ │ │ «»¿ßáΓÑ½∩ ó«ß»α¿¡¿¼áÑΓ π¬áºáΓÑ½∞. │ ├─────────────────────┼─────────────────────────────────────────┤ │ LockSegment │ ü½«¬¿απÑΓ ºáñá¡¡δ⌐ óδúαπªáÑ¼δ⌐ ßÑú¼Ñ¡Γ. │ ├─────────────────────┼─────────────────────────────────────────┤ │ UnlockSegment │ Éáºí½«¬¿απÑΓ ßÑú¼Ñ¡Γ. │ └─────────────────────┴─────────────────────────────────────────┘ öπ¡¬µ¿∩ GlobalAlloc ¿ß»«½∞ºπÑΓß∩ ñ½∩ αáß»αÑñÑ½Ñ¡¿∩ í½«¬«ó »á¼∩Γ¿. ä½∩ ¿σ «ßó«í«ªñÑ¡¿∩ »α¿¼Ñ¡∩ÑΓß∩ Σπ¡¬µ¿∩ GlobalFree. Çñ¼¿- ¡¿ßΓαáΓ«α »á¼∩Γ¿ »«ññÑαª¿óáÑΓ Γα¿ Γ¿»á í½«¬«ó »á¼∩Γ¿: Σ¿¬ß¿α«óá¡- ¡δ⌐, »ÑαÑ¼ÑΘáÑ¼δ⌐ ¿ óδúαπªáÑ¼δ⌐. ö¿¬ß¿α«óá¡¡δ⌐ í½«¬ «ßΓáÑΓß∩ ó «ñ¡¿σ ¿ ΓÑσ ªÑ áñαÑßáσ Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿. ÅÑαÑ¼ÑΘáÑ¼δ⌐ í½«¬ ¼«ªÑΓ »ÑαÑ¼ÑΘáΓ∞ß∩ ó Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿ ¿ «ßó«í«ªñáΓ∞ ¼ÑßΓ« ñ½∩ ñαπú¿σ ºá»α«ß«ó ¡á óδñÑ½Ñ¡¿Ñ »á¼∩Γ¿, á óδúαπªáÑ¼δÑ í½«¬¿ ¼«úπΓ óδúαπ- ªáΓ∞ß∩ ¿º »á¼∩Γ¿, «ßó«í«ªñá∩ ¼ÑßΓ« ñ½∩ ñαπú¿σ í½«¬«ó. æ »«¼«Θ∞ε »ÑαÑñáóáÑ¼δσ GlobalAlloc Σ½áú«ó óδ ¼«ªÑΓÑ óδíαáΓ∞ «ñ¿¡ ¿º φΓ¿σ ΓαÑσ Γ¿»«ó: * gmem_Fixed (Σ¿¬ß¿α«óá¡¡δ⌐) * gmem_Moveable (»ÑαÑ¼ÑΘáÑ¼δ⌐) * gmem_Moveable + gmem_Discardable (óδúαπªáÑ¼δ⌐) B.Pascal 7 & Objects/LR - 287 - Åα¿¬½áñ¡á∩ »α«úαá¼¼á «íδτ¡« óδñÑ½∩ÑΓ Γ«½∞¬« »ÑαÑ¼ÑΘáÑ¼δÑ í½«¬¿ »á¼∩Γ¿, ¬«Γ«αδÑ »αÑñßΓáó½∩εΓß∩ Γ¿»«¼ THandle ó ¼«ñπ½Ñ WinAPI. Ä»¿ßáΓÑ½∞ »á¼∩Γ¿ - φΓ« º¡áτÑ¡¿Ñ αáº¼Ñα«¼ ó ß½«ó«, ¬«Γ«α«Ñ ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ í½«¬ »á¼∩Γ¿ á¡á½«ú¿τ¡« Γ«¼π, ¬á¬ «»¿ßáΓÑ½∞ Σá⌐½á - φΓ« º¡áτÑ¡¿Ñ αáº¼Ñα«¼ ó ß½«ó«, ¿ñÑ¡Γ¿Σ¿µ¿απεΘÑÑ «Γ¬αδΓδ⌐ Σá⌐½. ÅÑαÑñ ΓÑ¼ ¬á¬ óδ ß¼«ªÑΓÑ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ »á¼∩Γ¿, Ñú« ¡πª¡« ºáí½«¬¿α«óáΓ∞ ß »«¼«Θ∞ε Σπ¡¬µ¿¿ GlobalAlloc, á ¬«úñá óδ ºá¬«¡τ¿ΓÑ ¬ ¡Ñ¼π «íαáΘáΓ∞ß∩, Ñú« ¡πª¡« αáºí½«¬¿α«óáΓ∞ ß »«¼«Θ∞ε Σπ¡¬µ¿¿ GlobalUnlock. GlobalLock ó«ºóαáΘáÑΓ »«½¡δ⌐ 32-αáºα∩ñ¡δ⌐ π¬áºáΓÑ½∞ ¡á »Ñαóδ⌐ íá⌐Γ í½«¬á. æ¼ÑΘÑ¡¿Ñ π¬áºáΓÑ½∩ óßÑúñá αáó¡« 0. é ºáΘ¿- ΘÑ¡¡«¼ αÑª¿¼Ñ DOS ßÑ½Ñ¬Γ«α π¬áºáΓÑ½∩ - φΓ« Γ«ªÑ ßá¼«Ñ, τΓ« «»¿ßá- ΓÑ½∞ í½«¬á, ¡« ó Windows φΓ« ¡Ñ óßÑúñá Γá¬. Åαáó¿½∞¡á∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ óδº«ó«ó ñ½∩ óδñÑ½Ñ¡¿∩, í½«¬¿- α«ó¬¿, αáºí½«¬¿α«ó¬¿ ¿½¿ «ßó«í«ªñÑ¡¿∩ í½«¬á »«¬áºá¡á ó »α¿óÑñÑ¡- ¡«¼ ¡¿ªÑ »α¿¼ÑαÑ. é ñá¡¡«¼ »α¿¼ÑαÑ H - φΓ« »ÑαÑ¼Ñ¡¡á∩ Γ¿»á THandle, á P - π¬áºáΓÑ½∞: H := GlobalAlloc(gmem_Moveable, 8192); { óδñÑ½Ñ¡¿Ñ í½«¬á } if H <> then { Ñß½¿ »á¼∩Γ∞ óδñÑ½Ñ¡á } begin P := GlobalLock(H); { í½«¬¿α«ó¬á í½«¬á } . . { ñ«ßΓπ» ¬ í½«¬π τÑαÑº P } . GlobalUnlock(H); { αáºí½«¬¿α«óáΓ∞ í½«¬ } GlobalFree(H); { «ßó«í«ñ¿Γ∞ í½«¬ } end; ü½«¬¿α«ó¬á ¿ αáºí½«¬¿α«ó¬á í½«¬á »α¿ ¬áªñ«¼ «íαáΘÑ¡¿¿ ¬ ¡Ñ¼π ñ«ßΓáΓ«τ¡« πΓ«¼¿ΓÑ½∞¡á ¿ óÑñÑΓ ¬ «Φ¿í¬á¼, ¿ αÑá½∞¡« «¡á ¡Ñ«íσ«ñ¿- ¼á Γ«½∞¬« ñ½∩ óδúαπªáÑ¼δσ í½«¬«ó ¿ ó »α¿¬½áñ¡δσ »α«úαá¼¼áσ Windows, αáí«ΓáεΘ¿σ ó αÑá½∞¡«¼ αÑª¿¼Ñ. é« óßÑσ ñαπú¿σ ß¿Γπáµ¿∩σ ½πτΦ¿¼ αÑΦÑ¡¿Ñ¼ ∩ó½∩ÑΓß∩ í½«¬¿α«ó¬á í½«¬á ßαáºπ »«ß½Ñ Ñú« óδñÑ½Ñ- ¡¿∩ ¿ ß«σαá¡Ñ¡¿Ñ φΓ«ú« ß«ßΓ«∩¡¿∩ ñ« «ßó«í«ªñÑ¡¿∩ í½«¬á. æ φΓ«⌐ µÑ½∞ε ¼«ñπ½∞ WinAPI ó¬½ετáÑΓ ó ßÑí∩ ßÑ¼Ñ⌐ßΓó« »«ñ»α«úαá¼¼-"«í«½«- τÑ¬" GlobalXXXXPtr. Äß«íδ⌐ ¿¡ΓÑαÑß »αÑñßΓáó½∩ÑΓ Σπ¡¬µ¿∩ GlobalAllocPtr, ¬«Γ«αá∩ óδñÑ½∩ÑΓ ¿ í½«¬¿απÑΓ í½«¬ »á¼∩Γ¿, ¿ Σπ¡¬- µ¿∩ GlobalFreePtr, αáºí½«¬¿απεΘá∩ ¿ «ßó«í«ªñáεΘá∩ í½«¬ »á¼∩Γ¿. æ »«¼«Θ∞ε φΓ¿σ »«ñ»α«úαá¼¼ »α¿óÑñÑ¡¡δ⌐ óδΦÑ »α¿¼Ñα ¼«ª¡« π»α«ßΓ¿Γ∞: H := GlobalAlloc(gmem_Moveable, 8192); { óδñÑ½Ñ¡¿Ñ í½«¬á } if H <> then { Ñß½¿ »á¼∩Γ∞ óδñÑ½Ñ¡á } begin . . { ñ«ßΓπ» ¬ í½«¬π } . GlobalFreePtr(P); { «ßó«í«ñ¿Γ∞ í½«¬ } end; éδºóáó Σπ¡¬µ¿ε GlobalReAlloc, óδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ αáº¼Ñα ¿½¿ áΓα¿íπΓδ í½«¬á »á¼∩Γ¿, ß«σαá¡¿ó Ñú« ß«ñÑαª¿¼«Ñ. öπ¡¬µ¿∩ B.Pascal 7 & Objects/LR - 288 - GlobalReAlloc ó«ºóαáΘáÑΓ ¡«óδ⌐ «»¿ßáΓÑ½∞ í½«¬á, ¬«Γ«αδ⌐ ¼«ªÑΓ «Γ- ½¿τáΓ∞ß∩ «Γ »ÑαÑñáóáÑ¼«ú« Σπ¡¬µ¿¿ «»¿ßáΓÑ½∩, Ñß½¿ ßΓáαδ⌐ αáº¼Ñα ¿½¿ ¡«óδ⌐ αáº¼Ñα í½«¬ »αÑóδΦáÑΓ 64è. çá¼ÑΓ¿¼, τΓ« ó ΓÑσ ß½πτá∩σ, ¬«úñá ßΓáαδ⌐ αáº¼Ñα í½«¬á ¿ ¡«óδ⌐ Ñú« αáº¼Ñα ¼Ñ¡∞ΦÑ 64è, GlobalReAlloc óßÑúñá ¼«ªÑΓ ¿º¼Ñ¡¿Γ∞ αáº¼Ñα í½«¬á, ¡Ñ ¿º¼Ñ¡∩∩ Ñú« «»¿ßáΓÑ½∩. öπ¡¬µ¿∩ GlobalReAlloc ¼«ª¡« Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ ¿º¼Ñ¡Ñ- ¡¿∩ áΓα¿íπΓ«ó í½«¬á. ¥Γ« ¼«ª¡« ßñÑ½áΓ∞, ºáñáó ¡áα∩ñπ ß gmem_Moveable ¿½¿ gmem_Discardable Σ½áú gmem_Modify. öπ¡¬µ¿∩ GlobalReAlloc óδ»«½¡∩ÑΓ ΓÑ ªÑ ñÑ⌐ßΓó¿∩, τΓ« ¿ GlobalReAlloc, ¡« «íÑ «¡¿ ó¼ÑßΓ« «»¿ßáΓÑ½Ñ⌐ ¿ß»«½∞ºπÑΓ π¬áºáΓÑ½¿. ê¼ÑÑΓß∩ Γá¬ªÑ α∩ñ ñαπú¿σ, ¼Ñ¡ÑÑ τáßΓ« ¿ß»«½∞ºπÑ¼δσ GlobalXXXX. éßÑ «¡¿ »«ñα«í¡« «»¿ßá¡δ ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá". B.Pascal 7 & Objects/LR - 289 - ô»αáó½Ñ¡¿Ñ ¼«ñπ½Ñ¼ ───────────────────────────────────────────────────────────────── Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ »«ññÑαª¿óáÑΓ ß½ÑñπεΘ¿Ñ »«ñ»- α«úαá¼¼δ «íß½πª¿óá¡¿∩ ¼«ñπ½Ñ⌐: Å«ñ»α«úαá¼¼δ API «íß½πª¿óá¡¿∩ ¼«ñπ½Ñ⌐ Æáí½¿µá 17.3 ┌───────────────────────────┬───────────────────────────────────┐ │ Å«ñ»α«úαá¼¼á │ Ä»¿ßá¡¿Ñ │ ├───────────────────────────┼───────────────────────────────────┤ │ FreeLibrary │ äÑ½áÑΓ ¡ÑñÑ⌐ßΓó¿ΓÑ½∞¡δ¼ ºáúαπªÑ¡-│ │ │ ¡δ⌐ ¼«ñπ½∞ í¿í½¿«ΓÑ¬¿, ¿ «ßó«í«ª-│ │ │ ñáÑΓ ß««ΓóÑΓßΓóπεΘπε »á¼∩Γ∞, Ñß½¿│ │ │ ßßδ½«¬ ¡á ¼«ñπ½∞ í«½∞ΦÑ ¡ÑΓ. │ ├───────────────────────────┼───────────────────────────────────┤ │ GetModuleFileName │ äáÑΓ »«½¡δ⌐ ¼áαΦαπΓ ¿ ¿¼∩ óδ»«½¡∩-│ │ │ Ñ¼«ú« Σá⌐½á, ºáñáεΘ¿⌐, «Γ¬πñá ºáú-│ │ │ απªÑ¡ ¼«ñπ½∞. │ ├───────────────────────────┼───────────────────────────────────┤ │ GetModuleHandle │ Ä»αÑñÑ½∩ÑΓ «»¿ßáΓÑ½∞ ºáñá¡¡«ú« ¼«-│ │ │ ñπ½∩. │ ├───────────────────────────┼───────────────────────────────────┤ │ GetModuleUsage │ Ä»αÑñÑ½∩ÑΓ ßτÑΓτ¿¬ ßßδ½«¬ ¡á ¼«-│ │ │ ñπ½∞. │ ├───────────────────────────┼───────────────────────────────────┤ │ GetProcAddress │ Ä»αÑñÑ½∩ÑΓ áñαÑß φ¬ß»«αΓ¿απÑ¼«⌐│ │ │ í¿í½¿«ΓÑτ¡«⌐ Σπ¡¬µ¿¿. │ ├───────────────────────────┼───────────────────────────────────┤ │ LoadLibrary │ çáúαπªáÑΓ π¬áºá¡¡δ⌐ í¿í½¿«ΓÑτ¡δ⌐│ │ │ ¼«ñπ½∞. │ └───────────────────────────┴───────────────────────────────────┘ ìÑ¬«Γ«αδÑ ¿º φΓ¿σ »«ñ»α«úαá¼¼ ó«ß»α¿¡¿¼áεΓ ó ¬áτÑßΓóÑ »áαá- ¼ÑΓαá «»¿ßáΓÑ½∞ ¼«ñπ½∩. Ä»¿ßáΓÑ½∞ ¼«ñπ½∩ ßá¼«⌐ »α¿¬½áñ¡«⌐ »α«ú- αá¼¼δ σαá¡¿Γß∩ ó »ÑαÑ¼Ñ¡¡«⌐ HInstance, «»¿ßá¡¡«⌐ ó ¼«ñπ½Ñ System. B.Pascal 7 & Objects/LR - 290 - ô»αáó½Ñ¡¿Ñ αÑßπαßá¼¿ ───────────────────────────────────────────────────────────────── Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ »«ññÑαª¿óáÑΓ ß½ÑñπεΘ¿Ñ »«ñ»- α«úαá¼¼δ π»αáó½Ñ¡¿∩ αÑßπαßá¼¿: öπ¡¬µ¿¿ API π»αáó½Ñ¡¿∩ αÑßπαßá¼¿ Æáí½¿µá 17.4 ┌──────────────────────┬────────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────────┼────────────────────────────────────────┤ │ AccessResource │ ÄΓ¬αδóáÑΓ ºáñá¡¡δ⌐ óδ»«½¡∩Ñ¼δ⌐ Σá⌐½ ¿│ │ │ »ÑαÑ¼ÑΘáÑΓ π¬áºáΓÑ½∞ Σá⌐½á ¡á ¡áτá½«│ │ │ ºáñá¡¡«ú« αÑßπαßá. │ ├──────────────────────┼────────────────────────────────────────┤ │ FindResource │ Ä»αÑñÑ½∩ÑΓ áñαÑß αÑßπαßá ó ºáñá¡¡«¼│ │ │ Σá⌐½Ñ αÑßπαßá. │ ├──────────────────────┼────────────────────────────────────────┤ │ FreeResource │ ô¼Ñ¡∞ΦáÑΓ ßτÑΓτ¿¬ ßßδ½«¬ ñ½∩ ºáúαπªÑ¡-│ │ │ ¡«ú« αÑßπαßá. è«úñá º¡áτÑ¡¿Ñ φΓ«ú«│ │ │ ßτÑΓτ¿¬á ßΓá¡«ó¿Γß∩ αáó¡δ¼ ¡π½ε, Γ« ¿ß-│ │ │ »«½∞ºπÑ¼á∩ αÑßπαß«¼ »á¼∩Γ∞ «ßó«í«ªñáÑΓ-│ │ │ ß∩. │ ├──────────────────────┼────────────────────────────────────────┤ │ LoadResource │ çáúαπªáÑΓ ºáñá¡¡δ⌐ αÑßπαß ó »á¼∩Γ∞. │ ├──────────────────────┼────────────────────────────────────────┤ │ LoadString │ çáúαπªáÑΓ ºáñá¡¡πε ßΓα«¬π αÑßπαßá. │ ├──────────────────────┼────────────────────────────────────────┤ │ LockResource │ ü½«¬¿απÑΓ ºáñá¡¡δ⌐ αÑßπαß ó »á¼∩Γ¿ ¿│ │ │ πóÑ½¿τ¿óáÑΓ Ñú« ßτÑΓτ¿¬ ßßδ½«¬. │ ├──────────────────────┼────────────────────────────────────────┤ │ SizeOfResource │ é«ºóαáΘáÑΓ αáº¼Ñα (ó íá⌐Γáσ) ºáñá¡¡«ú«│ │ │ αÑßπαßá. │ ├──────────────────────┼────────────────────────────────────────┤ │ UnlockResource │ Éáºí½«¬¿απÑΓ ºáñá¡¡δ⌐ αÑßπαß ¿ π¼Ñ¡∞Φá-│ │ │ ÑΓ ¡á 1 ßτÑΓτ¿¬ ßßδ½«¬ ¡á αÑßπαß. │ └──────────────────────┴────────────────────────────────────────┘ ÉÑßπαßδ ¼«úπΓ ¬«¼»«¡«óáΓ∞ß∩ ß »α¿¬½áñ¡«⌐ »α«úαá¼¼«⌐ ß »«- ¼«Θ∞ε ñ¿αÑ¬Γ¿ó ¬«¼»¿½∩Γ«αá {$R ¿¼∩_Σá⌐½á}. ô¬áºá¡¡δÑ Σá⌐½δ ñ«½ª¡δ íδΓ∞ Σá⌐½á¼¿ αÑßπαß«ó Windows (.RES). Äíδτ¡« ß »α¿¬½áñ¡δ¼¿ »α«ú- αá¼¼á¼¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¬«¼»«¡πεΓß∩ Γ«½∞¬« ßΓα«¬«óδÑ αÑ- ßπαßδ ¿ αÑßπαßδ, «»αÑñÑ½Ñ¡¡δÑ »«½∞º«óáΓÑ½Ñ¼. äαπú¿Ñ Γ¿»δ αÑßπαß«ó Windows ¬ »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ DOS «íδτ¡« ¡Ñ»α¿¼Ñ¡¿¼δ. Åα¿¼Ñτá¡¿Ñ: ÉÑßπαßδ Turbo Vision ¡Ñ ß½ÑñπεΓ ΓÑ¼ ªÑ ß«ú½áΦÑ¡¿∩¼, τΓ« αÑßπαßδ Windows, ¿ ¬ ¡¿¼ ¡Ñ½∞º∩ «íαáΘáΓ∞ß∩ ß »«¼«Θ∞ε »«ñ»α«úαá¼¼ API. ìÑ¬«Γ«αδÑ »«ñ»α«úαá¼¼δ API π»αáó½Ñ¡¿∩ αÑßπαßá¼¿ ΓαÑíπεΓ π¬á- ºá¡¿∩ «»¿ßáΓÑ½∩ φ¬ºÑ¼»½∩αá, ¬«Γ«αδ¼ «íδτ¡« ∩ó½∩ÑΓß∩ π¬áºáΓÑ½∞ φ¬- ºÑ¼»½∩αá »α¿¬½áñ¡«⌐ »α«úαá¼¼δ (¬«Γ«αδ⌐ ß«ñÑαª¿Γß∩ ó »ÑαÑ¼Ñ¡¡«⌐ HInstance ¼«ñπ½∩ System). B.Pascal 7 & Objects/LR - 291 - ô»αáó½Ñ¡¿Ñ ßÑ½Ñ¬Γ«α«¼ ───────────────────────────────────────────────────────────────── Åα¿¬½áñ¡«⌐ »α«úαá¼¼Ñ «íδτ¡« ¡Ñ ΓαÑíπÑΓß∩ ¼á¡¿»π½¿α«óáΓ∞ ßÑ- ½Ñ¬Γ«αá¼¿, ¡« ó «ΓñÑ½∞¡δσ ß¿Γπáµ¿∩σ »«½Ñº¡« ¿ß»«½∞º«óáΓ∞ ß½Ññπε- Θ¿Ñ »«ñ»α«úαá¼¼δ «íß½πª¿óá¡¿∩ ßÑ½Ñ¬Γ«αá: Å«ñ»α«úαá¼¼δ API π»αáó½Ñ¡¿∩ ßÑ½Ñ¬Γ«α«¼ Æáí½¿µá 17.5 ┌───────────────────────┬───────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├───────────────────────┼───────────────────────────────────────┤ │ AllocDStoCSAlias │ ÄΓ«íαáªáÑΓ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá ñá¡¡δσ ¡á│ │ │ ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá ¬«ñá. │ ├───────────────────────┼───────────────────────────────────────┤ │ AllocSelector │ éδñÑ½∩ÑΓ ¡«óδ⌐ ßÑ½Ñ¬Γ«α. │ ├───────────────────────┼───────────────────────────────────────┤ │ ChangeSelector │ âÑ¡Ñα¿απÑΓ ßÑ½Ñ¬Γ«α ¬«ñá, ß««ΓóÑΓßΓóπ-│ │ │ Θ¿⌐ ºáñá¡¡«¼π ßÑ½Ñ¬Γ«απ ñá¡¡δσ, ¿½¿│ │ │ úÑ¡Ñα¿απÑΓ ºáñá¡¡δ⌐ ßÑ½Ñ¬Γ«α, ß««Γ-│ │ │ óÑΓßΓóπεΘ¿⌐ ßÑ½Ñ¬Γ«απ ¬«ñá. │ ├───────────────────────┼───────────────────────────────────────┤ │ FreeSelector │ Äßó«í«ªñáÑΓ ßÑ½Ñ¬Γ«α, »Ñαó«¡áτá½∞¡«│ │ │ óδñÑ½Ñ¡¡δ⌐ Σπ¡¬µ¿∩¼¿ AllocDStoCSAlias│ │ │ ¿½¿ AllocSelector. │ ├───────────────────────┼───────────────────────────────────────┤ │ GetSelectorBase │ äáÑΓ íáº«óδ⌐ áñαÑß ßÑ½Ñ¬Γ«αá. │ ├───────────────────────┼───────────────────────────────────────┤ │ GetSelectorLimit │ é«ºóαáΘáÑΓ »αÑñÑ½∞¡«Ñ º¡áτÑ¡¿Ñ ñ½∩ ºá-│ │ │ ñá¡¡«ú« ßÑ½Ñ¬Γ«αá. │ ├───────────────────────┼───────────────────────────────────────┤ │ PrestoChangoSelector│ âÑ¡Ñα¿απÑΓ ßÑ½Ñ¬Γ«α ¬«ñá, ß««ΓóÑΓßΓóπ-│ │ │ εΘ¿⌐ ºáñá¡¡«¼π ßÑ½Ñ¬Γ«απ ñá¡¡δσ, ½¿í«│ │ │ úÑ¡Ñα¿απÑΓ ßÑ½Ñ¬Γ«α ñá¡¡δσ, ß««ΓóÑΓß-│ │ │ ΓóπεΘ¿⌐ ßÑ½Ñ¬Γ«απ ¬«ñá. │ ├───────────────────────┼───────────────────────────────────────┤ │ SetSelectorBase │ ôßΓá¡áó½¿óáÑΓ íáº«óδ⌐ áñαÑß ßÑ½Ñ¬Γ«αá.│ ├───────────────────────┼───────────────────────────────────────┤ │ SetSelectorLomit │ ôßΓá¡áó½¿óáÑΓ »αÑñÑ½∞¡«Ñ º¡áτÑ¡¿Ñ ßÑ-│ │ │ ½Ñ¬Γ«αá. │ └───────────────────────┴───────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 292 - äαπú¿Ñ »«ñ»α«úαá¼¼δ API ───────────────────────────────────────────────────────────────── Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ »«ññÑαª¿óáÑΓ ß½ÑñπεΘ¿Ñ ñ«»«½- ¡¿ΓÑ½∞¡δÑ »«ñ»α«úαá¼¼δ API: Åα«τ¿Ñ »«ñ»α«úαá¼¼δ API Æáí½¿µá 17.6 ┌───────────────────┬───────────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├───────────────────┼───────────────────────────────────────────┤ │ DOS3Call │ éδºδóáÑΓ Σπ¡¬µ¿ε »αÑαδóá¡¿∩ DOS 21h; óδºδ-│ │ │ óáÑΓß∩ Γ«½∞¬« ¿º »«ñ»α«úαá¼¼ áßßÑ¼í½Ñαá. │ ├───────────────────┼───────────────────────────────────────────┤ │ FatalExit │ ÅÑαÑñáÑΓ «Γ½áñτ¿¬π ΓÑ¬πΘÑÑ ß«ßΓ«∩¡¿Ñ «»Ñ-│ │ │ αáµ¿«¡¡«⌐ ßαÑñδ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ¿ óδ-│ │ │ óδó«ñ¿Γ »«ñß¬áº¬π ñ½∩ óó«ñá ¿¡ßΓαπ¬µ¿⌐ «│ │ │ »α«ñ«½ªÑ¡¿¿ αáí«Γδ. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetDOSEnviroment│ Ä»αÑñÑ½∩ÑΓ ΓÑ¬πΘπε ßΓα«¬π «»Ñαáµ¿«¡¡«⌐│ │ │ ßαÑñδ ºáñáτ¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetVersion │ äáÑΓ ΓÑ¬πΘπε óÑαß¿ε «»Ñαáµ¿«¡¡«⌐ ßαÑñδ│ │ │ Windows ¿½¿ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼δ DOS. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetWinFlags │ äáÑΓ ¿ß»«½∞ºπÑ¼δÑ Windows Σ½áú¿ ¬«¡Σ¿úπαá-│ │ │ µ¿¿ »á¼∩Γ¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ MessageBox │ æ«ºñáÑΓ, óδó«ñ¿Γ ¡á φ¬αá¡ ¿ «íß½πª¿óáÑΓ│ │ │ «¬¡« ß««íΘÑ¡¿⌐. │ └───────────────────┴───────────────────────────────────────────┘ æ«ó¼ÑßΓ¡« ¿ß»«½∞ºπÑ¼á∩ DLL, τΓ«íδ «»αÑñÑ½¿Γ∞, óδ»«½¡∩ÑΓß∩ ½¿ «¡á ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS ¿½¿ »«ñ Windows, ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ Σπ¡¬µ¿ε GetWinFlags, ¡á»α¿¼Ñα: if GetWinFlags and wf_DPMI <> 0 then Message('Éáí«Γá ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS') else Message('Éáí«Γá ó ßαÑñÑ Windows'); B.Pascal 7 & Objects/LR - 293 - Åα∩¼«⌐ ñ«ßΓπ» ¬ DPMI-ßÑαóÑαπ ───────────────────────────────────────────────────────────────── Åα∩¼«⌐ ñ«ßΓπ» ¬ DPMI-ßÑαóÑαπ óδ ¼«ªÑΓÑ »«½πτ¿Γ∞ τÑαÑº »αÑαδ- óá¡¿Ñ $31, ¬«Γ«α«Ñ ¡Ñ»«ßαÑñßΓóÑ¡¡« óδºδóáÑΓ DPMI-ßÑαóÑα ó «íσ«ñ áñ¼¿¡¿ßΓαáΓ«αá φΓá»á óδ»«½¡Ñ¡¿∩. Äñ¡á¬« φΓ« «»áß¡δ⌐ »α¿Ñ¼. DPMI ¡Ñ »«ññÑαª¿óáÑΓ «τ¿ßΓ¬π αÑßπαß«ó, Γá¬¿σ ¬á¬ óÑ¬Γ«αδ »αÑαδóá¡¿⌐ »á¼∩Γ¿; ¬«ααÑ¬Γ¡« ß φΓ¿¼¿ »α«í½Ñ¼á¼¿ αáí«ΓáÑΓ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩. éδ ñ«½ª¡δ ú½πí«¬« »«¡¿¼áΓ∞ ¬«¡µÑ»µ¿¿ ºáΘ¿ΘÑ¡¡«ú« αÑ- ª¿¼á ¿ º¡áΓ∞ « ßπΘÑßΓóÑ¡¡«¼ α¿ß¬Ñ, ß ¬«Γ«αδ¼ ßó∩ºá¡« ¿ß»«½∞º«óá- ¡¿Ñ ñá¡¡«ú« ¼ÑΓ«ñá ñ«ßΓπ»á ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á. è«¼»¿½∩µ¿∩ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ───────────────────────────────────────────────────────────────── é í«½∞Φ¿¡ßΓóÑ ß½πτáÑó ñ½∩ »«½πτÑ¡¿∩ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ºá- Θ¿ΘÑ¡¡«ú« αÑª¿¼á óá¼ ¡Ñ ¡πª¡« ñÑ½áΓ∞ ¡¿τÑú« «ß«íÑ¡¡«ú«. Åα«ßΓ« ß¬«¼»¿½¿απ⌐ΓÑ ßó«ε »α«úαá¼¼π, ºáñáó ó ¬áτÑßΓóÑ µÑ½Ñó«⌐ αáí«Γδ ºá- Θ¿ΘÑ¡¡δ⌐ αÑª¿¼ «ñ¡¿¼ ¿º ß½ÑñπεΘ¿σ ß»«ß«í«ó: * é IDE óδíÑα¿ΓÑ ¬«¼á¡ñπ Compile│Target ¿ ó ñ¿á½«ú«ó«¼ «¬¡Ñ Target Platform (ûÑ½Ñóá∩ »½áΓΣ«α¼á) óδíÑα¿ΓÑ Protected-mode Application. * Åα¿ ¿ß»«½∞º«óá¡¿¿ ¬«¼»¿½∩Γ«αá, αáí«ΓáεΘÑú« ó αÑª¿¼Ñ ¬«- ¼á¡ñ¡«⌐ ßΓα«¬¿, π¬áª¿ΓÑ ñ½∩ óδí«αá ó ¬áτÑßΓóÑ µÑ½Ñó«⌐ »½áΓΣ«α¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á »áαá¼ÑΓα /CP. B.Pascal 7 & Objects/LR - 294 - éδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ───────────────────────────────────────────────────────────────── è«úñá óδ óδ»«½¡∩ÑΓÑ »α«úαá¼¼π DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á, ¡πª¡« «íÑß»Ñτ¿Γ∞ ¡á½¿τ¿Ñ ó ΓÑ¬πΘÑ¼ ¬áΓá½«úÑ ¿½¿ »« ¼áαΦαπΓπ DOS Σá⌐½«ó DPMI16BI.OVL (ßÑαóÑα DPMI), RTM.EXE (áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ- ¡¿∩) ¿ óßÑσ DLL, ß ¬«Γ«αδ¼¿ αáí«ΓáÑΓ óáΦá »α«úαá¼¼á. Åα¿¼Ñτá¡¿Ñ: ï¿µÑ¡º¿«¡¡«Ñ ß«ú½áΦÑ¡¿Ñ »«ºó«½∩ÑΓ óá¼ αáß»α«ßΓαá¡∩Γ∞ Σá⌐½δ DPMI16BI.OVL ¿ RTM.EXE ó¼ÑßΓÑ ß óáΦÑ⌐ »α«úαá¼¼«⌐. é óδ»«½¡∩Ñ¼«¼ Σá⌐½Ñ .EXE ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¿ß»«½∞ºπÑΓß∩ Γ«Γ ªÑ Σ«α¼áΓ Σá⌐½á, τΓ« ¿ ó Windows 3.x ¿ OS/2 1.x. ¥Γ«Γ Σ«α¼áΓ Σá⌐½á ∩ó½∩ÑΓß∩ ¡áñ¼¡«ªÑßΓó«¼ «íδτ¡«ú« Σ«α¼áΓá .EXE DOS ¿ ß«ßΓ«¿Γ ¿º «íδτ¡«ú« «íαáºá Σá⌐½á .EXE, ¡áºδóáÑ¼«ú« Σ¿¬Γ¿ó¡δ¼ ¼«ñπ½Ñ¼, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ αáßΦ¿αÑ¡¡δ⌐ ºáú«½«ó«¬ ¿ ¬«ñ, ñá¡¡δÑ ¿ αÑßπαßδ ºá- Θ¿ΘÑ¡¡«ú« αÑª¿¼á. ì¿ªÑ »«¬áºá¡á »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ß«íδΓ¿⌐ »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS. 1. DOS ºáúαπªáÑΓ Σ¿¬Γ¿ó¡δ⌐ ¼«ñπ½∞ αÑá½∞¡«ú« αÑª¿¼á ¿ »ÑαÑñá- ÑΓ Ñ¼π π»αáó½Ñ¡¿Ñ. 2. àß½¿ ßαÑñßΓóá DPMI «ΓßπΓßΓóπεΓ, Γ« Σ¿¬Γ¿ó¡δ⌐ ¼«ñπ½∞ ºáú- απªáÑΓ DPMI-ßÑαóÑα ¿º Σá⌐½á DPMI16BI.OVL. ìÑ¬«Γ«αδÑ ¡«óδÑ áñ¼¿¡¿ßΓαáΓ«αδ »á¼∩Γ¿ »«ññÑαª¿óáεΓ ßαÑñßΓóá DPMI (¬á¬, ¡á»α¿¼Ñα, φΓ« ñÑ½áÑΓß∩ ó «¬¡Ñ DOS π½πτΦÑ¡¡«ú« αÑª¿¼á Windows 3.σ). é Γá¬¿σ ¬«¡Σ¿úπαáµ¿∩σ Σ¿¬Γ¿ó¡δ⌐ ¼«ñπ½∞ ¡Ñ ºáúαπªáÑΓ DPMI-ßÑαóÑα, ¡« ¿ß»«½∞ºπÑΓ πªÑ ¿¼ÑεΘ¿⌐ß∩. 3. äá½ÑÑ, Ñß½¿ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ ÑΘÑ ¡Ñ ºáúαπ- ªÑ¡ ó »á¼∩Γ∞, Σ¿¬Γ¿ó¡δ⌐ ¼«ñπ½∞ ºáúαπªáÑΓ Ñú« ¿º Σá⌐½á RTM.EXE. àß½¿ »α¿¬½áñ¡á∩ »α«úαá¼¼á ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á óδ- »«½¡∩ÑΓ ñαπúπε »α«úαá¼¼π ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á, «íÑ ¿ß»«½∞- ºπεΓ «ñ¡π ¬«»¿ε áñ¼¿¡¿ßΓαáΓ«αá φΓá»á óδ»«½¡Ñ¡¿∩. 4. àß½¿ ßαÑñßΓóá DPMI ¿ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ »α¿- ßπΓßΓóπεΓ, Σ¿¬Γ¿ó¡δ⌐ ¼«ñπ½∞ »ÑαÑ¬½ετáÑΓß∩ ¿º αÑá½∞¡«ú« ó ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ ¿ »ÑαÑñáÑΓ π»αáó½Ñ¡¿Ñ αáßΦ¿αÑ¡¡«¼π ºáú- απºτ¿¬π .EXE ó áñ¼¿¡¿ßΓαáΓ«αá φΓá»á óδ»«½¡Ñ¡¿∩. 5. çáúαπºτ¿¬ ß¡áτá½á ºáúαπªáÑΓ ¿ß»«½∞ºπÑ¼πε »α¿¬½áñ¡«⌐ »α«ú- αá¼¼«⌐ DLL (Ñß½¿ «¡á ¿¼ÑÑΓß∩), ºáΓÑ¼ ºáúαπªáÑΓ ßÑú¼Ñ¡Γδ ¬«ñá ¿ ñá¡¡δσ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. ìá¬«¡Ñµ, ºáúαπºτ¿¬ »ÑαÑñáÑΓ π»αáó½Ñ¡¿Ñ ¡á Γ«τ¬π óσ«ñá »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. Åα¿ óδ»«½¡Ñ¡¿¿ óáΦÑ⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS óßÑúñá ó«º¼«ª¡« ß¿Γπáµ¿∩, ¬«úñá πªÑ »α¿ßπΓßΓóπÑΓ DMPI-ßÑαóÑα, «Γ½¿τ¡δ⌐ «Γ ßÑαóÑαá Borland. Å«ß¬«½∞¬π ¼Ñªñπ ßÑαóÑαá¼¿ ¼«úπΓ íδΓ∞ ¡Ñí«½∞Φ¿Ñ αáº½¿τ¿∩, «ß«íÑ¡¡« ó »½á¡Ñ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ DOS, óδ ñ«½ª¡δ »α«óÑα¿Γ∞ »α«úαá¼¼π ¿ πíÑñ¿Γ∞ß∩, τΓ« «¡á αáí«ΓáÑΓ ß« óßÑ¼¿ ó«º¼«ª¡δ¼¿ ßÑαóÑαá¼¿, ¬«Γ«αδÑ ¼«úπΓ Ñ⌐ óßΓαÑΓ¿Γ∞ß∩. B.Pascal 7 & Objects/LR - 295 - è«úñá »α¿¬½áñ¡á∩ »α«úαá¼¼á ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS óδ»«½¡∩ÑΓ- ß∩ ó «¬¡Ñ DOS π½πτΦÑ¡¡«ú« αÑª¿¼á Windows, óδ ¼«ªÑΓÑ π»αáó½∩Γ∞ «íΩÑ¼«¼ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿, ¬«Γ«απε óδñÑ½∩ÑΓ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩, ºáñáó ó Σá⌐½Ñ .PIF »α¿¬½áñ¡«⌐ »α«úαá¼¼δ »αÑñÑ½∞¡«Ñ º¡áτÑ¡¿Ñ »á¼∩Γ¿ XMS. ô»αáó½Ñ¡¿Ñ «íΩÑ¼«¼ ¿ß»«½∞ºπÑ¼«⌐ RTM »á¼∩Γ¿ ───────────────────────────────────────────────────────────────── Å« π¼«½τá¡¿ε áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ ¿ß»«½∞ºπÑΓ »α¿ ºáúαπº¬Ñ óßε ñ«ßΓπ»¡πε »á¼∩Γ∞. çáΓÑ¼ »« ºá»α«ßá¼ «¡ óδñÑ½∩ÑΓ »á- ¼∩Γ∞ ßó«¿¼ ¬½¿Ñ¡Γá¼ (τÑαÑº »«ñ»α«úαá¼¼δ API áñ¼¿¡¿ßΓαáΓ«αá »á¼∩- Γ¿). é ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ ¡ÑΓ αáº¡¿µδ ¼Ñªñπ «íδτ¡«⌐ »á¼∩Γ∞ε (¡¿ªÑ 1 ¼Ñúáíá⌐Γá) ¿ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ∞ε (ß áñαÑßá¼¿ óδΦÑ 1 ¼Ñúáíá⌐Γá); ñ½∩ »α«úαá¼¼ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ñ«ßΓπ»¡δ «íá Γ¿»á »á¼∩Γ¿. Äñ¡á¬« áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿Ñ «ΓñáÑΓ »αÑñ»«τΓÑ¡¿Ñ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿. Æ«½∞¬« »«ß½Ñ Γ«ú« ¬á¬ óß∩ αáßΦ¿αÑ¡¡á∩ »á¼∩Γ∞ íπñÑΓ óδñÑ- ½Ñ¡á, ¿½¿ ¬«úñá »α¿¬½áñ¡á∩ »α«úαá¼¼á ß»Ñµ¿á½∞¡« ºá»αáΦ¿óáÑΓ «íδτ¡πε »á¼∩Γ∞ (¡á»α¿¼Ñα, ß »«¼«Θ∞ε Σπ¡¬µ¿¿ GlobalDosAlloc), áñ- ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ óδñÑ½∩ÑΓ «íδτ¡πε »á¼∩Γ∞. Åα¿τ¿¡á, »« ¬«Γ«α«⌐ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ »αÑñ»«τ¿- ΓáÑΓ αáßΦ¿αÑ¡¡πε »á¼∩Γ∞, ºá¬½ετáÑΓß∩ ó Γ«¼, τΓ« »α¿¬½áñ¡á∩ »α«ú- αá¼¼á ¼«ªÑΓ ß »«¼«Θ∞ε óδº«óá »«ñ»α«úαá¼¼δ Exec ó ¼«ñπ½Ñ Dos »«- α«ªñáΓ∞ ñαπú¿Ñ »α¿¬½áñ¡δÑ »α«úαá¼¼δ. Å«α«ªñÑ¡¡δÑ »α¿¬½áñ¡δÑ »α«ú- αá¼¼δ ¡Ñ «í∩ºáΓÑ½∞¡« ∩ó½∩εΓß∩ »α«úαá¼¼á¼¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á; Γá- ¬¿¼ «íαáº«¼, ¿¼ ¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ «íδτ¡á∩ »á¼∩Γ∞. öá¬Γ¿τÑß¬¿, »«α«ªñÑ¡¡δÑ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ºá»πß¬áεΓß∩ ¬á¬ »α«úαá¼- ¼δ αÑá½∞¡«ú« αÑª¿¼á ¿ »ÑαÑ¬½ετáεΓß∩ ó ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ Γ«½∞¬« »«ß½Ñ πß»ÑΦ¡«⌐ ºáúαπº¬¿ Σ¿¬Γ¿ó¡δ¼ ¼«ñπ½Ñ¼ ßαÑñßΓó DPMI ¿ áñ¼¿- ¡¿ßΓαáΓ«αá φΓá»á óδ»«½¡Ñ¡¿∩. Çñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ »ÑαÑñ »«α«ªñÑ¡¿Ñ¼ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ »δΓáÑΓß∩ «ßó«í«ñ¿Γ∞ ¼á¬ß¿¼á½∞¡δ⌐ «íΩÑ¼ «íδτ¡«⌐ »á¼∩Γ¿ (¡á»α¿¼Ñα, »ÑαÑ¡Ñß∩ »ÑαÑ¼ÑΘáÑ¼δÑ í½«¬¿ ó αáßΦ¿αÑ¡¡πε »á¼∩Γ∞). Äñ- ¡á¬« »«»δΓ¬¿ «ßó«í«ªñÑ¡¿∩ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ ¡Ñ »αÑñ»α¿¡¿¼áεΓß∩. Æá¬¿¼ «íαáº«¼, Ñß½¿ ñ«½ª¡δ »«α«ªñáΓ∞ß∩ »α¿¬½áñ¡δÑ »α«úαá¼¼δ ºáΘ¿- ΘÑ¡¡«ú« αÑª¿¼á, ¡Ñ ¿ß»«½∞ºπεΘ¿Ñ áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩, Γ« ¡Ñ«íσ«ñ¿¼ ß»«c«í π»αáó½Ñ¡¿∩ αáß»αÑñÑ½Ñ¡¿Ñ¼ »á¼∩Γ¿ áñ¼¿¡¿ßΓαá- Γ«α«¼ φΓá»á óδ»«½¡Ñ¡¿∩. ùΓ«íδ π»αáó½∩Γ∞ ΓÑ¼, ß¬«½∞¬« »á¼∩Γ¿ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ áñ¼¿- ¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩, ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ DOS ñ«íáó∞ΓÑ ¬ ßΓα«¬Ñ «»Ñαáµ¿«¡¡«⌐ ßαÑñδ DOS »ÑαÑ¼Ñ¡¡πε ßαÑñδ RTM: SET RTM={»áαá¼ÑΓα nnnn} é«º¼«ª¡δÑ »áαá¼ÑΓαδ »ÑαÑτ¿ß½Ñ¡δ ó ß½ÑñπεΘÑ⌐ Γáí½¿µÑ. ç¡áτÑ- ¡¿Ñ nnnn ¼«ªÑΓ íδΓ∞ ñÑß∩Γ¿τ¡δ¼ ¿½¿ ΦÑßΓ¡áñµáΓ¿α¿τ¡δ¼ τ¿ß½«¼ ó ó¿- ñÑ xAB54 ¿½¿ xab54. B.Pascal 7 & Objects/LR - 296 - Åáαá¼ÑΓαδ »ÑαÑ¼Ñ¡¡«⌐ «»Ñαáµ¿«¡¡«⌐ ßαÑñδ RTM, ¿ß»«½∞ºπÑ¼δÑ ñ½∩ π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε Æáí½¿µá 17.7 ┌────────────────────┬──────────────────────────────────────────┐ │ Åáαá¼ÑΓα │ Ä»¿ßá¡¿Ñ │ ├────────────────────┼──────────────────────────────────────────┤ │ EXTLEAVE nnnn │ éßÑúñá «ßΓáó½∩ÑΓ ¡Ñ ¼Ñ¡ÑÑ nnnn ¬¿½«íá⌐Γ│ │ │ ñ«ßΓπ»¡«⌐ αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿. Å« π¼«½τá-│ │ │ ¡¿ε φΓ« º¡áτÑ¡¿Ñ αáó¡« 640è. │ ├────────────────────┼──────────────────────────────────────────┤ │ EXTMAX nnnn │ ìÑ óδñÑ½∩ÑΓ í«½ÑÑ nnnn ¬¿½«íá⌐Γ αáßΦ¿αÑ¡-│ │ │ ¡«⌐ »á¼∩Γ¿. Å« π¼«½τá¡¿ε ¿ß»«½∞ºπÑΓß∩│ │ │ º¡áτÑ¡¿Ñ 4 ú¿úáíá⌐Γá. é Windows ¿ß»«½∞ºπ-│ │ │ Ñ¼«Ñ »« π¼«½τá¡¿ε º¡áτÑ¡¿Ñ αáó¡« »«½«ó¿¡Ñ│ │ │ ñ«ßΓπ»¡«⌐ »á¼∩Γ¿. │ ├────────────────────┼──────────────────────────────────────────┤ │ EXTMIN nnnn │ àß½¿ »«ß½Ñ »α¿¼Ñ¡Ñ¡¿∩ EXTMAX ¿½¿ EXTLEAVE│ │ │ ñ«ßΓπ»¡« ¼Ñ¡ÑÑ nnnn ¬¿½«íá⌐Γ, Γ« »α«úαá¼-│ │ │ ¼á ºáóÑαΦáÑΓß∩ ß ß««íΘÑ¡¿Ñ¼ « ¡ÑσóáΓ¬Ñ│ │ │ »á¼∩Γ¿ (Out of memory). Å« π¼«½τá¡¿ε φΓ«│ │ │ º¡áτÑ¡¿Ñ αáó¡« 0. │ ├────────────────────┼──────────────────────────────────────────┤ │ REALLEAVE nnnn │ éßÑúñá «ßΓáó½∩ÑΓ ¡Ñ ¼Ñ¡ÑÑ nnnn »áαáúαáΣ«ó│ │ │ ñ«ßΓπ»¡«⌐ αÑá½∞¡«⌐ »á¼∩Γ¿. Å« π¼«½τá¡¿ε│ │ │ φΓ« º¡áτÑ¡¿Ñ αáó¡« 64è ¿½¿ 4096 »áαáúαá-│ │ │ Σ«ó. │ ├────────────────────┼──────────────────────────────────────────┤ │ REALMAX nnnn │ ìÑ óδñÑ½∩ÑΓ í«½ÑÑ nnnn »áαáúαáΣ«ó αÑá½∞-│ │ │ ¡«⌐ »á¼∩Γ¿. Å« π¼«½τá¡¿ε φΓ« º¡áτÑ¡¿Ñ│ │ │ αáó¡« 1 ¼Ñúáíá⌐Γπ ¿½¿ 65535 »áαáúαáΣ«ó. │ ├────────────────────┼──────────────────────────────────────────┤ │ REALMIN nnnn │ àß½¿ »«ß½Ñ »α¿¼Ñ¡Ñ¡¿∩ REALMAX ¿ REALLEAVE│ │ │ ñ«ßΓπ»¡« ¼Ñ¡ÑÑ nnnn »áαáúαáΣ«ó, Γ« »α«ú-│ │ │ αá¼¼á ºáóÑαΦáÑΓß∩ ß ß««íΘÑ¡¿Ñ¼ « ¡ÑσóáΓ¬Ñ│ │ │ »á¼∩Γ¿ (Out of memory). Å« π¼«½τá¡¿ε φΓ«│ │ │ º¡áτÑ¡¿Ñ αáó¡« 0. │ └────────────────────┴──────────────────────────────────────────┘ æ½ÑñπεΘá∩ ¬«¼á¡ñá DOS «úαá¡¿τ¿óáÑΓ RTM 2 ¼Ñúáíá⌐Γá¼¿ αáßΦ¿- αÑ¡¡«⌐ »á¼∩Γ¿ ¿ «íÑß»Ñτ¿óáÑΓ, τΓ« ¡Ñαáß»αÑñÑ½Ñ¡¡δ¼¿ «ßΓá¡πΓß∩ 128è αÑá½∞¡«⌐ »á¼∩Γ¿. SET RTM=EXTMAX 2048 REALLEAVE 8192 B.Pascal 7 & Objects/LR - 297 - ─────────────────────────────────────────────────────────────────────── â½áóá 18. æΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ───────────────────────────────────────────────────────────────── é Borland Pascal »«ññÑαª¿óáÑΓß∩ ¬½áßß ß¿¼ó«½∞¡δσ ßΓα«¬, ¬«- Γ«αδÑ ¡áºδóáεΓß∩ ßΓα«¬á¼¿, ºáóÑαΦáεΘ¿¼¿ß∩ ¡π½Ñ¼. ü½áú«ñáα∩ αáßΦ¿- αÑ¡¡«¼π ß¿¡Γá¬ß¿ßπ Borland Pascal ¿ ¼«ñπ½ε Strings óáΦ¿ »α«úαá¼¼δ (¬á¬ ñ½∩ DOS, Γá¬ ¿ ñ½∩ Windows) ¼«úπΓ ¿ß»«½∞º«óáΓ∞ ßΓα«¬¿ ß ºá- óÑαΦáεΘ¿¼ ¡π½Ñ¼ »πΓÑ¼ ºáñá¡¿∩ ó «»ÑαáΓ«αÑ uses ¼«ñπ½∩ Strings. ùΓ« Γá¬«Ñ ßΓα«¬á ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼? ───────────────────────────────────────────────────────────────── é Borland Pascal ßΓα«¬¿ «íδτ¡«ú« Γ¿»á (String) σαá¡∩Γß∩ ¬á¬ íá⌐Γ ñ½¿¡δ, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ß¿¼ó«½«ó. îá¬- ß¿¼á½∞¡á∩ ñ½¿¡á ßΓα«¬¿ ó Åáß¬á½Ñ αáó¡á 255 ß¿¼ó«½á¼. Æá¬¿¼ «íαá- º«¼, ßΓα«¬á Åáß¬á½∩ ºá¡¿¼áÑΓ «Γ 1 ñ« 256 íá⌐Γ »á¼∩Γ¿. æΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ¡Ñ ß«ñÑαªáΓ íá⌐Γá ñ½¿¡δ. é¼ÑßΓ« φΓ«ú« «¡¿ ß«ßΓ«∩Γ ¿º »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ ¡Ñ¡π½Ñóδσ ß¿¼ó«½«ó, ºá ¬«Γ«αδ¼¿ ß½ÑñπÑΓ ß¿¼ó«½ NULL (#0). ì¿¬á¬¿σ «úαá¡¿τÑ¡¿⌐ ¡á ñ½¿¡π ßΓα«¬ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ¡Ñ ¡á¬½áñδóáÑΓß∩, ¡« 16-αáºα∩ñ¡á∩ áασ¿- ΓÑ¬Γπαá DOS ¿ Windows «úαá¡¿τ¿óáÑΓ ¿σ αáº¼Ñα 65535 ß¿¼ó«½á¼¿. öπ¡¬µ¿¿ ¼«ñπ½∩ Strings ───────────────────────────────────────────────────────────────── Borland Pascal ¡Ñ ¿¼ÑÑΓ óßΓα«Ñ¡¡δσ »«ñ»α«úαá¼¼, »αÑñ¡áº¡á- τÑ¡¡δσ ß»Ñµ¿á½∞¡« ñ½∩ αáí«Γδ ß« ßΓα«¬á¼¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼. ¥Γ¿ Σπ¡¬µ¿¿ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó ¼«ñπ½Ñ Strings. æαÑñ¿ ¡¿σ óδ ¡á⌐ñÑΓÑ Σπ¡¬µ¿ε StrPCopy, ¬«Γ«απε ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ ¬«»¿α«óá¡¿∩ ßΓα«¬¿ Åáß¬á½∩ ó ßΓα«¬π ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼, ¿ StrPos, ¿ß»«½∞ºπÑ- ¼πε ñ½∩ »αÑ«íαáº«óá¡¿∩ ßΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ó ßΓα«¬π Åáß¬á- ½∩. Åα¿óÑñÑ¼ ¬αáΓ¬«Ñ «»¿ßá¡¿Ñ ¬áªñ«⌐ Σπ¡¬µ¿¿: B.Pascal 7 & Objects/LR - 298 - öπ¡¬µ¿¿ ¼«ñπ½∩ Strings ┌──────────────┬────────────────────────────────────────────────┐ │ öπ¡¬µ¿∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────┼────────────────────────────────────────────────┤ │ StrCat │ ä«íáó½∩ÑΓ ¿ßσ«ñ¡πε ßΓα«¬π ¬ ¬«¡µπ µÑ½Ñó«⌐ ßΓα«-│ │ │ ¬¿ ¿ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á µÑ½Ñóπε ßΓα«¬π. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrComp │ æαáó¡¿óáÑΓ ñóÑ ßΓα«¬¿ S1 ¿ S2. é«ºóαáΘáÑΓ│ │ │ º¡áτÑ¡¿Ñ < 0, Ñß½¿ S1 < S2, αáó¡«Ñ 0, Ñß½¿ S1 =│ │ │ S2 ¿ > 0, Ñß½¿ S1 > S2. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrCopy │ è«»¿απÑΓ ¿ßσ«ñ¡πε ßΓα«¬π ó µÑ½Ñóπε ßΓα«¬π ¿│ │ │ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á µÑ½Ñóπε ßΓα«¬π. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrECopy │ è«»¿απÑΓ ¿ßσ«ñ¡πε ßΓα«¬π ó µÑ½Ñóπε ßΓα«¬π ¿│ │ │ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á ¬«¡Ñµ µÑ½Ñó«⌐ ßΓα«¬¿. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrIComp │ æαáó¡¿óáÑΓ ñóÑ ßΓα«¬¿ íÑº αáº½¿τ¿∩ αÑú¿ßΓαá│ │ │ ß¿¼ó«½«ó. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrLCat │ Åα¿ß«Ññ¿¡∩ÑΓ ¿ßσ«ñ¡πε ßΓα«¬π ¬ ¬«¡µπ µÑ½Ñó«⌐│ │ │ ßΓα«¬¿. Åα¿ φΓ«¼ «íÑß»Ñτ¿óáÑΓß∩, τΓ« ñ½¿¡á αÑ-│ │ │ ºπ½∞Γ¿απεΘÑ⌐ ßΓα«¬¿ ¡Ñ »αÑóδΦáÑΓ ºáñá¡¡«ú« ¼á¬-│ │ │ ß¿¼π¼á. é«ºóαáΘáÑΓß∩ π¬áºáΓÑ½∞ ¡á ßΓα«¬π-αÑ-│ │ │ ºπ½∞ΓáΓ. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrLComp │ æαáó¡¿óáÑΓ ñóÑ ßΓα«¬¿ ß ºáñá¡¡«⌐ ¼á¬ß¿¼á½∞¡«⌐│ │ │ ñ½¿¡«⌐. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrLCopy │ è«»¿απÑΓ ºáñá¡¡«Ñ τ¿ß½« ß¿¼ó«½«ó ¿º ¿ßσ«ñ¡«⌐│ │ │ ßΓα«¬¿ ó µÑ½Ñóπε ßΓα«¬π ¿ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞│ │ │ ¡á µÑ½Ñóπε ßΓα«¬π. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrEnd │ é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á ¬«¡Ñµ ßΓα«¬¿, Γ« ÑßΓ∞│ │ │ π¬áºáΓÑ½∞ ¡á ºáóÑαΦáεΘ¿⌐ ßΓα«¬π ¡π½Ñó«⌐ ß¿¼ó«½.│ ├──────────────┼────────────────────────────────────────────────┤ │ StrDispose │ ô¡¿τΓ«ªáÑΓ αá¡ÑÑ óδñÑ½Ñ¡¡πε ßΓα«¬π. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrLen │ é«ºóαáΘáÑΓ ñ½¿¡π ßΓα«¬¿. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrLIComp │ æαáó¡¿óáÑΓ ñóÑ ßΓα«¬¿ ß ºáñá¡¡«⌐ ¼á¬ß¿¼á½∞¡«⌐│ │ │ ñ½¿¡«⌐ íÑº αáº½¿τ¿∩ αÑú¿ßΓαá ß¿¼ó«½«ó. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrLower │ ÅαÑ«íαáºπÑΓ ßΓα«¬π ó ¡¿ª¡¿⌐ αÑú¿ßΓα ¿ ó«ºóαáΘá-│ │ │ ÑΓ π¬áºáΓÑ½∞ ¡á ¡ÑÑ. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrMove │ ÅÑαÑ¼ÑΘáÑΓ í½«¬ ß¿¼ó«½«ó ¿º ¿ßσ«ñ¡«⌐ ßΓα«¬¿ ó│ │ │ µÑ½Ñóπε ßΓα«¬π ¿ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á µÑ½Ñ-│ │ │ óπε ßΓα«¬π. äóá í½«¬á ¼«úπΓ »ÑαÑ¬αδóáΓ∞ß∩. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrNew │ éδñÑ½∩ÑΓ ñ½∩ ßΓα«¬¿ »á¼∩Γ∞ ó ñ¿¡á¼¿τÑß¬¿ αáß-│ │ │ »αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. │ ├──────────────┼────────────────────────────────────────────────┤ B.Pascal 7 & Objects/LR - 299 - │ StrPas │ ÅαÑ«íαáºπÑΓ ßΓα«¬π ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ó ßΓα«¬π│ │ │ Åáß¬á½∩. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrPCopy │ è«»¿απÑΓ ßΓα«¬π Åáß¬á½∩ ó ßΓα«¬π ß ºáóÑαΦáεΘ¿¼│ │ │ ¡π½Ñ¼ ¿ ó«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á ßΓα«¬π ß ºáóÑα-│ │ │ ΦáεΘ¿¼ ¡π½Ñ¼. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrPos │ é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á »Ñαó«Ñ óσ«ªñÑ¡¿Ñ ºáñá¡-│ │ │ ¡«⌐ »«ñßΓα«¬¿ ó ßΓα«¬Ñ, ¿½¿ nil, Ñß½¿ »«ñßΓα«¬á│ │ │ ó ßΓα«¬Ñ ¡Ñ ß«ñÑαª¿Γß∩. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrRScan │ é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á »«ß½Ññ¡ÑÑ óσ«ªñÑ¡¿Ñ│ │ │ π¬áºá¡¡«ú« ß¿¼ó«½á ó ßΓα«¬π, ¿½¿ nil, Ñß½¿ ß¿¼-│ │ │ ó«½ ó ßΓα«¬Ñ «ΓßπΓßΓóπÑΓ. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrScan │ é«ºóαáΘáÑΓ π¬áºáΓÑ½∞ ¡á »Ñαó«Ñ óσ«ªñÑ¡¿Ñ π¬á-│ │ │ ºá¡¡«ú« ß¿¼ó«½á ó ßΓα«¬π, ¿½¿ nil, Ñß½¿ ß¿¼ó«½│ │ │ ó ßΓα«¬Ñ «ΓßπΓßΓóπÑΓ. │ ├──────────────┼────────────────────────────────────────────────┤ │ StrUpper │ ÅαÑ«íαáºπÑΓ ßΓα«¬π ó óÑασ¡¿⌐ αÑú¿ßΓα ¿ ó«ºóαá-│ │ │ ΘáÑΓ π¬áºáΓÑ½∞ ¡á ¡ÑÑ. │ └──────────────┴────────────────────────────────────────────────┘ êß»«½∞º«óá¡¿Ñ ßΓα«¬ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ───────────────────────────────────────────────────────────────── æΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ σαá¡∩Γß∩ ó ó¿ñÑ ß¿¼ó«½∞¡δσ ¼áßß¿- ó«ó ß ¡π½Ñó«⌐ íáº«⌐ (¡áτ¿¡áεΘ¿σß∩ ß 0) ß ¿¡ñÑ¬ß«¼ µÑ½«ú« Γ¿»á, Γ« ÑßΓ∞ ó ó¿ñÑ ¼áßß¿óá: array[0..X] of Char; úñÑ X - »«½«ª¿ΓÑ½∞¡«Ñ ¡Ñ¡π½Ñó«Ñ µÑ½«Ñ τ¿ß½«. Æá¬¿Ñ ¼áßß¿óδ ¡áºδ- óáεΓß∩ ß¿¼ó«½∞¡δ¼¿ ¼áßß¿óá¼¿ ß ¡π½Ñó«⌐ íáº«⌐. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»¿ßá¡¿⌐ ß¿¼ó«½∞¡δσ ¼áßß¿ó«ó ß ¡π½Ñó«⌐ íáº«⌐, ¬«Γ«αδÑ ¼«- úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ σαá¡Ñ¡¿∩ ºáóÑαΦáεΘ¿σß∩ ¡π½Ñ¼ ßΓα«¬. type TIdentifier = array[0..15] of Char; TFileName = array[0..79] of Char; TMemoText = array[0..1023] of Char; B.Pascal 7 & Objects/LR - 300 - ü«½ÑÑ óßÑú« ßΓα«¬¿ Åáß¬á½∩ ¿ ßΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ «Γ- ½¿τáεΓß∩ ¿¡ΓÑ¡ß¿ó¡«ßΓ∞ε ¿ß»«½∞º«óá¡¿∩ π¬áºáΓÑ½Ñ⌐. Borland Pascal óδ»«½¡∩ÑΓ «»Ñαáµ¿¿ ß φΓ¿¼¿ π¬áºáΓÑ½∩¼¿, ¿ß»«½∞ºπ∩ ¡áí«α »αáó¿½ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá. èα«¼Ñ Γ«ú«, ó Borland Pascal ¿¼ÑÑΓß∩ óßΓα«Ñ¡¡δ⌐ Γ¿» PChar, ¬«Γ«αδ⌐ »αÑñßΓáó½∩ÑΓ ß«í«⌐ π¬áºáΓÑ½∞ ¡á ßΓα«¬π ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼. é ¼«ñπ½Ñ System Γ¿» PChar «»αÑñÑ½∩ÑΓ- ß∩ ß½ÑñπεΘ¿¼ «íαáº«¼: type PChar = ^Char; Åαáó¿½á¼¿ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá π»αáó½∩ÑΓ ñ¿αÑ¬Γ¿óá ¬«¼»¿- ½∩Γ«αá $X. é ß«ßΓ«∩¡¿¿ {$X+} (»« π¼«½τá¡¿ε) αáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß αáºαÑΦÑ¡. Åαáó¿½á αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá «»¿ßδóáεΓß∩ ó ß½ÑñπεΘ¿σ αáºñÑ½áσ. B.Pascal 7 & Objects/LR - 301 - æ¿¼ó«½∞¡δÑ π¬áºáΓÑ½¿ ¿ ßΓα«¬«óδÑ ½¿ΓÑαá½δ ───────────────────────────────────────────────────────────────── Åα¿ αáºαÑΦÑ¡¿¿ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá ßΓα«¬«óδ⌐ ½¿ΓÑαá½ ß«ó¼ÑßΓ¿¼ »« »α¿ßóá¿óá¡¿ε ß Γ¿»«¼ PChar. ¥Γ« «º¡áτáÑΓ, τΓ« »ÑαÑ- ¼Ñ¡¡«⌐ Γ¿»á PChar ¼«ª¡« »α¿ßó«¿Γ∞ ßΓα«¬«óδ⌐ ½¿ΓÑαá½. ìá»α¿¼Ñα: var P: PChar; . . begin P := 'Åα¿óÑΓ...'; end; é αÑºπ½∞ΓáΓÑ Γá¬«ú« »α¿ßóá¿óá¡¿∩ π¬áºáΓÑ½∞ π¬áºδóáÑΓ ¡á «í- ½áßΓ∞ »á¼∩Γ¿, ß«ñÑαªáΘπε ßΓα«¬π ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼, ∩ó½∩εΘπεß∩ ¬«»¿Ñ⌐ ßΓα«¬«ó«ú« ½¿ΓÑαá½á. è«¼»¿½∩Γ«α ºá»¿ßδóáÑΓ ßΓα«¬«óδÑ ½¿ΓÑ- αá½δ ó ßÑú¼Ñ¡Γ ñá¡¡δσ, á¡á½«ú¿τ¡« «»¿ßá¡¿ε "ß¬αδΓδσ" Γ¿»¿º¿α«óá¡- ¡δσ ¬«¡ßΓá¡Γ: const TempString: array[0..14] of Char = 'Åα¿óÑΓ...'#0; var P: PChar; . . begin P := @TempString; end; è«úñá ß««ΓóÑΓßΓóπεΘ¿Ñ Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ ¿¼ÑεΓ Γ¿» Char, ßΓα«¬«óδÑ ½¿ΓÑαá½δ óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ¬á¬ Σá¬Γ¿τÑß¬¿Ñ »áαá- ¼ÑΓαδ »α¿ óδº«óáσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. ìá»α¿¼Ñα, Ñß½¿ ¿¼ÑÑΓß∩ »α«- µÑñπαá ß «»¿ßá¡¿Ñ¼: procedure PrintStr(Str: PChar); Γ« ñ«»πßΓ¿¼δ ß½ÑñπεΘ¿Ñ óδº«óδ »α«µÑñπαδ: procedure PrintStr('æΓα«¬á ñ½∩ »α«óÑα¬¿'); PrintStr(#10#13); Ç¡á½«ú¿τ¡« Γ«¼π, ¬á¬ φΓ« »α«¿ßσ«ñ¿Γ »α¿ »α¿ßóá¿óá¡¿¿, ¬«¼»¿- ½∩Γ«α úÑ¡Ñα¿απÑΓ ßΓα«¬π ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼, »αÑñßΓáó½∩εΘπε ß«í«⌐ ¬«»¿ε ½¿ΓÑαá½∞¡«⌐ ßΓα«¬¿ ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ, ¿ »ÑαÑñáÑΓ π¬áºáΓÑ½∞ ¡á φΓπ «í½áßΓ∞ »á¼∩Γ¿ ó »áαá¼ÑΓαÑ Str »α«µÑñπαδ PrintStr. ìá¬«¡Ñµ, Γ¿»¿º¿α«óá¡¡á∩ ¬«¡ßΓá¡Γá Γ¿»á PChar ¼«ªÑΓ ¿¡¿µ¿á½¿- º¿α«óáΓ∞ß∩ ßΓα«¬«ó«⌐ ¬«¡ßΓá¡Γ«⌐. ¥Γ« ß»αáóÑñ½¿ó« Γá¬ªÑ ñ½∩ ßΓαπ¬- Γπα¡δσ Γ¿»«ó, Γá¬¿σ ¬á¬ ¼áßß¿óδ PChar ¿ ºá»¿ß¿, á Γá¬ªÑ «íΩÑ¬Γδ PChar. B.Pascal 7 & Objects/LR - 302 - const Message: PChar = 'Program terminated'; Prompt: PChar = 'Enter values: '; Digits; array [0..9] of PChar = { 'Zero', 'One', 'Two', 'Three', 'Four', 'Five', 'Six', 'Seven', Eight', 'Nine'}; æΓα«¬«óá∩ óδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γá óßÑúñá óδτ¿ß½∩ÑΓß∩ ¬á¬ ßΓα«¬á Åáß¬á½∩, ñáªÑ Ñß½¿ «¡á ¿¡¿µ¿á½¿º¿απÑΓß∩ ¬á¬ Γ¿»¿º¿α«óá¡¡á∩ ¬«¡ß- Γá¡Γá Γ¿»á PChar. Æá¬¿¼ «íαáº«¼, ßΓα«¬«ó«Ñ óδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γá óßÑúñá «úαá¡¿τÑ¡« ñ½¿¡«⌐ ó 255 ß¿¼ó«½«ó. æ¿¼ó«½∞¡δÑ π¬áºáΓÑ½¿ ¿ ß¿¼ó«½∞¡δÑ ¼áßß¿óδ ───────────────────────────────────────────────────────────────── àß½¿ óδ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ $X αáºαÑΦáÑΓÑ αáßΦ¿αÑ¡¡δ⌐ ß¿¡- Γá¬ß¿ß, Γ« ß¿¼ó«½∞¡δ⌐ ¼áßß¿ó ß ¡π½Ñó«⌐ íáº«⌐ ß«ó¼ÑßΓ¿¼ ß Γ¿»«¼ PChar. ¥Γ« «º¡áτáÑΓ, τΓ« Γá¼, úñÑ »αÑñ»«½áúáÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ Γ¿»á PChar, ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ß¿¼ó«½∞¡δ⌐ ¼áßß¿ó ß ¡π½Ñó«⌐ íá- º«⌐. è«úñá ß¿¼ó«½∞¡δ⌐ ¼áßß¿ó ¿ß»«½∞ºπÑΓß∩ ó¼ÑßΓ« º¡áτÑ¡¿∩ PChar, ¬«¼»¿½∩Γ«α »αÑ«íαáºπÑΓ ß¿¼ó«½∞¡δ⌐ ¼áßß¿ó ó π¬áºáΓÑ½∞-¬«¡ßΓá¡Γπ, º¡áτÑ¡¿Ñ ¬«Γ«α«⌐ ß««ΓóÑΓßΓóπÑΓ áñαÑßπ »Ñαó«ú« φ½Ñ¼Ñ¡Γá ¼áßß¿óá. ìá»α¿¼Ñα: var A: array[0..63] of Char; P: PChar; . . . begin P := A; PrintStr(A); PrintStr(P); end; ü½áú«ñáα∩ «»ÑαáΓ«απ »α¿ßóá¿óá¡¿∩ P ΓÑ»Ñα∞ π¬áºδóáÑΓ ¡á »Ñα- óδ⌐ φ½Ñ¼Ñ¡Γ ¼áßß¿óá A, »«φΓ«¼π PrintStr óδºδóáÑΓß∩ ñóáªñδ ß «ñ¡¿¼ ¿ ΓÑ¼ ªÑ º¡áτÑ¡¿Ñ¼. éδ ¼«ªÑΓÑ ¿¡¿µ¿á½¿º¿α«óáΓ∞ Γ¿»¿º«óá¡¡πε ¬«¡ßΓá¡Γπ, ¿¼ÑεΘπε Γ¿» ß¿¼ó«½∞¡«ú« ¼áßß¿óá ß ¡π½Ñó«⌐ íáº«⌐, ß »«¼«Θ∞ε ßΓα«¬«ó«ú« ½¿- ΓÑαá½á, ¿¼ÑεΘÑú« ¼Ñ¡∞Φπε ñ½¿¡π, τÑ¼ αáº¼Ñα ¼áßß¿óá. ÄßΓáóΦ¿Ñß∩ ß¿¼ó«½δ πßΓá¡áó½¿óáεΓß∩ ó º¡áτÑ¡¿Ñ NULL (#0), ¿ ¼áßß¿ó íπñÑΓ ß«- ñÑαªáΓ∞ ßΓα«¬π ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼. type TFileName = array[0..79] of Char; const FileNameBuf: TfileName = 'TEST.PAS'; FileNamePtr: PCahr = FileNameBuf; B.Pascal 7 & Objects/LR - 303 - ê¡ñÑ¬ß¿α«óá¡¿Ñ ß¿¼ó«½∞¡«ú« π¬áºáΓÑ½∩ ───────────────────────────────────────────────────────────────── Æá¬ ¬á¬ ß¿¼ó«½∞¡δ⌐ ¼áßß¿ó ß ¡π½Ñó«⌐ íáº«⌐ ß«ó¼ÑßΓ¿¼ ß ß¿¼- ó«½∞¡δ¼ π¬áºáΓÑ½Ñ¼, ß¿¼ó«½∞¡δ⌐ π¬áºáΓÑ½∞ ¼«ª¡« ¿¡ñÑ¬ß¿α«óáΓ∞ á¡á- ½«ú¿τ¡« ß¿¼ó«½∞¡«¼π ¼áßß¿óπ ß ¡π½Ñó«⌐ íáº«⌐. var A: array[0..63] of Char; P: PChar; Ch: Char; . . . begin P := A; Ch := A[5]; Ch := P[5]; end; Äíá »«ß½Ññ¡¿σ »α¿ßóá¿óá¡¿∩ »α¿ßóá¿óáεΓ Ch º¡áτÑ¡¿Ñ, ß«ñÑαªá- ΘÑÑß∩ ó ΦÑßΓ«¼ ß¿¼ó«½Ñ-φ½Ñ¼Ñ¡ΓÑ A. Åα¿ ¿¡ñÑ¬ß¿α«óá¡¿¿ ß¿¼ó«½∞¡«ú« π¬áºáΓÑ½∩ ¿¡ñÑ¬ß ºáñáÑΓ íÑºº- ¡á¬«ó«Ñ ß¼ÑΘÑ¡¿Ñ, ¬«Γ«α«Ñ ñ«íáó½∩ÑΓß∩ ¬ π¬áºáΓÑ½ε »ÑαÑñ Ñú« αáºδ- ¼Ñ¡«óá¡¿Ñ¼. Æá¬¿¼ «íαáº«¼, P[0] φ¬ó¿óá½Ñ¡Γ¡« P^ ¿ ºáñáÑΓ ß¿¼ó«½, ¡á ¬«Γ«αδ⌐ π¬áºδóáÑΓ P. P[1] ºáñáÑΓ ß¿¼ó«½ ß»αáóá «Γ Γ«ú«, ¡á ¬«- Γ«αδ⌐ π¬áºδóáÑΓ P, P[2] ºáñáÑΓ ß½ÑñπεΘ¿⌐ ß¿¼ó«½ ¿ Γ.ñ. ä½∩ µÑ½Ñ⌐ ¿¡ñÑ¬ß¿α«óá¡¿∩ PChar óÑñÑΓ ßÑí∩ Γá¬¿¼ «íαáº«¼, ¬á¬ Ñß½¿ íδ «¡ «»¿ßδóá½ß∩: type TCharArray = array[0..65535] of Char; Pchar = ^TCharArray; è«¼»¿½∩Γ«α »α¿ ¿¡ñÑ¬ß¿α«óá¡¿¿ ß¿¼ó«½∞¡«ú« π¬áºáΓÑ½∩ ¡Ñ óδ- »«½¡∩ÑΓ »α«óÑα¬π ñ¿á»áº«¡á, Γá¬ ¬á¬ π ¡Ñú« ¡ÑΓ ¿¡Σ«α¼áµ¿¿ « Γ¿»Ñ, »« ¬«Γ«α«⌐ ¼«ª¡« «»αÑñÑ½¿Γ∞ ¼á¬ß¿¼á½∞¡πε ñ½¿¡π ßΓα«¬¿ ß ºáóÑαΦáε- Θ¿¼ ¡π½Ñ¼, ¡á ¬«Γ«απε π¬áºδóáÑΓ ß¿¼ó«½∞¡δ⌐ π¬áºáΓÑ½∞. Å«¬áºá¡¡á∩ ¡¿ªÑ Σπ¡¬µ¿∩ StrUpper ¿½½εßΓα¿απÑΓ ¿ß»«½∞º«óá¡¿Ñ ß¿¼ó«½∞¡«ú« π¬áºáΓÑ½∩ ñ½∩ »αÑ«íαáº«óá¡¿∩ ßΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π- ½Ñ¼ ó óÑασ¡¿⌐ αÑú¿ßΓα. function StrUpper(Srt: Pchar): Pchar; var I: Word; begin I := 0; while Str[I] <> #0 do begin Str[I] := UpCase(Str[I]); Inc(I); B.Pascal 7 & Objects/LR - 304 - end; StrUpper := Str; end; ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ, τΓ« StrUppper - φΓ« Σπ¡¬µ¿∩, á ¡Ñ »α«µÑ- ñπαá, ¿ τΓ« «¡á óßÑúñá ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ »ÑαÑñáóá½«ß∞ Ñ⌐ ó ¬áτÑßΓóÑ »áαá¼ÑΓαá. Æá¬ ¬á¬ αáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß ñ«»πß¬áÑΓ ¿ú¡«α¿α«óá¡¿Ñ αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿, StrUpper ¼«ªÑΓ ¿¡ΓÑα»αÑΓ¿α«- óáΓ∞ß∩, ¬á¬ »α«µÑñπαá: StrUpper(A); PrintStr(A); Äñ¡á¬«, StrUpper óßÑúñá ó«ºóαáΘáÑΓ »ÑαÑñáóáÑ¼«Ñ Ñ⌐ º¡áτÑ¡¿Ñ, »α¿óÑñÑ¡¡δÑ óδΦÑ «»ÑαáΓ«αδ ¼«ª¡« ß¬«¼í¿¡¿α«óáΓ∞ ó «ñ¿¡: PrintStr(StrUpper(A)); é½«ªÑ¡¡δÑ óδº«óδ Σπ¡¬µ¿⌐ αáí«Γδ ß« ßΓα«¬á¼¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ¼«úπΓ «¬áºáΓ∞ß∩ «τÑ¡∞ πñ«í¡δ¼¿, ¬«úñá óδ σ«Γ¿ΓÑ π¬áºáΓ∞ «»- αÑñÑ½Ñ¡¡πε óºá¿¼«ßó∩º∞ ¼Ñªñπ »«ß½Ññ«óáΓÑ½∞¡δ¼¿ «»Ñαáµ¿∩¼¿ ß« ßΓα«¬á¼¿. Ä»Ñαáµ¿¿ ß ß¿¼ó«½∞¡δ¼¿ π¬áºáΓÑ½∩¼¿ ───────────────────────────────────────────────────────────────── ÉáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß Borland Pascal »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ ñ½∩ αáí«Γδ ß ß¿¼ó«½∞¡δ¼¿ π¬áºáΓÑ½∩¼¿ «ΓñÑ½∞¡δÑ «»Ñαáµ¿¿. ä½∩ πóÑ- ½¿τÑ¡¿∩ ¿½¿ π¼Ñ¡∞ΦÑ¡¿∩ ß¼ÑΘÑ¡¿∩ ó º¡áτÑ¡¿¿ π¬áºáΓÑ½∩ ¼«ª¡« ¿ß- »«½∞º«óáΓ∞ «»Ñαáµ¿¿ »½εß (+) ¿ ¼¿¡πß (-). Ä»Ñαáµ¿ε ¼¿¡πß (-) ¼«ª- ¡« ¿ß»«½∞º«óáΓ∞ ñ½∩ óδτ¿ß½Ñ¡¿∩ αáßßΓ«∩¡¿∩ (αáº¡«ßΓ¿ ß¼ÑΘÑ¡¿⌐) ¼Ñªñπ ñóπ¼∩ ß¿¼ó«½∞¡δ¼¿ π¬áºáΓÑ½∩¼¿. ÅαÑñ»«½«ª¿¼, τΓ« P ¿ Q »αÑñßΓáó½∩εΓ ß«í«⌐ º¡áτÑ¡¿∩ Γ¿» PChar, á I - º¡áτÑ¡¿Ñ Γ¿»á Word. Æ«úñá ñ«»πßΓ¿¼δ ß½ÑñπεΘ¿Ñ ¬«¡ßΓαπ¬µ¿¿: P + I I »α¿íáó½∩ÑΓß∩ ¬ ß¼ÑΘÑ¡¿ε P I + P I »α¿íáó½∩ÑΓß∩ ¬ ß¼ÑΘÑ¡¿ε P P - I I óδτ¿ΓáÑΓß∩ ¿º ß¼ÑΘÑ¡¿∩ P P - Q æ¼ÑΘÑ¡¿Ñ Q óδτ¿ΓáÑΓß∩ ¿º ß¼ÑΘÑ¡¿∩ P é «»Ñαáµ¿∩σ P + I ¿ I + P I »α¿íáó½∩ÑΓß∩ ¬ áñαÑßπ, ºáñáóáÑ- ¼«¼π P. Åα¿ φΓ«¼ »«½πτáÑΓß∩ π¬áºáΓÑ½∞, ¬«Γ«αδ⌐ π¬áºδóáÑΓ ¡á I ß¿¼ó«½«ó »«ß½Ñ P. é «»Ñαáµ¿¿ P - I I óδτ¿ΓáÑΓß∩ ¿º áñαÑßá, ºáñá- óáÑ¼«ú« P, ¿ »«½πτáÑΓß∩ π¬áºáΓÑ½∞, π¬áºδóáεΘ¿⌐ ¡á I ß¿¼ó«½«ó ñ« P. Ä»Ñαáµ¿∩ P - Q óδτ¿ß½∩ÑΓ αáßßΓ«∩¡¿Ñ ¼Ñªñπ Q (¼½áñΦ¿⌐ áñαÑß) ¿ P (ßΓáαΦ¿⌐ áñαÑß). Åα¿ φΓ«¼ ó«ºóαáΘáÑΓß∩ αÑºπ½∞ΓáΓ Γ¿»á Word, »«¬áºδóáεΘ¿⌐ τ¿ß½« ß¿¼ó«½«ó ¼Ñªñπ Q ¿ P. ¥Γá «»Ñαáµ¿∩ »αÑñ»«½áúá- ÑΓ, τΓ« P ¿ Q π¬áºδóáεΓ ¡á «ñ¿¡ ¿ Γ«Γ ªÑ ¼áßß¿ó ß¿¼ó«½«ó. àß½¿ φΓ¿ ñóá π¬áºáΓÑ½∩ π¬áºδóáεΓ ¡á αáº¡δÑ ß¿¼ó«½∞¡δÑ ¼áßß¿óδ, Γ« αÑ- ºπ½∞ΓáΓ ¡Ñ»αÑñß¬áºπÑ¼. B.Pascal 7 & Objects/LR - 305 - æΓá¡ñáαΓ¡δ⌐ ß¿¡Γá¬ß¿ß Borland Pascal »«ºó«½∩ÑΓ »α¿ ßαáó¡Ñ¡¿¿ π¬áºáΓÑ½Ñ⌐ «»αÑñÑ½∩Γ∞ Γ«½∞¬« ¿σ αáóÑ¡ßΓó« ¿½¿ ¡ÑαáóÑ¡ßΓó«. ÉáßΦ¿- αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß (αáºαÑΦÑ¡¡δ⌐ »« ñ¿αÑ¬Γ¿óÑ ¬«¼»¿½∩Γ«αá {$X+}) »«ºó«½∩ÑΓ »α¿¼Ñ¡∩Γ∞ «»Ñαáµ¿¿ <, >, <= ¿ <= ¬ º¡áτÑ¡¿∩¼ PChar. çá- ¼ÑΓ¿¼, «ñ¡á¬«, τΓ« »α¿ Γá¬¿σ »α«óÑα¬áσ »αÑñ»«½áúáÑΓß∩, τΓ« ñóá ßαáó¡¿óáÑ¼δσ π¬áºáΓÑ½∩ π¬áºδóáεΓ ¡á «ñ¿¡ ¿ Γ«Γ ªÑ ¼áßß¿ó ß¿¼ó«- ½«ó. Å« φΓ«⌐ »α¿τ¿¡Ñ ßαáó¡¿óáεΓß∩ Γ«½∞¬« ß¼ÑΘÑ¡¿∩ π¬áºáΓÑ½Ñ⌐. àß- ½¿ ñóá π¬áºáΓÑ½∩ π¬áºδóáεΓ ¡á αáº½¿τ¡δÑ ß¿¼ó«½∞¡δÑ ¼áßß¿óδ, Γ« αÑºπ½∞ΓáΓ ¡Ñ «»αÑñÑ½Ñ¡. var A, B: array[0..79] of Char; P, Q: PChar; begin P := A; { P π¬áºδóáÑΓ ¡á A[0] } Q := A + 5; { Q π¬áºδóáÑΓ ¡á A[5] } if P < Q then ...; { ñ«»πßΓ¿¼á∩ »α«óÑα¬á, αÑºπ½∞ΓáΓ - True } Q := B; { Q π¬áºδóáÑΓ ¡á B[0] } if P < Q then ...; { αÑºπ½∞ΓáΓ ¡Ñ «»αÑñÑ½Ñ¡ } end; Å«ñα«í¡ÑÑ «í «»Ñαáµ¿∩σ ß PChar αáßß¬áºδóáÑΓß∩ ó â½áóÑ 6. æΓα«¬¿ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ¿ ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ───────────────────────────────────────────────────────────────── ÉáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß Borland Pascal »«ºó«½∩ÑΓ »α¿¼Ñ¡∩Γ∞ ¬ ß¿¼ó«½∞¡δ¼ ¼áßß¿óá¼ ß ¡π½Ñó«⌐ íáº«⌐ ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ Read, ReadLn ¿ Val, á ¬ ß¿¼ó«½∞¡δ¼ ¼áßß¿óá ß ¡π½Ñó«⌐ íáº«⌐ ¿ ß¿¼ó«½∞¡δ¼ π¬áºáΓÑ½∩¼ - ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ Write, WriteLn, Val, Assign ¿ Rename. ü«½ÑÑ »«ñα«í¡δÑ «»¿ßá¡¿∩ φΓ¿σ »α«µÑñπα ¼«ª¡« ¡á⌐Γ¿ ó â½á- óÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«ú- αá¼¼¿ßΓá". B.Pascal 7 & Objects/LR - 306 - Åα¿¼Ñα ¿ß»«½∞º«óá¡¿∩ Σπ¡¬µ¿⌐ ß ºáóÑαΦáεΘ¿¼ ¡π½Ñ¼ ───────────────────────────────────────────────────────────────── Åα¿óÑñÑ¼ »α¿¼Ñα ¿ßσ«ñ¡«ú« ¬«ñá, »«¬áºδóáεΘ¿⌐, ¬á¬ ¼«ª¡« ¿ß- »«½∞º«óáΓ∞ ¡Ñ¬«Γ«αδÑ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ ßΓα«¬. ¥Γ«Γ »α¿¼Ñα ¿ß»«½∞- º«óá¡ »α¿ αáºαáí«Γ¬Ñ Σπ¡¬µ¿¿ FileSplit ó ¼«ñπ½Ñ WinDos. { ¼á¬ß¿¼á½∞¡δÑ αáº¼Ñαδ ¬«¼»«¡Ñ¡Γ«ó ¿¼Ñ¡¿ Σá⌐½á } const fsPathName = 79; { ¿¼∩ ¼áαΦαπΓá } fsDirectory = 67; { ¿¼∩ ¬áΓá½«úá } fsFileName = 8; { ¿¼∩ Σá⌐½á } fsExtension = 4; { αáßΦ¿αÑ¡¿Ñ ¿¼Ñ¡¿ Σá⌐½á } { Σ½áú¿, ó«ºóαáΘáÑ¼δÑ FileSplit } const fcWildcards = $0008 { ΓαáΣáαÑΓ¡δÑ ß¿¼ó«½δ } fcDirectory = $0004 { ¿¼∩ ¬áΓá½«úá } fcFileName = $0002 { ¿¼∩ Σá⌐½á } fcExtension = $0001 { αáßΦ¿αÑ¡¿Ñ ¿¼Ñ¡¿ Σá⌐½á } { FileSplit αáºí¿óáÑΓ ¿¼∩ Σá⌐½á, ºáñá¡¡«Ñ ¼áαΦαπΓ«¼, ¡á Γα¿ } { ¬«¼»«¡Ñ¡Γá. Dir »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ ñ¿ß¬á ¿ ¬áΓá½«úá ß } { »αÑñΦÑßΓóπεΘÑ⌐ ¿ ºáóÑαΦáεΘÑ⌐ «íαáΓ¡«⌐ ¬«ß«⌐ τÑαΓ«⌐, Name } { »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ ¿¼Ñ¡¿ Σá⌐½á, á Ext - αáßΦ¿αÑ¡¿∩ ß } { »αÑñΦÑßΓóπεΘÑ⌐ Γ«τ¬«⌐. àß½¿ ¬«¼»«¡Ñ¡Γ ßΓα«¬¿-»áαá¼ÑΓαá } { αáóÑ¡ NIL, Γ« ß««ΓóÑΓßΓóπεΘá∩ τáßΓ∞ ¼áαΦαπΓá ¡Ñ } { ºá»¿ßδóáÑΓß∩. àß½¿ ¼áαΦαπΓ ¡Ñ ß«ñÑαª¿Γ ñá¡¡«ú« ¬«¼»«¡Ñ¡Γá, } { Γ« ó«ºóαáΘáÑ¼á∩ ßΓα«¬á ¬«¼»«¡Ñ¡Γá íπñÑΓ »πßΓ«⌐. } { îá¬ß¿¼á½∞¡δÑ ñ½¿¡δ ßΓα«¬, ó«ºóαáΘáÑ¼δσ ó Dir, Name ¿ Ext, } { «»αÑñÑ½∩εΓß∩ í¿Γ«óδ¼¿ ¼áß¬á¼¿ fsDirectory, fsFileName, } { fsExtension. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐ } { ¬«¼í¿¡áµ¿ε í¿Γ«óδσ ¼áß«¬ fßDirectory, fßFileName ¿ } { fßExtension, »«¬áºδóáεΘπε, ¬á¬¿Ñ ¬«¼»«¡Ñ¡Γδ »α¿ßπΓßΓóπεΓ ó } { ¼áαΦαπΓÑ. àß½¿ ¿¼∩ ¿ αáßΦ¿αÑ¡¿Ñ ß«ñÑαªáΓ ΓαáΣáαÑΓ¡δÑ } { ß¿¼ó«½δ (* ¿ ?), Γ« ó ó«ºóαáΘáÑ¼«¼ º¡áτÑ¡¿¿ πßΓá¡áó½¿óáÑΓß∩ } { Σ½áú fcWildcards. } function FileSplit(Path, Dir, Name, Ext: PChar): Word; var DirLen, NameLEn, Flags: Word; NamePtr, ExtPtr: PChar; begin NamePtr := StrRScan(Path, '/'); if NamePtr = nil then NamePtr := StrRScan(Path, ':'); if NamePtr = nil then NamePtr := Path else Inc(NamePtr); ExtPtr := StrScan(NamePtr, '.'); if ExtPtr = nil then ExtPtr := StrEnd(NamePtr); DirLen := NamePtr - Path; if DirLen > fsDirectory then DirLen := fsDirectory; NameLen := ExtPtr - NamePtr; B.Pascal 7 & Objects/LR - 307 - if NameLen > fsFilename then NameLen := fsFileName; Flags := 0; if (StrScan(NamePtr, '?') <> nil) or (StrScan(NamePtr, '*') <> nil) then Falgs := fcWildcards; if DirLen <> 0 then Flags := Flags or fcDirectory; if NameLen <> 0 then Flags := Flags or fcFilename; if ExtPtr[0] <> #0 then Flags := Flags or fcExtension; if Dir <> nil then StrLCopy(Dir, Path, DirLen); if Name <> nil then StrLCopy(Name, NamePtr, NameLen); if Ext <> nil then StrLCopy(Ext, ExtPtr, fsExtension); FileSplit := Flags: end; B.Pascal 7 & Objects/LR - 308 - ─────────────────────────────────────────────────────────────────────── â½áóá 19. êß»«½∞º«óá¡¿Ñ úαáΣ¿τÑß¬«ú« ¿¡ΓÑαΣÑ⌐ßá Borland ───────────────────────────────────────────────────────────────── î«ñπ½∞ Graph αÑá½¿ºπÑΓ »«½¡πε í¿í½¿«ΓÑ¬π ¿º í«½ÑÑ τÑ¼ 50 úαáΣ¿τÑß¬¿σ »α«úαá¼¼ - «Γ óδº«ó«ó »α«µÑñπα ¿ Σπ¡¬µ¿⌐ óδß«¬«ú« πα«ó¡∩, ¬á¬, ¡á»α¿¼Ñα, SetViewPort, Bár3D, DráwPoly, ñ« »α«úαá¼¼, «α¿Ñ¡Γ¿α«óá¡¡δσ ¡á αáí«Γπ ß í¿Γá¼¿, Γá¬¿σ, ¬á¬ GetImage ¿½¿ ÉutImage. Å«ññÑαª¿óáÑΓß∩ ¡Ñß¬«½∞¬« ó¿ñ«ó ºá¬αáΦ¿óá¡¿∩ ¿ Γ¿»«ó ½¿- ¡¿⌐, ¿ ¿¼ÑÑΓß∩ ¡Ñß¬«½∞¬« Φα¿ΣΓ«ó, ¬«Γ«αδÑ ¼«ª¡« ¿º¼Ñ¡∩Γ∞ »« óÑ½¿- τ¿¡Ñ, óδαáó¡¿óáΓ∞ ¿ «α¿Ñ¡Γ¿α«óáΓ∞ ú«α¿º«¡Γá½∞¡« ¿½¿ óÑαΓ¿¬á½∞¡«. ä½∩ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ, ¿ß»«½∞ºπεΘÑ⌐ ¼«ñπ½∞ Gráph, óá¼ ¡Ñ »«ΓαÑíπÑΓß∩ ¡¿¬á¬¿σ ó¡ÑΦ¡¿σ Σá⌐½«ó (¬α«¼Ñ, ¬«¡Ñτ¡«, ¿ßσ«ñ¡«ú« ΓÑ¬ßΓá óáΦÑ⌐ »α«úαá¼¼δ, ¬«¼»¿½∩Γ«αá ¿ ñ«ßΓπ»á ¬ ßΓá¡ñáαΓ¡δ¼ ¼«ñπ- ½∩¼ ó í¿í½¿«ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ). ê¼Ñ¡á í¿í½¿«ΓÑ¬ ¿ ¼«ñπ½∩ Graph Æáí½¿µá 19.1 ┌───────────────────┬───────────────┬──────────────────┐ │ Æ¿» »α«úαá¼¼δ │ ü¿í½¿«ΓÑ¬á │ ê¼∩ ¼«ñπ½∩ Graph │ ├───────────────────┼───────────────┼──────────────────┤ │ ÉÑá½∞¡δ⌐ αÑª¿¼ │ TURBO.TPL │ GRAPH.TPU │ │ çáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ │ TPP.TPL │ GRAPH.TPP │ └───────────────────┴───────────────┴──────────────────┘ ä½∩ ºá»πß¬á »α«úαá¼¼δ, ¿ß»«½∞ºπεΘÑ⌐ ¼«ñπ½∞ Gráαh, ¬α«¼Ñ óá- ΦÑ⌐ »α«úαá¼¼δ ß αáßΦ¿αÑ¡¿Ñ¼ .EXE óá¼ »«ΓαÑíπεΓß∩ «ñ¿¡ ¿½¿ í«½ÑÑ úαáΣ¿τÑß¬¿σ ñαá⌐óÑα«ó (ß¼. ñá½ÑÑ Σá⌐½δ .BGI). èα«¼Ñ Γ«ú« óá¼ »«Γ- αÑíπÑΓß∩ Γá¬ªÑ «ñ¿¡ ¿½¿ í«½ÑÑ Σá⌐½«ó Φα¿ΣΓ«ó (.CìR), Ñß½¿ ó óáΦÑ⌐ »α«úαá¼¼Ñ ¿ß»«½∞ºπεΓß∩ ¬á¬¿Ñ-½¿í« Φα¿ΣΓδ. Åα¿¼Ñτá¡¿Ñ: é ß««ΓóÑΓßΓó¿¿ ß ½¿µÑ¡º¿«¡¡δ¼¿ πß½«ó¿∩¼¿ óδ ¼«ªÑΓÑ αáß»α«ßΓαá¡∩Γ∞ Σá⌐½δ .CHR ¿ .BGI ¡áα∩ñπ ß« ßó«¿¼¿ »α«úαá¼¼á¼¿. äαá⌐óÑαδ ───────────────────────────────────────────────────────────────── ä½∩ »ÑαÑτ¿ß½Ñ¡¡δσ ¡¿ªÑ úαáΣ¿τÑß¬¿σ áñá»ΓÑα«ó ¿ »«½¡«ßΓ∞ε ß«ó¼ÑßΓ¿¼δσ ß ¡¿¼¿ »αÑñπß¼«ΓαÑ¡δ ß½ÑñπεΘ¿Ñ úαáΣ¿τÑß¬¿Ñ ñαá⌐óÑαδ: CGA ìÑrcules îæGA AT&T 400 EGA 3270 PC VGA IBM 8514 èáªñδ⌐ ñαá⌐óÑα ß«ñÑαª¿Γ óδ»«½¡∩Ñ¼δ⌐ ¬«ñ ¿ ñá¡¡δÑ ¿ σαá¡¿Γß∩ ó «ΓñÑ½∞¡«¼ Σá⌐½Ñ ¡á ñ¿ß¬Ñ. é« óαÑ¼∩ αáí«Γδ »α«µÑñπαá InitGraph ¿ñÑ¡Γ¿Σ¿µ¿απÑΓ úαáΣ¿τÑß¬πε á»»áαáΓπαπ ¿ »α«¿ºó«ñ¿Γ ºáúαπº¬π ¿ ¿¡¿µ¿á½¿ºáµ¿ε ß««ΓóÑΓßΓóπεΘÑú« úαáΣ¿τÑß¬«ú« ñαá⌐óÑαá, »ÑαÑó«ñ¿Γ ß¿ßΓÑ¼π ó úαáΣ¿τÑß¬¿⌐ αÑª¿¼, á ºáΓÑ¼ ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ óδºδ- óáεΘÑ⌐ »α«úαá¼¼Ñ. Åα«µÑñπαá CloseGraph óδúαπªáÑΓ ñαá⌐óÑα ¿º »á¼∩- Γ¿ ¿ ó«ßßΓá¡áó½¿óáÑΓ »αÑñδñπΘ¿⌐ ó¿ñÑ«αÑª¿¼. æ »«¼«Θ∞ε »α«úαá¼¼ RÑstoreCrtMode ¿ SetGraphMode óδ ¼«ªÑΓÑ »ÑαÑ¬½ετáΓ∞ß∩ ¼Ñªñπ ΓÑ¬ß- B.Pascal 7 & Objects/LR - 309 - Γ«óδ¼ ¿ úαáΣ¿τÑß¬¿¼ αÑª¿¼«¼. æ¼. â½áóπ 1 ó "æ»αáó«τ¡«¼ απ¬«ó«ñß- ΓóÑ »α«úαá¼¼¿ßΓá". î«ñπ½∞ Gráph ¼«ªÑΓ Γá¬ªÑ αáí«ΓáΓ∞ ¡á ¬«¼»∞εΓÑαáσ ß ñóπ¼∩ ¼«- ¡¿Γ«αá¼¿. Åα¿ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ Graph ß »«¼«Θ∞ε »α«µÑñπαδ InitGraph ñ½∩ úαáΣ¿τÑß¬«ú« ñαá⌐óÑαá ¿ ΓαÑíπÑ¼«ú« αÑª¿¼á íπñÑΓ óδíαá¡ ¡πª¡δ⌐ ¼«¡¿Γ«α. Åα¿ ºáóÑαΦÑ¡¿¿ αáí«Γδ úαáΣ¿τÑß¬«⌐ »α«úαá¼- ¼δ »αÑñδñπΘ¿⌐ ó¿ñÑ«αÑª¿¼ íπñÑΓ ó«ßßΓá¡«ó½Ñ¡. àß½¿ ñ½∩ úαáΣ¿τÑß¬«⌐ á»»áαáΓπαδ ß ñóπ¼∩ ¼«¡¿Γ«αá¼¿ ΓαÑíπÑΓß∩ áóΓ«¼áΓ¿τÑß¬«Ñ αáß»«º¡á- óá¡¿Ñ, Γ« »α«µÑñπαá InitGraph óδíÑαÑΓ ¼«¡¿Γ«α ¿ úαáΣ¿τÑß¬πε »½á- Γπ, »α¿ ¬«Γ«α«⌐ íπñÑΓ »«½πτáΓ∞ß∩ ¡á¿½πτΦÑÑ ¬áτÑßΓó« óδó«ñ¿¼«⌐ úαáΣ¿τÑß¬«⌐ ¿¡Σ«α¼áµ¿¿. ┌──────────────┬────────────────────────────────────────────────┐ │ äαá⌐óÑα │ Ç»»áαáΓπαá │ ├──────────────┼────────────────────────────────────────────────┤ │ CGA.BGI │ äαá⌐óÑα ñ½∩ áñá»ΓÑα«ó CGA, MCGA Σ¿α¼δ IBM. │ │ EGAVGA.BGI │ äαá⌐óÑα ñ½∩ áñá»ΓÑα«ó EGA, VGA Σ¿α¼δ IBM. │ │ HERC.BGI │ äαá⌐óÑα ñ½∩ ¼«¡«σα«¼¡«ú« áñá»ΓÑαá Hercules Σ¿α-│ │ │ ¼δ IBM. │ │ ATT.BGI │ äαá⌐óÑα ñ½∩ AT&T 6300 (400 ßΓα«¬). │ │ PC3270.BGI │ äαá⌐óÑα ñ½∩ IBM 3270 Éæ. │ │ IBM8514.BGI │ äαá⌐óÑα ñ½∩ IBM 8514. │ └──────────────┴────────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 310 - Å«ññÑαª¬á πßΓα«⌐ßΓóá IBM 8514 ───────────────────────────────────────────────────────────────── Borland Pascal »«ññÑαª¿óáÑΓ úαáΣ¿τÑß¬πε »½áΓπ IBM 8514, ¬«- Γ«αá∩ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡«óπε úαáΣ¿τÑß¬πε »½áΓπ ß óδß«¬¿¼ αáºαÑ- ΦÑ¡¿Ñ¼, »«ºó«½∩εΘπε »«½πτ¿Γ∞ αáºαÑΦáεΘπε ß»«ß«í¡«ßΓ∞ ñ« 1024σ768 Γ«τÑ¬ ¿ »á½¿Γαπ, ß«ñÑαªáΘπε 256 «ΓΓÑ¡¬«ó ¿º 256 µóÑΓ«ó. öá⌐½ ñαá⌐óÑαá ñ½∩ φΓ«⌐ úαáΣ¿τÑß¬«⌐ »½áΓδ ¡áºδóáÑΓß∩ IBM8514.BGI. âαáΣ¿τÑß¬á∩ »½áΓá IBM 8514 ¡Ñ ¼«ªÑΓ »αáó¿½∞¡« αáß»«º¡áóáΓ∞ß∩ Borland Pascal »α¿ áóΓ«¼áΓ¿τÑß¬«¼ «í¡áαπªÑ¡¿¿ («¡á íπñÑΓ αáß»«º- ¡áóáΓ∞ß∩ á½ú«α¿Γ¼á¼¿ áóΓ««í¡áαπªÑ¡¿∩, ¬á¬ »½áΓá VGA). Æá¬¿¼ «íαá- º«¼, τΓ«íδ ¿ß»«½∞º«óáΓ∞ »½áΓπ IBM 8514, »ÑαÑ¼Ñ¡¡«⌐ GraphDriver »α¿ óδº«óÑ InitGraph ¡πª¡« »α¿ßó«¿Γ∞ º¡áτÑ¡¿Ñ IBM8514 (¬«Γ«α«Ñ «»αÑñÑ½Ñ¡« ó ¼«ñπ½Ñ Graph). Åα¿ αáí«ΓÑ ß »½áΓ«⌐ IBM 8514 ¡Ñ ß½Ñ- ñπÑΓ ¿ß»«½∞º«óáΓ∞ ß InitGraph DetectGraph ¿½¿ DETECT (Ñß½¿ Γ«½∞¬« óδ ¡Ñ σ«Γ¿ΓÑ φ¼π½¿α«óáΓ∞ αÑª¿¼ VGA). ä½∩ »½áΓδ IBM 8514 »«ññÑαª¿óáεΓß∩ ß½ÑñπεΘ¿Ñ αÑª¿¼δ: IBM8514LO (640σ480 φ½Ñ¼Ñ¡Γ«ó ¿º«íαáªÑ¡¿∩) ¿ IBM8514HI (1024σ768 φ½Ñ¼Ñ¡Γ«ó ¿º«íαáªÑ¡¿∩). ÄíÑ ¬«¡ßΓá¡Γδ αÑª¿¼á «»αÑñÑ½Ñ¡δ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ τáß- Γ¿ GRAPH.TPU. ä½∩ «»αÑñÑ½Ñ¡¿∩ µóÑΓ«ó ó »½áΓÑ IBM 8514 ¿ß»«½∞ºπεΓß∩ Γα¿ 6-í¿Γ«óδσ º¡áτÑ¡¿∩. ä½∩ ¬áªñ«ú« «»αÑñÑ½∩Ñ¼«ú« µóÑΓá ¿¼ÑεΓß∩ 6-í¿- Γ«óδÑ ¬«¼»«¡Ñ¡Γδ Red (¬αáß¡δ⌐), Green (ºÑ½Ñ¡δ⌐) ¿ Blue (ú«½πí«⌐). ä½∩ Γ«ú«, τΓ«íδ »α¿ αáí«ΓÑ ß úαáΣ¿τÑß¬«⌐ »½áΓ«⌐ IBM 8514 »«½∞º«- óáΓÑ½∞ ¼«ú ºáñáóáΓ∞ µóÑΓá, ó í¿í½¿«ΓÑ¬π BGI ñ«íáó½Ñ¡á ¡«óá∩ »α«ú- αá¼¼á. ¥Γá »α«úαá¼¼á «»αÑñÑ½∩ÑΓß∩ ó ¼«ñπ½Ñ GRAPH.TPU ß½ÑñπεΘ¿¼ «íαáº«¼: procedure SetRGBPalette(ColorNum, Red, Green, Blue: Word); Çαúπ¼Ñ¡Γ ColorNum ºáñáÑΓ ºá»¿ß∞ »á½¿Γαδ, ¬«Γ«απε ¡πª¡« ºáúαπ- º¿Γ∞. ¥Γ«Γ áαúπ¼Ñ¡Γ »αÑñßΓáó½∩ÑΓ ß«í«⌐ µÑ½«Ñ º¡áτÑ¡¿Ñ ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 255 (ñÑß.). Çαúπ¼Ñ¡Γδ Red, Green ¿ Blue «»αÑñÑ½∩εΓ ¬«¼»«- ¡Ñ¡Γδ µóÑΓ«ó ó ºá»¿ß¿ »á½¿Γαδ. êß»«½∞ºπÑΓß∩ Γ«½∞¬« ¼½áñΦ¿⌐ íá⌐Γ φΓ¿σ º¡áτÑ¡¿⌐ ¿ Γ«½∞¬« 6 ßΓáαΦ¿σ í¿Γ«ó φΓ«ú« íá⌐Γá ºáúαπªáεΓß∩ ó »á½¿Γαπ. äαπú¿Ñ »α«úαá¼¼δ, ¼«ñ¿Σ¿µ¿απεΘ¿Ñ »á½¿Γαπ (SetAllPalette, SetPalette, GetPalette), »α¿ αáí«ΓÑ ß úαáΣ¿τÑß¬«⌐ »½áΓ«⌐ IBM 8514 ¿ß»«½∞º«óáΓ∞ ¡Ñ ß½ÑñπÑΓ. ä½∩ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß úαáΣ¿τÑß¬¿¼¿ áñá»ΓÑαá¼¿ Σ¿α¼δ IBM ñαá⌐óÑ- αδ Σ«α¼áΓá BGI «»αÑñÑ½∩εΓ ñ½∩ »Ñαóδσ 16 µóÑΓ«ó »á½¿Γαδ IBM 8514 º¡áτÑ¡¿∩ µóÑΓ«ó, »α¿¡∩ΓδÑ »« π¼«½τá¡¿ε ñ½∩ áñá»ΓÑα«ó EGA/VGA. ¥Γ¿ º¡áτÑ¡¿∩ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¡Ñ¿º¼Ñ¡Ñ¡¡«¼ ó¿ñÑ ¿½¿ ¼«ñ¿Σ¿µ¿α«- óáΓ∞ß∩ ß »«¼«Θ∞ε »α«µÑñπαδ SetGRBPalette. B.Pascal 7 & Objects/LR - 311 - æ¿ßΓÑ¼á ¬««αñ¿¡áΓ ───────────────────────────────────────────────────────────────── Å« ß«ú½áΦÑ¡¿ε óÑασ¡¿⌐ ½Ñóδ⌐ πú«½ φ¬αá¡á ¿¼ÑÑΓ ¬««αñ¿¡áΓπ (0,0). ô í«½ÑÑ »αáó«ú« ßΓ«½íµá ¬««αñ¿¡áΓá σ í«½∞ΦÑ, π í«½ÑÑ ¡¿ª- ¡Ñ⌐ ßΓα«¬¿ í«½∞ΦÑ ¬««αñ¿¡áΓá y. Æ« ÑßΓ∞ ¬««αñ¿¡áΓá σ πóÑ½¿τ¿óáÑΓ- ß∩ »α¿ »ÑαÑ¼ÑΘÑ¡¿¿ ó»αáó«, á ¬««αñ¿¡áΓá y - »α¿ »ÑαÑ¼ÑΘÑ¡¿¿ ó¡¿º. Æá¬¿¼ «íαáº«¼ ¬««αñ¿¡áΓδ ¬áªñ«ú« ¿º τÑΓδαÑσ πú½«ó ¿ ¬«¡¬αÑΓ¡«⌐ Γ«τ¬¿ (ßÑαÑñ¿¡δ φ¬αá¡á) íπñπΓ óδú½∩ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαáº«¼: (0,0) (319,0) ┌───────────────────────┐ │ │ │ (159,99) │ │ . │ │ │ │ │ │ │ └───────────────────────┘ (0,199) (319,199) É¿ß. 19.1 ¥¬αá¡ ß ¬««αñ¿¡áΓá¼¿ xy. ÆÑ¬πΘ¿⌐ π¬áºáΓÑ½∞ ───────────────────────────────────────────────────────────────── Å«¡∩Γ¿Ñ ΓÑ¬πΘÑú« π¬áºáΓÑ½∩ ¿ß»«½∞ºπÑΓß∩ ó« ¼¡«ú¿σ úαáΣ¿τÑß- ¬¿σ ß¿ßΓÑ¼áσ. Å«¡∩Γ¿Ñ ΓÑ¬πΘÑú« π¬áºáΓÑ½∩ á¡á½«ú¿τ¡« »«¡∩Γ¿ε ¬πα- ß«αá ñ½∩ ΓÑ¬ßΓ«ó«ú« αÑª¿¼á, ºá ¿ß¬½ετÑ¡¿Ñ¼ Γ«ú«, τΓ« ΓÑ¬πΘ¿⌐ π¬á- ºáΓÑ½∞ ¡Ñó¿ñ¿¼. Write('ABC'); B.Pascal 7 & Objects/LR - 312 - é ΓÑ¬ßΓ«ó«¼ αÑª¿¼Ñ »αÑñΦÑßΓóπεΘ¿⌐ «»ÑαáΓ«α Write «ßΓáó¿Γ ¬παß«α ó ¬«½«¡¬Ñ, ¡Ñ»«ßαÑñßΓóÑ¡¡« ß½ÑñπεΘ¿¼ ºá íπ¬ó«⌐ C. àß½¿ íπ¬óá C íδ½á óóÑñÑ¡á ó ¬«½«¡¬Ñ 80, Γ« ¬παß«α »ÑαÑ⌐ñÑΓ ¡á ¬«½«¡¬π 1 ß½ÑñπεΘÑ⌐ ßΓα«¬¿. àß½¿ íπ¬óá c íδ½á óóÑñÑ¡á ó »«º¿µ¿¿ 80 ßΓα«¬¿ 25, Γ« »α«¿º«⌐ñÑΓ »α«½¿ßΓδóá¡¿Ñ (»α«¬απΓ¬á) φ¬αá¡á óóÑασ ¡á 1 ßΓα«¬π ¿ ¬παß«α íπñÑΓ ¡áσ«ñ¿Γß∩ ó 1 »«º¿µ¿¿ 25 ßΓα«¬¿. MoveTo(0,0); LineTo(20,20) é úαáΣ¿τÑß¬«¼ αÑª¿¼Ñ ñá¡¡δ⌐ «»ÑαáΓ«α LinÑÆ« «ßΓáó¿Γ ΓÑ¬πΘ¿⌐ π¬áºáΓÑ½∞ ó »«ß½Ññ¡Ñ⌐ ºáñá¡¡«⌐ Γ«τ¬Ñ (20,20). àß½¿ ñÑ⌐ßΓóπÑΓ αÑ- ª¿¼ «ΓßÑτÑ¡¿∩, Γ« αÑá½∞¡« óδó«ñ¿¼á∩ »α∩¼á∩ íπñÑΓ «ΓßÑτÑ¡á ñ« ΓÑ- ¬πΘÑ⌐ Γ«τ¬¿. çá¼ÑΓ¿¼, τΓ« ΓÑ¬πΘ¿⌐ π¬áºáΓÑ½∞ ¡¿¬«úñá ¡Ñ «ΓßÑ¬áÑΓ- ß∩. è«¼á¡ñá î«vÑÆ« ∩ó½∩ÑΓß∩ φ¬ó¿óá½Ñ¡Γ«¼ ¬«¼á¡ñδ GotoXY. àñ¿¡ß- ΓóÑ¡¡«Ñ ÑÑ ¡áº¡áτÑ¡¿Ñ - φΓ« »ÑαÑ¼ÑΘÑ¡¿Ñ ΓÑ¬πΘÑú« π¬áºáΓÑ½∩. ÅÑαÑ- ¼ÑΘÑ¡¿Ñ ΓÑ¬πΘÑú« π¬áºáΓÑ½∩ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ Γ«½∞¬« ó ß½Ññπε- Θ¿σ ¬«¼á¡ñáσ, ¿ß»«½∞ºπεΘ¿σ ΓÑ¬πΘ¿⌐ π¬áºáΓÑ½∞: MoveTo, InitGraph, MoveRel, LineTo, LineRel, OutText, SetGraphMode, ClearDevice, SetViewPort ¿ ClearViewPort. Å«ß½Ññ¡¿Ñ 5 ¿º ¡¿σ »ÑαÑ¼ÑΘáεΓ ΓÑ¬π- Θ¿⌐ π¬áºáΓÑ½∞ ó Γ«τ¬π (0,0). B.Pascal 7 & Objects/LR - 313 - ÆÑ¬ßΓ ───────────────────────────────────────────────────────────────── é úαáΣ¿τÑß¬«¼ αÑª¿¼Ñ ñ½∩ óδó«ñá ΓÑ¬ßΓá ¿ß»«½∞ºπÑΓß∩ Φα¿ΣΓ ß αáßΓα«¼ 8σ8 ¿ ¡Ñß¬«½∞¬« óÑ¬Γ«α¡δσ Φα¿ΣΓ«ó. ÉáßΓα«óδ⌐ ß¿¼ó«½ ºáñá- ÑΓß∩ ß »«¼«Θ∞ε ¼áΓα¿µδ φ½Ñ¼Ñ¡Γ«ó ¿º«íαáªÑ¡¿∩. éÑ¬Γ«α¡δ⌐ Φα¿ΣΓ ºá- ñáÑΓß∩ α∩ñ«¼ óÑ¬Γ«α«ó, ¬«Γ«αδÑ π¬áºδóáεΓ úαáΣ¿τÑß¬«⌐ ß¿ßΓÑ¼Ñ, ¬á¬ α¿ß«óáΓ∞ Φα¿ΣΓ. ÅαÑ¿¼πΘÑßΓó« ¿ß»«½∞º«óá¡¿∩ óÑ¬Γ«α¡δσ Φα¿ΣΓ«ó ßΓá¡«ó¿Γß∩ «τÑ- ó¿ñ¡δ¼, ¬«úñá óδ ¡áτ¿¡áÑΓÑ α¿ß«óáΓ∞ í«½∞Φ¿Ñ ß¿¼ó«½δ. Å«ß¬«½∞¬π ΦΓα¿σ«ó«⌐ Φα¿ΣΓ ºáñáÑΓß∩ óÑ¬Γ«αá¼¿, Γ« »α¿ πóÑ½¿τÑ¡¿¿ Φα¿ΣΓá ¬á- τÑßΓó« ¿ αáºαÑΦÑ¡¿Ñ «ßΓáεΓß∩, ΓÑ¼ ¡Ñ ¼Ñ¡ÑÑ, σ«α«Φ¿¼¿. è«úñá πóÑ½¿τ¿óáÑΓß∩ αáßΓα«óδ⌐ Φα¿ΣΓ, Γ« ¼áΓα¿µá π¼¡«ªáÑΓß∩ ¡á ¼áßΦΓáí¡δ⌐ ¬«φΣΣ¿µ¿Ñ¡Γ, á ¬«úñá φΓ«Γ ¼áßΦΓáí¡δ⌐ ¬«φΣΣ¿µ¿Ñ¡Γ πóÑ½¿τ¿óáÑΓß∩, αáºαÑΦÑ¡¿Ñ π ß¿¼ó«½«ó ßΓá¡«ó¿Γß∩ í«½ÑÑ úαπíδ¼. ä½∩ ¼á½Ñ¡∞¬¿σ Φα¿ΣΓ«ó αáßΓα«óδ⌐ Φα¿ΣΓ ñ«½ªÑ¡ íδΓ∞ ñ«ßΓáΓ«τ¡« »α¿Ñ¼½Ñ- ¼δ¼, ¡« ñ½∩ í«½∞Φ¿σ Φα¿ΣΓ«ó óδ, óÑα«∩Γ¡«, ºáσ«Γ¿ΓÑ óδíαáΓ∞ óÑ¬- Γ«α¡δ⌐ Φα¿ΣΓ. éδαáó¡¿óá¡¿Ñ úαáΣ¿τÑß¬«ú« ΓÑ¬ßΓá π»αáó½∩ÑΓß∩ »α«µÑñπα«⌐ SetTextJustify. îáßΦΓáí¿α«óá¡¿Ñ ¿ óδí«α Φα¿ΣΓá «ßπΘÑßΓó½∩ÑΓß∩ ß »«¼«Θ∞ε »α«µÑñπαδ SetTextStyle. âαáΣ¿τÑß¬¿⌐ ΓÑ¬ßΓ óδó«ñ¿Γß∩ ß »«- ¼«Θ∞ε »α«µÑñπα ÄutText ¿½¿ ÄutTextòY. çá»α«ß « ΓÑ¬πΘ¿σ πßΓá¡«ó- ½Ñ¡¡δσ ñ½∩ ΓÑ¬ßΓá »áαá¼ÑΓαáσ óδ»«½¡∩ÑΓß∩ ß »«¼«Θ∞ε «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ GetTextSettings. éÑ¬Γ«α¡δÑ Φα¿ΣΓδ σαá¡∩Γß∩ ¬áªñδ⌐ ó «Γ- ñÑ½∞¡«¼ Σá⌐½Ñ ¡á ñ¿ß¬Ñ ¿ ñ«½ª¡δ »α¿ßπΓßΓó«óáΓ∞ Γá¼ ó« óαÑ¼∩ αáí«- Γδ (»α¿ óδº«óÑ »α«µÑñπαδ SetTextStyle). Éáº¼Ñα óÑ¬Γ«α¡«ú« Φα¿ΣΓá ¼«ª¡« ¡áßΓα«¿Γ∞ ß »«¼«Θ∞ε »α«µÑñπαδ SetUserCharSize. öá⌐½δ Φα¿Σ- Γ«ó (¬«Γ«αδÑ ¿¼ÑεΓ αáßΦ¿αÑ¡¿Ñ .CHR) ¼«úπΓ ºáúαπªáΓ∞ß∩ ß ñ¿ß¬á áó- Γ«¼áΓ¿τÑß¬¿ ¼«ñπ½Ñ¼ Graph, ¿½¿ ¿σ ¼«ª¡« ¬«¼»«¡«óáΓ∞ ß »α«úαá¼¼«⌐ »«½∞º«óáΓÑ½∩ ¿½¿ ºáúαπªáΓ∞ ¿ "αÑú¿ßΓα¿α«óáΓ∞" ß »«¼«Θ∞ε ¼«ñπ½∩ Graph. ä½∩ »αÑ«íαáº«óá¡¿∩ Σá⌐½á Φα¿ΣΓá (¿½¿ ½εí«ú« ñαπú«ú« »αÑñ¡áº- ¡áτÑ¡¡«ú« ñ½∩ φΓ«⌐ µÑ½¿ ñó«¿τ¡«ú« Σá⌐½á ñá¡¡δσ) ó Σá⌐½ .OBJ, ¬«- Γ«αδ⌐ ¼«ª¡« ¬«¼»«¡«óáΓ∞ ß ¼«ñπ½Ñ¼ ¿½¿ »α«úαá¼¼«⌐ ß »«¼«Θ∞ε ñ¿αÑ¬- Γ¿óδ ¬«¼»¿½∩Γ«αá $L ó Borland Pascal »αÑñπß¼«ΓαÑ¡á ß»Ñµ¿á½∞¡á∩ πΓ¿½¿Γá BINOBJ.EXE. Åα¿ φΓ«¼ ßΓá¡«ó¿Γß∩ ó«º¼«ª¡δ¼ »«¼ÑßΓ¿Γ∞ óßÑ Σá⌐½δ Φα¿ΣΓ«ó ó óδ»«½¡∩Ñ¼δ⌐ Σá⌐½ .EXE (ß¼. ¬«¼¼Ñ¡Γáα¿¿ ó ¡áτá½Ñ »α¿¼Ñαá »α«úαá¼¼δ BGILINK.PAS ¡á ñ¿ßΓα¿íπΓ¿ó¡«¼ ñ¿ß¬Ñ). B.Pascal 7 & Objects/LR - 314 - âαáΣ¿τÑß¬¿Ñ ¿º«íαáªÑ¡¿∩ ¿ ¿σ ó¿ñδ ───────────────────────────────────────────────────────────────── ä½∩ óδτÑατ¿óá¡¿∩ ¿ ºá¬αáΦ¿óá¡¿∩ úαáΣ¿τÑß¬¿σ ¿º«íαáªÑ¡¿∩, ó¬½ετá∩ Γ«τ¬¿, »α∩¼δÑ, «¬απª¡«ßΓ¿, ñπú¿, φ½½¿»ßδ, »α∩¼«πú«½∞¡¿¬¿, ¼¡«ú«πú«½∞¡¿¬¿, ΦΓα¿σ«ó¬π, ΓαÑσ¼Ñα¡πε ΦΓα¿σ«ó¬π ¿ ßÑ¬Γ«αδ, ¿¼ÑÑΓ- ß∩ µÑ½δ⌐ α∩ñ «íÑß»Ñτ¿óáεΘ¿σ »α«úαá¼¼. ä½∩ π»αáó½Ñ¡¿∩ ó¿ñ«¼ ½¿¡¿¿ - íπñÑΓ «¡á Γ«¡¬«⌐ ¿½¿ Γ«½ßΓ«⌐, ¡Ñ»αÑαδó¡«⌐ ¿½¿ ß«ßΓ«∩ΘÑ⌐ ¿º Γ«- τÑ¬, ¿½¿ ªÑ »«ßΓα«Ñ¡¡«⌐ »« óáΦÑ¼π ß«íßΓóÑ¡¡«¼π «íαáºµπ - ¼«ª¡« ¿ß»«½∞º«óáΓ∞ »α«µÑñπαπ SetLineStyle. ä½∩ ºá¬αáΦ¿óá¡¿∩ «í½áßΓ¿ ¿½¿ ¼¡«ú«πú«½∞¡¿¬á »ÑαÑßÑ¬áεΘÑ⌐ß∩ ΦΓα¿σ«ó¬«⌐ ¿½¿ τÑ¼-½¿í« í«½ÑÑ ß½«ª¡δ¼ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ »α«µÑñπ- αδ SetFillStyle, SetFloodPattern, FillPoly ¿ FloodFill. Äí½áßΓ¿ »α«ß¼«Γαá ¿ ñó«¿τ¡δÑ «íαáºδ ───────────────────────────────────────────────────────────────── Åα«µÑñπαá ViewPoint »«ºó«½∩ÑΓ óßÑ¼ ¬«¼á¡ñá¼ óδó«ñá αáí«ΓáΓ∞ ó »α∩¼«πú«½∞¡«⌐ «í½áßΓ¿ φ¬αá¡á. âαáΣ¿¬¿, »α∩¼δÑ ¿ ñαπú¿Ñ úαáΣ¿- τÑß¬¿Ñ ¿º«íαáªÑ¡¿∩ (óÑß∞ úαáΣ¿τÑß¬¿⌐ óδó«ñ) ßó∩ºδóáÑΓß∩ ß «í- ½áßΓ∞ε »α«ß¼«Γαá, »«¬á φΓá «í½áßΓ∞ ¡Ñ ¿º¼Ñ¡∩ÑΓß∩. ÅαÑñπß¼«ΓαÑ¡δ »α«úαá¼¼δ ñ½∩ «τ¿ßΓ¬¿ «í½áßΓ¿ »α«ß¼«Γαá ¿ ßτ¿Γδóá¡¿∩ ÑÑ ΓÑ¬πΘ¿σ «»αÑñÑ½Ñ¡¿⌐. àß½¿ ºáñá¡ αÑª¿¼ «ΓßÑτÑ¡¿∩, Γ« óÑß∞ úαáΣ¿τÑß¬¿⌐ óδ- ó«ñ «ΓßÑτÑΓß∩ ñ« ΓÑ¬πΘÑ⌐ Γ«τ¬¿. çá¼ÑΓ¿¼, τΓ« ΓÑ¬πΘ¿⌐ π¬áºáΓÑ½∞ ¡¿¬«úñá ¡Ñ «ΓßÑ¬áÑΓß∩. ä½∩ ßτ¿Γδóá¡¿∩ ¿ óδó«ñá φ½Ñ¼Ñ¡Γ«ó ¿º«íαáªÑ¡¿∩ »αÑñπß¼«ΓαÑ¡δ »α«µÑñπαδ GetPixel ¿ Putpixel. ùΓ«íδ ß«σαá¡¿Γ∞ ¿ ó«ßßΓá¡«ó¿Γ∞ ¡á φ¬αá¡Ñ »α∩¼«πú«½∞¡πε «í½áßΓ∞, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ »α«µÑñπαδ GetImage ¿ PutImage. Ä¡¿ «íÑß»Ñτ¿óáεΓ »«½¡«Ñ óδ»«½¡Ñ¡¿Ñ «»Ñαáµ¿⌐ »α«µÑñπαδ éitélt (¡«α¼á½∞¡«Ñ, σ«r, «r, ánd, n«t). B.Pascal 7 & Objects/LR - 315 - Å«ññÑαª¬á ßΓαá¡¿µ ¿ µóÑΓ«ó ───────────────────────────────────────────────────────────────── ê¼ÑÑΓß∩ ¼¡«ú« ñαπú¿σ »«ññÑαª¿óáεΘ¿σ »α«úαá¼¼, ó¬½ετá∩ »«ñ- ñÑαª¬π ñ½∩ ¡Ñß¬«½∞¬¿σ úαáΣ¿τÑß¬¿σ ßΓαá¡¿µ (Γ«½∞¬« ñ½∩ áñá»ΓÑα«ó EGA, VGA ¿ ìÑrcules; φΓ« «ß«íÑ¡¡« »«½Ñº¡« »α¿ ¿ß»«½∞º«óá¡¿¿ ó ¼π½∞Γ¿»½¿¬áµ¿¿), »á½¿Γαδ, µóÑΓá ¿ Γá¬ ñá½ÑÑ. Äíαáí«Γ¬á «Φ¿í«¬ ───────────────────────────────────────────────────────────────── é¡πΓαÑ¡¡¿Ñ «Φ¿í¬¿ ¼«ñπ½∩ Graph ó«ºóαáΘáεΓß∩ Σπ¡¬µ¿Ñ⌐ GraphResult. ¥Γá Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¬«ñ «Φ¿í¬¿, »«¬áºδóáεΘ¿⌐ ß«ß- Γ«∩¡¿Ñ »«ß½Ññ¡Ñ⌐ úαáΣ¿τÑß¬«⌐ «»Ñαáµ¿¿. è«ñδ ó«ºóαáΓá »α¿óÑñÑ¡δ ó αáºñÑ½Ñ »« GraphResult ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬¿") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá". ç¡áτÑ¡¿Ñ ¬«ñá ó«ºóαáΓá ñ½∩ Σπ¡¬µ¿¿ GraphResult πßΓá¡áó½¿óá- ÑΓß∩ ß½ÑñπεΘ¿¼¿ »α«µÑñπαá¼¿: DetectGraph SetTextStile SetAllPalette InitGraph SetGraphMode SetFillPattern FloodFill CloseGraph SetFillStyle FillPoly GetGraphMode SetGraphBufSize DrawPoly ImageSize SetGraphMode Bar InstallUserDriver SetLineStyle Bár3D InstallUserFont SetPalette PieSlice RegisterBGIDriver SetTextJustify ClearViewPort RegisterGBIFont çá¼ÑΓ¿¼, τΓ« Σπ¡¬µ¿∩ GraphResult »«ß½Ñ «íαáΘÑ¡¿∩ ¬ ¡Ñ⌐ ßíαá- ßδóáÑΓ ¬«ñ «Φ¿í¬¿ ó 0. Æá¬¿¼ «íαáº«¼, »«½∞º«óáΓÑ½∞ ñ«½ªÑ¡ ß«σαá- ¡¿Γ∞ º¡áτÑ¡¿Ñ ¬«ñá «Φ¿í¬¿ ó« óαÑ¼Ñ¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¿ ºáΓÑ¼ »α«óÑ- α¿Γ∞ Ñú«. B.Pascal 7 & Objects/LR - 316 - ìáτá½« αáí«Γδ ───────────────────────────────────────────────────────────────── Åα¿óÑñÑ¼ »α¿¼Ñα »α«ßΓ«⌐ úαáΣ¿τÑß¬«⌐ »α«úαá¼¼δ: 1 program GraphTest; 2 uses 3 Graph; 4 var 5 GraphDriver : integer; 6 GraphMode : integer; 7 ErrorCode : integer; 8 begin 9 GraphDriver := Detect; { ôßΓá¡«ó¿Γ∞ Σ½áú: óδ»«½¡¿Γ∞ αáß»«º¡áóá¡¿Ñ } 10 InitGraph(GraphDriver, GraphMode, 'C:\DRIVERS'); 11 ErrorCode := GraphResult; 12 if ErrorCode <> grOk then { «Φ¿í¬á? } 13 begin 14 Writeln('ÄΦ¿í¬á úαáΣ¿¬¿: ',GraphErrorMsg(ErrorCode); 15 Writeln('Åα«úαá¼¼á áóáα¿⌐¡« ºáóÑαΦ¿½á αáí«Γπ...'); 16 Halt(1); 17 end; 18 Rectangle(0, 0, GetMaxX, GetMaxY); { ¡áα¿ß«óáΓ∞ αá¼¬π αáº¼Ñα«¼ ó φ¬αá¡ } 19 SetTextJustify(CenterText, CenterText); { µÑ¡Γα¿α«óá- ¡¿Ñ ΓÑ¬ßΓá } 20 SetTextStyle(DefaultFont, HorizDir, 3); 21 OutTextXY(GetMaxX div 2, GetMaxY div 2, { µÑ¡Γα φ¬αá¡á } 22 'âαáΣ¿τÑß¬¿⌐ ¿¡ΓÑαΣÑ⌐ß Σ¿α¼δ Borland (BGI)'); 23 Readln; 24 CloseGraph; 25 end. { GraphTest } Åα«úαá¼¼á ¡áτ¿¡áÑΓß∩ ß «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ InitGraph, ¬«- Γ«αá∩ áóΓ«¼áΓ¿τÑß¬¿ »α«óÑα∩ÑΓ ¡á½¿τ¿Ñ á»»áαáΓπαδ ¿ ºáúαπªáÑΓ ß«- «ΓóÑΓßΓóπεΘ¿⌐ úαáΣ¿τÑß¬¿⌐ ñαá⌐óÑα (¡áσ«ñ∩Θ¿⌐ß∩ ó ¬áΓá½«úÑ C: DRIVERS). àß½¿ úαáΣ¿τÑß¬á∩ á»»áαáΓπαá ¡Ñ αáß»«º¡á¡á ¿½¿ ó »α«µÑß- ßÑ ¿¡¿µ¿á½¿ºáµ¿¿ »α«¿º«Φ½á «Φ¿í¬á, Γ« ¡á φ¬αá¡ óδó«ñ¿Γß∩ ß««íΘÑ- ¡¿Ñ «í «Φ¿í¬Ñ ¿ »α«úαá¼¼á »αÑ¬αáΘáÑΓ αáí«Γπ. é »α«Γ¿ó¡«¼ ß½πτáÑ óñ«½∞ ¬αáÑó φ¬αá¡á α¿ßπÑΓß∩ »α∩¼«πú«½∞¡¿¬ ¿ ó µÑ¡ΓαÑ φ¬αá¡á óδó«- ñ¿Γß∩ ΓÑ¬ßΓ. Å½áΓá AT&T 400 ¿½¿ IBM 8514 ¡Ñ αáß»«º¡áÑΓß∩ áóΓ«¼áΓ¿τÑß¬¿. ÆÑ¼ ¡Ñ ¼Ñ¡ÑÑ, óδ ¼«ªÑΓÑ »«½∞º«óáΓ∞ß∩ ñαá⌐óÑα«¼ úαáΣ¿¬¿ AT&T »πΓÑ¼ «Γ¼Ñ¡δ áóΓ«¼áΓ¿τÑß¬«⌐ »α«óÑα¬¿, »ÑαÑßδ½¬¿ ¿ß»«½¡∩Ñ¼«ú« ¬«ñá ñαá⌐- óÑαá AT&T »α«µÑñπαÑ InitGraph ¿ πßΓá¡«ó¬¿ ñ«»πßΓ¿¼«ú« úαáΣ¿τÑß¬«- ú« αÑª¿¼á. çá¼Ñ¡¿ΓÑ 8 ¿ 9 ßΓα«¬π ó »αÑñδñπΘÑ¼ »α¿¼ÑαÑ ß½ÑñπεΘ¿¼¿ ΓαÑ¼∩ ßΓα«¬á¼¿: GraphDriver := ATT400; GraphMode := ATT400Hi; InitGraph(GraphDriver, GraphMode, 'C:\BP\BGI'); B.Pascal 7 & Objects/LR - 317 - ¥Γ« π¬áªÑΓ úαáΣ¿τÑß¬«⌐ ß¿ßΓÑ¼Ñ ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ ºáúαπº¬¿ ñαá⌐óÑαá πßΓα«⌐ßΓóá AT&T400, αáß»«½«ªÑ¡¡«ú« ó ¬áΓá½«úÑ C:\BP\BGI, ¿ πßΓá¡«ó¿Γ úαáΣ¿τÑß¬¿⌐ αÑª¿¼ 640 ¡á 400. Åα¿óÑñÑ¼ ÑΘÑ «ñ¿¡ »α¿¼Ñα, ¬«Γ«αδ⌐ »«¬áºδóáÑΓ, ¬á¬ ¼«ª¡« »Ñ- αÑ¬½ετáΓ∞ß∩ ¼Ñªñπ úαáΣ¿τÑß¬¿¼ ¿ ΓÑ¬ßΓ«óδ¼ αÑª¿¼á¼¿: 1 program GraphTest; 2 uses 3 Graph; 4 var 5 GraphDriver : integer; 6 GraphMode : integer; 7 ErrorCode : integer; 8 begin 9 GraphDriver := Detect; { ôßΓá¡«ó¿Γ∞ Σ½áú: óδ»«½¡¿Γ∞ αáß»«º¡áóá¡¿Ñ } 10 InitGraph(GraphDriver, GraphMode, 'C:\DRIVERS'); 11 ErrorCode := GraphResult; 12 if ErrorCode <> grOk then { «Φ¿í¬á? } 13 begin 14 Writeln('ÄΦ¿í¬á úαáΣ¿¬¿: ',GraphErrorMsg(ErrorCode); 15 Writeln('Åα«úαá¼¼á áóáα¿⌐¡« ºáóÑαΦ¿½á αáí«Γπ...'); 16 Helt(1); 17 end; 18 OutText('âαáΣ¿τÑß¬¿⌐ αÑª¿¼. ìáª¼¿ΓÑ <RETURN>'); 19 Readln; 20 RestoreCrtMode; 21 Write('ÆÑ¬ßΓ«óδ⌐ αÑª¿¼. ìáª¼¿ΓÑ <RETURN>'); 22 Readln; 23 SetGraphMode(GraphMode); 24 OutText('æ¡«óá úαáΣ¿τÑß¬¿⌐ αÑª¿¼. ìáª¼¿ΓÑ <RETURN>'); 25 Readln; 26 CloseGraph; 27 end. { GraphTest } çá¼ÑΓ¿¼, τΓ« óδº«ó »α«µÑñπαδ SetGraphMode ¡á ßΓα«¬Ñ 23 ßíαá- ßδóáÑΓ óßÑ úαáΣ¿τÑß¬¿Ñ »áαá¼ÑΓαδ (»á½¿Γαá, ΓÑ¬πΘ¿⌐ π¬áºáΓÑ½∞, «ß- ¡«ó¡«⌐ ¿ Σ«¡«óδ⌐ µóÑΓá ¿ Γ.ñ.) ¿ ¿¼ »α¿ßóá¿óáεΓß∩ »α¿¡∩ΓδÑ »« π¼«½τá¡¿ε º¡áτÑ¡¿∩. éδº«ó CloseGraph ó«ßßΓá¡áó½¿óáÑΓ »Ñαó«¡áτá½∞¡« «í¡áαπªÑ¡¡δ⌐ ó¿ñÑ«αÑª¿¼ (InitGraph) ¿ «ßó«í«ªñáÑΓ »á¼∩Γ∞, ¿ß»«½∞ºπÑ¼πε úαáΣ¿- τÑß¬¿¼ ñαá⌐óÑα«¼. B.Pascal 7 & Objects/LR - 318 - Å«½∞º«óáΓÑ½∞ß¬¿Ñ »α«úαá¼¼δ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ∞ε ───────────────────────────────────────────────────────────────── ä½∩ ¼«ñπ½∩ Graph »αÑñπß¼«ΓαÑ¡δ ñóÑ »α«úαá¼¼δ π»αáó½Ñ¡¿∩ ñ¿- ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε GraphFrÑÑîÑ¼ ¿ GraphGetîÑ¼. ÅÑαóá∩ ¿º ¡¿σ «ßó«í«ªñáÑΓ »á¼∩Γ∞, αáß»αÑñÑ½Ñ¡¡πε ñ½∩ ñαá⌐óÑα«ó, á óΓ«αá∩ - αáß»αÑñÑ½∩ÑΓ »á¼∩Γ∞ ñ½∩ ñαá⌐óÑα«ó úαáΣ¿τÑß¬¿σ πßΓα«⌐ßΓó. æΓá¡ñáαΓ¡δÑ »α«úαá¼¼δ ¿¼ÑεΓ ß½ÑñπεΘ¿⌐ ó¿ñ: procedure GraphGetMem(var P : Pointer; Size : word); { óδñÑ½¿Γ∞ »á¼∩Γ∞ ñ½∩ ñαá⌐óÑα«ó úαáΣ¿τÑß¬¿σ πßΓα«⌐ßΓó } procedure GraphFreeMem(var P : Pointer; Size : word); { «ßó«í«ñ¿Γ∞ »á¼∩Γ∞ ñ½∩ ñαá⌐óÑα«ó úαáΣ¿τÑß¬¿σ πßΓα«⌐ßΓó } é ¼«ñπ½Ñ Graph ¿¼ÑεΓß∩ ñóá π¬áºáΓÑ½∩, ¬«Γ«αδÑ »« π¼«½τá¡¿ε π¬áºδóáεΓ ¡á ñóÑ «»¿ßá¡¡δÑ ºñÑß∞ ßΓá¡ñáαΓ¡δÑ »«ñ»α«úαá¼¼δ. ¥Γ¿ π¬áºáΓÑ½∞ «»αÑñÑ½∩εΓß∩ ß½ÑñπεΘ¿¼ «íαáº«¼: var GraphGetMemPtr : pointer; { π¬áºáΓÑ½∞ ¡á »α«úαá¼¼π αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ } GraphFreeMemPtr : pointer; { π¬áºáΓÑ½∞ ¡á »α«úαá¼¼π «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿ } é« óαÑ¼∩ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ Graph φΓ¿ π¬áºáΓÑ½¿ ßßδ½áεΓß∩ ¡á ßΓá¡ñáαΓ¡δÑ úαáΣ¿τÑß¬¿Ñ »α«úαá¼¼δ αáß»αÑñÑ½Ñ¡¿∩/«ßó«í«ªñÑ¡¿∩, ¬«Γ«αδÑ «»αÑñÑ½∩εΓß∩ ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ ¼«ñπ½∩ Graph. Åá¼∩Γ∞ αáß»αÑñÑ½∩Γß∩ ó ΓαÑσ αáº½¿τ¡δσ µÑ½∩σ: * ñ½∩ ¼¡«ú«µÑ½Ñóδσ úαáΣ¿τÑß¬¿σ íπΣÑα«ó, αáº¼Ñα ¬«Γ«αδσ πßΓá- ¡áó½¿óáÑΓß∩ óδº«ó«ó SegGraphBufSize (»« π¼«½τá¡¿ε φΓ« 4è); * ñ½∩ ñαá⌐óÑαá πßΓα«⌐ßΓóá, ºáúαπªáÑ¼«ú« InitGraph (Σá⌐½δ *.BGI); * ñ½∩ Σá⌐½á óÑ¬Γ«α¡«ú« Φα¿ΣΓá, ºáúαπªÑ¡¡«ú« SetTextStyle (Σá⌐½δ *.CHR). âαáΣ¿τÑß¬¿⌐ íπΣÑα óßÑúñá óδñÑ½∩ÑΓß∩ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ- ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿. Åá¼∩Γ∞ ñ½∩ ñαá⌐óÑαá πßΓα«⌐ßΓóá óδñÑ½∩ÑΓß∩ ó ñ¿¡á¼¿τÑß¬«⌐ »á¼∩Γ¿, Ñß½¿ »α«úαá¼¼á ¡Ñ ºáúαπªáÑΓ Ñú« ¿½¿ ¡Ñ ¬«¼»«¡πÑΓß∩ ß ¡¿¼ óδº«ó«¼ RegisterBGIdriver. Åα¿ óδí«αÑ óÑ¬Γ«α¡«- ú« Φα¿ΣΓá ß »«¼«Θ∞ε SetTextStyle Γá¬ªÑ óδñÑ½∩ÑΓß∩ »á¼∩Γ∞ ó ñ¿¡á- ¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ (Ñß½¿ óáΦá »α«úαá¼¼á ¡Ñ ¬«¼»«¡πÑΓ- ß∩ ß« Φα¿ΣΓ«¼ ¿ ¡Ñ ¿ß»«½∞ºπÑΓ RegisterBGIfont). ùΓ«íδ ºáñáΓ∞ óáΦÑ ß«íßΓóÑ¡¡«Ñ π»αáó½Ñ¡¿Ñ »á¼∩Γ∞ε, ó ¼«ñπ½Ñ Graph óδ ¼«ªÑΓÑ ¿º¼Ñ¡¿Γ∞ º¡áτÑ¡¿∩ φΓ¿σ π¬áºáΓÑ½Ñ⌐ Γá¬, τΓ«íδ «¡¿ ßßδ½á½¿ß∞ ¡á óáΦ¿ ß«íßΓóÑ¡¡δÑ »α«úαá¼¼δ. Åα«úαá¼¼δ, ºáñá¡¡δÑ »«½∞º«óáΓÑ½Ñ¼, ñ«½ª¡δ ¿¼ÑΓ∞ Γ«Γ ªÑ ß»¿ß«¬ »áαá¼ÑΓα«ó, τΓ« ¿ ßΓá¡- ñáαΓ¡δÑ »α«úαá¼¼δ, ¿ ñ«½ª¡δ ¿¼ÑΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«óá. Åα¿óÑñÑ¼ B.Pascal 7 & Objects/LR - 319 - ñá½ÑÑ »α¿¼Ñα ºáñá¡¡δσ »«½∞º«óáΓÑ½Ñ¼ »α«úαá¼¼ αáß»αÑñÑ½Ñ¡¿∩ ¿ «ß- ó«í«ªñÑ¡¿∩ »á¼∩Γ¿. çá¼ÑΓ¿¼, τΓ« »α¿ ¿ß»«½∞º«óá¡¿¿ »α«µÑñπαδ Eσit áóΓ«¼áΓ¿τÑß¬¿ óδºδóáÑΓß∩ »α«µÑñπαá CloseGraph. program UserHeapManegement; { »α«úαá¼¼á »«¬áºδóáÑΓ, ¬á¬ »«½∞º«óáΓÑ½∞ ¼«ªÑΓ αáí«ΓáΓ∞ ß »«ñ»α«úαá¼¼á¼¿ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- ½áßΓ∞ε »á¼∩Γ¿, ¿ß»«½∞ºπÑ¼δ¼¿ ó ¼«ñπ½Ñ Graph } uses Graph; var GraphDriver, GraphMode : Integer; ErrorCode : Integer; { ¿ß»«½∞ºπÑΓß∩ ñ½∩ ß«σαá¡Ñ¡¿∩ ¬«ñá ó«ºóαáΓá Σπ¡¬µ¿¿ GraphResult } PreGraphExitProc : Pointer { ¿ß»«½∞ºπÑΓß∩ ñ½∩ ß«σ- αá¡Ñ¡¿∩ ¿ßσ«ñ¡«⌐ »α«µÑñπαδ óδσ«ñá } { »α«µÑñπαδ »«½∞º«óáΓÑ½∩ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ ñá½∞¡¿⌐ Γ¿» «íαáΘÑ¡¿∩ } procedure MyGetMem(var P : Pointer; Size : word); far; { óδñÑ½¿Γ∞ »á¼∩Γ∞ ñ½∩ ñαá⌐óÑα«ó úαáΣ¿τÑß¬¿σ πßΓα«⌐ßΓó } begin Write('üδ½á óδºóá¡á »α«µÑñπαá ', 'MyGetMem, ¡áª¼¿ΓÑ <Enter>:'); GetMem(P, Size); end; { MyGetMem } procedure MyFreeMem(ver P : Pointer; Size : word); far; { «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, ºá¡∩Γπε ñαá⌐óÑαá¼¿ úαáΣ¿τÑß¬¿σ πßΓα«⌐ßΓó } begin RestoreCRTMode; Write('üδ½á óδºóá¡á »α«µÑñπαá MyFreeMem, ¡áª¼¿ΓÑ ', '<Enter>:'); Readln; if P <> Nil Then { ¡Ñ «ßó«í«ªñáΓ∞ »πßΓδÑ π¬áºáΓÑ½¿ } begin FreeMem(P, Size); P := Nil; end; { MyFreeMem } procedure MyExitProc; far; { »α«µÑñπαá óßÑúñá »«½πτáÑΓ óδº«ó »α¿ »αÑ¬αáΘÑ¡¿¿ αáí«Γδ »α«úαá¼¼δ } begin ExitProc := PreGraphExitProc; { ó«ßßΓá¡«ó¿Γ∞ ¿ßσ«ñ¡πε »α«µÑñπαπ óδσ«ñá } CloseGraph; { «τ¿ßΓ¿Γ∞ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼πε «í½áßΓ∞ } end; { MyExitProc } begin { ¿¡¿µ¿á½¿º¿α«óáΓ∞ »α«úαá¼¼π «τ¿ßΓ¬¿ »á¼∩Γ¿ } PreGraphExitProc := ExitProc; ExitProc := @MyExitProc; B.Pascal 7 & Objects/LR - 320 - GraphGetMemPtr := @MyGetMem ; { ºá¼Ñ¡¿Γ∞ αáß»αÑñÑ½Ñ¡¿Ñ »á¼∩Γ¿ } GraphFreeMemPtr := @MyFreeMem ; { ºá¼Ñ¡¿Γ∞ «ßó«í«ªñÑ¡¿Ñ »á¼∩Γ¿ } GraphDriver := Detect; InitGraph(GraphDriver, GraphMode, ''); ErrorCode := GraphResult; if ErrorCode <> grOk then begin Writeln('âαáΣ¿τÑß¬á∩ «Φ¿í¬á: ' GraphErrorMsg(ErrorCode); Readln; Halt(1); end; Line(0, 0, GetMaxX, GetMaxY); OutText(1, 1, 'ìáª¼¿ΓÑ ¬½áó¿Φπ <Enter>:'); Readln; end. { UserHeapManegement } àß½¿ µÑ½Ñó«⌐ »½áΓΣ«α¼«⌐ ∩ó½∩ÑΓß∩ ºáΘ¿ΘÑ¡¡δ⌐ αÑª¿¼ DOS, Γ« »α¿ ¿ß»«½∞º«óá¡¿¿ »«ñ«í¡δσ »α«úαá¼¼ ß½ÑñπÑΓ ¿¼ÑΓ∞ ó ó¿ñπ ß½Ññπε- ΘÑÑ: óδ ñ«½ª¡δ «íÑß»Ñτ¿Γ∞, τΓ« ½εí«⌐ ó«ºóαáΘáÑ¼δ⌐ GetMem π¬áºá- ΓÑ½∞ ñ«½ªÑ¡ ¿¼ÑΓ∞ ¡π½Ñó«Ñ ß¼ÑΘÑ¡¿Ñ. æñÑ½áΓ∞ φΓ« ¼«ª¡« ß »«¼«Θ∞ε Σπ¡¬µ¿¿ GlobalAllocPtr: procedure MyGetMem(var P: Pointer; Size: Word); far; var P: Pointer; bagin P:= GlobalAllocPtr(HeapAllocFlags, Size); GetMem(P, 4096); end; { MyGetMem } B.Pascal 7 & Objects/LR - 321 - Åα«µÑñπαδ ¼«ñπ½∩ Graph Æáí½¿µá 19.3 ┌───────────────────┬───────────────────────────────────────────┐ │ Å«ñ»α«úαá¼¼á │ Ä»¿ßá¡¿Ñ │ ├───────────────────┼───────────────────────────────────────────┤ │ Arß │ É¿ßπÑΓ ñπúπ «¬απª¡«ßΓ¿ «Γ ¡áτá½∞¡«ú« πú½á│ │ │ ñ« ¬«¡Ñτ¡«ú« πú½á; Γ«τ¬á (x,y) íÑαÑΓß∩ ó│ │ │ ¬áτÑßΓóÑ µÑ¡Γαá «¬απª¡«ßΓ¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ Bár │ É¿ßπÑΓ ßΓ«½íÑµ, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐ Γ¿» ºá¬-│ │ │ αáß¬¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ Bár3D │ É¿ßπÑΓ ΓαÑσ¼Ñα¡δ⌐ ßΓ«½íÑµ, ¿ß»«½∞ºπ∩ ΓÑ-│ │ │ ¬πΘ¿⌐ Γ¿» ºá¬αáß¬¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ CirclÑ │ É¿ßπÑΓ «¬απª¡«ßΓ∞ ß µÑ¡Γα«¼ ó Γ«τ¬Ñ (x,y).│ ├───────────────────┼───────────────────────────────────────────┤ │ ClearDevißÑ │ æíαáßδóáÑΓ ΓÑ¬πΘ¿Ñ »áαá¼ÑΓαδ, πßΓá¡«ó½Ñ¡-│ │ │ ¡δÑ ñ½∩ πßΓα«⌐ßΓóá óδó«ñá, ¿ »«ñú«Γáó½¿óá-│ │ │ ÑΓ Ñú« ñ½∩ óδó«ñá. │ ├───────────────────┼───────────────────────────────────────────┤ │ ClearViewPort │ Äτ¿ΘáÑΓ ΓÑ¬πΘπε «í½áßΓ∞ »α«ß¼«Γαá («¬¡«│ │ │ φ¬αá¡á). │ ├───────────────────┼───────────────────────────────────────────┤ │ CloseGraph │ éδ»«½¡∩ÑΓ «ßΓá¡«ó úαáΣ¿τÑß¬«⌐ ß¿ßΓÑ¼δ. │ ├───────────────────┼───────────────────────────────────────────┤ │ DetectGraph │ Éáß»«º¡áÑΓ á»»áαáΓπαπ ¿ «»αÑñÑ½∩ÑΓ, ¬á¬«⌐│ │ │ úαáΣ¿τÑß¬¿⌐ ñαá⌐óÑα ¿ αÑª¿¼ ¡πª¡« ¿ß»«½∞-│ │ │ º«óáΓ∞. │ ├───────────────────┼───────────────────────────────────────────┤ │ DrawPoly │ É¿ßπÑΓ ¼¡«ú«πú«½∞¡¿¬, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐│ │ │ Γ¿» ½¿¡¿¿ ¿ µóÑΓ. │ ├───────────────────┼───────────────────────────────────────────┤ │ Ellipse │ É¿ßπÑΓ φ½½¿»Γ¿τÑß¬πε ñπúπ «Γ ¡áτá½∞¡«ú«│ │ │ πú½á ñ« ¬«¡Ñτ¡«ú« πú½á, ¿ß»«½∞ºπε (ò,Y),│ │ │ ¬á¬ Γ«τ¬π µÑ¡Γαá. │ ├───────────────────┼───────────────────────────────────────────┤ │ FillPoly │ çá¬αáΦ¿óáÑΓ ¼¡«ú«πú«½∞¡¿¬, ¿ß»«½∞ºπ∩ »αÑ-│ │ │ «íαáº«óáΓÑ½∞ αáºóÑαΓ¬¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ FloodFill │ çá¬αáΦ¿óáÑΓ «úαá¡¿τÑ¡¡πε «í½áßΓ∞, ¿ß»«½∞-│ │ │ ºπ∩ ΓÑ¬πΘ¿⌐ «íαáºÑµ ºá¬αáß¬¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetArcCoords │ Å«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε ºá»αáΦ¿óáΓ∞ ¬««α-│ │ │ ñ¿¡áΓδ »«ß½Ññ¡Ñ⌐ ¬«¼á¡ñδ Arß. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetAspectRatio │ é«ºóαáΘáÑΓ ñÑ⌐ßΓóπεΘÑÑ αáºαÑΦÑ¡¿Ñ úαáΣ¿- │ │ │ τÑß¬«ú« φ¬αá¡á, ¡á «ß¡«óÑ ¬«Γ«α«ú« ¼«ªÑΓ│ │ │ íδΓ∞ óδτ¿ß½Ñ¡ ¬«φΣΣ¿µ¿Ñ¡Γ «Γ¡«ß¿ΓÑ½∞¡«ú«│ │ │ πñ½¿¡Ñ¡¿∩ (òásα,Yásα). │ ├───────────────────┼───────────────────────────────────────────┤ │ GetBkæ«lor │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ Σ«¡«óδ⌐ µóÑΓ. │ ├───────────────────┼───────────────────────────────────────────┤ B.Pascal 7 & Objects/LR - 322 - │ GetC«lor │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ µóÑΓ α¿ßπ¡¬á. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetDefaultPalette│ é ºá»¿ß¿ Γ¿»á PaletteType ó«ºóαáΘáÑΓ ¿ß-│ │ │ »«½∞ºπÑ¼πε »« π¼«½τá¡¿ε »á½¿Γαπ. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetDriverName │ é«ºóαáΘáÑΓ ßΓα«¬π, ß«ñÑαªáΘπε ¿¼∩ ΓÑ-│ │ │ ¬πΘÑú« ñαá⌐óÑαá. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetFillPattern │ é«ºóαáΘáÑΓ »«ß½Ññ¡¿⌐ «íαáºÑµ ºá»«½¡¿ΓÑ½∩,│ │ │ πßΓá¡«ó½Ñ¡¡δ⌐ ß »«¼«Θ∞ε «íαáΘÑ¡¿∩ ¬ »α«µÑ-│ │ │ ñπαÑ SetFillPattern. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetFillSetting │ Å«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε óδ»«½¡¿Γ∞ ºá»α«ß «│ │ │ ΓÑ¬πΘÑ¼ «íαáºµÑ ¿ µóÑΓÑ ºá¬αáß¬¿, πßΓá¡«ó-│ │ │ ½Ñ¡¡δ¼¿ ß »«¼«Θ∞ε »α«µÑñπα SetFillStyle ¿│ │ │ SetFillPattern. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetImage │ æ«σαá¡∩ÑΓ ñó«¿τ¡δ⌐ «íαáº ºáñá¡¡«⌐ «í½áßΓ¿│ │ │ ó íπΣÑαÑ. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetGraphMode │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ úαáΣ¿τÑß¬¿⌐ αÑª¿¼. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetLineSettings │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ Γ¿» ½¿¡¿¿, «íαáºÑµ ½¿-│ │ │ ¡¿¿ ¿ Γ«½Θ¿¡π ½¿¡¿¿, ºáñá¡¡δÑ »α«µÑñπα«⌐│ │ │ SetLineStyle. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetMaxColor │ é«ºóαáΘáÑΓ ¼á¬ß¿¼á½∞¡«Ñ º¡áτÑ¡¿Ñ µóÑΓá,│ │ │ ¬«Γ«α«Ñ ¼«ª¡« »ÑαÑñáΓ∞ »α«µÑñπαÑ SetColor.│ ├───────────────────┼───────────────────────────────────────────┤ │ GetMAxMode │ é«ºóαáΘáÑΓ ¼á¬ß¿¼á½∞¡δ⌐ ¡«¼Ñα αÑª¿¼á ñ½∩│ │ │ ΓÑ¬πΘÑú« ºáúαπªÑ¡¡«ú« ñαá⌐óÑαá. │ ├───────────────────┼───────────────────────────────────────────┤ │ Getîáσò │ é«ºóαáΘáÑΓ ñ½∩ ΓÑ¬πΘÑú« úαáΣ¿τÑß¬«ú« ñαá⌐-│ │ │ óÑαá ¿ αÑª¿¼á ßá¼πε »αáóπε ¬«½«¡¬π (αáºαÑ-│ │ │ ΦÑ¡¿Ñ »« σ). │ ├───────────────────┼───────────────────────────────────────────┤ │ GetîáσY │ é«ºóαáΘáÑΓ ñ½∩ ΓÑ¬πΘÑú« úαáΣ¿τÑß¬«ú« ñαá⌐-│ │ │ óÑαá ¿ αÑª¿¼á ßá¼πε ¡¿ª¡εε ßΓα«¬π (αáºαÑ-│ │ │ ΦÑ¡¿Ñ »« π). │ ├───────────────────┼───────────────────────────────────────────┤ │ GetPaletteSize │ é«ºóαáΘáÑΓ αáº¼Ñα Γáí½¿µδ »α«ß¼«Γαá »á½¿Γ-│ │ │ αδ. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetPixel │ é«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ φ½Ñ¼Ñ¡Γá ¿º«íαáªÑ¡¿∩ ó│ │ │ Γ«τ¬Ñ ò,Y. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetPalette │ é«ºóαáΘáÑΓ ΓÑ¬πΘπε »á½¿Γαπ ¿ ÑÑ αáº¼Ñα. │ ├───────────────────┼───────────────────────────────────────────┤ │ GetTextSettings │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ ΓÑ¬ßΓ«óδ⌐ Φα¿ΣΓ, ¡á»-│ │ │ αáó½Ñ¡¿Ñ, αáº¼Ñα ¿ óδαáó¡¿óá¡¿Ñ ñ½∩ ¡Ñú«,│ │ │ πßΓá¡«ó½Ñ¡¡δÑ ß »«¼«Θ∞ε »α«µÑñπα│ │ │ SetTextStyle ¿ SetTextJustify. │ ├───────────────────┼───────────────────────────────────────────┤ B.Pascal 7 & Objects/LR - 323 - │ GetViewSettings │ Å«ºó«½∩ÑΓ »«½∞º«óáΓÑ½ε óδñáΓ∞ ºá»α«ß « ΓÑ-│ │ │ ¬πΘÑ⌐ «í½áßΓ¿ ¿º«íαáªÑ¡¿∩ ¿ »áαá¼ÑΓαáσ «Γ-│ │ │ ßÑτÑ¡¿∩ ¿º«íαáªÑ¡¿∩. │ ├───────────────────┼───────────────────────────────────────────┤ │ Getò │ é«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ ò ΓÑ¬πΘÑ⌐ »«º¿µ¿¿│ │ │ (ΓÑ¬πΘÑú« π¬áºáΓÑ½∩). │ ├───────────────────┼───────────────────────────────────────────┤ │ GetY │ é«ºóαáΘáÑΓ ¬««αñ¿¡áΓπ Y ΓÑ¬πΘÑ⌐ »«º¿µ¿¿│ │ │ (ΓÑ¬πΘÑú« π¬áºáΓÑ½∩). │ ├───────────────────┼───────────────────────────────────────────┤ │ GraphErrorMsg │ ä½∩ ºáñá¡¡«ú« ¬«ñá «Φ¿í¬¿ ó«ºóαáΘáÑΓ ßΓα«-│ │ │ ¬π ß««íΘÑ¡¿∩ «í «Φ¿í¬Ñ. │ ├───────────────────┼───────────────────────────────────────────┤ │ GraphResult │ é«ºóαáΘáÑΓ ¬«ñ «Φ¿í¬¿ ñ½∩ »«ß½Ññ¡Ñ⌐ úαá-│ │ │ Σ¿τÑß¬«⌐ «»Ñαáµ¿¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ InitGraph │ ê¡¿µ¿á½¿º¿απÑΓ úαáΣ¿τÑß¬πε ß¿ßΓÑ¼π ¿ »Ñ-│ │ │ αÑó«ñ¿Γ á»»áαáΓπαπ ó úαáΣ¿τÑß¬¿⌐ αÑª¿¼. │ ├───────────────────┼───────────────────────────────────────────┤ │ ImageSize │ é«ºóαáΘáÑΓ τ¿ß½« íá⌐Γ, ¬«Γ«αδÑ ΓαÑíπεΓ-│ │ │ ß∩ ñ½∩ ß«σαá¡Ñ¡¿∩ »α∩¼«πú«½∞¡«⌐ «í½áßΓ¿│ │ │ φ¬αá¡á. │ ├───────────────────┼───────────────────────────────────────────┤ │ InstallUserDriver│ ôßΓá¡áó½¿óáÑΓ ñ«íáó½Ñ¡¡δ⌐ »«½∞º«óáΓÑ½Ñ¼│ │ │ ñαá⌐óÑα ó Γáí½¿µÑ ñαá⌐óÑα«ó πßΓα«⌐ßΓó BGI.│ ├───────────────────┼───────────────────────────────────────────┤ │ InstallUserFont │ ôßΓá¡áó½¿óáÑΓ ¡«óδ⌐ Σá⌐½ Φα¿ΣΓá, ¡Ñ óßΓα«-│ │ │ Ñ¡¡δ⌐ ó úαáΣ¿τÑß¬πε ß¿ßΓÑ¼π. │ ├───────────────────┼───────────────────────────────────────────┤ │ InitGraph │ ê¡¿µ¿á½¿º¿απÑΓ úαáΣ¿τÑß¬πε ß¿ßΓÑ¼π ¿ »ÑαÑ-│ │ │ ó«ñ¿Γ á»»áαáΓ¡δÑ ßαÑñßΓóá ó úαáΣ¿τÑß¬¿⌐│ │ │ αÑª¿¼. │ ├───────────────────┼───────────────────────────────────────────┤ │ Line │ É¿ßπÑΓ »α∩¼πε ½¿¡¿ε ¿º Γ«τ¬¿ (x1,y1) ó│ │ │ (x2,y2). │ ├───────────────────┼───────────────────────────────────────────┤ │ LineRel │ É¿ßπÑΓ »α∩¼πε ½¿¡¿ε ñ« Γ«τ¬¿, »αÑñßΓáó-│ │ │ ½∩εΘÑ⌐ ß«í«⌐ «Γ¡«ß¿ΓÑ½∞¡«Ñ αáßßΓ«∩¡¿Ñ «Γ│ │ │ ΓÑ¬πΘÑú« π¬áºáΓÑ½∩. │ ├───────────────────┼───────────────────────────────────────────┤ │ LinÑT« │ É¿ßπÑΓ ½¿¡¿ε ¿º ΓÑ¬πΘÑú« »«½«ªÑ¡¿∩ ó│ │ │ Γ«τ¬π (x,y). │ ├───────────────────┼───────────────────────────────────────────┤ │ î«veRÑl │ ÅÑαÑ¼ÑΘáÑΓ ΓÑ¬πΘ¿⌐ π¬áºáΓÑ½∞ ¡á αáßßΓ«∩-│ │ │ ¡¿Ñ, ∩ó½∩εΘÑÑß∩ «Γ¡«ß¿ΓÑ½∞¡δ¼ αáßßΓ«∩¡¿Ñ¼│ │ │ «Γ ΓÑ¬πΘÑ⌐ »«º¿µ¿¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ î«vÑÆ« │ ÅÑαÑ¼ÑΘáÑΓ ΓÑ¬πΘ¿⌐ π¬áºáΓÑ½∞ ó Γ«τ¬π│ │ │ (x,y). │ ├───────────────────┼───────────────────────────────────────────┤ │ ÄutText │ Å«ßδ½áÑΓ ßΓα«¬π ¡á πßΓα«⌐ßΓó« óδó«ñá, ¡á-│ │ │ τ¿¡á∩ ß ΓÑ¬πΘÑú« π¬áºáΓÑ½∩. │ ├───────────────────┼───────────────────────────────────────────┤ B.Pascal 7 & Objects/LR - 324 - │ ÄutTextòY │ Å«ßδ½áÑΓ ßΓα«¬π ¡á πßΓα«⌐ßΓó« óδó«ñá. │ ├───────────────────┼───────────────────────────────────────────┤ │ PieSlice │ É¿ßπÑΓ ßÑ¬Γ«α. Æ«τ¬á (ò,Y) ¿ß»«½∞ºπÑΓß∩ ó│ │ │ ¬áτÑßΓóÑ µÑ¡Γαá, á ßÑ¬Γ«α α¿ßπÑΓß∩ «Γ ¡á-│ │ │ τá½∞¡«ú« ñ« ¬«¡Ñτ¡«ú« πú½á. │ ├───────────────────┼───────────────────────────────────────────┤ │ ÉutImagÑ │ éδó«ñ¿Γ ¡á φ¬αá¡ ñó«¿τ¡δ⌐ «íαáº. │ ├───────────────────┼───────────────────────────────────────────┤ │ ÉutÉiσÑl │ æΓα«¿Γ φ½Ñ¼Ñ¡Γ ¿º«íαáªÑ¡¿∩ ó Γ«τ¬Ñ x,y. │ ├───────────────────┼───────────────────────────────────────────┤ │ RÑßtanglÑ │ É¿ßπÑΓ »α∩¼«πú«½∞¡¿¬, ¿ß»«½∞ºπ∩ ΓÑ¬πΘ¿⌐│ │ │ Γ¿» ½¿¡¿¿ ¿ µóÑΓ. │ ├───────────────────┼───────────────────────────────────────────┤ │ RegisterBGIDriver│ ÉÑú¿ßΓα¿απÑΓ ñ«»πßΓ¿¼δ⌐ ñαá⌐óÑα (Σ«α¼áΓá│ │ │ BGI) ó úαáΣ¿τÑß¬«⌐ ß¿ßΓÑ¼Ñ. │ ├───────────────────┼───────────────────────────────────────────┤ │ RegisterBGIFont │ ÉÑú¿ßΓα¿απÑΓ ó úαáΣ¿τÑß¬«⌐ ß¿ßΓÑ¼Ñ ñ«»πß-│ │ │ Γ¿¼δ⌐ (Σ«α¼áΓá BGI) Φα¿ΣΓ. │ ├───────────────────┼───────────────────────────────────────────┤ │ RÑstoreCRTî«dÑ │ é«ßßΓá¡áó½¿óáÑΓ ¿ßσ«ñ¡δ⌐ αÑª¿¼ φ¬αá¡á,│ │ │ ¬«Γ«αδ⌐ íδ½ πßΓá¡«ó½Ñ¡ »α¿ ¿¡¿µ¿á½¿ºáµ¿¿│ │ │ úαáΣ¿¬¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetActivePage │ ôßΓá¡áó½¿óáÑΓ ñ½∩ úαáΣ¿τÑß¬«ú« óδó«ñá á¬-│ │ │ Γ¿ó¡πε ßΓαá¡¿µπ. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetAllPalette │ êº¼Ñ¡∩ÑΓ óßÑ µóÑΓá »á½¿Γαδ, ¬á¬ íδ½« π¬á-│ │ │ ºá¡«. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetAspectRatio │ êº¼Ñ¡∩ÑΓ »α¿¡∩Γδ⌐ »« π¼«½τá¡¿ε ¬«φΣΣ¿µ¿Ñ¡Γ│ │ │ «Γ¡«ß¿ΓÑ½∞¡«ú« πñ½¿¡Ñ¡¿∩. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetBkæ«lor │ êß»«½∞ºπ∩ »á½¿Γαπ, πßΓá¡áó½¿óáÑΓ ΓÑ¬πΘ¿⌐│ │ │ Σ«¡«óδ⌐ µóÑΓ. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetColor │ êß»«½∞ºπ∩ »á½¿Γαπ, πßΓá¡áó½¿óáÑΓ ΓÑ¬πΘ¿⌐│ │ │ µóÑΓ α¿ßπ¡¬á. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetFillPattern │ éδí¿αáÑΓ «íαáºÑµ ºá¬αáß¬¿, ºáñá¡¡δ⌐ »«½∞-│ │ │ º«óáΓÑ½Ñ¼. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetFillStyle │ ôßΓá¡áó½¿óáÑΓ «íαáºÑµ ºá¬αáß¬¿ ¿ ÑÑ µóÑΓ. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetGraphBufSize │ Å«ºó«½∩ÑΓ ¿º¼Ñ¡¿Γ∞ αáº¼Ñα íπΣÑαá, ¿ß»«½∞-│ │ │ ºπÑ¼«ú« ñ½∩ «»α«ßá ¿ ºá¬αáß¬¿. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetGraphMode │ ÅÑαÑ¬½ετáÑΓ ß¿ßΓÑ¼π ó úαáΣ¿τÑß¬¿⌐ αÑª¿¼│ │ │ ¿ «τ¿ΘáÑΓ φ¬αá¡. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetLineStyle │ ôßΓá¡áó½¿óáÑΓ ΓÑ¬πΘ¿⌐ Γ¿» ½¿¡¿¿ ¿ ÑÑ Φ¿-│ │ │ α¿¡π. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetPalette │ êº¼Ñ¡∩ÑΓ «ñ¿¡ µóÑΓ »á½¿Γαδ, ºáñá¡¡δ⌐ »Ñ-│ B.Pascal 7 & Objects/LR - 325 - │ │ αÑ¼Ñ¡¡δ¼¿ Colornum ¿ Color. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetGRBPalette │ Å«ºó«½∩ÑΓ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ºá»¿ß¿ »á½¿Γ-│ │ │ αδ ñ½∩ ñαá⌐óÑα«ó IBM 8514 ¿ VGA. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetTextJustify │ æ »«¼«Θ∞ε ÄutTÑxt ¿ ÄutTÑσtòY πßΓá-│ │ │ ¡áó½¿óáÑΓ º¡áτÑ¡¿∩ ñ½∩ óδαáó¡¿óá¡¿∩ ΓÑ¬ß-│ │ │ Γá. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetTextStyle │ çáñáÑΓ ΓÑ¬πΘ¿⌐ ΓÑ¬ßΓ«óδ⌐ Φα¿ΣΓ, Ñú« Γ¿» ¿│ │ │ ¬«φΣΣ¿µ¿Ñ¡Γ αáº¼Ñαá ß¿¼ó«½á. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetUserCharSize │ Å«ºó«½∩ÑΓ óá¼ ñ½∩ óÑ¬Γ«α¡δσ Φα¿ΣΓ«ó ¿º-│ │ │ ¼Ñ¡¿Γ∞ óδß«Γπ ¿ Φ¿α¿¡π ß¿¼ó«½á. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetViewPort │ ä½∩ úαáΣ¿τÑß¬«ú« óδó«ñá πßΓá¡áó½¿óáÑΓ│ │ │ ΓÑ¬πΘπε «í½áßΓ∞ óδó«ñá ¿½¿ «¬¡«. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetVisualPage │ çáñáÑΓ ó¿ºπá½∞¡δ⌐ ¡«¼Ñα úαáΣ¿τÑß¬«⌐ ßΓαá-│ │ │ ¡¿µδ. │ ├───────────────────┼───────────────────────────────────────────┤ │ SetWriteMode │ ôßΓá¡áó½¿óáÑΓ αÑª¿¼ óδó«ñá ¡á φ¬αá¡ (¬«-│ │ │ »¿α«óá¡¿Ñ ¿½¿ ß »«¼«Θ∞ε «»Ñαáµ¿¿ XOR) ñ½∩│ │ │ ½¿¡¿⌐, óδτÑατ¿óáÑ¼δσ »α«µÑñπαá¼¿ DrawPoly,│ │ │ Line, LineRel, LineTo, Rectangle. │ ├───────────────────┼───────────────────────────────────────────┤ │ TÑσtìÑight │ é«ºóαáΘáÑΓ óδß«Γπ ßΓαá¡¿µ ó φ½Ñ¼Ñ¡Γáσ│ │ │ ¿º«íαáªÑ¡¿∩. │ ├───────────────────┼───────────────────────────────────────────┤ │ TÑσtWidth │ é«ºóαáΘáÑΓ Φ¿α¿¡π ßΓα«¬¿ ó φ½Ñ¼Ñ¡Γáσ│ │ │ ¿º«íαáªÑ¡¿∩. │ └───────────────────┴───────────────────────────────────────────┘ Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ ¬áªñ«⌐ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñá¡« ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ß- Γá". B.Pascal 7 & Objects/LR - 326 - è«¡ßΓá¡Γδ, Γ¿»δ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Graph ───────────────────────────────────────────────────────────────── é ¼«ñπ½Ñ Graph ¿¼ÑÑΓß∩ ¼¡«ú« »«½Ñº¡δσ «»¿ßá¡¿⌐ Γ¿»«ó ¿ ¬«¡ß- Γá¡Γ, ¡á ¬«Γ«α«Ñ óδ ¼«ªÑΓÑ ßßδ½áΓ∞ß∩. è«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── è«¡ßΓá¡Γδ ¼«ñπ½∩ Graph ¼«ª¡« ßúαπ»»¿α«óáΓ∞ »« ¿σ ¡áº¡áτÑ¡¿ε. Å«ñα«í¡«Ñ «»¿ßá¡¿Ñ ¬áªñ«⌐ ¬«¡ßΓá¡Γδ ñá¡« ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá". âαπ»»δ ¬«¡ßΓá¡Γ ¼«ñπ½∩ Graph Æáí½¿µá 19.4 ┌─────────────────────────┬─────────────────────────────────────┐ │ âαπ»»á ¬«¡ßΓá¡Γ │ Ä»¿ßá¡¿Ñ │ ├─────────────────────────┼─────────────────────────────────────┤ │ è«¡ßΓá¡Γδ ñαá⌐óÑα«ó │ è«¡ßΓá¡Γδ, «»αÑñÑ½∩εΘ¿Ñ ó¿ñÑ«ñαá⌐óÑ-│ │ ¿ αÑª¿¼«ó │ αδ ¿ αÑª¿¼δ; ¿ß»«½∞ºπεΓß∩ ó »«ñ»α«ú-│ │ │ αá¼¼áσ InitGraph, DetectGraph ¿│ │ │ GetModeRange. │ ├─────────────────────────┼─────────────────────────────────────┤ │ grXXXX │ è«¡ßΓá¡Γδ, ¿ñÑ¡Γ¿Σ¿µ¿απεΘ¿Ñ Γ¿»│ │ │ «Φ¿í¬¿, ó«ºóαáΘáÑ¼«⌐ GraphResult. │ ├─────────────────────────┼─────────────────────────────────────┤ │ è«¡ßΓá¡Γδ µóÑΓ«ó │ è«¡ßΓá¡Γδ, «»αÑñÑ½∩εΘ¿Ñ µóÑΓá. êß-│ │ │ »«½∞ºπεΓß∩ ó »«ñ»α«úαá¼¼áσ│ │ │ SetPalette ¿ SetAllPalette. │ ├─────────────────────────┼─────────────────────────────────────┤ │ è«¡ßΓá¡Γδ µóÑΓ«ó │ è«¡ßΓá¡Γδ, ¿ß»«½∞ºπÑ¼δÑ ó »«ñ»α«ú-│ │ ñ½∩ SetRGBPalette │ αá¼¼Ñ SetGRBPalette ñ½∩ óδí«αá ¡á│ │ │ IBM 8514 ßΓá¡ñáαΓ¡δσ µóÑΓ«ó EGA. │ ├─────────────────────────┼─────────────────────────────────────┤ │ è«¡ßΓá¡Γδ ßΓ¿½∩ │ è«¡ßΓá¡Γδ, ¿ß»«½∞ºπÑ¼δÑ ñ½∩ «»αÑñÑ-│ │ ½¿¡¿¿ │ ½Ñ¡¿∩ ßΓ¿½∩ ¿ Γ«½Θ¿¡δ ½¿¡¿¿; ¿ß»«½∞-│ │ │ ºπεΓß∩ ß GetLineSettings ¿│ │ │ SetLineStyle. │ ├─────────────────────────┼─────────────────────────────────────┤ │ è«¡ßΓá¡Γδ Φα¿ΣΓá │ êß»«½∞ºπεΓß∩ ñ½∩ ¿ñÑ¡Γ¿Σ¿¬áµ¿¿ Φα¿Σ-│ │ │ Γ«ó ó »«ñ»α«úαá¼¼áσ GetTextSettings│ │ │ ¿ SetTextSetting. │ ├─────────────────────────┼─────────────────────────────────────┤ │ è«¡ßΓá¡Γδ óδαáó¡¿óá¡¿∩│ è«¡ßΓá¡Γδ, π»αáó½∩εΘ¿Ñ ú«α¿º«¡Γá½∞-│ │ │ ¡δ¼ ¿ óÑαΓ¿¬á½∞¡δ¼ óδαáó¡¿óá¡¿Ñ¼.│ │ │ êß»«½∞ºπεΓß∩ ó SetTextJustify. │ ├─────────────────────────┼─────────────────────────────────────┤ │ è«¡ßΓá¡Γδ «ΓßÑτÑ¡¿⌐ │ è«¡ßΓá¡Γδ, π»αáó½∩εΘ¿Ñ «ΓßÑτÑ¡¿Ñ¼.│ │ │ êß»«½∞ºπεΓß∩ ó SetViewPort. │ ├─────────────────────────┼─────────────────────────────────────┤ │ è«¡ßΓá¡Γδ ßΓ«½íµ«ó │ ô»αáó½∩εΓ ¿º«íαáªÑ¡¿Ñ¼ "óÑαΦ¿¡δ"│ │ │ ΓαÑσ¼Ñα¡«ú« ßΓ«½íµá; ¿ß»«½∞ºπεΓß∩ ó│ │ │ Bar3D. │ ├─────────────────────────┼─────────────────────────────────────┤ B.Pascal 7 & Objects/LR - 327 - │ Äíαáºµδ ºá¬αáß¬¿ │ Ä»αÑñÑ½∩εΓ «íαáºÑµ ºá¬αáß¬¿ «í½áßΓ¿.│ │ │ êß»«½∞ºπεΓß∩ ó GetFillSettings ¿│ │ │ SetFillStyle. │ ├─────────────────────────┼─────────────────────────────────────┤ │ Ä»Ñαáµ¿¿ BitBlt │ Ä»Ñαáµ¿¿ (¬«»¿α«óá¡¿Ñ, xor, or, and,│ │ │ not), ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ó│ │ │ PutImage ¿ SetWriteMode. │ ├─────────────────────────┼─────────────────────────────────────┤ │ MaxColors │ è«¡ßΓá¡Γδ, «»αÑñÑ½∩εΘ¿Ñ ¼á¬ß¿¼á½∞¡«Ñ│ │ │ τ¿ß½« µóÑΓ«ó ó GetPalette,│ │ │ GetDefaultPalette ¿ SetAllPalette. │ └─────────────────────────┴─────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 328 - Æ¿»δ ───────────────────────────────────────────────────────────────── é ¼«ñπ½Ñ Graph «»αÑñÑ½Ñ¡δ ß½ÑñπεΘ¿Ñ Γ¿»δ: Æ¿»δ ¼«ñπ½∩ Graph Æáí½¿µá 19.5 ┌────────────────────────┬──────────────────────────────────────┐ │ Æ¿» │ Ä»¿ßá¡¿Ñ │ ├────────────────────────┼──────────────────────────────────────┤ │ PaletteType │ çá»¿ß∞, «»αÑñÑ½∩εΘá∩ αáº¼Ñα ¿ µóÑΓá│ │ │ »á½¿Γαδ; ¿ß»«½∞ºπÑΓß∩ ó GetPalette,│ │ │ GetDefaultPalette ¿ SetAllPalette. │ ├────────────────────────┼──────────────────────────────────────┤ │ LineSettingsType │ çá»¿ß∞, «»αÑñÑ½∩εΘá∩ ßΓ¿½∞, «íαáºÑµ ¿│ │ │ Γ«½Θ¿¡π ½¿¡¿¿; ¿ß»«½∞ºπÑΓc∩ │ │ │ GetLineSettings. │ ├────────────────────────┼──────────────────────────────────────┤ │ FillSettingsType │ çá»¿ß∞, «»αÑñÑ½∩εΘá∩ ΓÑ¬ßΓ. êß»«½∞ºπ-│ │ │ ÑΓß∩ ó GetTextSettings. │ ├────────────────────────┼──────────────────────────────────────┤ │ FillPatternType │ çá»¿ß∞, «»αÑñÑ½∩εΘá∩ ºáñá¡¡δ⌐ »«½∞-│ │ │ º«óáΓÑ½Ñ¼ «íαáºÑµ ºá¬αáß¬¿. äá¡¡á∩│ │ │ ºá»¿ß∞ ¿ß»«½∞ºπÑΓß∩ »α«µÑñπαá¼¿│ │ │ GetFillPattern ¿ SetFillPattern. │ ├────────────────────────┼──────────────────────────────────────┤ │ PointType │ Æ¿», «»αÑñÑ½Ñ¡¡δ⌐ ñ½∩ óáΦÑú« πñ«íßΓ-│ │ │ óá. │ ├────────────────────────┼──────────────────────────────────────┤ │ ViewPortType │ çá»¿ß∞, ß««íΘáεΘá∩ « ß«ßΓ«∩¡¿¿ ΓÑ¬π-│ │ │ ΘÑ⌐ «í½áßΓ¿ »α«ß¼«Γαá; ¿ß»«½∞ºπÑΓß∩│ │ │ GetViewSettings. │ ├────────────────────────┼──────────────────────────────────────┤ │ ArcCoordsType │ çá»¿ß∞ ñ½∩ »«½πτÑ¡¿∩ ¿¡Σ«α¼áµ¿¿ «│ │ │ »«ß½Ññ¡Ñ¼ óδº«óÑ Arc ¿½¿ Ellipse; ¿ß-│ │ │ »«½∞ºπÑΓß∩ GetArcCoords. │ └────────────────────────┴──────────────────────────────────────┘ ÅÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── î«ñπ½∞ Graph ß«ñÑαª¿Γ ñóÑ »ÑαÑ¼Ñ¡¡δÑ, ¬«Γ«αδÑ óδ ¼«ªÑΓÑ ¿ß- »«½∞º«óáΓ∞: GraphGetMemPtr ¿ GraphFreeMemPtr. Ä¡¿ »α¿¼Ñ¡∩εΓß∩ ó »«ñ»α«úαá¼¼áσ π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε »á- ¼∩Γ¿. Åα«τ¿ΓáΓ∞ « ¡¿σ ¼«ª¡« ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í½¿«ΓÑ- ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá". B.Pascal 7 & Objects/LR - 329 - ─────────────────────────────────────────────────────────────────────── â½áóá 20. êß»«½∞º«óá¡¿Ñ «óÑα½ÑÑó ───────────────────────────────────────────────────────────────── ÄóÑα½Ñ¿ »αÑñßΓáó½∩εΓ ß«í«⌐ τáßΓ¿ »α«úαá¼¼δ, ¬«Γ«αδÑ ß«ó¼ÑßΓ- ¡« ¿ß»«½∞ºπεΓ «íΘπε «í½áßΓ∞ »á¼∩Γ¿. é «ñ¿¡ ¿ Γ«Γ ªÑ ¼«¼Ñ¡Γ óαÑ¼Ñ- ¡¿ αÑº¿ñÑ¡Γ¡« αáº¼ÑΘáΓ∞ß∩ ó »á¼∩Γ¿ ¼«ªÑΓ Γá ¿½¿ ¿¡á∩ τáßΓ∞ »α«ú- αá¼¼δ, ¡Ñ«íσ«ñ¿¼á∩ ñ½∩ óδ»«½¡Ñ¡¿∩ ºáñá¡¡«⌐ Σπ¡¬µ¿¿. é »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ φΓ¿ τáßΓ¿ »α«úαá¼¼δ ¼«úπΓ ºá¼ÑΘáΓ∞ ñαπú ñαπúá. ÄóÑα½Ñ¿ »«½Ñº¡δ Γ«½∞¬« ó »α«úαá¼¼áσ DOS αÑá½∞¡«ú« αÑª¿¼á. Å«ß¬«½∞¬π ñ½∩ »α«úαá¼¼ Windows »á¼∩Γ∞ε π»αáó½∩ÑΓ ßá¼á Windows, á ñ½∩ »α«úαá¼¼ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á - áñ¼¿¡¿ßΓαáΓ«α φΓá»á óδ»«½¡Ñ¡¿∩ (RTM.EXE), φΓ¿ ßαÑñßΓóá ó¬½ετáεΓ ó ßÑí∩ »«½¡δ⌐ ¼Ñσá¡¿º¼ «íß½πª¿- óá¡¿∩ «óÑα½ÑÑó, ¿ ó »α«úαá¼¼áσ Windows ¿ »α«úαá¼¼áσ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ «óÑα½ÑÑó «Γ»áñáÑΓ. ÄóÑα½Ñ¿ ¼«úπΓ º¡áτ¿ΓÑ½∞¡« ß«¬αáΓ¿Γ∞ «íΩÑ¼ »á¼∩Γ¿, ¡Ñ«íσ«ñ¿- ¼δ⌐ ñ½∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. öá¬Γ¿τÑß¬¿, Γá¬ ¬á¬ ó ½εí«⌐ ¼«¼Ñ¡Γ óαÑ¼Ñ¡¿ ó »á¼∩Γ¿ αÑº¿ñÑ¡Γ¡« αáº¼ÑΘáεΓß∩ Γ«½∞¬« τáßΓ¿ »α«úαá¼¼δ, ß »«¼«Θ∞ε «óÑα½ÑÑó óδ ¼«ªÑΓÑ óδ»«½¡∩Γ∞ »α«úαá¼¼δ, º¡áτ¿ΓÑ½∞¡« »αÑ- ó«ßσ«ñ∩Θ¿Ñ »« «íΩÑ¼π ñ«ßΓπ»¡πε »á¼∩Γ∞. Borland Pascal π»αáó½∩ÑΓ «óÑα½Ñ∩¼¿ ¡á πα«ó¡Ñ ¼«ñπ½Ñ⌐, ¬«Γ«- αδÑ ∩ó½∩εΓß∩ ¡á¿¼Ñ¡∞ΦÑ⌐ τáßΓ∞ε »α«úαá¼¼δ, «íαáºπεΘÑ⌐ «óÑα½Ñ⌐. Åα¿ ¬«¼»¿½∩µ¿¿ »α«úαá¼¼δ, ¿¼ÑεΘÑ⌐ «óÑα½Ñ⌐¡πε ßΓαπ¬Γπαπ, Borland Pascal úÑ¡Ñα¿απÑΓ ¡áα∩ñπ ß óδ»«½¡∩Ñ¼δ¼ Σá⌐½«¼ (¬«Γ«αδ⌐ ¿¼ÑÑΓ αáß- Φ¿αÑ¡¿Ñ .EXE) «óÑα½Ñ⌐¡δ⌐ Σá⌐½ (¿¼ÑεΘ¿⌐ αáßΦ¿αÑ¡¿Ñ .OVR). öá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .EXE ß«ñÑαª¿Γ ßΓáΓ¿τÑß¬¿Ñ (¡Ñ «óÑα½Ñ⌐¡δÑ) τáßΓ¿ »α«ú- αá¼¼δ, á Σá⌐½ ß αáßΦ¿αÑ¡¿Ñ¼ .OVR ß«ñÑαª¿Γ óßÑ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿, ¬«Γ«αδÑ »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ íπñπΓ »«ñ¬áτ¿óáΓ∞ß∩ ó »á¼∩Γ∞ ¿½¿ óδó«ñ¿Γ∞ß∩ ¿º ¡ÑÑ ¡á ñ¿ß¬. çá ¿ß¬½ετÑ¡¿Ñ¼ ¡Ñß¬«½∞¬¿σ »αáó¿½, ¬áßáεΘ¿σß∩ Ñú« »α«úαá¼¼¿- α«óá¡¿∩, «óÑα½Ñ⌐¡δ⌐ ¼«ñπ½∞ »«½¡«ßΓ∞ε ¿ñÑ¡Γ¿τÑ¡ ¡Ñ«óÑα½Ñ⌐¡«¼π ¼«- ñπ½ε. öá¬Γ¿τÑß¬¿, Ñß½¿ óδ ß«í½εñáÑΓÑ φΓ¿ »αáó¿½á, π óáß ¡ÑΓ ¡Ñ«í- σ«ñ¿¼«ßΓ¿ »ÑαÑ¬«¼»¿½¿α«óáΓ∞ ¼«ñπ½∞, τΓ«íδ «íαáº«óáΓ∞ ¿º ¡Ñú« «óÑα½Ñ⌐. ÉÑΦÑ¡¿Ñ « Γ«¼, íπñÑΓ ¼«ñπ½∞ «óÑα½Ñ⌐¡δ¼ ¿½¿ ¡ÑΓ, »α¿¡¿¼á- ÑΓß∩ »α«úαá¼¼«⌐, ¬«Γ«αá∩ ¿ß»«½∞ºπÑΓ ñá¡¡δ⌐ ¼«ñπ½∞. Åα¿ ºáúαπº¬Ñ «óÑα½ÑÑó ó »á¼∩Γ∞ «¡¿ »«¼ÑΘáεΓß∩ ó «óÑα½Ñ⌐¡δ⌐ íπΣÑα, ¬«Γ«αδ⌐ αáº¼ÑΘáÑΓß∩ ó »á¼∩Γ¿ ¼Ñªñπ ßÑú¼Ñ¡Γ«¼ ßΓÑ¬á ¿ ñ¿¡á- ¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε »á¼∩Γ¿. Å« π¼«½τá¡¿ε ñ½∩ «óÑα½Ñ⌐- ¡«ú« íπΣÑαá óδí¿αáÑΓß∩ ¼¿¡¿¼á½∞¡δ⌐ ó«º¼«ª¡δ⌐ αáº¼Ñα, ¡« ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ Ñú« αáº¼Ñα ¼«ªÑΓ íδΓ∞ ½Ñú¬« πóÑ½¿τÑ¡ »πΓÑ¼ óδñÑ½Ñ¡¿∩ ñ«»«½¡¿ΓÑ½∞¡«⌐ «í½áßΓ¿ »á¼∩Γ¿ ¿º ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ- ½∩Ñ¼«⌐ «í½áßΓ¿. Ç¡á½«ú¿τ¡« ßÑú¼Ñ¡Γπ ñá¡¡δσ ¿ ¼¿¡¿¼á½∞¡«¼π αáº¼Ñαπ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, «óÑα½Ñ⌐¡δ⌐ íπΣÑα »α¿¡∩Γ«ú« »« π¼«½τá¡¿ε αáº¼Ñαá óδñÑ½∩ÑΓß∩ »α¿ ºáúαπº¬Ñ Σá⌐½á .EXE. Åα¿ «ΓßπΓß- Γó¿¿ »á¼∩Γ¿ ¡Ñ«íσ«ñ¿¼«ú« «íΩÑ¼á ¼«ñπ½Ñ¼ Dos ¿½¿ ¿¡ΓÑúα¿α«óá¡¡«⌐ »α«úαá¼¼¡«⌐ ßαÑñ«⌐ IDE íπñÑΓ óδó«ñ¿Γ∞ß∩ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ (Program too big to fit in memory - "Åα«úαá¼¼á ß½¿Φ¬«¼ óÑ½¿¬á, τΓ«íδ αáº¼ÑßΓ¿Γ∞ß∩ ó »á¼∩Γ¿") ¿½¿ (Not enough memory to run program - "ä½∩ ºá»πß¬á »α«úαá¼¼δ ¡Ñ σóáΓáÑΓ »á¼∩Γ¿"). B.Pascal 7 & Objects/LR - 330 - Äñ¡«⌐ ¿º «τÑ¡∞ óáª¡δσ ó«º¼«ª¡«ßΓÑ⌐ »«ñß¿ßΓÑ¼δ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ∩ó½∩ÑΓß∩ ó«º¼«ª¡«ßΓ∞ »α¿ ¡á½¿τ¿¿ ñ«ßΓáΓ«τ¡«ú« »α«ßΓ- αá¡ßΓóá ºáúαπªáΓ∞ «óÑα½Ñ⌐¡δ⌐ Σá⌐½ ó ñ«»«½¡¿ΓÑ½∞¡πε »á¼∩Γ∞. ä½∩ φΓ«⌐ µÑ½¿ ó Borland Pascal »«ññÑαª¿óáÑΓß∩ ßαÑñßΓó« αáßΦ¿αÑ¡¿∩ »á- ¼∩Γ¿ EMS (Lotus/Intel/Microsoft Expanded Memory Specification). Åα¿ αáº¼ÑΘÑ¡¿¿ «óÑα½Ñ⌐¡«ú« Σá⌐½á ó »á¼∩Γ¿ EMS óßÑ »«ß½ÑñπεΘ¿Ñ ºáúαπº¬¿ «óÑα½ÑÑó ßó«ñ∩Γß∩ ¬ íδßΓα«⌐ »ÑαÑñáτÑ ¿¡Σ«α¼áµ¿¿ ¿º »á¼∩- Γ¿ ó »á¼∩Γ∞. Çñ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó ───────────────────────────────────────────────────────────────── Çñ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó (¿½¿ »«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿) Borland Pascal αÑá½¿ºπÑΓß∩ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«ú« ¼«ñπ½∩ Overlay. é ¼«ñπ½Ñ Overlay ¿ß»«½∞ºπεΓß∩ πß«óÑαΦÑ¡ßΓó«óá¡¡δÑ ¼ÑΓ«ñδ π»αáó½Ñ- ¡¿∩ íπΣÑαá¼¿, τΓ« «íÑß»Ñτ¿óáÑΓ «»Γ¿¼á½∞¡«Ñ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ó ¿¼ÑεΘÑ⌐ß∩ «í½áßΓ¿ »á¼∩Γ¿. ìá»α¿¼Ñα, »«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ «óÑα½Ñ- ∩¼¿ ß«σαá¡∩ÑΓ ó «óÑα½Ñ⌐¡«¼ íπΣÑαÑ ßΓ«½∞¬« «óÑα½ÑÑó, ß¬«½∞¬« ó«º- ¼«ª¡«. ¥Γ« »«ºó«½∩ÑΓ π¼Ñ¡∞Φ¿Γ∞ τáßΓ«Γπ ßτ¿Γδóá¡¿∩ «óÑα½ÑÑó ß ñ¿ß- ¬á. Å«ß½Ñ ºáúαπº¬¿ «óÑα½Ñ∩ óδº«ó «ñ¡«⌐ ¿º Ñú« »«ñ»α«úαá¼¼ óδ»«½- ¡∩ÑΓß∩ Γá¬ªÑ íδßΓα«, ¬á¬ «íαáΘÑ¡¿Ñ ¬ ¡Ñ«óÑα½Ñ⌐¡«⌐ »α«úαá¼¼Ñ. èα«- ¼Ñ Γ«ú«, ¬«úñá π áñ¼¿¡¿ßΓαáΓ«αá «óÑα½ÑÑó ó«º¡¿¬áÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ∞ óδóÑßΓ¿ «ñ¿¡ «óÑα½Ñ⌐, τΓ«íδ «ßó«í«ñ¿Γ∞ ¼ÑßΓ« ñ½∩ ñαπú«ú«, «¡ ß¡á- τá½á »δΓáÑΓß∩ óδóÑßΓ¿ ΓÑ «óÑα½Ñ¿, ¬«Γ«αδÑ ¡Ñ ∩ó½∩εΓß∩ á¬Γ¿ó¡δ¼¿ (Γ« ÑßΓ∞ ΓÑ, ¬«Γ«αδÑ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ óαÑ¼Ñ¡¿ ¡Ñ ß«ñÑαªáΓ á¬Γ¿ó¡δσ »α«úαá¼¼). ä½∩ αÑá½¿ºáµ¿¿ π½πτΦÑ¡¡δσ ¼ÑΓ«ñ«ó π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ Borland Pascal ΓαÑíπÑΓ «Γ óáß »α¿ ¡á»¿ßá¡¿¿ »α«úαá¼¼δ, ó ¬«Γ«α«⌐ ¿ß»«½∞ºπεΓß∩ «óÑα½Ñ¿, ß«í½εñáΓ∞ ñóá óáª¡δσ »αáó¿½á: 1. éßÑ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿ ñ«½ª¡δ ß«ñÑαªáΓ∞ ñ¿αÑ¬Γ¿óπ {$O+}, »α¿ó«ñ∩Θπε ¬ Γ«¼π, τΓ« ¬«¼»¿½∩Γ«α «íÑß»Ñτ¿óáÑΓ úÑ¡Ñα¿α«- óá¡¿Ñ «óÑα½Ñ⌐¡«ú« ¬«ñá. 2. Åα¿ ¬áªñ«¼ «íαáΘÑ¡¿¿ ¬ «óÑα½Ñ⌐¡«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ óδ ñ«½ª¡δ «íÑß»Ñτ¿Γ∞ ¿ß»«½∞º«óá¡¿Ñ óßÑ¼¿ á¬Γ¿ó¡δ¼¿ »α«- µÑñπαá¼¿ ¿ Σπ¡¬µ¿∩¼¿ óδº«ó«ó Γ¿»á FAR (ñá½∞¡¿⌐ Γ¿» óδº«- óá). Äíá »αáó¿½á íπñπΓ »«∩ß¡∩Γ∞ß∩ ñá½ÑÑ ó αáºñÑ½Ñ »«ñ ºáú«½«ó¬«¼ "Éáºαáí«Γ¬á «óÑα½Ñ⌐¡δσ »α«úαá¼¼". æÑ⌐τáß ¼δ »α«ßΓ« «Γ¼ÑΓ¿¼, τΓ« óδ ¼«ªÑΓÑ ½Ñú¬« πñ«ó½ÑΓó«α¿Γ∞ φΓ¿ »αáó¿½á, »«¼ÑßΓ¿ó ó ¡áτá½Ñ «óÑα½Ñ⌐¡δσ ¼«ñπ½Ñ⌐ ñ¿αÑ¬Γ¿óπ ¬«¼»¿½∩Γ«αá {$O+,F+}, á ó ¡áτá½Ñ óßÑσ ñαπú¿σ ¼«ñπ½Ñ⌐ ¿ «ß¡«ó¡«⌐ »α«úαá¼¼δ - ñ¿αÑ¬Γ¿óπ {$F+}. Åα¿¼Ñτá¡¿Ñ: ìÑß«í½εñÑ¡¿Ñ ΓαÑí«óá¡¿∩ «íÑß»ÑτÑ¡¿∩ ñá½∞- ¡Ñú« Γ¿»á óδº«óá ó «óÑα½Ñ⌐¡«⌐ »α«úαá¼¼Ñ óδº«óÑΓ ¡Ñ»αÑñß¬á- ºπÑ¼δÑ ¿ ó«º¼«ª¡« ¬áΓáßΓα«Σ¿τÑß¬¿Ñ αÑºπ½∞ΓáΓδ »α¿ óδ»«½¡Ñ- ¡¿¿ »α«úαá¼¼δ. ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá {$O ¿¼∩_¼«ñπ½∩} ¿ß»«½∞ºπÑΓß∩ ó »α«ú- B.Pascal 7 & Objects/LR - 331 - αá¼¼Ñ ñ½∩ π¬áºá¡¿∩ Γ«ú«, ¬á¬«⌐ ¿º ¼«ñπ½Ñ⌐ íπñÑΓ «óÑα½Ñ⌐¡δ¼. ¥Γá ñ¿αÑ¬Γ¿óá ñ«½ª¡á αáº¼ÑΘáΓ∞ß∩ ºá «»ÑαáΓ«α«¼ uses »α«úαá¼¼δ, ó ¬«Γ«- α«¼ »ÑαÑñ ¿¼Ñ¡á¼¿ óßÑσ ñαπú¿σ «óÑα½Ñ⌐¡δσ ¼«ñπ½Ñ⌐ ñ«½ª¡« π¬áºδ- óáΓ∞ß∩ ¿¼∩ ßΓá¡ñáαΓ¡«ú« ¼«ñπ½∩ Overlay. Åα¿óÑñÑ¼ ß½ÑñπεΘ¿⌐ »α¿- ¼Ñα: program Editor; {$F+} { éßÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ íπñπΓ ¿ß»«½∞º«óáΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«óá } uses Overlay, Crt, Dos, EdInOut, EdFormat, EdPrint, EdFind, EdMain; {$O EdInOut } {$O EdFormat } {$O EdPrint } {$O EdFind } {$O EdMain } àß½¿ óδ »δΓáÑΓÑß∞ ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ «óÑα½Ñ⌐¡«ú« ¼«- ñπ½∞, »α¿ ¬«¼»¿½∩µ¿¿ ¬«Γ«α«ú« ¡Ñ íδ½á π¬áºá¡á ñ¿αÑ¬Γ¿óá {$O+}, Γ« ¬«¼»¿½∩Γ«α óδóÑñÑΓ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. ùΓ« ¬áßáÑΓß∩ ßΓá¡ñáαΓ¡δσ ¼«ñπ½Ñ⌐, Γ« «óÑα½Ñ⌐¡δ¼ ¼«ªÑΓ íδΓ∞ Γ«½∞¬« ¼«ñπ½∞ Dos. äαπú¿Ñ ßΓá¡- ñáαΓ¡δÑ ¼«ñπ½¿ ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ «óÑα½Ñ⌐¡δσ. è Γ«¼π ªÑ »α«úαá¼¼δ, ß«ñÑαªáΘ¿Ñ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿, »α¿ ¿ß»«½∞º«óá- ¡¿¿ IDE αÑá½∞¡«ú« αÑª¿¼á ñ«½ª¡δ ¬«¼»¿½¿α«óáΓ∞ß∩ ¡á ñ¿ß¬. àß½¿ óδ »δΓáÑΓÑß∞ óδ»«½¡¿Γ∞ ¬«¼»¿½∩µ¿ε Γá¬¿σ »α«úαá¼¼ ó »á¼∩Γ∞, Γ« ¬«¼»¿- ½∩Γ«α óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. ô»αáó½Ñ¡¿Ñ «óÑα½Ñ⌐¡δ¼ íπΣÑα«¼ ───────────────────────────────────────────────────────────────── ÄóÑα½Ñ⌐¡δ⌐ íπΣÑα Borland Pascal ½πτΦÑ óßÑú« «»¿ßδóáÑΓß∩ ó ó¿ñÑ ¬«½∞µÑó«ú« íπΣÑαá, ó ¬«Γ«α«¼ ¿¼ÑÑΓß∩ π¬áºáΓÑ½∞ ¡áτá½á ¿ π¬á- ºáΓÑ½∞ ¬«¡µá. ÄóÑα½Ñ¿ óßÑúñá ºáúαπªáεΓß∩ ó ¡áτá½« íπΣÑαá. Åα¿ φΓ«¼ í«½ÑÑ "ßΓáαδÑ" «óÑα½Ñ¿ ß¼ÑΘáεΓß∩ ¬ Ñú« ¬«¡µπ. è«úñá íπΣÑα ºá»«½¡∩ÑΓß∩ (Γ« ÑßΓ∞ ¼Ñªñπ Ñú« ¡áτá½«¼ ¿ ¬«¡µ«¼ ¡Ñ íπñÑΓ ñ«ßΓá- Γ«τ¡« ßó«í«ñ¡«ú« »α«ßΓαá¡ßΓóá), Γ« «óÑα½Ñ¿ ó ¬«¡µÑ íπΣÑαá óδúαπ- ªáεΓß∩ («ßó«í«ªñáεΓß∩), ¿ «ßó«í«ªñáÑΓß∩ ¼ÑßΓ« ñ½∩ ¡«óδσ «óÑα½ÑÑó. Å«ß¬«½∞¬π «íδτ¡á∩ »á¼∩Γ∞ »« ßó«Ñ⌐ »α¿α«ñÑ ¡Ñ ¿¼ÑÑΓ σáαá¬ΓÑαá ¬«½∞µÑó«ú« íπΣÑαá, ñÑ⌐ßΓó¿ΓÑ½∞¡á∩ αÑá½¿ºáµ¿∩ ¬«½∞µÑó«ú« íπΣÑαá »αÑñπß¼áΓα¿óáÑΓ ¡Ñß¬«½∞¬« Φáú«ó, «íÑß»Ñτ¿óáεΘ¿σ, τΓ«íδ íπΣÑα ñÑ⌐ßΓó¿ΓÑ½∞¡« ßΓá½ ¬«½∞µÑóδ¼. ¥Γ«Γ »α«µÑßß »«¬áºá¡ ¡á É¿ß. 20.1. çñÑß∞ ¿º«íαáªÑ¡ »α«µÑßß ºáúαπº¬¿ «óÑα½ÑÑó ó »Ñαó«¡áτá½∞¡« »πßΓ«⌐ «óÑα½Ñ⌐¡δ⌐ íπΣÑα. æ¡áτá½á ºáúαπªáÑΓß∩ «óÑα½Ñ⌐ A, ºáΓÑ¼ - «óÑα½Ñ⌐ B, »«Γ«¼ C, ¿, ¡á¬«¡Ñµ, D. çáΦΓα¿σ«óá¡¡δÑ «í½áßΓ¿ »«¬áºδóáεΓ ßó«- í«ñ¡«Ñ »α«ßΓαá¡ßΓó« ó íπΣÑαÑ. B.Pascal 7 & Objects/LR - 332 - ÿáú 1 ÿáú 2 ┌────────────┐ ┌────────────┐ │ ░░░░░░░░░░ │ │ ░░░░░░░░░░ │ │ ░░░░░░░░░░ │ │ ░░░░░░░░░░ │ │ ░░░░░░░░░░ │ │ ░░░░░░░░░░ │ │ ░░░░░░░░░░ │ ìáτá½« ───> ├────────────┤ │ ░░░░░░░░░░ │ │ ÄóÑα½Ñ⌐ B │ ìáτá½« ────> ├────────────┤ ├────────────┤ │ ÄóÑα½Ñ⌐ Ç │ │ ÄóÑα½Ñ⌐ Ç │ è«¡Ñµ ────> └────────────┘ è«¡Ñµ ───> └────────────┘ ÿáú 3 ÿáú 4 ┌────────────┐ ┌────────────┐ │ ░░░░░░░░░░ │ │ ÄóÑα½Ñ⌐ æ │ │ ░░░░░░░░░░ │ ├────────────┤ ìáτá½« ────> ├────────────┤ │ ÄóÑα½Ñ⌐ é │ │ ÄóÑα½Ñ⌐ æ │ è«¡Ñµ ───> ├────────────┤ ├────────────┤ │ ░░░░░░░░░░ │ │ ÄóÑα½Ñ⌐ é │ │ ░░░░░░░░░░ │ ├────────────┤ ìáτá½« ───> ├────────────┤ │ ÄóÑα½Ñ⌐ Ç │ │ ÄóÑα½Ñ⌐ D │ è«¡Ñµ ────> └────────────┘ └────────────┘ É¿ß. 20.1 çáúαπº¬á ¿ «ßó«í«ªñÑ¡¿Ñ «óÑα½ÑÑó. èá¬ ¼«ª¡« ºá¼ÑΓ¿Γ∞, »α¿ »ÑαÑσ«ñÑ «Γ Φáúá 3 ¬ Φáúπ 4 »α«¿ßσ«- ñ¿Γ ¡Ñß¬«½∞¬« ¿¡ΓÑαÑß¡δσ ¼«¼Ñ¡Γ«ó. é«-»Ñαóδσ, ºáú«½«ó«¬ ¡áτá½á »ÑαÑ¼ÑΘáÑΓß∩ ¬ ¬«¡µπ «óÑα½Ñ⌐¡«ú« íπΣÑαá, »α¿ó«ñ∩ ¬ Γ«¼π, τΓ« »«ñ- ß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ß¼ÑΘáÑΓ óßÑ ºáúαπªÑ¡¡δÑ «óÑα½Ñ¿ (¿ π¬áºáΓÑ½∞ ¬«¡µá) óóÑασ. ¥Γ« ß¼ÑΘÑ¡¿Ñ ¡Ñ«íσ«ñ¿¼«, τΓ«íδ ßó«í«ñ¡á∩ «í½áßΓ∞ óßÑúñá ¡áσ«ñ¿½áß∞ ¼Ñªñπ π¬áºáΓÑ½Ñ¼ ¡áτá½á ¿ π¬áºáΓÑ½Ñ¼ ¬«¡µá. é«-óΓ«αδσ, τΓ«íδ ºáúαπº¿Γ∞ «óÑα½Ñ⌐ D, »«ñß¿ßΓÑ¼Ñ π»αáó½Ñ- ¡¿∩ «óÑα½Ñ∩¼¿ »α¿σ«ñ¿Γß∩ óδúαπº¿Γ∞ ¿º ¬«¡µá íπΣÑαá «óÑα½Ñ⌐ A. é φΓ«¼ ß½πτáÑ «óÑα½Ñ⌐ A ∩ó½∩ÑΓß∩ «óÑα½ÑÑ¼, ¬«Γ«αδσ íδ½ ºáúαπªÑ¡ αá¡∞ΦÑ óßÑσ, »«φΓ«¼π »αÑªñÑ τÑ¼ »α«ñ«½ª¿Γ∞ αáí«Γπ, ½πτΦÑ óßÑú« óδúαπº¿Γ∞ ¿¼Ñ¡¡« Ñú«. Çñ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó »α«ñ«½ªáÑΓ «ßó«í«ª- ñáΓ∞ «óÑα½Ñ¿ ó ¬«¡µÑ íπΣÑαá, «ßó«í«ªñá∩ ¼ÑßΓ« ó Ñú« ¡áτá½Ñ ñ½∩ ¡«óδσ «óÑα½ÑÑó. Åα¿ φΓ«¼ ¬áªñδ⌐ αáº »«óΓ«α∩ÑΓß∩ «»Ñαáµ¿∩ ß¼ÑΘÑ¡¿∩ ¿ »ÑαÑ¡«ßá π¬áºáΓÑ½∩ ¡áτá½á. ¥Γ«Γ αÑª¿¼ «»Ñαáµ¿∩ ¿ß»«½∞ºπÑΓß∩ áñ¼¿¡¿ßΓαáΓ«α«¼ «óÑα½ÑÑó Borland Pascal 0 »« π¼«½τá¡¿ε. Äñ¡á¬«, Borland Pascal Γá¬ªÑ »«º- ó«½∩ÑΓ óá¼ ¿ß»«½∞º«óáΓ∞ ó«º¼«ª¡«ßΓ∞ «»Γ¿¼¿ºáµ¿¿ á½ú«α¿Γ¼á π»αáó- ½Ñ¡¿∩ «óÑα½Ñ∩¼¿. ÅαÑñ»«½«ª¿¼, τΓ« «óÑα½Ñ⌐ A ß«ñÑαª¿Γ ¡Ñ¬«Γ«αδÑ τáßΓ« ¿ß»«½∞- ºπÑ¼δÑ »«ñ»α«úαá¼¼δ. ò«Γ∩ ¡Ñ¬«Γ«αδÑ ¿º φΓ¿σ »«ñ»α«úαá¼¼ ¿ß»«½∞ºπ- εΓß∩ óßÑ óαÑ¼∩, ßπΘÑßΓóπÑΓ óÑα«∩Γ¡«ßΓ∞, τΓ« «óÑα½Ñ⌐ A íπñÑΓ óδúαπªÑ¡ ¿º íπΣÑαá ¿ óß¬«αÑ ºáúαπªÑ¡ ó ¡Ñú« ß¡«óá. Åα«í½Ñ¼á ºñÑß∞ ß«ßΓ«¿Γ ó Γ«¼, τΓ« »«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ¡¿τÑú« ¡Ñ º¡á- ÑΓ « τáßΓ«ΓÑ óδº«ó«ó »«ñ»α«úαá¼¼ ó ¼«ñπ½Ñ A. Ä¡á º¡áÑΓ Γ«½∞¬«, B.Pascal 7 & Objects/LR - 333 - τΓ« Ñß½¿ »α¿ «íαáΘÑ¡¿¿ ¬ »«ñ»α«úαá¼¼Ñ «óÑα½Ñ∩ A Ñú« ¡ÑΓ ó »á¼∩Γ¿, Γ« ¡πª¡« ºáúαπº¿Γ∞ φΓ«Γ «óÑα½Ñ⌐. Äñ¡« ¿º αÑΦÑ¡¿⌐ ºñÑß∞ ¼«ªÑΓ ß«ß- Γ«∩Γ∞ ó Γ«¼, τΓ«íδ »ÑαÑσóáΓδóáΓ∞ ¬áªñ«Ñ «íαáΘÑ¡¿Ñ ¬ »«ñ»α«úαá¼¼á¼ «óÑα½Ñ∩ A ¿ ºáΓÑ¼ »α¿ ¬áªñ«¼ óδº«óÑ »ÑαÑ¼ÑΘáΓ∞ «óÑα½Ñ⌐ A ó ¡áτá½« «óÑα½Ñ⌐¡«ú« íπΣÑαá, τΓ«íδ íδ½« «ΓαáªÑ¡« Ñú« ¡«ó«Ñ ß«ßΓ«∩¡¿Ñ, ¬á¬ »«ß½Ññ¡Ñú« ¿ß»«½∞º«óá¡¡«ú« «óÑα½Ñ∩. Æá¬«⌐ »ÑαÑσóáΓ óδº«ó«ó ¬ ß«- ªá½Ñ¡¿ε íπñÑΓ ß½¿Φ¬«¼ ¡Ñ»α«¿ºó«ñ¿ΓÑ½∞¡δ¼ ó ß¼δß½Ñ ß¬«α«ßΓ¿ óδ»«½- ¡Ñ¡¿∩, ¿ ó ¡Ñ¬«Γ«αδσ ß½πτá∩σ ¼«ªÑΓ ñáªÑ í«½ÑÑ ºá¼Ññ½¿Γ∞ αáí«Γπ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ, τÑ¼ ñ«»«½¡¿ΓÑ½∞¡á∩ «»Ñαáµ¿∩ ºáúαπº¬¿ «óÑα- ½Ñ∩. é Borland Pascal »αÑñπß¼áΓα¿óáÑΓß∩ ¬«¼»α«¼¿ßß¡«Ñ αÑΦÑ¡¿Ñ, ¬«Γ«α«Ñ »αá¬Γ¿τÑß¬¿ ¡Ñ πóÑ½¿τ¿óáÑΓ ¡Ñ»α«¿ºó«ñ¿ΓÑ½∞¡δÑ αáßσ«ñδ ¿ «íÑß»Ñτ¿óáÑΓ óδß«¬πε ßΓÑ»Ñ¡∞ πß»Ñσá ó ¿ñÑ¡Γ¿Σ¿¬áµ¿¿ »«ß½Ññ¡¿σ ¿ß- »«½∞º«óá¡¡δσ «óÑα½ÑÑó, ¬«Γ«αδÑ ¡Ñ ß½ÑñπεΓ αáºúαπªáΓ∞. è«úñá «óÑα- ½Ñ⌐ »α¿í½¿ªáÑΓß∩ ¬ ¬«¡µπ «óÑα½Ñ⌐¡«ú« íπΣÑαá, Γ« ¡áτ¿¡áÑΓß∩ Ñú« "ΓÑßΓ¿α«óá¡¿Ñ". àß½¿ ó σ«ñÑ φΓ«ú« "ΓÑßΓ¿α«óá¡¿∩" óδ»«½¡∩ÑΓß∩ óδ- º«ó »«ñ»α«úαá¼¼δ ñá¡¡«ú« «óÑα½Ñ∩, "»α¿ú«ó«α" Ñ¼π íπñÑΓ «Γ¼Ñ¡Ñ¡, ¿ «¡ ¡Ñ íπñÑΓ αáºúαπªÑ¡, ¬«úñá ñ«ßΓ¿ú¡ÑΓ ¬«¡µá «óÑα½Ñ⌐¡«ú« íπΣÑαá. é¼ÑßΓ« φΓ«ú« «¡ »α«ßΓ« »ÑαÑ¼ÑΘáÑΓß∩ ó ¡áτá½« íπΣÑαá, ¿ ¡áτ¿¡áÑΓß∩ ¡«óδÑ µ¿¬½ Ñú« »ÑαÑ¼ÑΘÑ¡¿∩ »« ¬«½∞µÑó«¼π «óÑα½Ñ⌐¡«¼π íπΣÑαπ. àß- ½¿, ß ñαπú«⌐ ßΓ«α«¡δ, ó »α«µÑßßÑ "ΓÑßΓ¿α«óá¡¿∩" «íαáΘÑ¡¿⌐ ¬ «óÑα- ½Ñε ¡Ñ íπñÑΓ, Γ« «óÑα½Ñ⌐ »α¿ ñ«ßΓ¿ªÑ¡¿¿ ¬«¡µá íπΣÑαá óδúαπªáÑΓß∩. æσÑ¼á ΓÑßΓ¿α«óá¡¿∩ (»α«í/«Γ¬áº«ó) »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« τáßΓ« ¿ß»«½∞ºπÑ¼δÑ «óÑα½Ñ¿ íπñπΓ ß«σαá¡∩Γ∞ß∩ ó «óÑα½Ñ⌐¡«¼ íπΣÑαÑ ºá ßτÑΓ Γ«ú«, τΓ« íπñÑΓ »ÑαÑσóáΓδóáΓ∞ß∩ »«τΓ¿ ¬áªñδ⌐ óδº«ó, ¬«úñá «óÑα½Ñ⌐ »α¿í½¿ªáÑΓß∩ ¬ ¬«¡µπ «óÑα½Ñ⌐¡«ú« íπΣÑαá. îÑσá¡¿º¼«¼ ΓÑßΓ¿α«óá¡¿∩ π»αáó½∩εΓ ñóÑ ¡«óδÑ »«ñ»α«úαá¼¼δ »«ñß¿ßΓÑ¼δ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ - OvrSetRetry ¿ OvrGetRetry. Å«ñ»α«úαá¼¼á OvrGetRetry πßΓá¡áó½¿óáÑΓ αáº¼Ñα «í½áßΓ¿ ó «óÑα½Ñ⌐- ¡«¼ íπΣÑαÑ, ¬«Γ«απε ¡πª¡« ΓÑßΓ¿α«óáΓ∞, á OvrGetRetry ó«ºóαáΘáÑΓ ΓÑ¬πΘÑÑ ß«ßΓ«∩¡¿Ñ. àß½¿ «óÑα½Ñ⌐ ß¼ÑΘáÑΓß∩ ó »«ß½Ññ¡¿Ñ OvrGetRetry íá⌐Γ »ÑαÑñ ¬«¡µ«¼ «óÑα½Ñ⌐¡«ú« íπΣÑαá, Γ« «¡ íπñÑΓ áóΓ«¼áΓ¿τÑß¬¿ »«ñóÑαúáΓ∞ß∩ ΓÑßΓ¿α«óá¡¿ε. éßÑ ßó«í«ñ¡«Ñ »α«ßΓαá¡ßΓó« ó «óÑα½Ñ⌐- ¡«¼ íπΣÑαÑ αáßß¼áΓα¿óáÑΓß∩, ¬á¬ τáßΓ∞ »α«í¡«⌐ «í½áßΓ¿ («í½áßΓ¿ ΓÑßΓ¿α«óá¡¿∩). B.Pascal 7 & Objects/LR - 334 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Overlay ───────────────────────────────────────────────────────────────── é ¼«ñπ½Ñ Overlay «»αÑñÑ½∩εΓß∩ ¡Ñß¬«½∞¬« »α«µÑñπα ¿ Σπ¡¬µ¿⌐. Å«½¡δÑ ¿σ «»¿ßá¡¿∩ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í- ½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá". Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¼«ñπ½∩ Overlay Æáí½¿µá 20.1 ┌─────────────────────────┬─────────────────────────────────────┐ │ Å«ñ»α«úαá¼¼á │ Ä»¿ßá¡¿Ñ │ ├─────────────────────────┼─────────────────────────────────────┤ │ OvrClearBuf │ Äτ¿ΘáÑΓ «óÑα½Ñ⌐¡δ⌐ íπΣÑα. │ ├─────────────────────────┼─────────────────────────────────────┤ │ OvrGetBuf │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ αáº¼Ñα «óÑα½Ñ⌐¡«-│ │ │ ú« íπΣÑαá. │ ├─────────────────────────┼─────────────────────────────────────┤ │ OvrGetRetry │ é«ºóαáΘáÑΓ ΓÑ¬πΘ¿⌐ αáº¼Ñα »α«í¡«⌐│ │ │ «í½áßΓ¿ (»«ß½Ññ¡ÑÑ º¡áτÑ¡¿Ñ, πßΓá-│ │ │ ¡«ó½Ñ¡¡«Ñ OvrSetRetry). │ ├─────────────────────────┼─────────────────────────────────────┤ │ OvtInit │ ¥Γá »α«µÑñπαá ¿¡¿µ¿á½¿º¿απÑΓ »«ñß¿ß-│ │ │ ΓÑ¼π π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ¿ «Γ¬αδóá-│ │ │ ÑΓ «óÑα½Ñ⌐¡δ⌐ Σá⌐½. │ ├─────────────────────────┼─────────────────────────────────────┤ │ OvrInitEMS │ äá¡¡á∩ »α«µÑñπαá, Ñß½¿ φΓ« ó«º¼«ª¡«,│ │ │ ºáúαπªáÑΓ «óÑα½Ñ⌐¡δ⌐ Σá⌐½ ó »á¼∩Γ∞│ │ │ EMS. Åα¿ φΓ«¼ óßÑ »«ß½ÑñπεΘ¿Ñ ºáú-│ │ │ απº¬¿ «óÑα½ÑÑó ßó«ñ∩Γß∩ ¬ íδßΓα«⌐│ │ │ »ÑαÑñáτÑ ¿¡Σ«α¼áµ¿¿ ¿º »á¼∩Γ¿ ó »á-│ │ │ ¼∩Γ∞. │ ├─────────────────────────┼─────────────────────────────────────┤ │ OvrSetBuf │ ôßΓá¡áó½¿óáÑΓ αáº¼Ñα «óÑα½Ñ⌐¡«ú« íπ-│ │ │ ΣÑαá. │ ├─────────────────────────┼─────────────────────────────────────┤ │ OvrSetRetry │ çáñáÑΓ αáº¼Ñα »α«í¡«⌐ «í½áßΓ¿ ó│ │ │ «óÑα½Ñ⌐¡«¼ íπΣÑαÑ. │ └─────────────────────────┴─────────────────────────────────────┘ è«¡ßΓá¡Γδ ¿ »ÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Overlay ───────────────────────────────────────────────────────────────── B.Pascal 7 & Objects/LR - 335 - é ¼«ñπ½Ñ Overlay «»αÑñÑ½Ñ¡δ »∩Γ∞ »ÑαÑ¼Ñ¡¡δσ: ÅÑαÑ¼Ñ¡¡δÑ ¼«ñπ½∩ Overlay Æáí½¿µá 20.2 ┌──────────────────────┬────────────────────────────────────────┐ │ ÅÑαÑ¼Ñ¡¡á∩ │ Ä»¿ßá¡¿Ñ │ ├──────────────────────┼────────────────────────────────────────┤ │ OvrFileMode │ Ä»αÑñÑ½∩ÑΓ »ÑαÑñáóáÑ¼δ⌐ DOS »α¿ «Γ¬αδ-│ │ │ Γ¿¿ Σá⌐½á ¬«ñ ñ«ßΓπ»á. │ ├──────────────────────┼────────────────────────────────────────┤ │ OvrLoadCount │ äá¡¡á∩ »ÑαÑ¼Ñ¡¡á∩ πóÑ½¿τ¿óáÑΓß∩ »α¿│ │ │ ¬áªñ«⌐ ºáúαπº¬Ñ «óÑα½Ñ∩. │ ├──────────────────────┼────────────────────────────────────────┤ │ OvrReadBuf │ ¥Γá »α«µÑñπα¡á∩ »ÑαÑ¼Ñ¡¡á∩ »«ºó«½∩ÑΓ│ │ │ óá¼ ¿¡ΓÑα»αÑΓ¿α«óáΓ∞ «»Ñαáµ¿¿ ºáúαπº¬¿│ │ │ «óÑα½Ñ∩. │ ├──────────────────────┼────────────────────────────────────────┤ │ OvrResult │ ÅÑαÑñ ó«ºóαáΓ«¼ π»αáó½Ñ¡¿∩ ¬áªñá∩ »α«-│ │ │ µÑñπαá ó ¼«ñπ½Ñ Overlay ß«σαá¡∩ÑΓ ßó«⌐│ │ │ ¬«ñ αÑºπ½∞ΓáΓá ó »ÑαÑ¼Ñ¡¡«⌐ OvrResult. │ ├──────────────────────┼────────────────────────────────────────┤ │ OvrTrapCount │ èáªñδ⌐ αáº, ¬«úñá «íαáΘÑ¡¿Ñ ¬ »«ñ»α«ú-│ │ │ αá¼¼Ñ «óÑα½Ñ∩ »ÑαÑσóáΓδóáÑΓß∩ »«ñß¿ßΓÑ-│ │ │ ¼«⌐ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ (¬«úñá «óÑα½Ñ∩│ │ │ ¡ÑΓ ó »á¼∩Γ¿ ¿½¿ «¡ ¡áσ«ñ¿Γß∩ ¡á ΓÑßΓ¿-│ │ │ α«óá¡¿¿) º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐│ │ │ OvrTrapCount πóÑ½¿τ¿óáÑΓß∩. ìáτá½∞¡«Ñ│ │ │ ÑÑ º¡áτÑ¡¿Ñ αáó¡« 0. │ └──────────────────────┴────────────────────────────────────────┘ ç¡áτÑ¡¿∩ φΓ¿σ »ÑαÑ¼Ñ¡¡δσ óδ ¼«ªÑΓÑ ¡á⌐Γ¿ ó â½áóÑ 1 ("æ»αá- ó«τ¡¿¬ »« í¿í½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá". è«ñδ αÑºπ½∞ΓáΓá ───────────────────────────────────────────────────────────────── Äí «Φ¿í¬áσ ¼«ñπ½∞ Overlay ß««íΘáÑΓ τÑαÑº »ÑαÑ¼Ñ¡¡πε OvrResult. æ¼. ¬«¡ßΓá¡Γδ ovrXXXX ó â½áóÑ 1 ("æ»αáó«τ¡¿¬ »« í¿í- ½¿«ΓÑ¬Ñ") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼¼¿ßΓá". Éáºαáí«Γ¬á »α«úαá¼¼ ß «óÑα½Ñ∩¼¿ ───────────────────────────────────────────────────────────────── é φΓ«¼ αáºñÑ½Ñ ñáÑΓß∩ ¡á¿í«½ÑÑ óáª¡á∩ ¿¡Σ«α¼áµ¿∩ »« αáºαá- í«Γ¬Ñ »α«úαá¼¼ ß «óÑα½Ñ∩¼¿. Åα«ß¼«Γα¿ΓÑ ÑÑ ó¡¿¼áΓÑ½∞¡«: ñ½∩ σ«α«- ΦÑ⌐ αáí«Γδ »α¿¬½áñ¡δσ »α«úαá¼¼, ó ¬«Γ«αδσ ¿ß»«½∞ºπεΓß∩ «óÑα½Ñ¿, ¼¡«ú¿Ñ «íßπªñáÑ¼δÑ ó«»α«ßδ ∩ó½∩εΓß∩ ª¿º¡Ñ¡¡« óáª¡δ¼¿. B.Pascal 7 & Objects/LR - 336 - âÑ¡Ñαáµ¿∩ «óÑα½Ñ⌐¡«ú« ¬«ñá ───────────────────────────────────────────────────────────────── Borland Pascal ñ«»πß¬áÑΓ ¿ß»«½∞º«óá¡¿Ñ ¼«ñπ½∩ ó ¬áτÑßΓóÑ «óÑα½Ñ⌐¡«ú« Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ «¡ úÑ¡Ñα¿α«óá½ß∩ ß ñ¿αÑ¬Γ¿- ó«⌐ {$O+}. è«úñá ºáñá¡á φΓá ñ¿αÑ¬Γ¿óá, úÑ¡ÑαáΓ«α óδ»«½¡∩Ñ¼«ú« ¬«- ñá, »α¿ »ÑαÑñáτÑ ßΓα«¬¿ ¿º «ñ¡«⌐ «óÑα½Ñ⌐¡«⌐ »α«µÑñπαδ ó ñαπúπε ¿ ºáñá¡¿¿ »«ßΓ«∩¡¡δσ »áαá¼ÑΓα«ó, »αÑñ»α¿¡¿¼áÑΓ «ß«íδÑ ¼Ñαδ »αÑñ«ß- Γ«α«ª¡«ßΓ¿. ìá»α¿¼Ñα, Ñß½¿ ¼«ñπ½∞ UnitA ß«ñÑαª¿Γ »α«µÑñπαπ ß« ß½ÑñπεΘ¿¼ ºáú«½«ó¬«¼: procedure WriteStr(s: string); ¿ ¼«ñπ½∞ UnitB ß«ñÑαª¿Γ «»ÑαáΓ«α: WriteStr('Hello word...'); Γ« Borland Pascal »«¼ÑΘáÑΓ ßΓα«¬«óπε ¬«¡ßΓá¡Γπ 'Hello word...' ó ßÑú¼Ñ¡Γ ¬«ñá ¼«ñπ½∩ UnitB ¿ »ÑαÑñáÑΓ π¬áºáΓÑ½∞ ¡á ¡Ñú« »α«µÑñπαÑ WriteStr. Äñ¡á¬«, Ñß½¿ «íá ¼«ñπ½∩ ∩ó½∩εΓß∩ «óÑα½Ñ⌐¡δ¼¿, Γ« φΓ« αáí«ΓáΓ∞ ¡Ñ íπñÑΓ, »«ß¬«½∞¬π »α¿ «íαáΘÑ¡¿¿ ó WriteStr ßÑú¼Ñ¡Γ ¬«- ñá ¼«ñπ½∩ UnitB ¼«ªÑΓ íδΓ∞ »ÑαÑ¬αδΓ ¼«ñπ½Ñ¼ UnitA, ¿ ßßδ½¬á ¡á ßΓα«¬π «¬áªÑΓß∩ ¡Ññ«»πßΓ¿¼«⌐. ä½∩ Γ«ú«, τΓ«íδ ¿ºíÑªáΓ∞ φΓ¿ »α«í- ½Ñ¼δ, ¿ß»«½∞ºπÑΓß∩ ñ¿αÑ¬Γ¿óá {$O+}. èáªñδ⌐ αáº, ¬«úñá Æπαí« Åáß- ¬á½∞ óßΓαÑτáÑΓ «íαáΘÑ¡¿Ñ ¿º «ñ¡«ú« ¼«ñπ½∩, ß¬«¼»¿½¿α«óá¡¡«ú« ß ñ¿αÑ¬Γ¿ó«⌐ {$O+}, ¬ ñαπú«¼π ¼«ñπ½ε, ß¬«¼»¿½¿α«óá¡¡«¼π ß ñ¿αÑ¬Γ¿- ó«⌐ {$O+}, ¬«¼»¿½∩Γ«α »ÑαÑñ »ÑαÑñáτÑ⌐ ßßδ½«¬ ¡á ¡¿σ «íÑß»Ñτ¿óáÑΓ óαÑ¼Ñ¡¡«Ñ ¬«»¿α«óá¡¿Ñ óßÑσ αáº¼ÑΘÑ¡¡δσ ó ßÑú¼Ñ¡ΓÑ ¬«ñá ¬«¡ßΓá¡Γ ó ßΓÑ¬. ô¬áºá¡¿Ñ ó ¼«ñπ½Ñ ñ¿αÑ¬Γ¿óδ {$O+} ¡Ñ «í∩ºδóáÑΓ óáß ¿ß»«½∞º«- óáΓ∞ φΓ«Γ ¼«ñπ½∞ ¬á¬ «óÑα½Ñ⌐¡δ⌐. Ä¡á »α«ßΓ« π¬áºδóáÑΓ Borland Pascal ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ «íÑß»ÑτÑ¡¿∩, Ñß½¿ φΓ« ¡πª¡«, ¿ß»«½∞º«óá- ¡¿∩ ñá¡¡«ú« ¼«ñπ½∩ ó ¬áτÑßΓóÑ «óÑα½Ñ⌐¡«ú«. àß½¿ óδ αáºαáíáΓδóáÑΓÑ ¼«ñπ½¿, ¬«Γ«αδÑ »½á¡¿απÑΓÑ ¿ß»«½∞º«óáΓ∞ ¬á¬ ó «óÑα½Ñ⌐¡δσ, Γá¬ ¿ ó ¡Ñ«óÑα½Ñ⌐¡δσ »α¿¬½áñ¡δσ »α«úαá¼¼áσ, Γ« ¬«¼»¿½∩µ¿∩ ¿σ ß ñ¿αÑ¬Γ¿ó«⌐ {$O+} «íÑß»Ñτ¿óáÑΓ ¿ß»«½∞º«óá¡¿Ñ «ñ¡«⌐ óÑαß¿¿ ¼«ñπ½∩ ñ½∩ «í«¿σ ß½πτáÑó. B.Pascal 7 & Objects/LR - 337 - ÆαÑí«óá¡¿Ñ ¿ß»«½∞º«óá¡¿∩ ñá½∞¡Ñú« Γ¿»á óδº«ó«ó ───────────────────────────────────────────────────────────────── èá¬ πªÑ π»«¼¿¡á½«ß∞ αá¡ÑÑ, »α¿ ½εí«¼ «íαáΘÑ¡¿¿ ¬ «óÑα½Ñ⌐¡«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ ¿º ñαπú«ú« ¼«ñπ½∩ óδ ñ«½ª¡δ «íÑß»Ñτ¿Γ∞ ñ½∩ óßÑσ á¬Γ¿ó¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ óδº«óδ Γ¿»á FAR (ñá½∞¡¿⌐ Γ¿» óδ- º«óá). ¥Γ« ¼«ª¡« σ«α«Φ« »α«¿½½εßΓα¿α«óáΓ∞ ¡á ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ. ÅαÑñ»«½«ª¿¼, τΓ« OvrA »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«µÑñπαπ ó «óÑα½Ñ⌐¡«¼ ¼«ñπ½Ñ, á »α«µÑñπαδ MainC ¿ MainD - »α«µÑñπαδ ó «ß¡«ó¡«⌐ »α«úαá¼- ¼Ñ. àß½¿ «ß¡«ó¡á∩ »α«úαá¼¼á óδºδóáÑΓ MainC, ¬«Γ«αá∩ óδºδóáÑΓ »α«- µÑñπαπ MainB, ¬«Γ«αá∩ ó ßó«ε «τÑαÑñ∞ «íαáΘáÑΓß∩ ¬ »α«µÑñπαÑ OvrA, Γ« ó« óαÑ¼∩ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ OvrA »α«µÑñπαδ MainC ¿ MainB ∩ó½∩εΓß∩ á¬Γ¿ó¡δ¼¿ («¡¿ ÑΘÑ ¡Ñ óδ»«½¡¿½¿ ó«ºóαáΓ π»αáó½Ñ¡¿∩), »«- φΓ«¼π ¡Ñ«íσ«ñ¿¼« ¿ß»«½∞º«óáΓ∞ ñ½∩ ¡¿σ ñá½∞¡¿⌐ Γ¿» óδº«óá. Ä»¿ßá¡- ¡δÑ ó «ß¡«ó¡«⌐ »α«úαá¼¼Ñ, »α«µÑñπαδ MainC ¿ MainB ó «íδτ¡«⌐ ß¿Γπ- áµ¿¿ ¿ß»«½∞ºπεΓ í½¿ª¡¿⌐ Γ¿» óδº«ó«ó (NEAR). æ »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$F+} ¡Ñ«íσ«ñ¿¼« ºáñáΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«ó«ó. æá¼δ⌐ ½Ñú¬¿⌐ ß»«ß«í πñ«ó½ÑΓó«αÑ¡¿∩ ΓαÑí«óá¡¿∩ ¿ß»«½∞º«óá¡¿∩ ñá½∞¡Ñú« Γ¿»á óδº«ó«ó ß«ßΓ«¿Γ ó αáº¼ÑΘÑ¡¿¿ ó ¡áτá½Ñ «ß¡«ó¡«⌐ »α«úαá¼¼δ ¿ ó ¡áτá½Ñ ¬áªñ«ú« ¼«ñπ½∩ ñ¿αÑ¬Γ¿óδ {$F+}. Ç½∞ΓÑα¡áΓ¿ó- ¡δ⌐ ß»«ß«í ß«ßΓ«¿Γ ó ¿º¼Ñ¡Ñ¡¿¿ »α¿¡∩Γ«⌐ »« π¼«½τá¡¿ε πßΓá¡«ó¬¿ $F ¡á {$F+} ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ /$F+ ¿½¿ ß »«¼«Θ∞ε »áαá¼ÑΓαá Force Far Calls (êß»«½∞º«óáΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«óá) ó ñ¿- á½«ú«ó«¼ ¼Ñ¡ε Options│Compiler (Åáαá¼ÑΓαδ│è«¼»¿½∩Γ«α) ßαÑñδ IDE ¿¡ΓÑαá¬Γ¿ó¡«ú« ¬«¼»¿½∩Γ«αá. Å« ßαáó¡Ñ¡¿ε ß« ß¼ÑΦá¡¡δ¼ ¿ß»«½∞º«óá- ¡¿Ñ¼ óδº«ó«ó í½¿ª¡Ñú« ¿ ñá½∞¡Ñú« Γ¿»á ¿ß»«½∞º«óá¡¿Ñ óδº«ó«ó Γ«½∞- ¬« Γ¿»á FAR ¡Ñ »α¿ó«ñ¿Γ ¬ «ß«íÑ¡¡« í«½∞Φ¿¼ ñ«»«½¡¿ΓÑ½∞¡δ¼ ºáΓαá- Γá¼ »á¼∩Γ¿: ñ½∩ φΓ«ú« ΓαÑíπÑΓß∩ «ñ¡« ñ«»«½¡¿ΓÑ½∞¡«Ñ ß½«ó« »α«ßΓ- αá¡ßΓóá ßΓÑ¬á ¡á á¬Γ¿ó¡πε »α«µÑñπαπ ¿ «ñ¿¡ ñ«»«½¡¿ΓÑ½∞¡δ⌐ íá⌐Γ ¡á ¬áªñδ⌐ óδº«ó. B.Pascal 7 & Objects/LR - 338 - ê¡¿µ¿á½¿ºáµ¿∩ áñ¼¿¡¿ßΓαáΓ«αá «óÑα½ÑÑó ───────────────────────────────────────────────────────────────── çñÑß∞ ¼δ αáßß¼«Γα¿¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ Γ«ú«, ¬á¬ ¿¡¿µ¿á½¿º¿- απÑΓß∩ áñ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó (»«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿). è«ñ ¿¡¿µ¿á½¿ºáµ¿¿ ñ«½ªÑ¡ íδΓ∞ »«¼ÑΘÑ¡ »ÑαÑñ »Ñαóδ¼ «íαáΘÑ¡¿Ñ¼ ¬ «óÑα½Ñ⌐¡«⌐ »α«úαá¼¼Ñ. ê¡¿µ¿á½¿ºáµ¿ε «íδτ¡« ß½ÑñπÑΓ ñÑ½áΓ∞ ó «»Ñ- αáΓ«α¡«⌐ τáßΓ¿ »α«úαá¼¼δ. æ½ÑñπεΘá∩ τáßΓ∞ »α«úαá¼¼δ »«¬áºδóáÑΓ, ¬á¬ ¡Ñ¼¡«ú« ΓαÑíπÑΓß∩ ñ½∩ Γ«ú«, τΓ«íδ ¿¡¿µ¿á½¿º¿α«óáΓ∞ áñ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó. begin OvrInit('EDITOR.OVR'); end; Åα«óÑα¬á ¡á «Φ¿í¬¿ ¡Ñ ñÑ½áÑΓß∩. Å«φΓ«¼π Ñß½¿ ñ½∩ «óÑα½Ñ⌐¡«ú« íπΣÑαá ¡Ñ σóáΓáÑΓ »á¼∩Γ¿ ¿½¿ «óÑα½Ñ⌐¡δ⌐ Σá⌐½ ¡Ñ ¡á⌐ñÑ¡, Γ« »α¿ »«»δΓ¬Ñ óδº«óá «óÑα½Ñ⌐¡«⌐ »α«úαá¼¼δ »α«¿º«⌐ñÑΓ «Φ¿í¬á 208 (Overlay manager not installed - "Çñ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó ¡Ñ πßΓá- ¡«ó½Ñ¡"). Åα¿óÑñÑ¼ ñαπú«⌐ ¡Ñí«½∞Φ«⌐ »α¿¼Ñα, ∩ó½∩εΘ¿⌐ß∩ αáßΦ¿αÑ¡¿Ñ¼ »αÑñδñπΘÑú«. begin OvrInit('EDITOR.OVR'); OvrInitEMS; end; é φΓ«¼ ß½πτáÑ, Ñß½¿ »αÑñ»«½«ª¿Γ∞, τΓ« ñ½∩ «óÑα½Ñ⌐¡«ú« íπΣÑαá ¿¼ÑÑΓß∩ ñ«ßΓáΓ«τ¡« »á¼∩Γ¿ ¿ τΓ« ¼«ª¡« ¡á⌐Γ¿ «óÑα½Ñ⌐¡δ⌐ Σá⌐½, áñ- ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó »α«óÑα∩ÑΓ, ¿¼ÑÑΓß∩ ½¿ »á¼∩Γ∞ EMS, ¿ Ñß½¿ φΓ« Γá¬, ºáúαπªáÑΓ «óÑα½Ñ⌐¡δ⌐ Σá⌐½ ó αáßΦ¿αÑ¡¡πε »á¼∩Γ∞. èá¬ πªÑ π»«¼¿¡á½«ß∞ αá¡ÑÑ, ¡áτá½∞¡δ⌐ αáº¼Ñα «óÑα½Ñ⌐¡«ú« íπ- ΣÑαá óδí¿αáÑΓß∩ ¼¿¡¿¼á½∞¡« ó«º¼«ª¡δ¼ ¿½¿, ¿¡áτÑ ú«ó«α∩, ¡áßΓ«½∞¬« í«½∞Φ¿¼, τΓ«íδ ó¼ÑßΓ¿Γ∞ «óÑα½Ñ⌐ ¡á¿í«½∞ΦÑú« αáº¼Ñαá. ä½∩ ¡Ñ¬«Γ«- αδσ »α¿¬½áñ¡δσ ºáñáτ φΓ«ú« ¼«ªÑΓ íδΓ∞ ñ«ßΓáΓ«τ¡δ¼, «ñ¡á¬« »αÑñß- Γáó¿¼ ß¿Γπáµ¿ε, »α¿ ¬«Γ«α«⌐ «ñ¡á ¿º Σπ¡¬µ¿⌐ »α«úαá¼¼δ αÑá½¿ºπÑΓß∩ ß »«¼«Θ∞ε ñóπσ ¿½¿ í«½ÑÑ ¼«ñπ½Ñ⌐, ¬áªñδ⌐ ¿º ¬«Γ«αδσ ∩ó½∩ÑΓß∩ «óÑα½Ñ⌐¡δ¼. àß½¿ «íΘ¿⌐ αáº¼Ñα Γá¬¿σ ¼«ñπ½Ñ⌐ í«½∞ΦÑ, τÑ¼ αáº¼Ñα ¡á¿í«½∞ΦÑú« «óÑα½Ñ∩, Γ« τáßΓ«Ñ «íαáΘÑ¡¿Ñ ¼«ñπ½Ñ⌐ ñαπú ¬ ñαπúπ »α¿óÑñÑΓ ¬ ¿¡ΓÑ¡ß¿ó¡«¼π ßó«»¿¡úπ. ÄτÑó¿ñ¡«, αÑΦÑ¡¿Ñ ºá¬½ετáÑΓß∩ ó Γ«¼, τΓ«íδ πóÑ½¿τ¿Γ∞ αáº¼Ñα «óÑα½Ñ⌐¡«ú« íπΣÑαá Γá¬¿¼ «íαáº«¼, τΓ«íδ ó ½εí«⌐ ºáñá¡¡δ⌐ ¼«¼Ñ¡Γ óαÑ¼Ñ¡¿ ¿¼Ñ½«ß∞ ñ«ßΓáΓ«τ¡« »á¼∩Γ¿ ñ½∩ Γ«ú«, τΓ«íδ ß«ñÑαªáΓ∞ ó ßÑ- íÑ óßÑ «óÑα½Ñ¿, τáßΓ« «íαáΘáεΘ¿Ñß∩ ñαπú ¬ ñαπúπ. æ½ÑñπεΘá∩ τáßΓ∞ »α«úαá¼¼δ »«¬áºδóáÑΓ ¿ß»«½∞º«óá¡¿Ñ ñ½∩ πóÑ½¿τÑ¡¿∩ αáº¼Ñαá «óÑα- ½Ñ⌐¡«ú« íπΣÑαá »α«µÑñπαδ OvrSetBuf: const B.Pascal 7 & Objects/LR - 339 - OvrMaxSize = 80000; begin OvrInit('EDITOR.OVR'); OvrInitEMS; OvrSetBuf(OvrMaxSize); end; ä½∩ «»αÑñÑ½Ñ¡¿∩ ¿ñÑá½∞¡«ú« αáº¼Ñαá «óÑα½Ñ⌐¡«ú« íπΣÑαá «íΘ¿σ αÑ¬«¼Ñ¡ñáµ¿⌐ ¡ÑΓ. Å«ñσ«ñ∩ΘÑÑ º¡áτÑ¡¿Ñ ¼«ª¡« «»αÑñÑ½¿Γ∞ Γ«½∞¬« ¿¼Ñ∩ ¡Ñ¬«Γ«απε ¿¡Σ«α¼áµ¿ε « »α¿¬½áñ¡«⌐ ºáñáτ¿ ¿ φ¬ß»Ñα¿¼Ñ¡Γá½∞¡δ¼ »πΓÑ¼. êß»«½∞º«óá¡¿Ñ »α«µÑñπαδ OvrInitEMS ñ½∩ αáº¼ÑΘÑ¡¿∩ «óÑα½Ñ⌐¡«- ú« Σá⌐½á ó αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ ¡Ñ πßΓαá¡∩ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ αáí«Γδ ß «óÑα½Ñ⌐¡δ¼ íπΣÑα«¼. éÑñ∞ «óÑα½Ñ¿ »ÑαÑñ óδ»«½¡Ñ¡¿Ñ¼ ΓÑ¼ ¡Ñ ¼Ñ¡ÑÑ ñ«½ª¡δ ¬«»¿α«óáΓ∞ß∩ ¿º αáßΦ¿αÑ¡¡«⌐ »á¼∩Γ¿ ó «íδτ¡πε (Γ« ÑßΓ∞ ó «óÑα½Ñ⌐¡δ⌐ íπΣÑα). Äñ¡á¬«, »«ß¬«½∞¬π Γá¬¿Ñ »ÑαÑñáτ¿ ¿º »á¼∩Γ¿ ó »á¼∩Γ∞ óδ»«½¡∩εΓß∩ º¡áτ¿ΓÑ½∞¡« íδßΓαÑÑ, τÑ¼ τΓÑ¡¿Ñ ß ñ¿ß¬á, Γ« ¡Ñ«íσ«ñ¿¼«ßΓ∞ πóÑ½¿τÑ¡¿∩ αáº¼Ñαá «óÑα½Ñ⌐¡«ú« íπΣÑαá ßΓá¡«ó¿Γß∩ ¼Ñ¡ÑÑ «τÑó¿ñ¡«⌐. ìπª¡« Γá¬ªÑ »«¼¡¿Γ∞ « Γ«¼, τΓ« »α«µÑñπαá OvrSetBuf πóÑ½¿τ¿- óáÑΓ αáº¼Ñα «óÑα½Ñ⌐¡«ú« íπΣÑαá ºá ßτÑΓ π¼Ñ¡∞ΦÑ¡¿∩ αáº¼Ñαá ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿. Æá¬¿¼ «íαáº«¼, ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ ñ«½ª¡á íδΓ∞ »πßΓ«⌐, ¿¡áτÑ »α«µÑñπαá OvrSetBuf ¡Ñ «¬áªÑΓ ¡¿¬á¬«ú« ñÑ⌐ßΓó¿∩. àß½¿ óδ ¿ß»«½∞ºπÑΓÑ ¼«ñπ½∞ Graph, πíÑñ¿ΓÑß∞ ó Γ«¼, τΓ« óδ «íαáΘáÑΓÑß∞ ¬ »α«µÑñπαÑ OvrSetBuf »ÑαÑñ óδº«ó«¼ »α«µÑñπαδ InitGraph, ¬«Γ«αá∩ óδñÑ½∩ÑΓ »á¼∩Γ∞ ó ñ¿- ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. Åα¿óÑñÑ¼ ΓÑ»Ñα∞ í«½ÑÑ ¿ßτÑα»δóáεΘ¿⌐ »α¿¼Ñα ¿¡¿µ¿á½¿ºáµ¿¿ »«ñß¿ßΓÑ¼δ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿, ó¬½ετáεΘÑ⌐ ó ßÑí∩ »«½¡πε »α«óÑα- ¬π ¡á ó«º¼«ª¡«Ñ ó«º¡¿¬¡«óÑ¡¿Ñ «Φ¿í«¬. const OvrMaxSize = 80000; var OvrName: string[79]; Size: Longint; begin OvrName:='EDITOR.OVR'; repeat OvrInit(OvrName); if OvrResult=ovrNotFound then begin WriteLn('ÄóÑα½Ñ⌐¡δ⌐ Σá⌐½ ¡Ñ ¡á⌐ñÑ¡'); WriteLn('éóÑñ¿ΓÑ »αáó¿½∞¡«Ñ ¿¼∩ «óÑα½Ñ⌐¡«ú« Σá⌐½á:'); ReadLn(OvrName); end; until OvrResult<>ovrNotFound; if OvrResult<>ovrOk then begin WriteLn('ÄΦ¿í¬á áñ¼¿¡¿ßΓαáΓ«αá «óÑα½ÑÑó.') B.Pascal 7 & Objects/LR - 340 - Halt(1); end; OvrInEMS; if OvrResult<>OvrOk then begin case OvrResult of ovrIOError: Write('ÄΦ¿í¬á óó«ñá-óδó«ñá', ' «óÑα½Ñ⌐¡«ú« Σá⌐½á'); ovrNoEMSDriver: Write('äαá⌐óÑα EMS ¡Ñ', ' πßΓá¡«ó½Ñ¡'); ovrNoEMSMemory: Write('ìÑ σóáΓáÑΓ αáßΦ¿αÑ¡¡«⌐', ' »á¼∩Γ¿'); end; Write('. ìáª¼¿ΓÑ ¬½áó¿Φπ Enter...'); ReadLn; end; OvrSetBuf(OvrMaxSize); end; æ¡áτá½á, Ñß½¿ »α¿¡∩Γ«Ñ »« π¼«½τá¡¿ε ¿¼∩ «óÑα½Ñ⌐¡«ú« Σá⌐½á íδ½« ¡ÑóÑα¡δ¼, »«½∞º«óáΓÑ½ε íπñÑΓ óδó«ñ¿Γ∞ß∩ »«ñß¬áº¬á ¡á óóÑñÑ- ¡¿Ñ »αáó¿½∞¡«ú« ¿¼Ñ¡¿ Σá⌐½á. äá½ÑÑ »α«óÑα∩εΓß∩ ñαπú¿Ñ «Φ¿í¬¿, ¬«Γ«αδÑ ¼«úπΓ »α«¿º«⌐Γ¿ »α¿ ¿¡¿µ¿á½¿ºáµ¿¿. é ß½πτáÑ «í¡áαπªÑ¡¿∩ «Φ¿í¬¿ »α«úαá¼¼á «ßΓá¡áó½¿óá- ÑΓß∩, Γá¬ ¬á¬ «Φ¿í¬¿ ó OvrInit ∩ó½∩εΓß∩ ΣáΓá½∞¡δ¼¿. (àß½¿ «¡¿ ¿ú- ¡«α¿απεΓß∩, Γ« »α¿ »Ñαó«¼ «íαáΘÑ¡¿¿ ¬ «óÑα½Ñ⌐¡«⌐ »α«úαá¼¼Ñ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«¿º«⌐ñÑΓ «Φ¿í¬á.) àß½¿ »αÑñ»«½«ª¿Γ∞, τΓ« ¿¡¿µ¿á½¿ºáµ¿∩ »α«σ«ñ¿Γ πß»ÑΦ¡«, ñá½ÑÑ ñ½∩ ºáúαπº¬¿ «óÑα½Ñ⌐¡«ú« Σá⌐½á ó αáßΦ¿αÑ¡¡πε »á¼∩Γ∞ (Ñß½¿ φΓ« ó«º¼«ª¡«) óδ»«½¡∩ÑΓß∩ «íαáΘÑ¡¿Ñ ¬ »α«µÑñπαÑ OvrInitEMS. é ß½πτáÑ «Φ¿í¬¿ ¡á φ¬αá¡ óδó«ñ¿Γß∩ ñ¿áú¡«ßΓ¿τÑß¬«Ñ ß««íΘÑ¡¿Ñ, «ñ¡á¬« »α«ú- αá¼¼á ¡Ñ «ßΓá¡áó½¿óáÑΓß∩. é¼ÑßΓ« φΓ«ú« «¡á »α«ßΓ« »α«ñ«½ªáÑΓ ßτ¿- ΓδóáΓ∞ «óÑα½Ñ¿ ß ñ¿ß¬á. ìá¬«¡Ñµ, ñ½∩ ºáñá¡¿∩ º¡áτÑ¡¿∩ αáº¼Ñαá «óÑα½Ñ⌐¡«ú« íπΣÑαá, «»αÑñÑ½Ñ¡¡«ú« ß »«¼«Θ∞ε á¡á½¿ºá ¿½¿ φ¬ß»Ñα¿¼Ñ¡Γá ß ¬«¡¬αÑΓ¡«⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼«⌐, óδºδóáÑΓß∩ »α«µÑñπαá OvrSetBuf. ÄΦ¿í¬¿, ¬«Γ«αδÑ ¼«úπΓ ó«º¡¿¬¡πΓ∞ »α¿ óδ»«½¡Ñ¡¿¿ ñá¡¡«⌐ »α«µÑñπαδ, ¿ú¡«α¿- απεΓß∩, σ«Γ∩ OvrResult ¼«ªÑΓ ó«ºóαáΘáΓ∞ ¬«ñ ó«ºóαáΓá »« «Φ¿í¬Ñ -3 (OvrNoMemory). àß½¿ »á¼∩Γ¿ ¡Ññ«ßΓáΓ«τ¡«, »«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ íπñÑΓ »α«ßΓ« »α«ñ«½ªáΓ∞ ¿ß»«½∞º«óáΓ∞ íπΣÑα ¼¿¡¿¼á½∞¡«ú« αáº¼Ñαá, óδñÑ½Ñ¡¡δ⌐ »α¿ ºá»πß¬Ñ »α«úαá¼¼δ. B.Pascal 7 & Objects/LR - 341 - ÉáºñÑ½δ ¿¡¿µ¿á½¿ºáµ¿¿ ó «óÑα½Ñ⌐¡δσ ¼«ñπ½∩σ ───────────────────────────────────────────────────────────────── Ç¡á½«ú¿τ¡« ßΓáΓ¿τÑß¬¿¼ ¼«ñπ½∩¼ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿ ¼«úπΓ ß«- ñÑαªáΓ∞ ßÑ¬µ¿ε ¿¡¿µ¿á½¿ºáµ¿¿. ò«Γ∩ «óÑα½Ñ⌐¡δ⌐ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ ¡Ñ «Γ½¿τáÑΓß∩ «Γ «íδτ¡«ú« ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿, áñ¼¿¡¿ßΓαáΓ«α «óÑα- ½ÑÑó ñ«½ªÑ¡ »Ñαó«¡áτá½∞¡« ¿¡¿µ¿á½¿º¿α«óáΓ∞ß∩ Γá¬¿¼ «íαáº«¼, τΓ«íδ «¡ ¼«ú ºáúαπªáΓ∞ ¿ óδ»«½¡∩Γ∞ «óÑα½Ñ⌐¡δÑ ¼«ñπ½¿. éº∩ó ó ¬áτÑßΓóÑ »α¿¼Ñαá αá¡ÑÑ αáßß¼«ΓαÑ¡¡πε »α«úαá¼¼π Editor, »αÑñ»«½«ª¿¼, τΓ« ¼«ñπ½¿ EdInOut ¿ EdMain ß«ñÑαªáΓ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿. Åα¿ φΓ«¼ ΓαÑíπÑΓß∩, τΓ«íδ »α«µÑñπαá OvrInit óδºδ- óá½áß∞ »ÑαÑñ ¬«ñ«¼ ¿¡¿µ¿á½¿ºáµ¿¿ ¼«ñπ½∩ EdInOut, ¿ Ññ¿¡ßΓóÑ¡¡δ⌐ ß»«ß«í «ßπΘÑßΓó¿Γ∞ φΓ« ß«ßΓ«¿Γ ó« óóÑñÑ¡¿¿ ñ«»«½¡¿ΓÑ½∞¡«ú« ¡Ñ«- óÑα½Ñ⌐¡«ú« ¼«ñπ½∩, ¬«Γ«αδ⌐ ß½ÑñπÑΓ »ÑαÑñ EdInOut ¿ óδºδóáÑΓ ó ßó«Ñ¼ αáºñÑ½Ñ ¿¡¿µ¿á½¿ºáµ¿¿ »α«µÑñπαπ OvrInit. unit EdInit; interface implementation uses Overlay; const OvrMaxSize = 80000; begin OvrInit('EDITOR.OVR'); OvrInitEMS; OvrSetBuf(OvrMaxSize); end. é «»ÑαáΓ«αÑ uses »α«úαá¼¼δ ¼«ñπ½∞ EdInit ñ«½ªÑ¡ ß½Ññ«óáΓ∞ »ÑαÑñ óßÑ¼¿ «óÑα½Ñ⌐¡δ¼¿ ¼«ñπ½∩¼¿: program Editor; {$F} uses Overlay,Crt,Dos,EdInit,EdInOut,EdFormat,EdPrint,EdMain; {$O EdInOut } {$O EdFormat } {$O EdPrint } {$O EdFind } {$O EdMain } é «íΘÑ¼ ß½πτáÑ, σ«Γ∩ ¿ß»«½∞º«óá¡¿Ñ ¬«ñá ¿¡¿µ¿á½¿ºáµ¿¿ ó «óÑα½Ñ⌐¡δσ ¼«ñπ½∩σ ¿ ñ«»πß¬áÑΓß∩, »« α∩ñπ »α¿τ¿¡ Ñú« ß½ÑñπÑΓ ¿º- íÑúáΓ∞. é«-»Ñαóδσ, ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿, ñáªÑ Ñß½¿ «¡ óδ»«½¡∩ÑΓß∩ Γ«½∞- ¬« «ñ¿¡ αáº, ∩ó½∩ÑΓß∩ τáßΓ∞ε «óÑα½Ñ∩ ¿ íπñÑΓ ºá¡¿¼áΓ∞ »α«ßΓαá¡ß- Γó« ó «óÑα½Ñ⌐¡«¼ íπΣÑαÑ »α¿ ¬áªñ«⌐ ºáúαπº¬Ñ «óÑα½Ñ∩. é«-óΓ«αδσ, Ñß½¿ í«½∞Φ«Ñ τ¿ß½« «óÑα½Ñ⌐¡δσ ¼«ñπ½Ñ⌐ ß«ñÑαªáΓ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿, ¬áªñδ⌐ ¿º ¡¿σ »α¿ñÑΓß∩ ßτ¿ΓδóáΓ∞ ó »á¼∩Γ∞ »α¿ ºáúαπº¬Ñ »α«úαá¼¼δ. ìá¼¡«ú« í«½ÑÑ »α¿ó½Ñ¬áΓÑ½∞¡δ⌐ »«ñσ«ñ ß«ßΓ«¿Γ ó Γ«¼, τΓ«íδ B.Pascal 7 & Objects/LR - 342 - ß«íαáΓ∞ óÑß∞ ¬«ñ ¿¡¿µ¿á½¿ºáµ¿¿ ó «óÑα½Ñ⌐¡δ⌐ ¼«ñπ½∞ ¿¡¿µ¿á½¿ºáµ¿¿, ¬«Γ«αδ⌐ óδºδóáÑΓß∩ Γ«½∞¬« «ñ¿¡ αáº »α¿ ºáúαπº¬Ñ »α«úαá¼¼δ ¿ ¬ ¬«- Γ«α«¼π ºáΓÑ¼ »α«úαá¼¼á ¡Ñ «íαáΘáÑΓß∩. ùΓ« ¡Ñ ñ«½ª¡« ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ «óÑα½ÑÑó ───────────────────────────────────────────────────────────────── ÄΓñÑ½∞¡δÑ ¼«ñπ½¿ ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩, ¬á¬ «óÑα½Ñ⌐¡δÑ. é τáßΓ¡«ßΓ¿, ¡Ñ »δΓá⌐ΓÑß∞ ¿ß»«½∞º«óáΓ∞ ó ¬áτÑßΓóÑ «óÑα½Ñ⌐¡δσ ¼«ñπ- ½Ñ⌐ ß½ÑñπεΘ¿Ñ: 1. î«ñπ½¿, ß¬«¼»¿½¿α«óá¡¡δÑ ß ñ¿αÑ¬Γ¿ó«⌐ {$O-}. àß½¿ óδ »δ- ΓáÑΓÑß∞ ¿ß»«½∞º«óáΓ∞ ¬á¬ «óÑα½Ñ⌐¡δ⌐ ¼«ñπ½∞, ¬«Γ«αδ⌐ ¡Ñ íδ½ ß¬«¼»¿½¿α«óá¡ ß ñ¿αÑ¬Γ¿ó«⌐ {$O+}, Γ« ¬«¼»¿½∩Γ«α óδ- ñáÑΓ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. Æá¬¿¼¿ ¡Ñ«óÑα½Ñ⌐¡δ¼¿ ¼«ñπ½∩¼¿ ∩ó½∩εΓß∩ ¼«ñπ½¿ System, Overlay, Crt, Graph, Turbo3 ¿ Graph3. 2. î«ñπ½¿, ¬«Γ«αδÑ ß«ñÑαªáΓ ñαá⌐óÑαδ »αÑαδóá¡¿⌐. êº-ºá Γ«- ú«, τΓ« ßá¼á «»Ñαáµ¿«¡¡á∩ ß¿ßΓÑ¼á DOS ¿¼ÑÑΓ ¡Ñ«óÑα½Ñ⌐¡πε ßΓαπ¬Γπαπ, ¼«ñπ½¿, αÑá½¿ºπεΘ¿Ñ »α«µÑñπαδ »αÑαδóá¡¿⌐ (interrupt), ¡Ñ ñ«½ª¡δ íδΓ∞ «óÑα½Ñ⌐¡δ¼¿. é ¬áτÑßΓóÑ »α¿- ¼Ñαá Γá¬«ú« ¼«ñπ½∩ ¼«ª¡« »α¿óÑßΓ¿ ßΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞ Crt, αÑá½¿ºπεΘ¿⌐ ñαá⌐óÑα «íαáí«Γ¬¿ »αÑαδóá¡¿∩, ó«º¡¿¬áε- ΘÑú« »α¿ ¡áªáΓ¿¿ ¬½áó¿Φ Ctrl+Break. 3. äαá⌐óÑαδ BGI ¿½¿ Φα¿ΣΓδ, ºáαÑú¿ßΓα¿α«óá¡¡δÑ ß »«¼«Θ∞ε óδº«óá »«ñ»α«úαá¼¼ RegisterBGIdriver ¿½¿ RegisterBGIfont. Çñ¼¿¡¿ßΓαáΓ«α«¼ «óÑα½ÑÑó Borland Pascal »«½¡«ßΓ∞ε »«ññÑαª¿- óáÑΓß∩ óδº«ó «óÑα½Ñ⌐¡δσ »α«µÑñπα ß »«¼«Θ∞ε π¬áºáΓÑ½Ñ⌐ »α«µÑñπα. é ¬áτÑßΓóÑ »α¿¼Ñα«ó ¿ß»«½∞º«óá¡¿∩ π¬áºáΓÑ½Ñ⌐ »α«µÑñπα ¼«ª¡« »α¿óÑß- Γ¿ »α«µÑñπαδ ºáóÑαΦÑ¡¿∩ ¿ ñαá⌐óÑαδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐- ½«ó. Ç¡á½«ú¿τ¡«, »«½¡«ßΓ∞ε »«ññÑαª¿óáÑΓß∩ »ÑαÑñáτá «óÑα½Ñ⌐¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó »α«µÑñπα¡«ú« Γ¿»á ¿ »α¿ßóá¿óá¡¿Ñ «óÑα½Ñ⌐¡δσ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ »ÑαÑ¼Ñ¡¡δ¼ »α«µÑñπα¡«- ú« Γ¿»á. B.Pascal 7 & Objects/LR - 343 - ÄΓ½áñ¬á «óÑα½ÑÑó ───────────────────────────────────────────────────────────────── ü«½∞Φ¿¡ßΓó« «Γ½áñτ¿¬«ó «í½áñáεΓ óÑß∞¼á «úαá¡¿τÑ¡¡δ¼¿ ó«º¼«ª- ¡«ßΓ∩¼¿ «Γ½áñ¬¿ «óÑα½ÑÑó, Ñß½¿ «¡¿ ó««íΘÑ «í½áñáεΓ Γá¬¿¼¿ ßαÑñß- Γóá¼¿. ¥Γ«ú« ¡Ñ½∞º∩ ß¬áºáΓ∞ « Borland Pascal ¿ Æπαí« «Γ½áñτ¿¬Ñ (Turbo Debugger). éßΓα«Ñ¡¡δ⌐ «Γ½áñτ¿¬ »«½¡«ßΓ∞ε »«ññÑαª¿óáÑΓ »α¿ αáí«ΓÑ ß «óÑα½Ñ∩¼¿ »«Φáú«óδ⌐ αÑª¿¼ ¿ Γ«τ¬¿ «ßΓá¡«óá, ¿ß»«½∞ºπ∩ »α¿ φΓ«¼ ¼ÑΓ«ñ, »«½¡«ßΓ∞ε »α«ºαáτ¡δ⌐ ñ½∩ »«½∞º«óáΓÑ½∩. æ »«¼«Θ∞ε «óÑα½ÑÑó óδ ½Ñú¬« ¼«ªÑΓÑ ¬«¡ßΓαπ¿α«óáΓ∞ ¿ «Γ½áª¿óáΓ∞ »α¿¬½áñ¡δÑ »á¬ÑΓδ í«½∞Φ«ú« «íΩÑ¼á. éßÑ φΓ« ¼«ª¡« ñÑ½áΓ∞ ¬á¬ ß »«¼«Θ∞ε Æπαí« «Γ½áñτ¿¬á, Γá¬ ¿ ¿º ¿¡ΓÑαá¬Γ¿ó¡«⌐ ßαÑñδ ¬«¼»¿½∩Γ«αá IDE. é¡ÑΦ¡¿Ñ »α«úαá¼¼δ ó «óÑα½Ñ∩σ ───────────────────────────────────────────────────────────────── Ç¡á½«ú¿τ¡« «íδτ¡δ¼ »α«µÑñπαá¼ ¿ Σπ¡¬µ¿∩¼ Borland Pascal »α¿ ¿ß»«½∞º«óá¡¿¿ ó¡ÑΦ¡¿σ »α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ñ½∩ «íÑß»ÑτÑ- ¡¿∩ ¬«ααÑ¬Γ¡«⌐ αáí«Γδ »«ñß¿ßΓÑ¼δ π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ñ«½ª¡δ ß«í- ½εñáΓ∞ß∩ «»αÑñÑ½Ñ¡¡δÑ »αáó¿½á »α«úαá¼¼¿α«óá¡¿∩. àß½¿ ó »α«úαá¼¼Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá «ßπΘÑßΓó½∩ÑΓß∩ «íαáΘÑ- ¡¿Ñ ¬ ½εí«⌐ «óÑα½Ñ⌐¡«⌐ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿, Γ« ó »α«úαá¼¼Ñ áß- ßÑ¼í½Ñαá ñ«½ªÑ¡ ¿ß»«½∞º«óáΓ∞ß∩ ñá½∞¡¿⌐ Γ¿» óδº«óá, ¿ ß »«¼«Θ∞ε αÑú¿ßΓαá BP ñ«½ª¡δ íδΓ∞ πßΓá¡«ó½Ñ¡δ úαá¡¿µδ ßΓÑ¬á. ìá»α¿¼Ñα, »αÑñ»«½«ª¿¼, τΓ« OtherProc ∩ó½∩ÑΓß∩ «óÑα½Ñ⌐¡«⌐ »α«µÑñπα«⌐ ó ñαπ- ú«¼ ¼«ñπ½Ñ ¿ ÑÑ óδºδóáÑΓ »α«úαá¼¼á ExternProc ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñ- αá. Æ«úñá »α«úαá¼¼á ExternProc ñ«½ª¡á ¿¼ÑΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«óá ¿ πßΓá¡áó½¿óáΓ∞ úαá¡¿µδ ßΓÑ¬á ß½ÑñπεΘ¿¼ «íαáº«¼: ExternProc PROC FAR PUSH bp ; ß«σαá¡¿Γ∞ αÑú¿ßΓα éÉ mov bp,sp ; πßΓá¡«ó¿Γ∞ úαá¡¿µδ ßΓÑ¬á SUB sp,LocalSize ; óδñÑ½¿Γ∞ ½«¬á½∞¡δÑ ; »ÑαÑ¼Ñ¡¡δÑ ... CALL OtherProc ; óδºóáΓ∞ ñαπú«⌐ «óÑα½Ñ⌐¡δ⌐ ; ¼«ñπ½∞ ... mov sp,bp ; «Γ¼Ñ¡¿Γ∞ ½«¬á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ pop bp ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓα éÉ RET ParamSize ; ó«ºóαáΓ π»αáó½Ñ¡¿∩ ExternProc ENDP úñÑ LocalSize »αÑñßΓáó½∩ÑΓ ß«í«⌐ αáº¼Ñα ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ, á ParamSize - αáº¼Ñα »áαá¼ÑΓα«ó. àß½¿ º¡áτÑ¡¿Ñ LocalSize αáó¡« 0, Γ« ñóÑ ßΓα«¬¿, ó ¬«Γ«αδσ óδñÑ½∩εΓß∩ ¿ π¡¿τΓ«ªáεΓß∩ ½«¬á½∞¡δÑ »Ñ- αÑ¼Ñ¡¡δÑ, ¼«ª¡« «»πßΓ¿Γ∞. àß½¿ ó »α«úαá¼¼Ñ ExternProc ¿¼ÑεΓß∩ ¬«ßóÑ¡¡δÑ ßßδ½¬¿ ¡á «óÑα½Ñ⌐¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, Γ« φΓ¿ ΓαÑí«óá¡¿∩ «ßΓáεΓß∩ ΓÑ¼¿ ªÑ. ìá»α¿¼Ñα, Ñß½¿ »α«µÑñπαá OtherProc óδºδóáÑΓ «óÑα½Ñ⌐¡δÑ »α«µÑ- B.Pascal 7 & Objects/LR - 344 - ñπαδ ¿½¿ Σπ¡¬µ¿¿, ¡« ßá¼á ¡Ñ ∩ó½∩ÑΓß∩ «óÑα½Ñ⌐¡«⌐, Γ« »α«úαá¼¼á ExternProc ñ«½ª¡á, ΓÑ¼ ¡Ñ ¼Ñ¡ÑÑ, ¿¼ÑΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«óá ¿ πßΓá- ¡áó½¿óáΓ∞ úαá¡¿µδ ßΓÑ¬á. é Γ«¼ ß½πτáÑ, Ñß½¿ ó »α«úαá¼¼Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá «ΓßπΓß- ΓóπεΓ »α∩¼δÑ ¿½¿ ¬«ßóÑ¡¡δÑ ßßδ½¬¿ ¡á «óÑα½Ñ⌐¡δÑ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, Γ« ¡¿¬á¬¿σ ß»Ñµ¿á½∞¡δσ ΓαÑí«óá¡¿⌐ ß«í½εñáΓ∞ß∩ ¡Ñ ñ«½ª¡«: »α«úαá¼¼á áßßÑ¼í½ÑαÑ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ í½¿ª¡¿⌐ Γ¿» óδº«óá ¿ ¡Ñ πßΓá¡áó½¿óáΓ∞ úαá¡¿µ ßΓÑ¬á. ÄóÑα½Ñ⌐¡δÑ »α«úαá¼¼δ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ¡Ñ ñ«½ª¡δ ß«ºñáóáΓ∞ »ÑαÑ¼Ñ¡¡δσ ó ßÑú¼Ñ¡ΓÑ ¬«ñá, »«ß¬«½∞¬π »α¿ «ßó«í«ªñÑ¡¿¿ «óÑα½Ñ∩ ½εíδÑ ¿º¼Ñ¡Ñ¡¿∩, ó¡ÑßÑ¡¡δÑ ó «óÑα½Ñ⌐¡δ⌐ ßÑú¼Ñ¡Γ ¬«ñá, ΓÑα∩εΓß∩. Ç¡á½«ú¿τ¡«, ¡Ñ ß½ÑñπÑΓ ßτ¿ΓáΓ∞, τΓ« π¬áºáΓÑ½¿ ¡á αáº¼ÑΘÑ¡¡δÑ ó «óÑα½Ñ⌐¡«¼ ßÑú¼Ñ¡ΓÑ ¬«ñá «íΩÑ¬Γδ «ßΓá¡πΓß∩ ñÑ⌐ßΓó¿ΓÑ½∞¡δ¼¿ »α¿ óδº«óÑ ñαπú¿σ «óÑα½ÑÑó, »«ß¬«½∞¬π »«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿ ¼«ªÑΓ ßó«í«ñ¡« »ÑαÑ¼ÑΘáΓ∞ ¿ «ßó«í«ªñáΓ∞ «óÑα½Ñ⌐¡δÑ ßÑú¼Ñ¡Γδ ¬«ñá. B.Pascal 7 & Objects/LR - 345 - çáñá¡¿Ñ Σπ¡¬µ¿¿ τΓÑ¡¿∩ «óÑα½Ñ∩ ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡á∩ OvrReadBuf »«ºó«½∩ÑΓ óá¼ »ÑαÑσóáΓδóáΓ∞ «»Ñαáµ¿¿ ºáúαπº¬¿ «óÑα½ÑÑó. ìá»α¿¼Ñα, óδ ¼«ªÑΓÑ αÑá½¿º«óáΓ∞ «íαáí«Γ¬π «Φ¿- í«¬ ¿½¿ »α«óÑα¬π ¡á½¿τ¿∩ ß¼Ñ¡¡«ú« ñ¿ß¬á. è«úñá áñ¼¿¡¿ßΓαáΓ«απ «óÑα½ÑÑó ΓαÑíπÑΓß∩ ßτ¿ΓáΓ∞ «óÑα½Ñ⌐, «¡ óδºδóáÑΓ Σπ¡¬µ¿ε, áñαÑß ¬«Γ«α«⌐ ºá»¿ßá¡ ó OverReadBuf. àß½¿ Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ, Γ« áñ¼¿¡¿ßΓαáΓ«α «óÑα½ÑÑó »αÑñ»«½áúáÑΓ, τΓ« «»Ñαáµ¿∩ íδ½á πß»ÑΦ¡«⌐. àß½¿ Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ¡Ñ¡π½Ñó«⌐ αÑºπ½∞ΓáΓ, Γ« ¬«¼»¿½∩Γ«α úÑ¡Ñα¿απÑΓ «Φ¿í¬π φΓá»á óδ»«½¡Ñ¡¿∩ 209. Åáαá¼ÑΓα OvrSeg π¬áºδóáÑΓ, ¬á¬«⌐ ¿¼Ñ¡¡« «óÑα½Ñ⌐ ΓαÑíπÑΓß∩ ºáúαπº¿Γ∞, ¡«, ¬á¬ óδ ñá½ÑÑ πó¿ñ¿ΓÑ, óá¼ φΓá ¿¡Σ«α¼áµ¿∩ ¡Ñ »«ΓαÑíπÑΓß∩. ùΓ«íδ πßΓá¡«ó¿Γ∞ ßó«ε ß«íßΓóÑ¡¡πε Σπ¡¬µ¿ε τΓÑ¡¿∩ «óÑα½Ñ∩, óá¼ ¡πª¡« ß¡áτá½á ß«σαá¡¿Γ∞ »αÑñδñπΘÑÑ º¡áτÑ¡¿Ñ OvrReadBuf ó »Ñ- αÑ¼Ñ¡¡«⌐ Γ¿»á OvrReadFunc, á ºáΓÑ¼ »α¿ßó«¿Γ∞ OvrReadBuf óáΦπ Σπ¡¬µ¿ε τΓÑ¡¿∩ «óÑα½Ñ∩. é ßó«Ñ⌐ Σπ¡¬µ¿¿ τΓÑ¡¿∩ óá¼ ß½ÑñπÑΓ ñ½∩ óδ»«½¡Ñ¡¿∩ Σá¬Γ¿τÑß¬«⌐ «»Ñαáµ¿¿ ºáúαπº¬¿ óδºóáΓ∞ ß«σαá¡Ñ¡¡πε Σπ¡¬µ¿ε τΓÑ¡¿∩ «óÑα½Ñ∩. ïεíδÑ ¡πª¡δÑ óá¼ »α«óÑα¬¿ ñ«»πßΓ¿¼«ßΓ¿ (Γá¬¿Ñ ¬á¬ »α«óÑα¬á ¡á½¿τ¿∩ ß¼Ñ¡¡«ú« ñ¿ß¬á) ß½ÑñπÑΓ óδ»«½¡∩Γ∞ »Ñ- αÑñ óδº«ó«¼ ß«σαá¡Ñ¡¡«⌐ Σπ¡¬µ¿¿ τΓÑ¡¿∩, á óßÑ »α«óÑα¬¿ ¡á «Φ¿í¬¿ ß½ÑñπÑΓ óδ»«½¡∩Γ∞ »«ß½Ñ óδº«óá. Åα¿¼Ñτá¡¿Ñ: ìÑ »δΓá⌐ΓÑß∞ óδºδóáΓ∞ ¿º ßó«Ñ⌐ Σπ¡¬µ¿¿ τΓÑ¡¿∩ «óÑα½Ñ∩ ¬á¬¿Ñ-½¿í« «óÑα½Ñ⌐¡δÑ »«ñ»α«úαá¼¼δ - φΓ« »α¿óÑñÑΓ ¬ ßí«ε ß¿ßΓÑ¼δ. è«ñ ñ½∩ πßΓá¡«ó¬¿ Σπ¡¬µ¿¿ τΓÑ¡¿∩ «óÑα½Ñ∩ ñ«½ªÑ¡ ß½Ññ«óáΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡« »«ß½Ñ óδº«óá OvrInit; ó φΓ«Γ ¼«¼Ñ¡Γ OvrReadBuf íπñÑΓ ß«ñÑαªáΓ∞ áñαÑß ¿ß»«½∞ºπÑ¼«⌐ »« π¼«½τá¡¿ε Σπ¡¬µ¿¿ τΓÑ¡¿∩ ß ñ¿ß¬á. àß½¿ óδ Γá¬ªÑ óδºδóáÑΓÑ OvrInitEMS, «¡á ¿ß»«½∞ºπÑΓ óáΦπ Σπ¡¬µ¿ε τΓÑ¡¿∩ ñ½∩ τΓÑ¡¿∩ «óÑα½ÑÑó ß ñ¿ß¬á ó »á¼∩Γ∞ EMS, ¿ ó ß½π- τáÑ «ΓßπΓßΓó¿∩ «Φ¿í«¬ ß«σαá¡∩ÑΓ áñαÑß ¿ß»«½∞ºπÑ¼«⌐ »« π¼«½τá¡¿ε Σπ¡¬µ¿¿ τΓÑ¡¿∩ ó EMS ó OvrReadBuf. àß½¿ óδ σ«Γ¿ΓÑ Γá¬ªÑ »ÑαÑ«»αÑ- ñÑ½¿Γ∞ Σπ¡¬µ¿ε τΓÑ¡¿∩ ó EMS, »α«ßΓ« »«óΓ«α¿ΓÑ »«ß½Ñ óδº«óá OvrInitEMS »α«µÑßß πßΓá¡«ó¬¿. êß»«½∞ºπÑ¼á∩ »« π¼«½τá¡¿ε Σπ¡¬µ¿∩ τΓÑ¡¿∩ ß ñ¿ß¬á ó ß½πτáÑ πß»ÑΦ¡«ú« óδ»«½¡Ñ¡¿∩ ó«ºóαáΘáÑΓ 0. é »α«Γ¿ó¡«¼ ß½πτáÑ ó«ºóαáΘáÑΓ- ß∩ ¬«ñ «Φ¿í¬¿ DOS. Ç¡á½«ú¿τ¡«, ¿ß»«½∞ºπÑ¼á∩ »« π¼«½τá¡¿ε Σπ¡¬µ¿∩ τΓÑ¡¿∩ ¿º EMS ó ß½πτáÑ πß»ÑΦ¡«ú« óδ»«½¡Ñ¡¿∩ ó«ºóαáΘáÑΓ 0. é »α«- Γ¿ó¡«¼ ß½πτáÑ ó«ºóαáΘáÑΓß∩ ¬«ñ «Φ¿í¬¿ EMS («Γ $80 ñ« $FF). Å«ñ- α«í¡« ¬«ñδ «Φ¿í«¬ DOS «»¿ßδóáεΓß∩ ó "æ»αáó«τ¡«¼ απ¬«ó«ñßΓóÑ »α«ú- αá¼¼¿ßΓá". è«ñδ «Φ¿í«¬ EMS ¼«ª¡« ¡á⌐Γ¿ ó ñ«¬π¼Ñ¡Γáµ¿¿ »« EMS. æ½ÑñπεΘ¿⌐ Σαáú¼Ñ¡Γ »α«úαá¼¼δ »«¬áºδóáÑΓ, ¬á¬ ¡á»¿ßáΓ∞ ¿ πß- Γá¡«ó¿Γ∞ Σπ¡¬µ¿ε τΓÑ¡¿∩ «óÑα½Ñ∩. ì«óá∩ Σπ¡¬µ¿∩ τΓÑ¡¿∩ «óÑα½Ñ∩ »«óΓ«α¡« óδºδóáÑΓ ß«σαá¡Ñ¡¡δÑ Σπ¡¬µ¿¿ τΓÑ¡¿∩ «óÑα½Ñ∩, »«¬á ¡Ñ ó«º¡¿¬áÑΓ «Φ¿í¬á. B.Pascal 7 & Objects/LR - 346 - éßÑ «Φ¿í¬¿ »ÑαÑñáεΓß∩ »α«µÑñπαá¼ DOSError ¿½¿ EMSError (¬«- Γ«αδÑ ºñÑß∞ ¡Ñ »«¬áºá¡δ), ¬«Γ«αδÑ ¼«úπΓ óδóÑßΓ¿ «Φ¿í¬π »«½∞º«óá- ΓÑ½ε. çá¼ÑΓ¿¼, τΓ« »áαá¼ÑΓα OvrSeg »α«ßΓ« »ÑαÑñáÑΓß∩ ß«σαá¡Ñ¡¡«⌐ Σπ¡¬µ¿¿ τΓÑ¡¿∩ «óÑα½Ñ∩ ¿ ¡Ñ «íαáíáΓδóáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ¡«ó«⌐ Σπ¡¬µ¿Ñ⌐ τΓÑ¡¿∩ «óÑα½Ñ∩. uses Overlay; var SaveOvrRead: OvrReadFunc; UsingEMS: Boolean; function MyOvrRead(OvrSeg: Word): Integer: far; var E: Integer; begin repeat E := SaveOvrRead(OvrSeg); if E <> 0 then if UsingEMS then EMSError(E) else DOSError(E); until E = 0; MyOvrRead := 0; end; begin OvrInit('MYPROG.OVR'); SaveOvrRead := OvrReadBuf; { ß«σαá¡¿Γ∞ } OvrReadBuf := MyOvrRead; { πßΓá¡«ó¿Γ∞ ßó«ε } UsingEMS := False; OvrInitEMS; if OvrResult = OvrOK then begin SaveOvrRead := OvrReadBuf { ß«σαá¡Ñ¡¿Ñ } OvrReadBuf := MyOvrRead; { πßΓá¡«ó¿Γ∞ ßó«ε } UsingEMS := True; end; . . . end. B.Pascal 7 & Objects/LR - 347 - ÄóÑα½Ñ¿ ó Σá⌐½áσ .EXE ───────────────────────────────────────────────────────────────── Borland Pascal Γá¬ªÑ »«ºó«½∩ÑΓ óá¼ ºá»¿ßδóáΓ∞ «óÑα½Ñ¿ ó ¬«- ¡Ñµ óδ»«½¡∩Ñ¼«ú« Σá⌐½á .EXE »α¿¬½áñ¡«⌐ »α«úαá¼¼δ, á ¡Ñ ó «ΓñÑ½∞- ¡δ⌐ Σá⌐½ .OVR. ùΓ«íδ »α¿ß«Ññ¿¡¿Γ∞ Σá⌐½ .OVR ¬ ¬«¡µπ Σá⌐½á .EXE, ¿ß»«½∞ºπ⌐ΓÑ ¬«¼á¡ñπ DOS COPY ß »áαá¼ÑΓα«¼ ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ /B, ¡á»α¿¼Ñα: COPY/B MYPROG.EXE + MYPROG.OVR éδ ñ«½ª¡δ πíÑñ¿Γ∞ß∩, τΓ« Σá⌐½ .EXE ¬«¼»¿½¿α«óá½ß∩ íÑº ó¬½ε- τÑ¡¿∩ ó ¡Ñú« ¿¡Σ«α¼áµ¿¿ ñ½∩ «Γ½áñ¬¿. Æá¬¿¼ «íαáº«¼, ó ¿¡ΓÑúα¿α«- óá¡¡«⌐ ¿¡ΓÑαá¬Γ¿ó¡«⌐ ßαÑñÑ IDE ó ¼Ñ¡ε Options│Compiler (Åáαá¼ÑΓ- αδ│è«¼»¿½∩Γ«α) »α«óÑα∞ΓÑ »áαá¼ÑΓα Standalone (ÇóΓ«¡«¼¡á∩ «Γ½áñ- ¬á). Åα¿ ¿ß»«½∞º«óá¡¿¿ ¬«¼»¿½∩Γ«αá, αáí«ΓáεΘÑú« ß ¬«¼á¡ñ¡«⌐ ßΓα«- ¬«⌐, π¬áª¿ΓÑ »áαá¼ÑΓα /V. ä½∩ τΓÑ¡¿∩ «óÑα½Ñ∩ ¡Ñ ¿º «ΓñÑ½∞¡«ú« Σá⌐½á .OVR, á ¿º ¬«¡µá Σá⌐½á .EXE »α«ßΓ« ºáñá⌐ΓÑ »α¿ óδº«óÑ OvrInit ¿¼∩ Σá⌐½á .EXE. àß½¿ óδ αáí«ΓáÑΓÑ »«ñ π»αáó½Ñ¡¿Ñ¼ DOS óÑαß¿¿ 3.σ, Γ« ¼«ªÑΓÑ ¿ß»«½∞º«- óáΓ∞ ñ½∩ »«½πτÑ¡¿∩ ¿¼Ñ¡¿ Σá⌐½á .EXE ßΓá¡ñáαΓ¡πε Σπ¡¬µ¿ε ParamStr, ¡á»α¿¼Ñα: OvrInit(ParamStr(0)); B.Pascal 7 & Objects/LR - 348 - ─────────────────────────────────────────────────────────────────────── ùáßΓ∞ III. é ßαÑñÑ Borland Pascal ───────────────────────────────────────────────────────────────── â½áóá 21. êß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ ───────────────────────────────────────────────────────────────── é ñá¡¡«⌐ ú½áóÑ «»¿ßδóáÑΓß∩, ¬á¬ »α«úαá¼¼δ Borland Pascal ¿ß- »«½∞ºπεΓ »á¼∩Γ∞. Borland Pascal ¼«ªÑΓ ß«ºñáóáΓ∞ »α¿¬½áñ¡δÑ »α«ú- αá¼¼δ ñ½∩ αÑá½∞¡«ú« αÑª¿¼á DOS, ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS, ¿ Windows; ó ¬áªñ«¼ Γ¿»Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ »á¼∩Γ∞ ¿ß»«½∞ºπÑΓß∩ »«-αáº¡«¼π. é ñá¡¡«⌐ ú½áóÑ »«∩ß¡∩ÑΓß∩, ¬á¬ ¿ß»«½∞ºπÑΓ »á¼∩Γ∞ ¬áª- ñδ⌐ ¿º φΓ¿σ Γ¿»«ó »α«úαá¼¼. îδ αáßß¼«Γα¿¼ Γá¬ªÑ ó¡πΓαÑ¡¡¿Ñ Σ«α¼á- Γδ ñá¡¡δσ, »«ñß¿ßΓÑ¼π π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- ½áßΓ∞ε »á¼∩Γ¿ ¿ »α∩¼«⌐ ñ«ßΓπ» ¬ »á¼∩Γ¿. êß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ »α«úαá¼¼á¼¿ αÑá½∞¡«ú« αÑª¿¼á DOS ───────────────────────────────────────────────────────────────── ìá É¿ß. 21.1 »α¿óÑñÑ¡á ßσÑ¼á αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ »α«úαá¼¼δ Borland Pascal, ñ½∩ αÑá½∞¡«ú« αÑª¿¼á DOS. ÅαÑΣ¿¬ß »α«úαá¼¼¡«ú« ßÑú¼Ñ¡Γá (PSP) - φΓ« «í½áßΓ∞ ñ½¿¡«⌐ 256 íá⌐Γ, ¬«Γ«αá∩ ßΓα«¿Γß∩ «»Ñαáµ¿«¡¡«⌐ ß¿ßΓÑ¼«⌐ DOS »α¿ ºáúαπº¬Ñ Σá⌐½á .EXE. ÇñαÑß PSP ß«σαá¡∩ÑΓß∩ ó »αÑñ«»¿ßá¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ Borland Pascal ñ½¿¡«⌐ ó ß½«ó« ß ¿¼Ñ¡Ñ¼ PrefixSeg. èáªñ«⌐ »α«úαá¼¼Ñ (¬«Γ«αá∩ ó¬½ετáÑΓ ó ßÑí∩ «ß¡«ó¡πε »α«úαá¼¼π ¿ ¬áªñδ⌐ ¼«ñπ½∞) ß««ΓóÑΓßΓóπÑΓ ßÑú¼Ñ¡Γ ÑÑ ¬«ñá. Äß¡«ó¡á∩ »α«úαá¼- ¼á ºá¡¿¼áÑΓ »Ñαóδ⌐ ßÑú¼Ñ¡Γ ¬«ñá. æ½ÑñπεΘ¿Ñ ßÑú¼Ñ¡Γδ ¬«ñá ºá¡∩Γδ ¼«ñπ½∩¼¿ (ó »«α∩ñ¬Ñ, «íαáΓ¡«¼ Γ«¼π, ó ¬«Γ«α«¼ «¡¿ π¬áºá¡δ ó «»Ñ- αáΓ«αÑ uses). Å«ß½Ññ¡¿⌐ ßÑú¼Ñ¡Γ ¬«ñá ºá¡∩Γ í¿í½¿«ΓÑ¬«⌐ ¿ß»«½¡∩ε- ΘÑ⌐ ß¿ßΓÑ¼δ (¼«ñπ½∞ System). Éáº¼Ñα «ΓñÑ½∞¡«ú« ßÑú¼Ñ¡Γá ¡Ñ ¼«ªÑΓ »αÑóδΦáΓ∞ 64è, «ñ¡á¬« «íΘ¿⌐ αáº¼Ñα ¬«ñá «úαá¡¿τÑ¡ Γ«½∞¬« «íΩÑ¼«¼ ¿¼ÑεΘÑ⌐ß∩ »á¼∩Γ¿. B.Pascal 7 & Objects/LR - 349 - éÑασ¡∩∩ úαá¡¿µá »á¼∩Γ¿ DOS HeapEnd ──>┌────────────────────────────┐ │ │ │ ßó«í«ñ¡á∩ »á¼∩Γ∞ │ │ │ HeapPtr ──>│............................│ │ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ │ │ «í½áßΓ∞ »á¼∩Γ¿ │ │ (αáßΓÑΓ óóÑασ) ^ │ HeapOrg ──>├────────────────────────────┤<── OvrHeapEnd │ «óÑα½Ñ⌐¡δ⌐ íπΣÑα │ ├────────────────────────────┤<── OvrHeapOrg │ ßΓÑ¬ (αáßΓÑΓ ó¡¿º) v │ SSeg:SPtr ──>│............................│ │ ßó«í«ñ¡δ⌐ ßΓÑ¬ │ SSeg:0000 ──>├────────────────────────────┤ │ ú½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ │ │............................│<───────┐ │ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ │ │ DSeg:0000 ──>├────────────────────────────┤ │ │ ¬«ñ«óδ⌐ ßÑú¼Ñ¡Γ │ │ │ ¼«ñπ½∩ System │ │ │............................│ │ │ ¬«ñ«óδ⌐ ßÑú¼Ñ¡Γ │ │ │ »Ñαó«ú« ¼«ñπ½∩ │ │ │............................│ │ └────────────────────────────┘ ß«ñÑαª¿¼«Ñ . ¬«ñ«óδ⌐ ßÑú¼Ñ¡Γ . «íαáºá . ñαπú¿σ ¼«ñπ½Ñ⌐ . Σá⌐½á .EXE ┌────────────────────────────┐ │ │............................│ │ │ ¬«ñ«óδ⌐ ßÑú¼Ñ¡Γ │ │ │ »«ß½Ññ¡Ñú« ¼«ñπ½∩ │ │ ├────────────────────────────┤ │ │ ¬«ñ«óδ⌐ ßÑú¼Ñ¡Γ │ │ │ ú½áó¡«⌐ »α«úαá¼¼δ │ │ ├────────────────────────────┤<───────┘ │ »αÑΣ¿¬ß ßÑú¼Ñ¡Γá »α«úαá¼¼δ │ │ (PSP) │ PrefixSeg ──>└────────────────────────────┘ É¿ß. 21.1 æσÑ¼á »á¼∩Γ¿ ñ½∩ »α«úαá¼¼δ αÑá½∞¡«ú« αÑª¿¼á DOS. æÑú¼Ñ¡Γ ñá¡¡δσ (áñαÑßπÑ¼δ⌐ τÑαÑº αÑú¿ßΓα DS) ß«ñÑαª¿Γ óßÑ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ, ºá ¬«Γ«αδ¼¿ ß½ÑñπεΓ óßÑ ú½«íá½∞¡δÑ »Ñ- αÑ¼Ñ¡¡δÑ. é »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ αÑú¿ßΓα DS ¡¿¬«úñá ¡Ñ ¿º¼Ñ¡∩ÑΓß∩. Éáº¼Ñα ßÑú¼Ñ¡Γá ñá¡¡δσ ¡Ñ ¼«ªÑΓ »αÑóδΦáΓ∞ 64è. Åα¿ óσ«ñÑ ó »α«úαá¼¼π αÑú¿ßΓα ßÑú¼Ñ¡Γá ßΓÑ¬á (SS) ¿ π¬áºá- ΓÑ½∞ ßΓÑ¬á (SÉ) ºáúαπªáεΓß∩ Γá¬, τΓ« »áαá αÑú¿ßΓα«ó SS:SÉ π¬áºδ- óáÑΓ ¡á »Ñαóδ⌐ íá⌐Γ, ß½ÑñπεΘ¿⌐ ºá ßÑú¼Ñ¡Γ«¼ ßΓÑ¬á. ÉÑú¿ßΓα SS ó »α«µÑßßÑ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ ¡¿¬«úñá ¡Ñ ¿º¼Ñ¡∩ÑΓß∩, á SP ¼«ªÑΓ B.Pascal 7 & Objects/LR - 350 - »ÑαÑ¼ÑΘáΓ∞ß∩ ó¡¿º, »«¬á ¡Ñ ñ«ßΓ¿ú¡ÑΓ ¡¿ª¡Ñ⌐ úαá¡¿µδ ßÑú¼Ñ¡Γá. Éáº¼Ñα ßÑú¼Ñ¡Γá ßΓÑ¬á ¡Ñ ¼«ªÑΓ »αÑóδΦáΓ∞ 64è. Å« π¼«½τá¡¿ε Ñ¼π ¡áº¡áτáÑΓß∩ αáº¼Ñα, αáó¡δ⌐ 16è, ¡« ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«- αá $î φΓ« º¡áτÑ¡¿Ñ ¼«ª¡« ¿º¼Ñ¡¿Γ∞. ÄóÑα½Ñ⌐¡δ⌐ íπΣÑα ¿ß»«½∞ºπÑΓß∩ ßΓá¡ñáαΓ¡δ¼ ¼«ñπ½Ñ¼ Overlay ñ½∩ σαá¡Ñ¡¿∩ «óÑα½Ñ⌐¡«ú« ¬«ñá. Å« π¼«½τá¡¿ε αáº¼Ñα «óÑα½Ñ⌐¡«ú« íπΣÑαá ß««ΓóÑΓßΓóπÑΓ αáº¼Ñαπ ¡á¿í«½∞ΦÑú« «óÑα½Ñ∩ ó »α«úαá¼¼Ñ. àß- ½¿ »α«úαá¼¼á ¡Ñ ¿¼ÑÑΓ «óÑα½ÑÑó, Γ« αáº¼Ñα «óÑα½Ñ⌐¡«ú« íπΣÑαá íπ- ñÑΓ ¡π½Ñóδ¼. Éáº¼Ñα «óÑα½Ñ⌐¡«ú« íπΣÑαá ¼«ª¡« πóÑ½¿τ¿Γ∞ ß »«¼«Θ∞ε óδº«óá »«ñ»α«úαá¼¼δ OvrSetBuf ¼«ñπ½∩ Overlay. é φΓ«¼ ß½πτáÑ αáº- ¼Ñα ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ ß««ΓóÑΓßΓóÑ¡¡« π¼Ñ¡∞ΦáÑΓß∩, á HeapOrg »ÑαÑ¼ÑΘáÑΓß∩ óóÑασ. é ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ß«σαá¡∩εΓß∩ ñ¿¡á¼¿τÑß- ¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ, Γ« ÑßΓ∞ »ÑαÑ¼Ñ¡¡δÑ, óδñÑ½Ñ¡¡δÑ »α¿ «íαáΘÑ¡¿∩σ ¬ ßΓá¡ñáαΓ¡δ¼ »α«µÑñπαá¼ New ¿ GetMem. Ä¡á ºá¡¿¼áÑΓ óßε ßó«í«ñ¡πε »á¼∩Γ∞ ¿½¿ τáßΓ∞ ßó«í«ñ¡«⌐ »á¼∩Γ¿, «ßΓáóΦπεß∩ »α¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ. äÑ⌐ßΓó¿ΓÑ½∞¡δ⌐ αáº¼Ñα ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- ½áßΓ¿ ºáó¿ß¿Γ «Γ ¼á¬ß¿¼á½∞¡«ú« ¿ ¼¿¡¿¼á½∞¡«ú« º¡áτÑ¡¿⌐, ¬«Γ«αδÑ ¼«ª¡« πßΓá¡«ó¿Γ∞ ñ½∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $î. âáαá¡Γ¿α«óá¡¡δ⌐ ¼¿¡¿¼á½∞¡δ⌐ αáº¼Ñα ñ¿- ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¡Ñ ¼«ªÑΓ íδΓ∞ ¼Ñ¡∞ΦÑ ¼¿¡¿¼á½∞¡«- ú« º¡áτÑ¡¿∩, πßΓá¡«ó½Ñ¡¡«ú« ñ½∩ φΓ«⌐ «í½áßΓ¿. Å« π¼«½τá¡¿ε ¼¿¡¿- ¼á½∞¡δÑ αáº¼Ñα ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ αáóÑ¡ 0 íá⌐Γ, á ¼á¬ß¿¼á½∞¡δ⌐ - 640è; φΓ« «º¡áτáÑΓ, τΓ« »« π¼«½τá¡¿ε ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ ºá¡¿¼áÑΓ óßε ñ«ßΓπ»¡πε »á¼∩Γ∞. Å«ñß¿ßΓÑ¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ (∩ó½∩εΘá∩ß∩ τáßΓ∞ε í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ), ¬á¬ ¼«ª¡« ñ«úáñáΓ∞ß∩, π»- αáó½∩ÑΓ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε. äÑΓá½∞¡« «¡á «»¿ßδ- óáÑΓß∩ ó ß½ÑñπεΘÑ¼ αáºñÑ½Ñ. Çñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ DOS ───────────────────────────────────────────────────────────────── ä¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ - φΓ« »«σ«ªá∩ ¡á ßΓÑ¬ ßΓαπ¬Γπαá, ¬«Γ«αá∩ πóÑ½¿τ¿óáÑΓß∩, ¡áτ¿¡á∩ «Γ ¼½áñΦ¿σ áñαÑß«ó »á- ¼∩Γ¿. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩ ßÑú¼Ñ¡Γ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. ì¿ª¡∩∩ úαá¡¿µá ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ºá»«- ¼¿¡áÑΓß∩ ó »ÑαÑ¼Ñ¡¡«⌐ HÑápOrg, á óÑασ¡∩∩ úαá¡¿µá ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ß««ΓóÑΓßΓóπÑΓ ¡¿ª¡Ñ⌐ úαá¡¿µÑ ßó«í«ñ¡«⌐ »á- ¼∩Γ¿ ¿ ß«σαá¡∩ÑΓß∩ ó »ÑαÑ¼Ñ¡¡«⌐ ìÑápPtr. Åα¿ ¬áªñ«¼ óδñÑ½Ñ¡¿¿ ñ¿- ¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »«ñ- ß¿ßΓÑ¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ (áñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿) »ÑαÑ¼ÑΘáÑΓ »ÑαÑ¼Ñ¡¡πε HeapPtr óóÑασ ¡á αáº¼Ñα »ÑαÑ¼Ñ¡¡«⌐, ¬á¬ íδ «αúá¡¿ºπ∩ »α¿ φΓ«¼ ßΓÑ¬ ñ¿¡á¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ, ó ¬«Γ«α«¼ «ñ¡á »ÑαÑ¼Ñ¡¡á∩ αáº¼ÑΘáÑΓß∩ ¡áñ ñαπú«⌐. ÅÑαÑ¼Ñ¡¡á∩ ìÑápPtr »«ß½Ñ ¬áªñ«⌐ «»Ñαáµ¿¿ ¬á¬ »αáó¿½« ¡«α¼á- ½¿ºπÑΓß∩, ¿ ß¼ÑΘÑ¡¿Ñ, Γá¬¿¼ «íαáº«¼, »α¿¡¿¼áÑΓ º¡áτÑ¡¿∩ ó ñ¿á»á- º«¡Ñ «Γ $0000 ñ« $000F. Æá¬ ¬á¬ ¬áªñá∩ »ÑαÑ¼Ñ¡¡á∩ ñ«½ª¡á µÑ½¿¬«¼ ß«ñÑαªáΓ∞ß∩ ó «ñ¡«¼ ßÑú¼Ñ¡ΓÑ, ¼á¬ß¿¼á½∞¡δ⌐ αáº¼Ñα «ΓñÑ½∞¡«⌐ »ÑαÑ- B.Pascal 7 & Objects/LR - 351 - ¼Ñ¡¡«⌐, ¬«Γ«αá∩ ¼«ªÑΓ íδΓ∞ αáº¼ÑΘÑ¡á ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, ß«ßΓáó½∩ÑΓ 65521 íá⌐Γ (τΓ« ß««ΓóÑΓßΓóπÑΓ $10000 ¼¿¡πß $000F). B.Pascal 7 & Objects/LR - 352 - îÑΓ«ñδ «ßó«í«ªñÑ¡¿∩ «í½áßΓÑ⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ¿ ───────────────────────────────────────────────────────────────── ä¿¡á¼¿τÑß¬¿Ñ »ÑαÑ¼Ñ¡¡δÑ, ß«σαá¡∩Ñ¼δÑ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ- ½∩Ñ¼«⌐ «í½áßΓ¿, «ßó«í«ªñáεΓß∩ «ñ¡¿¼ ¿º ñóπσ ß½ÑñπεΘ¿σ ß»«ß«í«ó: 1. æ »«¼«Θ∞ε »α«µÑñπα Dispose ¿½¿ FrÑÑîÑ¼. 2. æ »«¼«Θ∞ε »α«µÑñπα îárk ¿ RÑlÑásÑ. Åα«ßΓÑ⌐ΦÑ⌐ ßσÑ¼«⌐ ¿ß»«½∞º«óá¡¿∩ »α«µÑñπα îárk ¿ RÑlÑásÑ, ¡á»α¿¼Ñα, ∩ó½∩ÑΓß∩ óδ»«½¡Ñ¡¿Ñ ß½ÑñπεΘ¿σ «»ÑαáΓ«α«ó: New(Ptr1); New(Ptr2); Mark(P); New(Ptr3); New(Ptr4); New(Ptr5); æσÑ¼á ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »α¿ φΓ«¼ íπñÑΓ óδú- ½∩ñÑΓ∞, ¬á¬ »«¬áºá¡« ¡á É¿ß. 21.2. HeapEnd ──>┌──────────────────────────┐ éÑασ¡∩∩ úαá¡¿µá │ │ »á¼∩Γ¿ │ │ HeapPtr ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr5^ │ Ptr5 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr4^ │ Ptr4 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr3^ │ Ptr3 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr2^ │ Ptr2 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr1^ │ Ptr1 ──>└──────────────────────────┘ ì¿ª¡∩∩ úαá¡¿µá »á¼∩Γ¿ É¿ß. 21.2 îÑΓ«ñ «ßó«í«ªñÑ¡¿∩ «í½áßΓÑ⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ- ½∩Ñ¼«⌐ «í½áßΓ¿ »«¼«Θ∞ε »α«µÑñπα îárk ¿ RÑlÑásÑ. Ä»ÑαáΓ«α îárk(P) «Γ¼ÑτáÑΓ ß«ßΓ«∩¡¿Ñ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ- ¼«⌐ «í½áßΓ¿ ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ óδñÑ½Ñ¡¿Ñ¼ »á¼∩Γ¿ ñ½∩ »ÑαÑ¼Ñ¡- ¡«⌐ Ptr3 (»πΓÑ¼ ß«σαá¡Ñ¡¿∩ ΓÑ¬πΘÑú« º¡áτÑ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ ìÑápPtr ó P). àß½¿ óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α RÑleásÑ(P), Γ« ßσÑ¼á ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ßΓá¡«ó¿Γß∩ Γá¬«⌐, ¬á¬ »«¬áºá¡« ¡á É¿ß. 21.3. Åα¿ φΓ«¼, »«ß¬«½∞¬π »α«¿ºó«ñ¿Γß∩ «íαáΘÑ¡¿Ñ ¬ »α«µÑñπαÑ îárk, «ßó«í«ªñáÑΓß∩ »á¼∩Γ∞, óδñÑ½Ñ¡¡á∩ »«ñ óßÑ π¬áºáΓÑ½¿. Åα¿¼Ñτá¡¿Ñ: éδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ RÑleásÑ(ìÑápÄrg) »«½- ¡«ßΓ∞ε «ßó«í«ªñáÑΓ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼πε «í½áßΓ∞ »á¼∩- Γ¿, »«ß¬«½∞¬π »ÑαÑ¼Ñ¡¡á∩ ìÑápOrg π¬áºδóáÑΓ ¡á ¡¿ª¡εε úαá¡¿- B.Pascal 7 & Objects/LR - 353 - µπ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. HeapEnd ──>┌──────────────────────────┐ éÑασ¡∩∩ úαá¡¿µá │ │ »á¼∩Γ¿ │ │ │ │ │ │ │ │ │ │ HeapPtr ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr2^ │ Ptr2 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr1^ │ Ptr1 ──>└──────────────────────────┘ ì¿ª¡∩∩ úαá¡¿µá »á¼∩Γ¿ É¿ß. 21.3 æσÑ¼á ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »α¿ óδ- »«½¡Ñ¡¿¿ »α«µÑñπαδ RÑleásÑ(P). Åα¿¼Ñ¡Ñ¡¿Ñ »α«µÑñπα îárk ¿ RÑlÑásÑ ñ½∩ «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿, óδñÑ½Ñ¡¡«⌐ ñ½∩ ñ¿¡á¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ, ¡á ¬«Γ«αδÑ ßßδ½áεΓß∩ π¬á- ºáΓÑ½¿, óδ»«½¡∩Ñ¼«Ñ ó »«α∩ñ¬Ñ, ó Γ«τ¡«ßΓ¿ «íαáΓ¡«¼ »«α∩ñ¬π óδñÑ- ½Ñ¡¿∩ »á¼∩Γ¿, óÑß∞¼á φΣΣÑ¬Γ¿ó¡«. Äñ¡á¬« ó í«½∞Φ¿¡ßΓóÑ »α«úαá¼¼ ¿¼ÑÑΓß∩ ΓÑ¡ñÑ¡µ¿∩ ó í«½ÑÑ ß½πτá⌐¡«¼π óδñÑ½Ñ¡¿ε ¿ «ßó«í«ªñÑ¡¿ε »á- ¼∩Γ¿, «ΓóÑñÑ¡¡«⌐ ñ½∩ ñ¿¡á¼¿τÑß¬¿σ »ÑαÑ¼Ñ¡¡δσ, ¡á ¬«Γ«αδÑ ßßδ½áεΓ- ß∩ π¬áºáΓÑ½¿, τΓ« ó½ÑτÑΓ ºá ß«í«⌐ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ í«- ½ÑÑ Γ«¡¬¿σ ¼ÑΓ«ñ«ó π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε, ¬«Γ«αδÑ αÑá½¿º«óá¡δ ß »«- ¼«Θ∞ε »α«µÑñπα Dispose ¿ FrÑÑMem. ¥Γ¿ »α«µÑñπαδ »«ºó«½∩εΓ ó ½εí«⌐ ¼«¼Ñ¡Γ «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, óδñÑ½Ñ¡¡πε ñ½∩ ½εí«⌐ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ- ¼Ñ¡¡«⌐, ¡á ¬«Γ«απε ßßδ½áÑΓß∩ π¬áºáΓÑ½∞. è«úñá ß »«¼«Θ∞ε »α«µÑñπα Dispose ¿ FrÑÑîÑ¼ «ßó«í«ªñáÑΓß∩ »á- ¼∩Γ∞, «ΓóÑñÑ¡¡á∩ ñ½∩ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, ¡Ñ ∩ó½∩εΘá∩ß∩ "ßá- ¼«⌐ óÑασ¡Ñ⌐" »ÑαÑ¼Ñ¡¡«⌐ ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, Γ« ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ ßΓá¡«ó¿Γß∩ Σαáú¼Ñ¡Γ¿α«óá¡¡«⌐. ÅαÑñ»«½«ª¿¼, τΓ« óδ»«½¡∩½áß∞ Γá ªÑ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ «»ÑαáΓ«α«ó, τΓ« ¿ ó »αÑñδñπΘÑ¼ »α¿¼ÑαÑ. Æ«úñá »«ß½Ñ óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ Dispose(Ptr3) ó µÑ¡ΓαÑ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ «íαáºπÑΓß∩ ¡Ñºá¡∩Γ«Ñ »α«ßΓαá¡ßΓó« ("ñδαá"). ¥Γ« »«¬áºá¡« ¡á É¿ß. 21.4. B.Pascal 7 & Objects/LR - 354 - HeapEnd ──>┌──────────────────────────┐ éÑασ¡∩∩ úαá¡¿µá │ │ »á¼∩Γ¿ │ │ HeapPtr ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr5^ │ Ptr5 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr4^ │ Ptr4 ──>├──────────────────────────┤ │▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│ │▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│ ├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr2^ │ Ptr2 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr1^ │ Ptr1 ──>└──────────────────────────┘ ì¿ª¡∩∩ úαá¡¿µá »á¼∩Γ¿ É¿ß. 21.4 æ«ºñá¡¿Ñ ¡Ñºá¡∩Γ«⌐ «í½áßΓ¿ ("ñδαδ") ó ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿. àß½¿ ó ñá¡¡δ⌐ ¼«¼Ñ¡Γ óδ»«½¡∩ÑΓß∩ »α«µÑñπαá New(Ptr3), Γ« φΓ« «»∩Γ∞ »α¿óÑñÑΓ ¬ óδñÑ½Ñ¡¿ε Γ«⌐ ªÑ «í½áßΓ¿ »á¼∩Γ¿. æ ñαπú«⌐ ßΓ«α«- ¡δ, óδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ Dispose(Ptr4) πóÑ½¿τ¿Γ αáº¼Ñα ßó«í«ñ¡«ú« í½«¬á, Γá¬ ¬á¬ Ptr3 ¿ Ptr4 íδ½¿ ß«ßÑñ¡¿¼¿ í½«¬á¼¿ (ß¼. É¿ß. 21.5). HeapEnd ──>┌──────────────────────────┐ éÑασ¡∩∩ úαá¡¿µá │ │ »á¼∩Γ¿ │ │ HeapPtr ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr5^ │ Ptr5 ──>├──────────────────────────┤ │▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│ │▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│ │▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│ │▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│ ├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr2^ │ Ptr2 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr1^ │ Ptr1 ──>└──────────────────────────┘ ì¿ª¡∩∩ úαá¡¿µá »á¼∩Γ¿ É¿ß. 21.5 ôóÑ½¿τÑ¡¿Ñ αáº¼Ñαá ¡Ñºá¡∩Γ«ú« í½«¬á »á¼∩Γ¿. é ¬«¡Ñτ¡«¼ ¿Γ«úÑ óδ»«½¡Ñ¡¿Ñ »α«µÑñπαδ Dispose(Ptr5) »α¿óÑñÑΓ ß¡áτá½á ¬ ß«ºñá¡¿ε ¡Ñºá¡∩Γ«ú« í½«¬á í«½∞ΦÑú« αáº¼Ñαá, á ºáΓÑ¼ ìÑápPtr »ÑαÑ¼ÑßΓ¿Γß∩ ó í«½ÑÑ ¼½áñΦ¿Ñ áñαÑßá »á¼∩Γ¿. Å«ß¬«½∞¬π »«ß½Ññ¡¿¼ ñ«»πßΓ¿¼δ¼ π¬áºáΓÑ½Ñ¼ ΓÑ»Ñα∞ íπñÑΓ Ptr2 (ß¼. É¿ß. 21 6), Γ« φΓ« »α¿óÑñÑΓ ¬ ñÑ⌐ßΓó¿ΓÑ½∞¡«¼π «ßó«í«ªñÑ¡¿ε ¡Ñºá¡∩Γ«ú« í½«¬á. HeapEnd ──>┌──────────────────────────┐ éÑασ¡∩∩ úαá¡¿µá │ │ »á¼∩Γ¿ B.Pascal 7 & Objects/LR - 355 - │ │ │ │ │ │ │ │ │ │ │ │ │ │ HeapPtr ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr2^ │ Ptr2 ──>├──────────────────────────┤ │ ß«ñÑαª¿¼«Ñ Ptr1^ │ Ptr1 ──>└──────────────────────────┘ ì¿ª¡∩∩ úαá¡¿µá »á¼∩Γ¿ É¿ß. 21.7 Äßó«í«ªñÑ¡¿Ñ ¡Ñºá¡∩Γ«ú« í½«¬á »á¼∩Γ¿. èá¬ »«¬áºá¡« ¡á É¿ß. 21.7, ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í- ½áßΓ∞ »á¼∩Γ¿ ΓÑ»Ñα∞ ¡áσ«ñ¿Γß∩ ó Γ«¼ ªÑ ßá¼«¼ ß«ßΓ«∩¡¿¿, ó ¬á¬«¼ «¡á ¡áσ«ñ¿½áß∞ íδ »«ß½Ñ óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ RÑlÑásÑ(P). Äñ¡á¬« ß«ºñáóáÑ¼δÑ ¿ «ßó«í«ªñáÑ¼δÑ »α¿ Γá¬«¼ »α«µÑßßÑ ¡Ñºá¡∩ΓδÑ í½«¬¿ «Γß½Ñª¿óáεΓß∩ ñ½∩ ¿σ ó«º¼«ª¡«ú« »«óΓ«α¡«ú« ¿ß»«½∞º«óá¡¿∩. æ»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó ───────────────────────────────────────────────────────────────── ÇñαÑßá ¿ αáº¼Ñαδ ßó«í«ñ¡δσ í½«¬«ó, ß«ºñá¡¡δσ »α¿ «»Ñαáµ¿∩σ Dispose ¿ FrÑÑîÑ¼, σαá¡∩Γß∩ ó ß»¿ß¬Ñ ßó«í«ñ¡δσ í½«¬«ó, ¬«Γ«αδ⌐ πóÑ½¿τ¿óáÑΓß∩ ó¡¿º, ¡áτ¿¡á∩ ß« ßΓáαΦ¿σ áñαÑß«ó »á¼∩Γ¿, ó ßÑú¼Ñ¡ΓÑ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. èáªñδ⌐ αáº »ÑαÑñ óδñÑ½Ñ¡¿Ñ¼ »á¼∩Γ¿ ñ½∩ ñ¿¡á¼¿τÑß¬«⌐ »ÑαÑ¼Ñ¡¡«⌐, »ÑαÑñ ΓÑ¼, ¬á¬ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ íπñÑΓ αáßΦ¿αÑ¡á, »α«óÑα∩ÑΓß∩ ß»¿ß«¬ ßó«- í«ñ¡δσ í½«¬«ó. àß½¿ ¿¼ÑÑΓß∩ í½«¬ ß««ΓóÑΓßΓóπεΘÑú« αáº¼Ñαá (Γ« ÑßΓ∞ αáº¼Ñα ¬«Γ«α«ú« í«½∞ΦÑ ¿½¿ αáóÑ¡ ΓαÑíπÑ¼«¼π αáº¼Ñαπ), Γ« «¡ ¿ß»«½∞ºπÑΓß∩. Åα«µÑñπαá RÑlÑásÑ óßÑúñá «τ¿ΘáÑΓ ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó. Æá¬¿¼ «íαáº«¼, »α«úαá¼¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ "ºá- íδóáÑΓ" « ¡Ñºá¡∩Γδσ í½«¬áσ, ¬«Γ«αδÑ ¼«úπΓ ßπΘÑßΓó«óáΓ∞ ¡¿ªÑ π¬á- ºáΓÑ½∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. àß½¿ óδ τÑαÑñπÑΓÑ «í- αáΘÑ¡¿∩ ¬ »α«µÑñπαá¼ îárk ¿ RÑlÑásÑ ß «íαáΘÑ¡¿∩¼¿ ¬ »α«µÑñπαá¼ Dispose ¿ FrÑÑîÑ¼, Γ« ¡πª¡« «íÑß»Ñτ¿Γ∞ «ΓßπΓßΓó¿Ñ Γá¬¿σ ßó«í«ñ¡δσ í½«¬«ó. ÅÑαÑ¼Ñ¡¡á∩ FreeList ¼«ñπ½∩ System π¬áºδóáÑΓ ¡á »Ñαóδ⌐ ßó«- í«ñ¡δ⌐ í½«¬ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿. äá¡¡δ⌐ í½«¬ ß«ñÑαª¿Γ π¬áºáΓÑ½∞ ¡á ß½ÑñπεΘ¿⌐ ßó«í«ñ¡δ⌐ í½«¬ ¿ Γ.ñ. Å«ß- ½Ññ¡¿⌐ ßó«í«ñ¡δ⌐ í½«¬ ß«ñÑαª¿Γ π¬áºáΓÑ½∞ ¡á óÑαΦ¿¡π ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ (Γ« ÑßΓ∞ áñαÑß, ºáñá¡¡δ⌐ HeapPtr). àß½¿ ßó«í«ñ¡δσ í½«¬«ó ó ß»¿ß¬Ñ ßó«í«ñ¡δσ í½«¬«ó ¡ÑΓ, Γ« FreeList íπñÑΓ αáó¡« HeapPtr. ö«α¼áΓ »Ñαóδσ 8 íá⌐Γ ßó«í«ñ¡«ú« í½«¬á ºáñáÑΓß∩ Γ¿»«¼ TFreeRec: B.Pascal 7 & Objects/LR - 356 - type PFreeRec = ^TFreeRec; TFreeRec = record Next: PFreeRec; Size: Pointer; end; Å«½Ñ Next π¬áºδóáÑΓ ¡á ß½ÑñπεΘ¿⌐ ßó«í«ñ¡δ⌐ í½«¬, ¿½¿ ¡á Γπ ªÑ ∩τÑ⌐¬π, τΓ« ¿ HeapPtr, Ñß½¿ í½«¬ ∩ó½∩ÑΓß∩ »«ß½Ññ¡¿¼ ßó«í«ñ¡δ¼ í½«¬«¼. é »«½Ñ Size ºá»¿ßá¡ αáº¼Ñα ßó«í«ñ¡«ú« í½«¬á. ç¡áτÑ¡¿Ñ ó »«½Ñ Size »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¡Ñ «íδτ¡«Ñ 32-í¿Γ«ó«Ñ º¡áτÑ¡¿Ñ, á "¡«α¼á½¿º«óá¡¡«Ñ" º¡áτÑ¡¿Ñ-π¬áºáΓÑ½∞ ß τ¿ß½«¼ ßó«í«ñ¡δσ »áαáúαá- Σ«ó (16-íá⌐Γ«óδσ í½«¬«ó) ó ßΓáαΦÑ¼ ß½«óÑ ¿ ßτÑΓτ¿¬«¼ ßó«í«ñ¡δσ íá⌐Γ («Γ 0 ñ« 15) ó ¼½áñΦÑ¼ ß½«óÑ. æ½ÑñπεΘá∩ Σπ¡¬µ¿∩ BlockSize »αÑ«íαáºπÑΓ º¡áτÑ¡¿Ñ »«½∩ Size ó «íδτ¡«Ñ º¡áτÑ¡¿Ñ Γ¿»á Longint: function BlockSize(Size: Pointer): Longint; type PtrRec = record Lo, Hi: Word end; begin BlockSize := Longint(PtrRec(Size)).Hi)*16+PtrRec(Size).Lo end; ùΓ«íδ «íÑß»Ñτ¿Γ∞, τΓ« ó ¡áτá½Ñ ßó«í«ñ¡«ú« í½«¬á óßÑúñá ¿¼ÑÑΓ- ß∩ ¼ÑßΓ« ñ½∩ TFreePtr, »«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε »á¼∩Γ¿ «¬απú½∩ÑΓ αáº¼Ñα ¬áªñ«ú« í½«¬á, óδñÑ½Ñ¡- ¡«ú« »«ñ»α«úαá¼¼á¼¿ New ¿ GetMem ñ« 8-íá⌐Γ«ó«⌐ úαá¡¿µδ. Æá¬¿¼ «íαáº«¼, 8 íá⌐Γ óδñÑ½∩ÑΓß∩ ñ½∩ í½«¬«ó αáº¼Ñα«¼ 1..8, 16 íá⌐Γ - ñ½∩ í½«¬«ó αáº¼Ñα«¼ 9..16 ¿ Γ.ñ. æ¡áτá½á φΓ« ¬áªÑΓß∩ ¡Ñ»α«¿ºó«ñ¿- ΓÑ½∞¡«⌐ ΓαáΓ«⌐ »á¼∩Γ¿. ¥Γ« ó ßá¼«¼ ñÑ½Ñ Γá¬, Ñß½¿ íδ ¬áªñδ⌐ í½«¬ íδ½ αáº¼Ñα«¼ 1 íá⌐Γ. ì« «íδτ¡« í½«¬¿ ¿¼ÑεΓ í«½∞Φ¿⌐ αáº¼Ñα, »«φΓ«- ¼π «Γ¡«ß¿ΓÑ½∞¡δ⌐ αáº¼Ñα ¡Ñ¿ß»«½∞ºπÑ¼«ú« »α«ßΓαá¡ßΓóá ¼Ñ¡∞ΦÑ. 8-íá⌐Γ«óδ⌐ ¬«φΣΣ¿µ¿Ñ¡Γ αáºñα«í½Ñ¡¡«ßΓ¿ «íÑß»Ñτ¿óáÑΓ, τΓ« »α¿ í«½∞Φ«¼ τ¿ß½Ñ ß½πτá⌐¡«ú« óδñÑ½Ñ¡¿∩ ¿ «ßó«í«ªñÑ¡¿∩ í½«¬«ó «Γ- ¡«ß¿ΓÑ½∞¡« ¡Ñí«½∞Φ«ú« αáº¼Ñαá (τΓ« Γ¿»¿τ¡« ñ½∩ ºá»¿ßÑ⌐ »ÑαÑ¼Ñ¡¡«⌐ ñ½¿¡δ ó »α«úαá¼¼áσ «íαáí«Γ¬¿ ΓÑ¬ßΓá) ¡Ñ »α¿óÑñÑΓ ¬ ß¿½∞¡«⌐ Σαáú- ¼Ñ¡Γáµ¿¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. é ¬áτÑßΓóÑ »α¿¼Ñαá »αÑñ»«½«ª¿¼, τΓ« ºá¡¿¼áÑΓß∩ ¿ «ßó«í«ªñáÑΓß∩ í½«¬ αáº¼Ñα«¼ 50 íá⌐Γ. Å«ß½Ñ Ñú« «ßó«í«ªñÑ¡¿∩ ºá»¿ß∞ « ¡Ñ¼ ó¬½ετáÑΓß∩ ó ß»¿ß«¬ ßó«í«ñ¡δσ í½«¬«ó. ¥Γ«Γ í½«¬ «¬απú½∩ÑΓß∩ ñ« 56 (7*8) íá⌐Γ. àß½¿ ó ñá½∞¡Ñ⌐ΦÑ¼ »«ΓαÑíπÑΓß∩ í½«¬ αáº¼Ñα«¼ «Γ 49 ñ« 56 íá⌐Γ, Γ« ñá¡¡δ⌐ í½«¬ íπñÑΓ »«½¡«ßΓ∞ε »«óΓ«α¡« ¿ß»«½∞º«óá¡, á ¡Ñ «ßΓá¡ÑΓß∩ «Γ 1 ñ« 7 íá⌐Γ »á¼∩Γ¿ (¿ß»«½∞º«óá¡¿Ñ ¬«Γ«αδ⌐ ¼á½«óÑα«∩Γ¡«), ¬«Γ«αδÑ íπñπΓ Γ«½∞¬« Σαáú¼Ñ¡Γ¿α«óáΓ∞ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼πε «í½áßΓ∞. ÅÑαÑ¼Ñ¡¡á∩ HeapError ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡á∩ HeapError »«ºó«½∩ÑΓ óá¼ αÑá½¿º«óáΓ∞ Σπ¡¬µ¿ε «íαá- í«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿. ¥Γá Σπ¡¬- B.Pascal 7 & Objects/LR - 357 - µ¿∩ óδºδóáÑΓß∩ ¬áªñδ⌐ αáº, ¬«úñá »α«úαá¼¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑ- ñÑ½Ñ¡¿∩ »á¼∩Γ¿ ¡Ñ ¼«ªÑΓ óδ»«½¡¿Γ∞ ºá»α«ß ¡á óδñÑ½Ñ¡¿Ñ »á¼∩Γ¿. ìÑápàrror ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼, ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ ¡á Σπ¡¬µ¿ε ß« ß½ÑñπεΘ¿¼ ºáú«½«ó¬«¼: function HeapFunc(Size: Word): Integer; far; çá¼ÑΓ¿¼, τΓ« ñ¿αÑ¬Γ¿óá far π¬áºδóáÑΓ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í- ¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¡Ñ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«- óáΓ∞ ñá½∞¡εε ¼«ñÑ½∞ óδº«óá. öπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ αÑá½¿ºπÑΓß∩ »πΓÑ¼ »α¿ßóá¿óá¡¿∩ ÑÑ áñαÑßá »ÑαÑ¼Ñ¡¡«⌐ ìÑápEror: HeapError := @HeapFunc; öπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ »«½πτáÑΓ π»αáó½Ñ¡¿Ñ, ¬«úñá »α¿ «íαáΘÑ¡¿¿ ¬ »α«µÑñπαá¼ New ¿½¿ GetîÑ¼ ºá»α«ß ¡Ñ ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡. Åáαá¼ÑΓα Size ß«ñÑαª¿Γ αáº¼Ñα í½«¬á, ñ½∩ ¬«Γ«α«ú« ¡Ñ «¬áºá½«ß∞ «í½áßΓ¿ »á¼∩Γ¿ ß««ΓóÑΓß- ΓóπεΘÑú« αáº¼Ñαá, ¿ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »«»δΓáÑΓß∩ «ßó«í«ñ¿Γ∞ í½«¬, αáº¼Ñα ¬«Γ«α«ú« ¡Ñ ¼Ñ¡∞ΦÑ ñá¡¡«ú« αáº¼Ñαá. é ºáó¿ß¿¼«ßΓ¿ «Γ πß»Ñσá óδ»«½¡Ñ¡¿∩ φΓ«⌐ »«»δΓ¬¿ Σπ¡¬µ¿∩ «í- αáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ó«ºóαáΘáÑΓ º¡á- τÑ¡¿∩ 0, 1 ¿½¿ 2. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 0 ßó¿ñÑΓÑ½∞ßΓóπÑΓ « ¡Ñπ- ñáτ¡«⌐ »«»δΓ¬Ñ, τΓ« ¡Ñ¼Ññ½Ñ¡¡« »α¿ó«ñ¿Γ ¬ ó«º¡¿¬¡«óÑ¡¿ε «Φ¿í¬¿ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 1 Γá¬ªÑ ßó¿ñÑ- ΓÑ½∞ßΓóπÑΓ « ¡Ñπñáτ¡«⌐ »«»δΓ¬Ñ, ¡« ó¼ÑßΓ« «Φ¿í¬¿ φΓá»á óδ»«½¡Ñ¡¿∩ «¡« »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« »α«µÑñπαδ GetîÑ¼ ¿½¿ FrÑÑîÑ¼ ó«ºóαáΘáεΓ π¬áºáΓÑ½∞ nil. ìá¬«¡Ñµ, ó«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 2 ßó¿ñÑΓÑ½∞ßΓóπÑΓ «í πñáτ¡«⌐ »«»δΓ¬Ñ ¿ óδºδóáÑΓ »«óΓ«α¡πε »«»δΓ¬π óδñÑ½¿Γ∞ »á¼∩Γ∞ (¬«Γ«αá∩ Γá¬ªÑ ¼«ªÑΓ »α¿óÑßΓ¿ ¬ óδº«óπ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿). æΓá¡ñáαΓ¡á∩ «íαáí«Γ¬¿ Σπ¡¬µ¿∩ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩- Ñ¼«⌐ «í½áßΓ¿ óßÑúñá ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ 0, »α¿ó«ñ∩, Γá¬¿¼ «íαá- º«¼, ¬ «Φ¿í¬Ñ óß∩¬¿⌐ αáº, ¬«úñá ¡Ñ ¼«úπΓ íδΓ∞ óδ»«½¡Ñ¡δ »α«µÑñπαδ New ¿½¿ GetîÑ¼. Äñ¡á¬« ñ½∩ ¼¡«ú¿σ »α¿¬½áñ¡δσ »α«úαá¼¼ í«½ÑÑ »«ñ- σ«ñ∩ΘÑ⌐ ∩ó½∩ÑΓß∩ »α«ßΓá∩ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, »α¿¼Ñα ¬«Γ«α«⌐ »α¿óÑñÑ¡ ¡¿ªÑ: function HeapFunc(Size: Word): Integer; far; begin HeapFunc := 1; end; àß½¿ Γá¬á∩ Σπ¡¬µ¿∩ αÑá½¿º«óá¡á, Γ« ó¼ÑßΓ« »α¿¡πñ¿ΓÑ½∞¡«ú« ºáóÑαΦÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ ó ß¿Γπáµ¿¿, ¬«úñá »α«µÑñπαδ New ¿½¿ GetîÑ¼ ¡Ñ ¼«úπΓ óδ»«½¡¿Γ∞ ºá»α«ß, «¡á íπñÑΓ ó«ºóαáΘáΓ∞ »πßΓ«⌐ π¬áºáΓÑ½∞ (π¬áºáΓÑ½∞ nil). B.Pascal 7 & Objects/LR - 358 - éδº«ó Σπ¡¬µ¿¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á- ¼∩Γ¿ ß« º¡áτÑ¡¿Ñ¼ »áαá¼ÑΓαá Size, αáó¡δ¼ 0, »«¬áºδóáÑΓ, τΓ« πñ«ó- ½ÑΓó«αÑ¡¿Ñ ºá»α«ßá ¡á óδñÑ½Ñ¡¿Ñ »á¼∩Γ¿ »α¿óÑ½« ¬ αáßΦ¿αÑ¡¿ε ñ¿¡á- ¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ »πΓÑ¼ »ÑαÑ¼ÑΘÑ¡¿∩ HeapPtr óóÑασ. ¥Γ« »α«¿ßσ«ñ¿Γ, ¬«úñá ó ß»¿ß¬Ñ ßó«í«ñ¡δσ í½«¬«ó ¡ÑΓ ßó«- í«ñ¡δσ í½«¬«ó, ¿½¿ ¬«úñá óßÑ ßó«í«ñ¡δÑ í½«¬¿ ß½¿Φ¬«¼ ¼á½δ ñ½∩ πñ«ó½ÑΓó«αÑ¡¿∩ ñá¡¡«ú« ºá»α«ßá. éδº«ó ß« º¡áτÑ¡¿Ñ¼ Size, αáó¡δ¼ 0, ¡Ñ π¬áºδóáÑΓ ¡á ß«ßΓ«∩¡¿Ñ «Φ¿í¬¿, »«ß¬«½∞¬π ¼Ñªñπ HeapPtr ¿ HeapEnd ñ«ßΓáΓ«τ¡« »α«ßΓαá¡ßΓóá ñ½∩ αáßΦ¿αÑ¡¿∩, «ñ¡á¬« Γá¬«⌐ óδ- º«ó ß½πª¿Γ »αÑñπ»αÑªñÑ¡¿Ñ¼, τΓ« ¡Ñ¿ß»«½∞ºπÑ¼á∩ «í½áßΓ∞ óδΦÑ HeapPtr ß«¬αáΓ¿½áß∞, ¿ »«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε »á¼∩Γ¿ ¿ú¡«α¿απÑΓ º¡áτÑ¡¿Ñ, ó«ºóαáΘáÑ¼«Ñ »α¿ óδº«óÑ Γá¬«ú« Γ¿»á. B.Pascal 7 & Objects/LR - 359 - êß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ ó »α«úαá¼¼áσ DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ───────────────────────────────────────────────────────────────── é ñá¡¡«¼ αáºñÑ½Ñ »«∩ß¡∩ÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ »á¼∩Γ∞ ó »α«úαá¼- ¼áσ Borland Pascal ñ½∩ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á. æÑú¼Ñ¡Γδ ¬«ñá ───────────────────────────────────────────────────────────────── Åα¿¬½áñ¡á∩ »α«úαá¼¼á ¿ ¬áªñá∩ í¿í½¿«ΓÑ¬á ó »α¿¬½áñ¡«⌐ »α«ú- αá¼¼Ñ ¿½¿ DLL ¿¼ÑÑΓ ßó«⌐ ß«íßΓóÑ¡¡δ⌐ ßÑú¼Ñ¡Γ ¬«ñá. Å« π¼«½τá¡¿ε ¼«ñπ½¿ ß á¡á½«ú¿τ¡δ¼¿ áΓα¿íπΓá¼¿ úαπ»»¿απεΓß∩ ó ßÑú¼Ñ¡Γáσ ¬«ñá. éδ ¼«ªÑΓÑ π»αáó½∩Γ∞ Γá¬¿¼ úαπ»»¿α«óá¡¿Ñ¼ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿ó $S ¿ $G ¿¼∩_¼«ñπ½∩. Éáº¼Ñα «ñ¡«ú« ßÑú¼Ñ¡Γá ¬«ñá ¡Ñ ¼«ªÑΓ »αÑóδΦáΓ∞ 64è, ¡« «íΘ¿⌐ αáº¼Ñα ¬«ñá «úαá¡¿τÑ¡ Γ«½∞¬« «íΩÑ¼«¼ ñ«ßΓπ»¡«⌐ »á- ¼∩Γ¿. ÇΓα¿íπΓδ ßÑú¼Ñ¡Γá ───────────────────────────────────────────────────────────────── èáªñδ⌐ ßÑú¼Ñ¡Γ ¬«ñá ¿¼ÑÑΓ ¡áí«α áΓα¿íπΓ«ó, «»αÑñÑ½∩εΘ¿σ »«- óÑñÑ¡¿Ñ ßÑú¼Ñ¡Γá ¬«ñá »α¿ ºáúαπº¬Ñ ó »á¼∩Γ∞. ÇΓα¿íπΓδ MOVEABLE ¿½¿ FIXED ───────────────────────────────────────────────────────────────── è«úñá ßÑú¼Ñ¡Γ ¬«ñá ¿¼ÑÑΓ áΓα¿íπΓ MOVEABLE (»ÑαÑ¼ÑΘáÑ¼δ⌐), áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ ¼«ªÑΓ »ÑαÑ¼ÑΘáΓ∞ ßÑú¼Ñ¡Γ ó Σ¿º¿τÑß¬«⌐ »á¼∩- Γ¿, τΓ«íδ πñ«ó½ÑΓó«α¿Γ∞ ñαπú¿Ñ ºá»α«ßδ αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿. è«ú- ñá ßÑú¼Ñ¡Γ ¬«ñá ¿¼ÑÑΓ áΓα¿íπΓ FIXED (Σ¿¬ß¿α«óá¡¡δ⌐), «¡ ¡¿ »α¿ ¬á¬¿σ «íßΓ«∩ΓÑ½∞ßΓóáσ ¡Ñ »ÑαÑ¼ÑΘáÑΓß∩ ó Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿. ÅαÑñ- »«τΓ¿ΓÑ½∞¡δ¼ áΓα¿íπΓ«¼ ∩ó½∩ÑΓß∩ MOVEABLE, ¿ »«¬á ¡Ñ íπñÑΓ áíß«- ½εΓ¡« ¡Ñ«íσ«ñ¿¼« σαá¡¿Γ∞ ßÑú¼Ñ¡Γá ó «ñ¡¿σ ¿ ΓÑσ ªÑ áñαÑßáσ »á¼∩Γ¿ (φΓ« ¿¼ÑÑΓ ¼ÑßΓ«, ¡á»α¿¼Ñα, ñ½∩ «íαáí«Γτ¿¬á »αÑαδóá¡¿⌐), ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ φΓ«Γ áΓα¿íπΓ. è«úñá óá¼ »«ΓαÑíπÑΓß∩ Σ¿¬ß¿α«óá¡¡δ⌐ ßÑú¼Ñ¡Γ ¬«ñá, Γá¬«⌐ ßÑú¼Ñ¡Γ ¬«ñá ß½ÑñπÑΓ ßñÑ½áΓ∞ »« ó«º¼«ª¡«ßΓ¿ ¼á½Ñ¡∞¬¿¼. ÇΓα¿íπΓδ PRELOAD ¿½¿ DEMANDLOAD ───────────────────────────────────────────────────────────────── æÑú¼Ñ¡Γ ¬«ñá, ¿¼ÑεΘ¿⌐ áΓα¿íπΓ PRELOAD (»αÑñóáα¿ΓÑ½∞¡« ºáúαπ- ªáÑ¼δ⌐), áóΓ«¼áΓ¿τÑß¬¿ ºáúαπªáÑΓß∩ »α¿ á¬Γ¿ó¿ºáµ¿¿ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ¿½¿ í¿í½¿«ΓÑ¬¿. ÇΓα¿íπΓ DEMANDLOAD (ºáúαπªáÑ¼δ⌐ »« ºá»- α«ßπ) «Γ¬½áñδóáÑΓ ºáúαπº¬π ßÑú¼Ñ¡Γá ¿½¿ »α«úαá¼¼δ ñ« Σá¬Γ¿τÑß¬«ú« óδº«óá ßÑú¼Ñ¡Γá. ò«Γ∩ φΓ« ΓαÑíπÑΓ í«½∞ΦÑ óαÑ¼Ñ¡¿, ¡« »«ºó«½∩ÑΓ »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ φ¬«¡«¼¿Γ∞ »á¼∩Γ∞. ÇΓα¿íπΓδ DISCARDABLE ¿½¿ PERMAMENT ───────────────────────────────────────────────────────────────── è«úñá ßÑú¼Ñ¡Γ ¿¼ÑÑΓ áΓα¿íπΓ DIASCARDABLE (óδúαπªáÑ¼δ⌐), áñ- B.Pascal 7 & Objects/LR - 360 - ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ¼«ªÑΓ «ßó«í«ñ¿Γ∞ ºá¡¿¼áÑ¼πε ßÑú¼Ñ¡Γ«¼ »á¼∩Γ∞, ¬«úñá ΓαÑíπÑΓß∩ ñ«»«½¡¿ΓÑ½∞¡á∩ »á¼∩Γ∞. è«úñá ßÑú¼Ñ¡Γ ¿¼ÑÑΓ áΓα¿íπΓ PERMANENT (»«ßΓ«∩¡¡δ⌐), «¡ óßÑ óαÑ¼∩ σαá- ¡¿Γß∩ ó »á¼∩Γ¿. è«úñá »α¿¬½áñ¡á∩ »α«úαá¼¼á óδºδóáÑΓ ßÑú¼Ñ¡Γ DISCARDABLE, «ΓßπΓßΓóπεΘ¿⌐ ó »á¼∩Γ¿, áñ¼¿¡¿ßΓαáΓ«α ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á ß¡áτá½á ºáúαπªáÑΓ Ñú« ¿º Σá⌐½á .EXE. ¥Γ« ΓαÑíπÑΓ í«½∞ΦÑ óαÑ¼Ñ¡¿, τÑ¼ Ñß½¿ íδ ßÑú¼Ñ¡Γ ¿¼Ñ½ áΓα¿íπΓ PERMANENT, ¡« »«ºó«½∩ÑΓ óδ»«½¡∩Γ∞ »α¿¬½áñ¡πε »α«úαá¼¼π ó ¼Ñ¡∞ΦÑ¼ «íΩÑ¼Ñ »á¼∩Γ¿. æÑú¼Ñ¡Γ DISCARDABLE ó »α«úαá¼¼Ñ DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á á¡á- ½«ú¿τÑ¡ «óÑα½Ñ⌐¡«¼π ßÑú¼Ñ¡Γπ ó »α«úαá¼¼Ñ DOS, ó Γ« óαÑ¼∩ ¬á¬ ßÑú- ¼Ñ¡Γ PERMANENT ó ºáΘ¿ΘÑ¡¡«¼ αÑª¿¼Ñ DOS á¡á½«ú¿τÑ¡ ßÑú¼Ñ¡Γπ »α«ú- αá¼¼δ DOS, ¡Ñ ∩ó½∩εΘÑ¼πß∩ «óÑα½Ñ⌐¡δ¼. B.Pascal 7 & Objects/LR - 361 - æÑú¼Ñ¡Γδ ñá¡¡δσ ¿ ßΓÑ¬á ───────────────────────────────────────────────────────────────── èáªñá∩ »α¿¬½áñ¡á∩ »α«úαá¼¼á ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¿½¿ í¿í- ½¿«ΓÑ¬á ß«ñÑαª¿Γ ßÑú¼Ñ¡Γ ñá¡¡δσ, ¬«Γ«αδÑ ¼«ªÑΓ ¿¼ÑΓ∞ αáº¼Ñα ñ« 64è. ìá ßÑú¼Ñ¡Γ óßÑúñá π¬áºδóáÑΓ αÑú¿ßΓα ßÑú¼Ñ¡Γá ñá¡¡δσ (DS). ¥Γ«Γ ßÑú¼Ñ¡Γ ß«ñÑαª¿Γ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ ¿ ú½«íá½∞¡δÑ »ÑαÑ- ¼Ñ¡¡δÑ. èα«¼Ñ ßÑú¼Ñ¡Γá ñá¡¡δσ, »α¿¬½áñ¡á∩ »α«úαá¼¼á ºáΘ¿ΘÑ¡¡«ú« αÑ- ª¿¼á DOS ¿¼ÑÑΓ ßÑú¼Ñ¡Γ ßΓÑ¬á, ¬«Γ«αδ⌐ ¿ß»«½∞ºπÑΓß∩ ñ½∩ σαá¡Ñ¡¿∩ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ, αáß»αÑñÑ½Ñ¡¡δσ »α«µÑñπαá¼¿ ¿ Σπ¡¬µ¿∩¼¿. ìá óσ«ñÑ ó »α¿¬½áñ¡πε »α«úαá¼¼π αÑú¿ßΓα ßÑú¼Ñ¡Γá ßΓÑ¬á (SS) ¿ π¬áºá- ΓÑ½∞ ßΓÑ¬á (SP) ºáúαπªÑ¡δ Γá¬¿¼ «íαáº«¼, τΓ« »áαá αÑú¿ßΓα«ó SS:SP π¬áºδóáÑΓ ¡á »Ñαóδ⌐ íá⌐Γ »«ß½Ñ ßÑú¼Ñ¡Γá ßΓÑ¬á. è«úñá óδºδóáεΓß∩ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, SP ñ½∩ óδñÑ½Ñ¡¿∩ »α«ßΓαá¡ßΓóá ñ½∩ »áαá¼ÑΓ- α«ó, áñαÑßá ó«ºóαáΓá ¿ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ »ÑαÑ¼ÑΘáÑΓß∩ ó¡¿º. è«úñá »«ñ»α«úαá¼¼á ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ, »α«µÑßß ¿º¼Ñ¡∩ÑΓß∩ ¡á «íαáΓ¡δ⌐: π¬áºáΓÑ½∞ ßΓÑ¬á πóÑ½¿τ¿óáÑΓß∩ ñ« º¡áτÑ¡¿∩, ¬«Γ«α«Ñ «¡ ¿¼Ñ½ »ÑαÑñ óδº«ó«¼. Å« π¼«½τá¡¿ε αáº¼Ñα ßÑú¼Ñ¡Γá ßΓÑ¬á αáóÑ¡ 16è, ¡« ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $M Ñú« ¼«ª¡« ¿º¼Ñ¡¿Γ∞. é «Γ½¿τ¿Ñ «Γ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ, DDL DOS ºáΘ¿ΘÑ¡¡«ú« αÑª¿- ¼á ¡Ñ ¿¼ÑÑΓ ßÑú¼Ñ¡Γá ßΓÑ¬á. è«úñá ó DLL óδºδóáÑΓß∩ »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩, αÑú¿ßΓα DS ¿º¼Ñ¡∩ÑΓß∩, τΓ«íδ π¬áºδóáΓ∞ ¡á ßÑú¼Ñ¡Γ ñá¡¡δσ DLL, ¡« »áαá αÑú¿ßΓα«ó SS:SP ¡Ñ ¼«ñ¿Σ¿µ¿απÑΓß∩. Æá¬¿¼ «íαáº«¼, DLL óßÑúñá ¿ß»«½∞ºπÑΓ ßÑú¼Ñ¡Γ ßΓÑ¬á óδºδóáεΘÑ⌐ »α¿¬½áñ¡«⌐ »α«ú- αá¼¼δ. êº¼Ñ¡Ñ¡¿Ñ áΓα¿íπΓ«ó ───────────────────────────────────────────────────────────────── êß»«½∞ºπÑ¼δÑ »« π¼«½τá¡¿ε áΓα¿íπΓδ ßÑú¼Ñ¡Γá ¬«ñá - φΓ« áΓα¿- íπΓδ MOVEABLE, DEMANDLOAD ¿ DISCARDABLE. ì« ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $C óδ ¼«ªÑΓÑ ºáñáΓ∞ ñαπú¿Ñ ¿ß»«½∞ºπÑ¼δÑ »« π¼«½τá¡¿ε áΓα¿íπΓδ, ¡á»α¿¼Ñα: {$C MOVEABLE PRELOAD PERMANENT} é »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ¡ÑΓ ¡Ñ«íσ«ñ¿- ¼«ßΓ¿ ó áñ¼¿¡¿ßΓαáΓ«αÑ «óÑα½ÑÑó. Çñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ DOS ºáΘ¿- ΘÑ¡¡«ú« αÑª¿¼á ó¬½ετáÑΓ ó ßÑí∩ »«½¡δ⌐ ¡áí«α ßαÑñßΓó π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿, π»αáó½∩Γ∞ ¬«Γ«αδ¼¿ ¼«ª¡« τÑαÑº áΓα¿íπΓδ ßÑú¼Ñ¡Γá ¬«ñá. Ä»¿ßδóáÑ¼δÑ ¡¿ªÑ ßαÑñßΓóá ñ«ßΓπ»¡δ ñ½∩ ½εí«⌐ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«- ú« αÑª¿¼á DOS. Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡«ßΓ¿ « ñ¿αÑ¬Γ¿óÑ ¬«¼»¿½∩Γ«αá $C ¼«ª¡« ¡á⌐Γ¿ ó â½áóÑ 2 ("ä¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá") ó "æ»αáó«τ- ¡«¼ απ¬«ó«ñßΓóÑ »α«úαá¼¼¿ßΓá". B.Pascal 7 & Objects/LR - 362 - Çñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ DOS ───────────────────────────────────────────────────────────────── ÉáßΦ¿αÑ¡¿∩ Borland ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS ó¬½ετáεΓ ó ßÑí∩ »«½¡δ⌐ áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á. Åα¿ óδ»«½¡Ñ¡¿¿ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS óß∩ ñ«ßΓπ»¡á∩ »á¼∩Γ∞ »αÑóαáΘáÑΓ- ß∩ ó ú½«íá½∞¡πε ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼πε «í½áßΓ∞ »á¼∩Γ¿, ¬«Γ«- αá∩ π»αáó½∩ÑΓß∩ áñ¼¿¡¿ßΓαáΓ«α«¼ »á¼∩Γ¿ (»«ñß¿ßΓÑ¼«⌐ π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε) ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á. Åα¿¬½áñ¡á∩ »α«úαá¼¼á ¼«ªÑΓ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ú½«íá½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ τÑ- αÑº »«ñ»α«úαá¼¼δ GlobalXXXX ¼«ñπ½∩ WinAPI. ò«Γ∩ ¼«ª¡« αáß»αÑñÑ- ½∩Γ∞ í½«¬¿ ú½«íá½∞¡«⌐ »á¼∩Γ¿ ½εí«ú« αáº¼Ñαá, ú½«íá½∞¡á∩ ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »á¼∩Γ¿ »αÑñ¡áº¡áτÑ¡á Γ«½∞¬« ñ½∩ í«½∞Φ¿σ í½«¬«ó (1024 íá⌐Γ ¿½¿ í«½ÑÑ). ä½∩ ¬áªñ«ú« í½«¬á ú½«íá½∞- ¡«⌐ »á¼∩Γ¿ ΓαÑíπÑΓß∩ ñ«»«½¡¿ΓÑ½∞¡« 32 íá⌐Γá (φΓ« ¡Ñ»α«¿ºó«ñ¿ΓÑ½∞- ¡δÑ ºáΓαáΓδ), á «íΘÑÑ τ¿ß½« í½«¬«ó ú½«íá½∞¡«⌐ »á¼∩Γ¿ ¡Ñ ¼«ªÑΓ »αÑóδΦáΓ∞ 8192. Åα¿¼Ñτá¡¿Ñ: Å«ñα«í¡ÑÑ αáßΦ¿αÑ¡¿∩ Borland ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á DOS «»¿ßδóáεΓß∩ ó â½áóÑ 17 "Åα«úαá¼¼¿α«óá¡¿Ñ ó ºáΘ¿- ΘÑ¡¡«¼ αÑª¿¼Ñ DOS". Borland Pascal ó¬½ετáÑΓ ó ßÑí∩ áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ (¬«Γ«αδ⌐ ¡áºδóáεΓ Γá¬ªÑ »«ñß¿ßΓÑ¼«⌐ π»αáó½Ñ¡¿∩ »á¼∩Γ∞ε), αÑá½¿ºπεΘ¿⌐ ßΓá¡- ñáαΓ¡δÑ »α«µÑñπαδ New, Dispose, GetMem ¿ FreeMem. Çñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ ¿ß»«½∞ºπÑΓ ñ½∩ óßÑσ αáß»αÑñÑ½Ñ¡¿⌐ »á¼∩Γ¿ ú½«íá½∞¡πε ñ¿¡á- ¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼πε «í½áßΓ∞. Å«ß¬«½∞¬π ú½«íá½∞¡á∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »á¼∩Γ¿ «úαá¡¿τÑ¡á 8192 í½«¬á¼¿ (τΓ« «τÑ- ó¿ñ¡« ¼Ñ¡∞ΦÑ, τÑ¼ ¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ ñ½∩ ¡Ñ¬«Γ«αδσ »α¿¬½áñ¡δσ »α«úαá¼¼), áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ Borland Pascal αÑá½¿ºπÑΓ á½ú«α¿Γ¼ óΓ«α¿τ¡«ú« αáß»αÑñÑ½Ñ¡¿∩ ßÑú¼Ñ¡Γ«ó, ¬«Γ«αδ⌐ π½πτΦáÑΓ »α«¿ºó«ñ¿- ΓÑ½∞¡«ßΓ∞ ¿ ñ«»πß¬áÑΓ αáß»αÑñÑ½Ñ¡¿Ñ ßπΘÑßΓóÑ¡¡« í«½∞ΦÑú« ¬«½¿- τÑßΓóá í½«¬«ó. Åα¿¼Ñτá¡¿Ñ: Borland Pascal ñ½∩ αáßΦ¿αÑ¡¡«ú« αÑª¿¼á DOS ¡Ñ »«ññÑαª¿óáÑΓ ßσÑ¼π αáß»αÑñÑ½Ñ¡¿∩ ß »«¼«Θ∞ε »α«µÑñπα MArk ¿ Release, »αÑñπß¼«ΓαÑ¡¡πε ñ½∩ αÑá½∞¡«ú« αÑª¿¼á DOS. Ç½ú«α¿Γ¼ óΓ«α¿τ¡«ú« αáß»αÑñÑ½Ñ¡¿∩ í½«¬«ó αáí«ΓáÑΓ ß½ÑñπεΘ¿¼ «íαáº«¼. Åα¿ óδñÑ½Ñ¡¿¿ í«½∞Φ«ú« í½«¬á áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ »α«ßΓ« óδñÑ½∩ÑΓ ú½«íá½∞¡πε »á¼∩Γ∞ ß »«¼«Θ∞ε »«ñ»α«úαá¼¼δ GlobalAlloc. Åα¿ óδñÑ½Ñ¡¿¿ ¼á½Ñ¡∞¬«ú« í½«¬á áñ¼¿¡¿ßΓαáΓ«α óδñÑ½∩ÑΓ í«½ÑÑ ¬απ»- ¡δ⌐ í½«¬ »á¼∩Γ¿, á ºáΓÑ¼ αáºí¿óáÑΓ Ñú« (óΓ«α¿τ¡« αáß»αÑñÑ½∩ÑΓ) »« ΓαÑí«óá¡¿ε ¡á í«½ÑÑ ¼Ñ½¬¿Ñ í½«¬¿. ÅÑαÑñ ΓÑ¼, ¬á¬ áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ óδñÑ½∩ÑΓ ¡«óδ⌐ í½«¬ ú½«íá½∞¡«⌐ »á¼∩Γ¿, ¬«Γ«αδ⌐, ó ßó«ε «τÑαÑñ∞, íπñÑΓ αáß»αÑñÑ½∩Γ∞ß∩ »«óΓ«α¡«, »α¿ αáß»αÑñÑ½Ñ¡¿¿ ¼á½Ñ¡∞- ¬¿σ í½«¬«ó »«óΓ«α¡« ¿ß»«½∞ºπÑΓß∩ óßÑ ñ«ßΓπ»¡«Ñ »α«ßΓαá¡ßΓó« óΓ«- α¿τ¡«ú« αáß»αÑñÑ½Ñ¡¿∩. Åα¿¼Ñτá¡¿Ñ: Äí ¿ß»«½∞º«óá¡¿¿ áñ¼¿¡¿ßΓαáΓ«αá »á¼∩Γ¿ ó DLL »«ñα«í¡ÑÑ αáßß¬áºδóáÑΓß∩ ó â½áóÑ 11 "ä¿¡á¼¿τÑß¬¿ ¬«¼»«- ¡πÑ¼δÑ í¿í½¿«ΓÑ¬¿". B.Pascal 7 & Objects/LR - 363 - ÅÑαÑ¼Ñ¡¡á∩ HeapLimit «»αÑñÑ½∩ÑΓ »«α«ú ¼Ñªñπ ¼á½Ñ¡∞¬¿¼¿ ¿ í«½∞Φ¿¼¿ í½«¬á¼¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ¿. Å« π¼«½τá¡¿ε ÑÑ º¡áτÑ¡¿Ñ αáó¡« 1024 íá⌐Γá¼. ÅÑαÑ¼Ñ¡¡á∩ HeapBlock «»αÑñÑ½∩ÑΓ αáº¼Ñα, ¿ß»«½∞ºπÑ¼δ⌐ áñ¼¿¡¿ßΓαáΓ«α«¼ »á¼∩Γ¿ »α¿ αáß»αÑñÑ½Ñ¡¿¿ í½«¬«ó, óδñÑ½Ñ¡¡δσ ñ½∩ óΓ«α¿τ¡«ú« αáß»αÑñÑ½Ñ¡¿∩. Å« π¼«½τá¡¿ε º¡áτÑ¡¿Ñ HeapBlock αáó¡« 8192 íá⌐Γá¼. ç¡áτÑ¡¿∩ φΓ¿σ »ÑαÑ¼Ñ¡¡δσ ¿º¼Ñ¡∩Γ∞ ¡Ñ ß½ÑñπÑΓ, ¡« Ñß½¿ óδ φΓ« ßñÑ½áÑΓÑ, πíÑñ¿ΓÑß∞, τΓ« º¡á- τÑ¡¿Ñ HeapBlock ß«ßΓáó½∩ÑΓ ¡Ñ ¼Ñ¡∞ΦÑ τÑΓδαÑσ¬αáΓ¡«ú« αáº¼Ñαá HeapLimit. ÅÑαÑ¼Ñ¡¡á∩ HeapAllocFpals «»αÑñÑ½∩ÑΓ º¡áτÑ¡¿Ñ Σ½áú«ó áΓα¿íπ- Γ«ó, »ÑαÑñáóáÑ¼δσ GlobalAlloc, ¬«úñá áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ αáß»αÑ- ñÑ½∩ÑΓ í½«¬¿ ú½«íá½∞¡«⌐ »á¼∩Γ¿. Å« π¼«½τá¡¿ε ÑÑ º¡áτÑ¡¿Ñ αáó¡« gmem_Moveable. ÅÑαÑ¼Ñ¡¡á∩ HeapError ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡á∩ HeapError »«ºó«½∩ÑΓ óá¼ αÑá½¿º«óáΓ∞ Σπ¡¬µ¿ε «íαá- í«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿. ¥Γá Σπ¡¬- µ¿∩ óδºδóáÑΓß∩ ¬áªñδ⌐ αáº, ¬«úñá »α«úαá¼¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑ- ñÑ½Ñ¡¿∩ »á¼∩Γ¿ ¡Ñ ¼«ªÑΓ óδ»«½¡¿Γ∞ ºá»α«ß ¡á óδñÑ½Ñ¡¿Ñ »á¼∩Γ¿. ìÑápError ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼, ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ ¡á Σπ¡¬µ¿ε ß« ß½ÑñπεΘ¿¼ ºáú«½«ó¬«¼: function HeapFunc(Size: word): integer; far; çá¼ÑΓ¿¼, τΓ« ñ¿αÑ¬Γ¿óá far π¬áºδóáÑΓ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í- ¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¡Ñ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«- óáΓ∞ ñá½∞¡εε ¼«ñÑ½∞ óδº«óá. öπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ αÑá½¿ºπÑΓß∩ »πΓÑ¼ »α¿ßóá¿óá¡¿∩ ÑÑ áñαÑßá »ÑαÑ¼Ñ¡¡«⌐ ìÑápEror: HeapError := @HeapFunc; öπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ »«½πτáÑΓ π»αáó½Ñ¡¿Ñ, ¬«úñá »α¿ «íαáΘÑ¡¿¿ ¬ »α«µÑñπαá¼ New ¿½¿ GetîÑ¼ ºá»α«ß ¡Ñ ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡. Åáαá¼ÑΓα Size ß«ñÑαª¿Γ αáº¼Ñα í½«¬á, ñ½∩ ¬«Γ«α«ú« ¡Ñ «¬áºá½«ß∞ «í½áßΓ¿ »á¼∩Γ¿ ß««ΓóÑΓß- ΓóπεΘÑú« αáº¼Ñαá, ¿ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »α«¿ºóÑñÑΓ »«»δΓ¬π «ßó«í«ªñÑ¡¿∩ í½«¬á, αáº¼Ñα ¬«Γ«α«ú« ¡Ñ ¼Ñ¡∞ΦÑ ñá¡¡«ú« αáº¼Ñαá. ÅÑαÑñ óδº«ó«¼ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ- ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ áñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ¿ »δΓáÑΓß∩ óδñÑ½¿Γ∞ ßó«í«ñ¡δ⌐ í½«¬ ¿º í½«¬«ó óΓ«α¿τ¡«ú« αáº- í¿Ñ¡¿∩, á Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡δ⌐ óδº«ó Σπ¡¬µ¿¿ GlobalAlloc. é ºáó¿ß¿¼«ßΓ¿ «Γ πß»Ñσá óδ»«½¡Ñ¡¿∩ φΓ«⌐ »«»δΓ¬¿ Σπ¡¬µ¿∩ «í- αáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ó«ºóαáΘáÑΓ º¡á- B.Pascal 7 & Objects/LR - 364 - τÑ¡¿∩ 0, 1 ¿½¿ 2. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 0 ßó¿ñÑΓÑ½∞ßΓóπÑΓ « ¡Ñπ- ñáτ¡«⌐ »«»δΓ¬Ñ, τΓ« ¡Ñ¼Ññ½Ñ¡¡« »α¿ó«ñ¿Γ ¬ ó«º¡¿¬¡«óÑ¡¿ε «Φ¿í¬¿ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 1 Γá¬ªÑ ßó¿ñÑ- ΓÑ½∞ßΓóπÑΓ « ¡Ñπñáτ¡«⌐ »«»δΓ¬Ñ, ¡« ó¼ÑßΓ« «Φ¿í¬¿ φΓá»á óδ»«½¡Ñ¡¿∩ «¡« »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« »α«µÑñπαδ New ¿½¿ GetîÑ¼ ó«ºóαáΘáεΓ π¬á- ºáΓÑ½∞ nil. ìá¬«¡Ñµ, ó«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 2 ßó¿ñÑΓÑ½∞ßΓóπÑΓ «í πñáτ¡«⌐ »«»δΓ¬Ñ ¿ óδºδóáÑΓ »«óΓ«α¡πε »«»δΓ¬π óδñÑ½¿Γ∞ »á¼∩Γ∞ (¬«- Γ«αá∩ Γá¬ªÑ ¼«ªÑΓ »α¿óÑßΓ¿ ¬ óδº«óπ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿- ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿). æΓá¡ñáαΓ¡á∩ «íαáí«Γ¬¿ Σπ¡¬µ¿∩ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩- Ñ¼«⌐ «í½áßΓ¿ óßÑúñá ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ 0, »α¿ó«ñ∩, Γá¬¿¼ «íαá- º«¼, ¬ «Φ¿í¬Ñ óß∩¬¿⌐ αáº, ¬«úñá ¡Ñ ¼«úπΓ íδΓ∞ óδ»«½¡Ñ¡δ »α«µÑñπαδ New ¿½¿ GetîÑ¼. Äñ¡á¬« ñ½∩ ¼¡«ú¿σ »α¿¬½áñ¡δσ ºáñáτ í«½ÑÑ »«ñσ«ñ∩- ΘÑ⌐ ∩ó½∩ÑΓß∩ »α«ßΓá∩ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ¿, »α¿¼Ñα ¬«Γ«α«⌐ »α¿óÑñÑ¡ ¡¿ªÑ: function HeapFunc(Size: Word): Integer; far; begin HeapFunc := 1; end; àß½¿ Γá¬á∩ Σπ¡¬µ¿∩ αÑá½¿º«óá¡á, Γ« ó¼ÑßΓ« »α¿¡πñ¿ΓÑ½∞¡«ú« ºáóÑαΦÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ ó ß¿Γπáµ¿¿, ¬«úñá »α«µÑñπαδ New ¿½¿ GetîÑ¼ ¡Ñ ¼«úπΓ óδ»«½¡¿Γ∞ ºá»α«ß, «¡á íπñÑΓ ó«ºóαáΘáΓ∞ »πßΓ«⌐ π¬áºáΓÑ½∞ (π¬áºáΓÑ½∞ nil). B.Pascal 7 & Objects/LR - 365 - êß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ ó »α«úαá¼¼áσ Windows ───────────────────────────────────────────────────────────────── é ñá¡¡«¼ αáºñÑ½Ñ »«∩ß¡∩ÑΓß∩ ¿ß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ ó »α«úαá¼- ¼áσ Borland Pascal ñ½∩ Windows. ÇΓα¿íπΓδ ßÑú¼Ñ¡Γ«ó ───────────────────────────────────────────────────────────────── èáªñδ⌐ ßÑú¼Ñ¡Γ ¬«ñá ¿¼ÑÑΓ ¡áí«α áΓα¿íπΓ«ó, «»αÑñÑ½∩εΘ¿σ Ñú« »«óÑñÑ¡¿Ñ »α¿ ºáúαπº¬Ñ ó »á¼∩Γ∞. ÇΓα¿íπΓδ MOVEABLE ¿½¿ FIXED ───────────────────────────────────────────────────────────────── è«úñá ßÑú¼Ñ¡Γ ∩ó½∩ÑΓß∩ »ÑαÑ¼ÑΘáÑ¼δ¼ (MOVEABLE), Windows, τΓ«íδ πñ«ó½ÑΓó«α¿Γ∞ »«ΓαÑí¡«ßΓ¿ ó αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ¿, ¼«ªÑΓ »ÑαÑ¼ÑΘáΓ∞ ßÑú¼Ñ¡Γ ó Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿. è«úñá ßÑú¼Ñ¡Γ ¬«ñá Σ¿¬ß¿- α«óá¡¡δ⌐ (FIXED), «¡ ¡Ñ »ÑαÑ¼ÑΘáÑΓß∩ ó Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿. ü«½ÑÑ »αÑñ»«τΓ¿ΓÑ½Ñ¡ áΓα¿íπΓ MOVEABLE, ¿ Ñß½¿ ¡ÑΓ áíß«½εΓ¡«⌐ ¡Ñ«íσ«ñ¿- ¼«ßΓ¿ σαá¡¿Γ∞ ßÑú¼Ñ¡Γ ¬«ñá »« «ñ¡«¼π ¿ Γ«¼π ªÑ áñαÑßπ ó Σ¿º¿τÑß- ¬«⌐ »á¼∩Γ¿ (¬á¬ íδóáÑΓ ó Γ«¼ ß½πτáÑ, Ñß½¿ «¡ ß«ñÑαª¿Γ ñαá⌐óÑα »αÑαδóá¡¿⌐), ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ áΓα¿íπΓ MOVEABLE. ÇΓα¿íπΓδ PRELOAD ¿½¿ DEMANDLOAD ───────────────────────────────────────────────────────────────── æÑú¼Ñ¡Γ ¬«ñá, ¿¼ÑεΘ¿⌐ áΓα¿íπΓ PRELOAD, »α¿ á¬Γ¿ó¿ºáµ¿¿ »α¿¬- ½áñ¡«⌐ »α«úαá¼¼δ ¿½¿ í¿í½¿«ΓÑ¬¿ ºáúαπªáÑΓß∩ áóΓ«¼áΓ¿τÑß¬¿. ÇΓα¿- íπΓ DEMANDLOAD «Γ¬½áñδóáÑΓ ºáúαπº¬π ßÑú¼Ñ¡Γá ñ« ΓÑσ »«α, »«¬á »«ñ»α«úαá¼¼á ó ßÑú¼Ñ¡ΓÑ ñÑ⌐ßΓó¿ΓÑ½∞¡« ¡Ñ íπñÑΓ óδºóá¡á. ÇΓα¿íπΓδ DISCARDABLE ¿½¿ PERMANENT ───────────────────────────────────────────────────────────────── è«úñá ßÑú¼Ñ¡Γ ¿¼ÑÑΓ áΓα¿íπΓ DISCARDABLE, Windows »α¿ ¡Ñ«íσ«- ñ¿¼«ßΓ¿ óδñÑ½Ñ¡¿∩ ñ«»«½¡¿ΓÑ½∞¡«⌐ »á¼∩Γ¿ ¼«ªÑΓ «ßó«í«ªñáΓ∞ »á¼∩Γ∞, ºá¡¿¼áÑ¼πε ñá¡¡δ¼ ßÑú¼Ñ¡Γ«¼. è«úñá »α¿¬½áñ¡á∩ »α«úαá¼¼á «íαáΘáÑΓ- ß∩ ¬ óδúαπªáÑ¼«¼π ßÑú¼Ñ¡Γπ (DISCARDABLE), ¬«Γ«α«ú« ¡ÑΓ ó »á¼∩Γ¿, Windows ºáúαπªáÑΓ Ñú« ß¡áτá½á ¿º Σá⌐½á .EXE. ¥Γ« ºá¡¿¼áÑΓ í«½∞ΦÑÑ óαÑ¼∩, τÑ¼ Ñß½¿ íδ ßÑú¼Ñ¡Γ íδ½ »«ßΓ«∩¡¡δ¼ (PERMANENT), ¡« »«ºó«- ½∩ÑΓ »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ »α¿ óδ»«½¡Ñ¡¿¿ ºá¡¿¼áΓ∞ ¼Ñ¡∞ΦÑ ¼ÑßΓá. âαπí« ú«ó«α∩, ßÑú¼Ñ¡Γ DISCARDABLE ó »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ Windows «τÑ¡∞ ¡á»«¼¿¡áÑΓ «óÑα½Ñ⌐¡δ⌐ ßÑú¼Ñ¡Γ ó »α«úαá¼¼Ñ DOS. êº¼Ñ¡Ñ¡¿Ñ áΓα¿íπΓ«ó ───────────────────────────────────────────────────────────────── Å« π¼«½τá¡¿ε ßÑú¼Ñ¡Γπ ¬«ñá ¡áº¡áτáεΓß∩ áΓα¿íπΓδ MOVEABLE, PRELOAD ¿ PERMANEMT, ¡« ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $C óδ ¼«- ªÑΓÑ ¿σ ¿º¼Ñ¡¿Γ∞. ìá»α¿¼Ñα: B.Pascal 7 & Objects/LR - 366 - {$C MOVEABLE DEMANDLOAD DISCARDABLE} Åα¿¼Ñτá¡¿Ñ: ü«½ÑÑ »«ñα«í¡« « ñ¿αÑ¬Γ¿óÑ $C αáßß¬áºδóá- ÑΓß∩ ó â½áóÑ 2 ("ä¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá") "æ»αáó«τ¡«ú« απ¬«- ó«ñßΓóá »α«úαá¼¼¿ßΓá". é »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ Windows ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ óδñÑ½∩Γ∞ »«ñß¿ßΓÑ¼π π»αáó½Ñ¡¿∩ «óÑα½Ñ∩¼¿. Çñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ Windows ó¬½ετáÑΓ ó ßÑí∩ »«½¡δ⌐ ¡áí«α «íß½πª¿óáεΘ¿σ ßαÑñßΓó, π»αáó½∩Ñ¼δσ áΓα¿íπΓá¼¿ ßÑú¼Ñ¡Γá ¬«ñá. ¥Γ¿ ßαÑñßΓóá ñ«ßΓπ»¡δ ½εí«⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ Windows. B.Pascal 7 & Objects/LR - 367 - æÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ ───────────────────────────────────────────────────────────────── èáªñá∩ »α¿¬½áñ¡á∩ »α«úαá¼¼á ¿½¿ í¿í½¿«ΓÑ¬á ¿¼ÑÑΓ «ñ¿¡ ßÑú- ¼Ñ¡Γ ñá¡¡δσ, ¬«Γ«αδ⌐ ¡áºδóáÑΓß∩ ßÑú¼Ñ¡Γ«¼ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ ¿ ¼«ªÑΓ ºá¡¿¼áΓ∞ ñ« 64è. ìá ßÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ óßÑúñá π¬áºδóáÑΓ αÑú¿ßΓα ßÑú¼Ñ¡Γá ñá¡¡δσ DS. Ä¡ αáºñÑ½Ñ¡ ¡á τÑΓδαÑ τáßΓ¿: æÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ ┌───────────────────────────────────┐ │ │ │ ï«¬á½∞¡á∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩- │ │ Ñ¼á∩ «í½áßΓ∞ »á¼∩Γ¿ │ │ │ ├───────────────────────────────────┤ │ │ │ æΓÑ¬ │ │ │ ├───────────────────────────────────┤ │ │ │ æΓáΓ¿τÑß¬¿Ñ ñá¡¡δÑ │ │ │ ├───────────────────────────────────┤ │ │ │ çáú«½«ó«¬ ºáñáτ¿ │ │ │ └───────────────────────────────────┘ É¿ß. 21.7 æÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ. ÅÑαóδ⌐ 16 íá⌐Γ ßÑú¼Ñ¡Γá ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ óßÑúñá ß«ñÑαªáΓ ºáú«½«ó«¬ ºáñáτ¿, ó ¬«Γ«α«¼ Windows ß«σαá¡∩ÑΓ αáº½¿τ¡πε ß¿ßΓÑ¼¡πε ¿¡Σ«α¼áµ¿ε. Äí½áßΓ∞ ßΓáΓ¿τÑß¬¿σ ñá¡¡δσ ß«ñÑαª¿Γ óßÑ ú½«íá½∞¡δÑ »ÑαÑ¼Ñ¡- ¡δÑ ¿ Γ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ, «»¿ßá¡¡δÑ ó »α¿¬½áñ¡«⌐ »α«úαá¼¼Ñ ¿½¿ í¿í½¿«ΓÑ¬Ñ. æÑú¼Ñ¡Γ ßΓÑ¬á ¿ß»«½∞ºπÑΓß∩ ñ½∩ σαá¡Ñ¡¿∩ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡- ¡δσ, αáß»αÑñÑ½∩Ñ¼δσ »α«µÑñπαá¼¿ ¿ Σπ¡¬µ¿∩¼¿. ìá óσ«ñÑ ó »α¿¬½áñ- ¡πε »α«úαá¼¼π αÑú¿ßΓα ßÑú¼Ñ¡Γá ßΓÑ¬á SS ¿ π¬áºáΓÑ½∞ ßΓÑ¬á SP ºáú- απªáεΓß∩ Γá¬¿¼ «íαáº«¼, τΓ« SS:SP π¬áºδóáÑΓ ¡á »Ñαóδ⌐ íá⌐Γ »«ß½Ñ «í½áßΓ¿ ßΓÑ¬á ó ßÑú¼Ñ¡ΓÑ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ. Åα¿ óδº«- óÑ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ SP »ÑαÑ¼ÑΘáÑΓß∩ ó¡¿º, óδñÑ½∩∩ »á¼∩Γ∞ ñ½∩ »áαá¼ÑΓα«ó, áñαÑßá ó«ºóαáΓá ¿ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ. è«úñá »«ñ»- α«úαá¼¼á ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ, »α«µÑßß ¿º¼Ñ¡∩ÑΓß∩ ¡á «íαáΓ¡δ⌐: SP πóÑ½¿τ¿óáÑΓß∩ ¿ »α¿¡¿¼áÑΓ Γ« º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ íδ½« »ÑαÑñ óδ- º«ó«¼. êß»«½∞ºπÑ¼δ⌐ »« π¼«½τá¡¿ε αáº¼Ñα «í½áßΓ¿ ßΓÑ¬á ó áóΓ«¼áΓ¿- τÑß¬«¼ ßÑú¼Ñ¡ΓÑ ñá¡¡δσ αáóÑ¡ 8è, ¡« ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩- Γ«αá $M φΓ« º¡áτÑ¡¿Ñ ¼«ª¡« ¿º¼Ñ¡¿Γ∞. é «Γ½¿τ¿Ñ «Γ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ í¿í½¿«ΓÑ¬á ó ßÑú¼Ñ¡ΓÑ ½«- B.Pascal 7 & Objects/LR - 368 - ¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ ¡Ñ ¿¼ÑÑΓ «í½áßΓ¿ ßΓÑ¬á. Åα¿ óδº«óÑ ó ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼«⌐ í¿í½¿«ΓÑ¬Ñ DLL »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ αÑ- ú¿ßΓα DS π¬áºδóáÑΓ ¡á ßÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ í¿í- ½¿«ΓÑ¬¿, ¡« »áαá αÑú¿ßΓα«ó SS:SP ¡Ñ ¿º¼Ñ¡∩ÑΓß∩. Æá¬¿¼ «íαáº«¼, í¿í½¿«ΓÑ¬á óßÑúñá ¿ß»«½∞ºπÑΓ ßΓÑ¬ óδºδóáεΘÑ⌐ »α¿¬½áñ¡«⌐ »α«úαá¼- ¼δ. Å«ß½Ññ¡∩∩ τáßΓ∞ ó ßÑú¼Ñ¡ΓÑ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ - ½«¬á½∞¡á∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞. Ä¡á ß«ñÑαª¿Γ óßÑ ½«¬á½∞¡δÑ ñ¿¡á¼¿τÑß¬¿Ñ ñá¡¡δÑ, ¬«Γ«αδÑ αáß»αÑñÑ½∩½¿ß∞ ß »«¼«Θ∞ε Σπ¡¬µ¿¿ LocalAlloc ó Windows. Å« π¼«½τá¡¿ε ½«¬á½∞¡á∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ ¿¼ÑÑΓ αáº¼Ñα 8è, ¡« φΓ« º¡áτÑ¡¿Ñ ¼«ª¡« ¿º- ¼Ñ¡¿Γ∞ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $M. Windows ñ«»πß¬áÑΓ, τΓ«íδ ßÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡- ¡δσ íδ½ »ÑαÑ¼ÑΘáÑ¼δ¼, ¡« Borland Pascal φΓ«ú« ¡Ñ »«ññÑαª¿óáÑΓ. æÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ¿½¿ í¿í½¿«ΓÑ¬¿ Borland Pascal óßÑúñá í½«¬¿απÑΓß∩, φΓ¿¼ «íÑß»Ñτ¿óáÑΓ- ß∩, τΓ« ßÑ½Ñ¬Γ«α (áñαÑß ßÑú¼Ñ¡Γá) ßÑú¼Ñ¡Γá ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ ¡¿¬«úñá ¡Ñ ¿º¼Ñ¡∩ÑΓß∩. Åα¿ αáí«ΓÑ ó ßΓá¡ñáαΓ¡«¼ ¿½¿ αáßΦ¿- αÑ¡¡«¼ αÑª¿¼Ñ φΓ« ¡Ñ »α¿ó«ñ¿Γ ¡¿ ¬ ¬á¬«¼π πσπñΦÑ¡¿ε, »«ß¬«½∞¬π ßÑú¼Ñ¡Γ ß«σαá¡∩ÑΓ Γ«Γ ªÑ ßÑ½Ñ¬Γ«α ñáªÑ »α¿ »ÑαÑ¼ÑΘÑ¡¿¿ ó Σ¿º¿τÑß- ¬«⌐ »á¼∩Γ¿. Äñ¡á¬« ó αÑá½∞¡«¼ αÑª¿¼Ñ, Ñß½¿ ΓαÑíπÑΓß∩ αáßΦ¿αÑ¡¿Ñ ½«¬á½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿, Windows, ó«º¼«ª¡«, ¡Ñ ß¼«ªÑΓ φΓ«ú« ßñÑ½áΓ∞, »«ß¬«½∞¬π ßÑú¼Ñ¡Γ ½«¬á½∞¡δσ ñ¿¡á¼¿τÑß¬¿σ ñá¡¡δσ »ÑαÑ¼ÑΘáΓ∞ß∩ ¡Ñ ¼«ªÑΓ. àß½¿ óáΦá »α¿¬½áñ¡á∩ »α«úαá¼¼á ¿ß- »«½∞ºπÑΓ ½«¬á½∞¡πε ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼πε «í½áßΓ∞ »á¼∩Γ¿ ¿ ñ«½ª¡á óδ»«½¡∩Γ∞ß∩ ó αÑá½∞¡«¼ αÑª¿¼Ñ, Γ« ß½ÑñπÑΓ «íÑß»Ñτ¿Γ∞, τΓ«- íδ ¡áτá½∞¡δ⌐ αáº¼Ñα ½«¬á½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ íδ½ Γá¬¿¼, τΓ«íδ «¡ πñ«ó½ÑΓó«α∩½ óßÑ¼ »«ΓαÑí¡«ßΓ∩¼ ó αáß»αÑñÑ½Ñ- ¡¿¿ ½«¬á½∞¡«⌐ ñ¿¡á¼¿τÑß¬«⌐ «í½áßΓ¿ (ñ½∩ φΓ«ú« ¿ß»«½∞ºπÑΓß∩ ñ¿αÑ¬- Γ¿óá ¬«¼»¿½∩Γ«αá $M). Çñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ ───────────────────────────────────────────────────────────────── Windows »«ññÑαª¿óáÑΓ ñ¿¡á¼¿τÑß¬«Ñ αáß»αÑñÑ½Ñ¡¿Ñ »á¼∩Γ¿ ó ñóπσ αáº½¿τ¡δσ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼δσ «í½áßΓ∩σ: ú½«íá½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¿ ½«¬á½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»- αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿. Åα¿¼Ñτá¡¿Ñ: ü«½ÑÑ »«ñα«í¡« « ½«¬á½∞¡«⌐ ¿ ú½«íá½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ αáßß¬áºδóáÑΓß∩ ó "Éπ¬«- ó«ñßΓóÑ »α«úαá¼¼¿ßΓá »« Windows". â½«íá½∞¡á∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ - φΓ« »π½ »á- ¼∩Γ¿, ñ«ßΓπ»¡δ⌐ ñ½∩ óßÑσ »α¿¬½áñ¡δσ »α«úαá¼¼. ò«Γ∩ ¼«úπΓ óδñÑ- ½∩Γ∞ß∩ í½«¬¿ ú½«íá½∞¡«⌐ »á¼∩Γ¿ ½εí«ú« αáº¼Ñαá, ú½«íá½∞¡á∩ ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »á¼∩Γ¿ »αÑñ¡áº¡áτÑ¡á Γ«½∞¬« ñ½∩ "í«½∞Φ¿σ" «í½áßΓÑ⌐ »á¼∩Γ¿ (256 íá⌐Γ ¿½¿ í«½ÑÑ). èáªñδ⌐ í½«¬ ú½«- íá½∞¡«⌐ »á¼∩Γ¿ ¿¼ÑÑΓ ¿ºíδΓ«τ¡δ⌐ αáº¼Ñα 20 íá⌐Γ, ¿ »α¿ αáí«ΓÑ ó ßΓá¡ñáαΓ¡«⌐ ßαÑñÑ Windows ó π½πτΦÑ¡¡«¼ αÑª¿¼Ñ 386 ßπΘÑßΓóπÑΓ «ú- B.Pascal 7 & Objects/LR - 369 - αá¡¿τÑ¡¿Ñ ó 8192 í½«¬á »á¼∩Γ¿, Γ«½∞¬« ¡Ñ¬«Γ«αδÑ ¿º ¬«Γ«αδσ ñ«ß- Γπ»¡δ ñ½∩ «ΓñÑ½∞¡«⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. ï«¬á½∞¡á∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »á¼∩Γ¿ - φΓ« »π½ »á¼∩Γ¿, ñ«ßΓπ»¡«⌐ Γ«½∞¬« ñ½∩ óáΦÑ⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ¿½¿ í¿í½¿«ΓÑ¬¿. Ä¡á αáß»«½«ªÑ¡á ó óÑασ¡Ñ⌐ τáßΓ¿ ßÑú¼Ñ¡Γá ñá¡¡δσ »α¿¬- ½áñ¡«⌐ »α«úαá¼¼δ ¿½¿ í¿í½¿«ΓÑ¬¿. ÄíΘ¿⌐ αáº¼Ñα í½«¬«ó ½«¬á½∞¡«⌐ »á¼∩Γ¿, ¬«Γ«αδÑ ¼«úπΓ óδñÑ½∩Γ∞ß∩ ó ½«¬á½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ¿, αáóÑ¡ 64è, ¼¿¡πß αáº¼Ñα ßΓÑ¬á »α¿¬½áñ¡«⌐ »α«ú- αá¼¼δ ¿ ßΓáΓ¿τÑß¬¿σ ñá¡¡δσ. Å« φΓ«⌐ »α¿τ¿¡Ñ ½«¬á½∞¡á∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »á¼∩Γ¿ ½πτΦÑ »«ñσ«ñ¿Γ ñ½∩ "¡Ñí«½∞Φ¿σ" í½«- ¬«ó »á¼∩Γ¿ (26 íá⌐Γ ¿½¿ ¼Ñ¡ÑÑ). Å« π¼«½τá¡¿ε αáº¼Ñα ½«¬á½∞¡«⌐ ñ¿- ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ αáóÑ¡ 8è, ¡« ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $M φΓ« º¡áτÑ¡¿Ñ ¼«ª¡« ¿º¼Ñ¡¿Γ∞. Åα¿¼Ñτá¡¿Ñ: Borland Pascal ¡Ñ »«ññÑαª¿óáÑΓ ¼Ñσá¡¿º¼ αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿ ß »«¼«Θ∞ε »α«µÑñπα Mark ¿ Release, ¬«- Γ«αδÑ »αÑñπß¼«ΓαÑ¡δ ó óÑαß¿¿ ñ½∩ DOS. Borland Pascal ó¬½ετáÑΓ ó ßÑí∩ »«ñß¿ßΓÑ¼π π»αáó½Ñ¡¿∩ ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ∞ε (áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿), ¬«Γ«αá∩ αÑá- ½¿ºπÑΓ ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ New, Dispose, GetMem ¿ FreeMem. ä½∩ óßÑσ óδñÑ½Ñ¡¿⌐ »á¼∩Γ¿ »«ñß¿ßΓÑ¼á ñ¿¡á¼¿τÑß¬¿ π»αáó½Ñ¡¿∩ αáß»αÑñÑ- ½∩Ñ¼«⌐ «í½áßΓ∞ε »á¼∩Γ¿ ¿ß»«½∞ºπÑΓ ú½«íá½∞¡πε ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼πε «í½áßΓ∞. Å«ß¬«½∞¬π ú½«íá½∞¡á∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼á∩ «í½áßΓ∞ »á¼∩Γ¿ ¿¼ÑÑΓ ß¿ßΓÑ¼¡«Ñ «úαá¡¿τÑ¡¿Ñ ó 8192 í½«¬á (τΓ« «»- αÑñÑ½Ñ¡¡« ¼Ñ¡∞ΦÑ, τÑ¼ ¼«ªÑΓ »«ΓαÑí«óáΓ∞ß∩ ó ¡Ñ¬«Γ«αδσ »α¿¬½áñ¡δσ ºáñáτáσ), »«ñß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í- ½áßΓ∞ε »á¼∩Γ¿ Borland Pascal ñ½∩ π½πτΦÑ¡¿∩ »α«¿ºó«ñ¿ΓÑ½∞¡«ßΓ¿ ¿ «íÑß»ÑτÑ¡¿∩ óδñÑ½Ñ¡¿∩ ßπΘÑßΓóÑ¡¡« í«½∞ΦÑú« τ¿ß½á í½«¬«ó ó¬½ετáÑΓ ó ßÑí∩ á½ú«α¿Γ¼ óΓ«α¿τ¡«ú« αáß»αÑñÑ½Ñ¡¿∩ ßÑú¼Ñ¡Γá. Åα¿¼Ñτá¡¿Ñ: ü«½ÑÑ »«ñα«í¡« «í φΓ«¼ αáßß¬áºδóáÑΓß∩ ó â½áóÑ 11 "ä¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δÑ í¿í½¿«ΓÑ¬¿". Ç½ú«α¿Γ¼ óΓ«α¿τ¡«ú« óδñÑ½Ñ¡¿∩ ßÑú¼Ñ¡Γá αáí«ΓáÑΓ ß½ÑñπεΘ¿¼ «íαáº«¼: »α¿ αáß»αÑñÑ½Ñ¡¿¿ í«½∞Φ«ú« í½«¬á áñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ »α«ßΓ« óδñÑ½∩ÑΓ ú½«íá½∞¡δ⌐ í½«¬ »á¼∩Γ¿, ¿ß»«½∞ºπ∩ »«ñ»α«úαá¼¼π Windows ClobalAlloc. Åα¿ óδ- ñÑ½Ñ¡¿¿ ¼á½Ñ¡∞¬«ú« í½«¬á áñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ óδñÑ½∩ÑΓ í«½∞Φ¿⌐ í½«¬ »á¼∩Γ¿, á ºáΓÑ¼ ñÑ½¿Γ Ñú« ¡á í«½ÑÑ ¼Ñ½¬¿Ñ í½«¬¿ (¬á¬ ΓαÑíπÑΓß∩). Åα¿ óδñÑ½Ñ¡¿¿ "¼á½Ñ¡∞¬¿σ" í½«¬«ó »ÑαÑñ ΓÑ¼, ¬á¬ áñ¼¿¡¿ßΓαáΓ«α ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ óδñÑ½¿Γ í½«¬ ú½«íá½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ »á¼∩Γ¿ (¬«Γ«αδ⌐ íπñÑΓ ó ßó«ε «τÑαÑñ∞ αáºí¿Γ ¡á í½«¬¿), »«óΓ«α¡« ¿ß»«½∞ºπεΓß∩ óßÑ ñ«ßΓπ»¡δÑ ¼Ñ½¬¿Ñ í½«¬¿. âαá¡¿µπ ¼Ñªñπ ¼á½Ñ¡∞¬¿¼¿ ¿ í«½∞Φ¿¼¿ í½«¬á¼¿ «»αÑñÑ½∩ÑΓß∩ »Ñ- αÑ¼Ñ¡¡«⌐ HeapLimit. Å« π¼«½τá¡¿ε «¡á ¿¼ÑÑΓ º¡áτÑ¡¿Ñ 1024 íá⌐Γá. ÅÑαÑ¼Ñ¡¡á∩ HeapBlock «»αÑñÑ½∩ÑΓ αáº¼Ñα, ¬«Γ«αδ⌐ ¿ß»«½∞ºπÑΓ »«ñ- ß¿ßΓÑ¼á π»αáó½Ñ¡¿∩ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ∞ε »á¼∩Γ¿ »α¿ óδñÑ½Ñ¡¿¿ í½«¬«ó ñ½∩ óΓ«α¿τ¡«ú« αáºí¿Ñ¡¿∩. Å« π¼«½τá¡¿ε «¡á ¿¼ÑÑΓ º¡áτÑ¡¿Ñ 8192 íá⌐Γá. êº¼Ñ¡∩Γ∞ φΓ¿ º¡áτÑ¡¿∩ óá¼ ¡ÑºáτÑ¼, ¡« Ñß½¿ B.Pascal 7 & Objects/LR - 370 - óδ αÑΦ¿ΓÑ φΓ« ßñÑ½áΓ∞, πíÑñ¿ΓÑß∞ τΓ« HeapBlock ¿¼ÑÑΓ º¡áτÑ¡¿Ñ »« ¬αá⌐¡Ñ⌐ ¼ÑαÑ ó τÑΓδαÑ αáºá »αÑóδΦáεΘÑÑ HeapLimit. ÅÑαÑ¼Ñ¡¡á∩ HeapAllocFlags «»αÑñÑ½∩ÑΓ º¡áτÑ¡¿Ñ Σ½áú«ó áΓα¿íπ- Γ«ó, »ÑαÑñáóáÑ¼δσ GlobalAlloc, ¬«úñá áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ αáß»αÑ- ñÑ½∩ÑΓ ú½«íá½∞¡δÑ í½«¬¿. é »α«úαá¼¼Ñ »« π¼«½τá¡¿ε ¿ß»«½∞ºπÑΓß∩ º¡áτÑ¡¿Ñ gmem_Moveable, á ó í¿í½¿«ΓÑ¬Ñ - gmem_Moveable + gmem_SSEShure. ü½«¬¿ ú½«íá½∞¡«⌐ »á¼∩Γ¿, óδñÑ½∩Ñ¼δÑ áñ¼¿¡¿ßΓαáΓ«α«¼ ñ¿¡á¼¿- τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿, óßÑúñá í½«¬¿απεΓß∩ ¡Ñ»«ß- αÑñßΓóÑ¡¡« »«ß½Ñ ßó«Ñú« óδñÑ½Ñ¡¿∩ (ß »«¼«Θ∞ε GlobalLock) ¡Ñ¼Ññ- ½Ñ¡¡« »«ß½Ñ ßó«Ñú« óδñÑ½Ñ¡¿∩ ¿ ¡Ñ αáºí½«¬¿απεΓß∩, »«¬á ¡Ñ íπñπΓ «ßó«í«ªñÑ¡δ. ¥Γ¿¼ «íÑß»Ñτ¿óáÑΓß∩, τΓ« ßÑ½Ñ¬Γ«αδ (áñαÑßá ßÑú¼Ñ¡- Γ«ó) í½«¬«ó ¡Ñ ¿º¼Ñ¡∩εΓß∩. é ßΓá¡ñáαΓ¡«⌐ ßαÑñÑ Windows ¿ π½πτΦÑ¡- ¡δσ αÑª¿¼áσ »α«µÑßß«αá 386 Σ¿¬ß¿α«óá¡¡δÑ í½«¬¿ ¼«úπΓ, ΓÑ¼ ¡Ñ ¼Ñ- ¡ÑÑ, »ÑαÑ¼ÑΘáΓ∞ß∩ ó Σ¿º¿τÑß¬«⌐ »á¼∩Γ¿, «ßó«í«ªñá∩ ¼ÑßΓ« ñ½∩ ñαπ- ú¿σ ºá»α«ß«ó »« óδñÑ½Ñ¡¿ε »á¼∩Γ¿, »«φΓ«¼π φΓ« ¡Ñ πσπñΦáÑΓ »α«¿º- ó«ñ¿ΓÑ½∞¡«ßΓ¿ áñ¼¿¡¿ßΓαáΓ«αá ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ Borland Pascal. Äñ¡á¬« ó αÑá½∞¡«¼ αÑª¿¼Ñ, Ñß½¿ «Γ Windows ΓαÑíπÑΓß∩ αáßΦ¿αÑ¡¿Ñ ½«¬á½∞¡«⌐ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áß- Γ¿, áñ¼¿¡¿ßΓαáΓ«α »á¼∩Γ¿ Windows, ó«º¼«ª¡«, ¡Ñ ß¼«ªÑΓ »ÑαÑ¼ÑßΓ¿Γ∞ ¿σ, τΓ«íδ óδñÑ½¿Γ∞ ñαπú¿Ñ í½«¬¿. àß½¿ óáΦá »α¿¬½áñ¡á∩ »α«úαá¼¼á ¿ß»«½∞ºπÑΓ ½«¬á½∞¡πε ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼πε «í½áßΓ∞ ¿ ñ«½ª¡á óδ»«½¡∩Γ∞ß∩ ó αÑá½∞¡«¼ αÑª¿¼Ñ, ¼«ª¡« αáßß¼«ΓαÑΓ∞ »α¿ óδñÑ½Ñ¡¿¿ í½«¬«ó ñ¿¡á¼¿τÑß¬«⌐ »á¼∩Γ¿ ó«º¼«ª¡«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ ßαÑñßΓó αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿, »αÑñ«ßΓáó½∩Ñ¼δσ Windows. ÅÑαÑ¼Ñ¡¡á∩ HeapError ───────────────────────────────────────────────────────────────── ÅÑαÑ¼Ñ¡¡á∩ HeapError »«ºó«½∩ÑΓ óá¼ αÑá½¿º«óáΓ∞ Σπ¡¬µ¿ε «íαá- í«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿. ¥Γá Σπ¡¬- µ¿∩ óδºδóáÑΓß∩ ¬áªñδ⌐ αáº, ¬«úñá »α«úαá¼¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑ- ñÑ½Ñ¡¿∩ »á¼∩Γ¿ ¡Ñ ¼«ªÑΓ óδ»«½¡¿Γ∞ ºá»α«ß ¡á óδñÑ½Ñ¡¿Ñ »á¼∩Γ¿. ìÑápError ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼, ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ ¡á Σπ¡¬µ¿ε ß« ß½ÑñπεΘ¿¼ ºáú«½«ó¬«¼: function HeapFunc(Size: word): integer; far; çá¼ÑΓ¿¼, τΓ« ñ¿αÑ¬Γ¿óá far π¬áºδóáÑΓ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í- ¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ¡Ñ ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«- óáΓ∞ ñá½∞¡εε ¼«ñÑ½∞ óδº«óá. öπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ αÑá½¿ºπÑΓß∩ »πΓÑ¼ »α¿ßóá¿óá¡¿∩ ÑÑ áñαÑßá »ÑαÑ¼Ñ¡¡«⌐ ìÑápEror: HeapError := @HeapFunc; öπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ »«½πτáÑΓ π»αáó½Ñ¡¿Ñ, ¬«úñá »α¿ «íαáΘÑ¡¿¿ ¬ »α«µÑñπαá¼ New ¿½¿ GetîÑ¼ ºá»α«ß ¡Ñ ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡. Åáαá¼ÑΓα Size ß«ñÑαª¿Γ B.Pascal 7 & Objects/LR - 371 - αáº¼Ñα í½«¬á, ñ½∩ ¬«Γ«α«ú« ¡Ñ «¬áºá½«ß∞ «í½áßΓ¿ »á¼∩Γ¿ ß««ΓóÑΓß- ΓóπεΘÑú« αáº¼Ñαá, ¿ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ¿ »«»δΓáÑΓß∩ «ßó«í«ñ¿Γ∞ í½«¬, αáº¼Ñα ¬«Γ«α«ú« ¡Ñ ¼Ñ¡∞ΦÑ ñá¡¡«ú« αáº¼Ñαá. ÅÑαÑñ óδº«ó«¼ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ- ½∩Ñ¼«⌐ «í½áßΓ¿ »á¼∩Γ¿ »«ñß¿ßΓÑ¼á ñ¿¡á¼¿τÑß¬«ú« αáß»αÑñÑ½Ñ¡¿∩ »á- ¼∩Γ¿ »δΓáÑΓß∩ óδñÑ½¿Γ∞ ßó«í«ñ¡δ⌐ í½«¬ ¿º í½«¬«ó óΓ«α¿τ¡«ú« αáºí¿- Ñ¡¿∩, á Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡δ⌐ óδº«ó Σπ¡¬µ¿¿ GlobalAlloc. é ºáó¿ß¿¼«ßΓ¿ «Γ πß»Ñσá óδ»«½¡Ñ¡¿∩ φΓ«⌐ »«»δΓ¬¿ Σπ¡¬µ¿∩ «í- αáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿ ó«ºóαáΘáÑΓ º¡á- τÑ¡¿∩ 0, 1 ¿½¿ 2. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 0 ßó¿ñÑΓÑ½∞ßΓóπÑΓ « ¡Ñπ- ñáτ¡«⌐ »«»δΓ¬Ñ, τΓ« ¡Ñ¼Ññ½Ñ¡¡« »α¿ó«ñ¿Γ ¬ ó«º¡¿¬¡«óÑ¡¿ε «Φ¿í¬¿ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. é«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 1 Γá¬ªÑ ßó¿ñÑ- ΓÑ½∞ßΓóπÑΓ « ¡Ñπñáτ¡«⌐ »«»δΓ¬Ñ, ¡« ó¼ÑßΓ« «Φ¿í¬¿ φΓá»á óδ»«½¡Ñ¡¿∩ «¡« »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« »α«µÑñπαδ New ¿½¿ GetîÑ¼ ó«ºóαáΘáεΓ π¬á- ºáΓÑ½∞ nil. ìá¬«¡Ñµ, ó«ºóαáΘáÑ¼«Ñ º¡áτÑ¡¿Ñ 2 ßó¿ñÑΓÑ½∞ßΓóπÑΓ «í πñáτ¡«⌐ »«»δΓ¬Ñ ¿ óδºδóáÑΓ »«óΓ«α¡πε »«»δΓ¬π óδñÑ½¿Γ∞ »á¼∩Γ∞ (¬«- Γ«αá∩ Γá¬ªÑ ¼«ªÑΓ »α¿óÑßΓ¿ ¬ óδº«óπ Σπ¡¬µ¿¿ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿- ¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩Ñ¼«⌐ «í½áßΓ¿). æΓá¡ñáαΓ¡á∩ «íαáí«Γ¬¿ Σπ¡¬µ¿∩ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑñÑ½∩- Ñ¼«⌐ «í½áßΓ¿ óßÑúñá ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ 0, »α¿ó«ñ∩, Γá¬¿¼ «íαá- º«¼, ¬ «Φ¿í¬Ñ óß∩¬¿⌐ αáº, ¬«úñá ¡Ñ ¼«úπΓ íδΓ∞ óδ»«½¡Ñ¡δ »α«µÑñπαδ New ¿½¿ GetîÑ¼. Äñ¡á¬« ñ½∩ ¼¡«ú¿σ »α¿¬½áñ¡δσ ºáñáτ í«½ÑÑ »«ñσ«ñ∩- ΘÑ⌐ ∩ó½∩ÑΓß∩ »α«ßΓá∩ Σπ¡¬µ¿∩ «íαáí«Γ¬¿ «Φ¿í¬¿ ñ¿¡á¼¿τÑß¬¿ αáß»αÑ- ñÑ½∩Ñ¼«⌐ «í½áßΓ¿, »α¿¼Ñα ¬«Γ«α«⌐ »α¿óÑñÑ¡ ¡¿ªÑ: function HeapFunc(Size: word) integer; far; begin HeapFunc := 1; end; àß½¿ Γá¬á∩ Σπ¡¬µ¿∩ αÑá½¿º«óá¡á, Γ« ó¼ÑßΓ« »α¿¡πñ¿ΓÑ½∞¡«ú« ºáóÑαΦÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ ó ß¿Γπáµ¿¿, ¬«úñá »α«µÑñπαδ New ¿½¿ GetîÑ¼ ¡Ñ ¼«úπΓ óδ»«½¡¿Γ∞ ºá»α«ß, «¡á íπñÑΓ ó«ºóαáΘáΓ∞ »πßΓ«⌐ π¬áºáΓÑ½∞ (π¬áºáΓÑ½∞ nil). B.Pascal 7 & Objects/LR - 372 - ö«α¼áΓδ ó¡πΓαÑ¡¡Ñú« »αÑñßΓáó½Ñ¡¿∩ ñá¡¡δσ ───────────────────────────────────────────────────────────────── äá½ÑÑ «»¿ßδóáεΓß∩ Σ«α¼áΓδ ó¡πΓαÑ¡¡Ñú« »αÑñßΓáó½Ñ¡¿∩ ñá¡¡δσ Borland Pascal. ûÑ½«τ¿ß½Ñ¡¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── ö«α¼áΓ, óδí¿αáÑ¼δ⌐ ñ½∩ »αÑñßΓáó½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ µÑ½«ú« Γ¿»á, ºáó¿ß¿Γ «Γ ÑÑ ¼¿¡¿¼á½∞¡«⌐ ¿ ¼á¬ß¿¼á½∞¡«⌐ úαá¡¿µ: 1. àß½¿ «íÑ úαá¡¿µδ ¡áσ«ñ∩Γß∩ ó ñ¿á»áº«¡Ñ -128..127 (Shotrint - ¬«α«Γ¬«Ñ µÑ½«Ñ), Γ« »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γß∩, ¬á¬ íá⌐Γ ß« º¡á¬«¼. 2. àß½¿ «íÑ úαá¡¿µδ ¡áσ«ñ∩Γß∩ ó ñ¿á»áº«¡Ñ 0..255 (Byte - íá⌐Γ«óá∩ »ÑαÑ¼Ñ¡¡á∩), Γ« »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γß∩, ¬á¬ íá⌐Γ íÑº º¡á¬á. 3. àß½¿ «íÑ úαá¡¿µδ ¡áσ«ñ∩Γß∩ ó ñ¿á»áº«¡Ñ -32768..32767 (Integer - µÑ½«Ñ), Γ« »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γß∩, ¬á¬ ß½«ó« ß« º¡á¬«¼. 4. àß½¿ «íÑ úαá¡¿µδ ¡áσ«ñ∩Γß∩ ó ñ¿á»áº«¡Ñ 0..65535 (Word - »ÑαÑ¼Ñ¡¡á∩ ñ½¿¡«⌐ ó ß½«ó«), Γ« »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γß∩, ¬á¬ ß½«ó«. 5. é »α«Γ¿ó¡«¼ ß½πτáÑ »ÑαÑ¼Ñ¡¡á∩ σαá¡¿Γß∩, ¬á¬ ñó«⌐¡«Ñ ß½«- ó« ß« º¡á¬«¼ (Longint - ñ½¿¡¡«Ñ µÑ½«Ñ). æ¿¼ó«½∞¡δ⌐ Γ¿» ───────────────────────────────────────────────────────────────── æ¿¼ó«½∞¡δ⌐ Γ¿» ¿½¿ »«ññ¿á»áº«¡ («ΓαÑº«¬) ß¿¼ó«½∞¡«ú« Γ¿»á (Char) σαá¡¿Γß∩, ¬á¬ íá⌐Γ íÑº º¡á¬á. üπ½Ñóß¬¿⌐ Γ¿» ───────────────────────────────────────────────────────────────── ç¡áτÑ¡¿∩ ¿ »ÑαÑ¼Ñ¡¡δÑ íπ½Ñóß¬«ú« Γ¿»á Boolean σαá¡∩Γß∩ ¬á¬ íá⌐Γ, WordBool - ¬á¬ ß½«ó«, á LongBool - ¬á¬ º¡áτÑ¡¿Ñ Longint. Åα¿ φΓ«¼ »«ñαáºπ¼ÑóáεΓß∩, τΓ« «¡¿ ¼«úπΓ »α¿¡¿¼áΓ∞ º¡áτÑ¡¿∩ 0 (FalsÑ) ¿½¿ 1 (ÆruÑ). ÅÑαÑτ¿ß½¿¼δ⌐ Γ¿» ───────────────────────────────────────────────────────────────── ç¡áτÑ¡¿∩ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á σαá¡∩Γß∩, ¬á¬ íá⌐Γ íÑº º¡á¬á, Ñß½¿ ¡π¼Ñαáµ¿∩ ¡Ñ »αÑóδΦáÑΓ 256. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡¿ σαá¡∩Γß∩, ¬á¬ ß½«ó« íÑº º¡á¬á. B.Pascal 7 & Objects/LR - 373 - Æ¿»δ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ───────────────────────────────────────────────────────────────── Æ¿»δ º¡áτÑ¡¿⌐ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ Real, Single, Double, Extended ¿ Comp (óÑΘÑßΓóÑ¡¡δ⌐, ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε, ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε, ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿ ß½«ª¡δ⌐) σαá¡∩Γß∩ ó ó¿ñÑ ñó«- ¿τ¡«ú« »αÑñßΓáó½Ñ¡¿∩ º¡á¬á (+ ¿½¿ -), »«¬áºáΓÑ½∩ ßΓÑ»Ñ¡¿ ¿ º¡áτá- ΘÑ⌐ τáßΓ¿ τ¿ß½á. ÅαÑñßΓáó½∩Ñ¼«Ñ τ¿ß½« ¿¼ÑÑΓ º¡áτÑ¡¿Ñ: +/- º¡áτáΘá∩_τáßΓ∞ ò 2^»«¬áºáΓÑ½∞_ßΓÑ»Ñ¡¿ úñÑ º¡áτáΘá∩ τáßΓ∞ τ¿ß½á »αÑñßΓáó½∩ÑΓ ß«í«⌐ «ΓñÑ½∞¡δ⌐ í¿Γ ß½Ñóá «Γ ñó«¿τ¡«⌐ ñÑß∩Γ¿τ¡«⌐ Γ«τ¬¿ (Γ« ÑßΓ∞ 0 <= º¡áτáΘá∩ τáßΓ∞ <= 2). é ß½ÑñπεΘÑ⌐ ñá½ÑÑ ßσÑ¼Ñ ß½Ñóá αáß»«½«ªÑ¡δ ßΓáαΦ¿Ñ º¡áτáΘ¿Ñ í¿Γδ, á ß»αáóá - ¼½áñΦ¿Ñ º¡áτáΘ¿Ñ í¿Γδ. æá¼«Ñ ½Ñó«Ñ º¡áτÑ¡¿Ñ σαá- ¡¿Γß∩ ó ßá¼δσ ßΓáαΦ¿σ áñαÑßáσ. ìá»α¿¼Ñα, ñ½∩ º¡áτÑ¡¿∩ óÑΘÑßΓóÑ¡- ¡«ú« Γ¿»á e ß«σαá¡∩ÑΓß∩ ó »Ñαó«¼ íá⌐ΓÑ, f - ó ß½ÑñπεΘ¿σ »∩Γ¿ íá⌐- Γáσ, á s - ó ßΓáαΦÑ¼ º¡áτáΘÑ¼ í¿ΓÑ »«ß½Ññ¡Ñú« íá⌐Γá. éÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ───────────────────────────────────────────────────────────────── ÿÑßΓ¿íá⌐Γ«ó«Ñ (48-í¿Γ«ó«Ñ) óÑΘÑßΓóÑ¡¡«Ñ τ¿ß½« (Real) »«ñαáº- ñÑ½∩ÑΓß∩ ¡á Γα¿ »«½∩: 1 39 8 ┌───┬──────..───────┬────────┐ │ s │ f │ e │ └───┴──────..───────┴────────┘ msb lsb msb lsb ç¡áτÑ¡¿Ñ v τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ¡¿⌐: if 0 < e <= 255, then v = (-1)^s * 2^(e-129)*(l.f). if e = 0, then v = 0. éÑΘÑßΓóÑ¡¡δ⌐ Γ¿» ¡Ñ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ σαá¡Ñ¡¿∩ ¡Ñ¡«α- ¼á½¿º«óá¡¡δσ τ¿ßÑ½, º¡áτÑ¡¿⌐, ¡Ñ ∩ó½∩εΘ¿σß∩ τ¿ß½«¼ (NaN), á Γá¬ªÑ íÑß¬«¡Ñτ¡« ¼á½δσ ¿ íÑß¬«¡Ñτ¡« í«½∞Φ¿σ º¡áτÑ¡¿⌐. ìÑ¡«α¼á½¿º«óá¡¡«Ñ τ¿ß½« »α¿ ß«σαá¡Ñ¡¿¿ Ñú« ó ó¿ñÑ óÑΘÑßΓóÑ¡¡«ú« »α¿¡¿¼áÑΓ ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ, á ¡Ñ τ¿ß½á, íÑß¬«¡Ñτ¡« ¼á½δÑ ¿ íÑß¬«¡Ñτ¡« í«½∞Φ¿Ñ º¡á- τÑ¡¿∩ »α¿ »«»δΓ¬Ñ ¿ß»«½∞º«óáΓ∞ ñ½∩ ¿σ ºá»¿ß¿ Σ«α¼áΓ óÑΘÑßΓóÑ¡¡«ú« τ¿ß½á »α¿ó«ñ∩Γ ¬ «Φ¿í¬Ñ »ÑαÑ»«½¡Ñ¡¿∩. çñÑß∞ ¿ ñá½ÑÑ msb «º¡áτáÑΓ í«½ÑÑ º¡áτáΘ¿⌐ í¿Γ (ßΓáαΦ¿Ñ αáº- α∩ñδ), lsb - ¼Ñ¡ÑÑ º¡áτáΘ¿⌐ (¼½áñΦ¿Ñ αáºα∩ñδ). B.Pascal 7 & Objects/LR - 374 - Æ¿» τ¿ß½á ß «ñ¿¡áα¡«⌐ Γ«τ¡«ßΓ∞ε ───────────────────────────────────────────────────────────────── ùÑΓδαÑσíá⌐Γ«ó«Ñ (32-í¿Γ«ó«Ñ) τ¿ß½« Γ¿»á Single »«ñαáºñÑ½∩ÑΓ- ß∩ ¡á Γα¿ »«½∩: 1 8 23 ┌───┬──────┬───────..─────────┐ │ s │ e │ f │ └───┴──────┴───────..─────────┘ msb lsb msb lsb ç¡áτÑ¡¿Ñ v φΓ«ú« τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ¡¿⌐: if 0 < e < 255, then v = (-1)^s * 2^(e-12) * (l.f). if e = 0 and f <> 0, then v = (-1)^s * 2^(126) * (o.f). if e = 0 and f = 0, then v = (-1)^s * O. if e = 255 and f = 0, then v = (-1)^s * Inf. if e = 255 and f <> 0, then v = NaN. Æ¿» τ¿ß½á ß ñó«⌐¡«⌐ Γ«τ¡«ßΓ∞ε ───────────────────────────────────────────────────────────────── é«ß∞¼¿íá⌐Γ«ó«Ñ (64-í¿Γ«ó«Ñ) τ¿ß½« Γ¿»á Double »«ñαáºñÑ½∩ÑΓß∩ ¡á Γα¿ »«½∩: 1 11 52 ┌───┬──────┬───────..────────┐ │ s │ e │ f │ └───┴──────┴───────..────────┘ msb lsb msb lsb ç¡áτÑ¡¿Ñ v φΓ«ú« τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ¡¿⌐: if 0 < e < 2047, then v = (-1)^s * 2^(e-1023) * (l.f). if e = 0 and f <> 0, then v = (-1)^s * 2^(1022) * (o.f). if e = 0 and f = 0, then v = (-1)^s * O. if e = 2047 and f = 0, then v = (-1)^s * Inf. if e = 2047 and f <> 0, then v = NaN. B.Pascal 7 & Objects/LR - 375 - Æ¿» τ¿ß½á ß »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ───────────────────────────────────────────────────────────────── äÑß∩Γ¿íá⌐Γ«ó«Ñ (80-í¿Γ«ó«Ñ) τ¿ß½« Γ¿»á Extended »«ñαáºñÑ½∩- ÑΓß∩ ¡á τÑΓδαÑ »«½∩: 1 15 1 63 ┌───┬────────┬───┬────────..───────┐ │ s │ e │ i │ f │ └───┴────────┴───┴────────..───────┘ msb lsb msb lsb ç¡áτÑ¡¿Ñ v φΓ«ú« τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ¡¿⌐: if 0 < e < 32767, then v = (-1)^s * 2^(e-1023) * (l.f). if e = 32767 and f = 0, then v = (-1)^s * Inf. if e = 32767 and f <> 0, then v = NaN. æ½«ª¡δ⌐ Γ¿» ───────────────────────────────────────────────────────────────── é«ß∞¼¿íá⌐Γ«ó«Ñ (64-í¿Γ«ó«Ñ) τ¿ß½« ß½«ª¡«ú« Γ¿»á (Comp) »«ñ- αáºñÑ½∩ÑΓß∩ ¡á ñóá »«½∩: 1 63 ┌───┬───────────..──────────────┐ │ s │ d │ └───┴───────────..──────────────┘ msb lsb ç¡áτÑ¡¿Ñ v φΓ«ú« τ¿ß½á «»αÑñÑ½∩ÑΓß∩ ß »«¼«Θ∞ε óδαáªÑ¡¿⌐: if s = 1 and d = 0, then v = NaN. ó »α«Γ¿ó¡«¼ ß½πτáÑ v »αÑñßΓáó½∩ÑΓ ß«í«⌐ 64-í¿Γ«ó«Ñ º¡áτÑ¡¿Ñ, ∩ó- ½∩εΘÑÑß∩ ñ«»«½¡Ñ¡¿Ñ¼ ñ« ñóπσ. ç¡áτÑ¡¿∩ Γ¿»á π¬áºáΓÑ½∞ ───────────────────────────────────────────────────────────────── ç¡áτÑ¡¿Ñ Γ¿»á π¬áºáΓÑ½∞ σαá¡¿Γß∩ ó ó¿ñÑ ñó«⌐¡«ú« ß½«óá, »α¿ φΓ«¼ ß¼ÑΘÑ¡¿Ñ σαá¡¿Γß∩ ó ¼½áñΦÑ¼ ß½«óÑ, á áñαÑß ßÑú¼Ñ¡Γá - ó ßΓáαΦÑ¼ ß½«óÑ. ç¡áτÑ¡¿Ñ π¬áºáΓÑ½∩ nil σαá¡¿Γß∩ ó ó¿ñÑ ñó«⌐¡«ú« ß½«óá, ºá»«½¡Ñ¡¡«ú« 0. B.Pascal 7 & Objects/LR - 376 - ç¡áτÑ¡¿∩ ßΓα«¬«ó«ú« Γ¿»á ───────────────────────────────────────────────────────────────── æΓα«¬á ºá¡¿¼áÑΓ ßΓ«½∞¬« íá⌐Γ, ¬á¬«óá ¼á¬ß¿¼á½∞¡á∩ ñ½¿¡á ßΓα«¬¿, »½εß «ñ¿¡ íá⌐Γ. ÅÑαóδ⌐ íá⌐Γ ß«ñÑαª¿Γ ΓÑ¬πΘπε ñ¿¡á¼¿τÑß¬πε ñ½¿¡π ßΓα«¬¿, á »«ß½ÑñπεΘ¿Ñ íá⌐Γδ ß«ñÑαªáΓ ß¿¼ó«½δ ßΓα«¬¿. ü¿Γ ñ½¿¡δ ¿ ß¿¼ó«½δ αáßß¼áΓα¿óáεΓß∩, ¬á¬ º¡áτÑ¡¿∩ íÑº º¡á¬á. îá¬ß¿- ¼á½∞¡á∩ ñ½¿¡á ßΓα«¬¿ - 255 ß¿¼ó«½«ó, »½εß íá⌐Γ ñ½¿¡δ (string[255]). ç¡áτÑ¡¿∩ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── î¡«ªÑßΓó« - φΓ« ¼áßß¿ó í¿Γ, ó ¬«Γ«α«¼ ¬áªñδ⌐ í¿Γ π¬áºδóáÑΓ, ∩ó½∩ÑΓß∩ φ½Ñ¼Ñ¡Γ »α¿¡áñ½ÑªáΘ¿¼ ¼¡«ªÑßΓóπ ¿½¿ ¡ÑΓ. îá¬ß¿¼á½∞¡«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó ¼¡«ªÑßΓóá - 256, Γá¬ τΓ« ¼¡«ªÑßΓó« ¡¿¬«úñá ¡Ñ ¼«- ªÑΓ ºá¡¿¼áΓ∞ í«½ÑÑ 32 íá⌐Γ. ù¿ß½« íá⌐Γ, ºá¡∩Γδσ «ΓñÑ½∞¡δ¼ ¼¡«- ªÑßΓó«¼, óδτ¿ß½∩ÑΓß∩, ¬á¬: ByteSize = (Max div 8) - (Min div 8) + 1 úñÑ îin ¿ îáσ - ¡¿ª¡∩∩ ¿ óÑασ¡∩∩ úαá¡¿µá íáº«ó«ú« Γ¿»á φΓ«ú« ¼¡«- ªÑßΓóá. ì«¼Ñα íá⌐Γá ñ½∩ ¬«¡¬αÑΓ¡«ú« φ½Ñ¼Ñ¡Γá E óδτ¿ß½∩ÑΓß∩ »« Σ«α¼π½Ñ: ByteNumber = (E div 8) - (Min div 8) á ¡«¼Ñα í¿Γá ó¡πΓα¿ φΓ«ú« íá⌐Γá »« Σ«α¼π½Ñ: BitNumber = E mod 8 úñÑ E «í«º¡áτáÑΓ »«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ φ½Ñ¼Ñ¡Γá. ç¡áτÑ¡¿∩ Γ¿»á ¼áßß¿ó ───────────────────────────────────────────────────────────────── îáßß¿ó σαá¡¿Γß∩ ó ó¿ñÑ ¡Ñ»αÑαδó¡«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ »ÑαÑ- ¼Ñ¡¡δσ, ¬áªñá∩ ¿º ¬«Γ«αδσ ¿¼ÑÑΓ Γ¿» ¼áßß¿óá. ¥½Ñ¼Ñ¡Γδ ß ¡á¿¼Ñ¡∞- Φ¿¼¿ ¿¡ñÑ¬ßá¼¿ σαá¡∩Γß∩ ó ¼½áñΦ¿σ áñαÑßáσ »á¼∩Γ¿. î¡«ú«¼Ñα¡δ⌐ ¼áßß¿ó σαá¡¿Γß∩ Γá¬¿¼ «íαáº«¼, τΓ« »αáóδ⌐ ¿¡ñÑ¬ß ó«ºαáßΓáÑΓ íδßΓ- αÑÑ. ç¡áτÑ¡¿∩ Γ¿»á ºá»¿ß∞ ───────────────────────────────────────────────────────────────── Å«½∩ ºá»¿ß¿ σαá¡∩Γß∩, ¬á¬ ¡Ñ»αÑαδó¡á∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ »Ñ- αÑ¼Ñ¡¡δσ. ÅÑαó«Ñ »«½Ñ σαá¡¿Γß∩ ó ¼½áñΦ¿σ áñαÑßáσ »á¼∩Γ¿. àß½¿ ó ºá»¿ß¿ ß«ñÑαªáΓß∩ αáº½¿τ¡δÑ τáßΓ¿, Γ« ¬áªñá∩ τáßΓ∞ ¡áτ¿¡áÑΓß∩ ß «ñ¡«ú« ¿ Γ«ú« ªÑ áñαÑßá »á¼∩Γ¿. B.Pascal 7 & Objects/LR - 377 - ÄíΩÑ¬Γ¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── é¡πΓαÑ¡¡¿⌐ Σ«α¼áΓ ñá¡¡δσ «íΩÑ¬Γá ¿¼ÑÑΓ ßσ«ñßΓó« ß ó¡πΓαÑ¡¡¿¼ Σ«α¼áΓ«¼ ºá»¿ß¿. Å«½∩ «íΩÑ¬Γá ºá»¿ßδóáεΓß∩ ó »«α∩ñ¬Ñ ¿σ «»¿ßá¡¿⌐ ¬á¬ ¡Ñ»αÑαδó¡á∩ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ »ÑαÑ¼Ñ¡¡δσ. ïεí«Ñ »«½Ñ, π¡áß- ½Ññ«óá¡¡«Ñ «Γ α«ñ¿ΓÑ½∞ß¬«ú« (»«α«ªñáεΘÑú«) Γ¿»á, ºá»¿ßδóáÑΓß∩ »Ñ- αÑñ ¡«óδ¼¿ »«½∩¼¿, «»αÑñÑ½Ñ¡¡δ¼¿ ó ñ«τÑα¡Ñ¼ (»«α«ªñÑ¡¡«¼) Γ¿»Ñ. àß½¿ «íΩÑ¬Γ¡δ⌐ Γ¿» «»αÑñÑ½∩ÑΓ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ, ¬«¡ßΓαπ¬- Γ«α ¿½¿ ñÑßΓαπ¬Γ«α, Γ« ¬«¼»¿½∩Γ«α αáº¼ÑΘáÑΓ ó «íΩÑ¬Γ¡«¼ Γ¿»Ñ ñ«- »«½¡¿ΓÑ½∞¡«Ñ »«½Ñ ñá¡¡δσ. ¥Γ« 16-í¿Γ«ó«Ñ »«½Ñ, ¡áºδóáÑ¼«Ñ »«½Ñ¼ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó (VMP), ¿ß»«½∞ºπÑΓß∩ ñ½∩ ºá»«¼¿¡á¡¿∩ ß¼ÑΘÑ¡¿∩ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ. Å«½Ñ Γáí- ½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ß½ÑñπÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡« »«ß½Ñ «íδτ¡δσ »«½Ñ⌐ «íΩÑ¬Γ¡«ú« Γ¿»á. àß½¿ «íΩÑ¬Γ¡δ⌐ Γ¿» ¡áß½ÑñπÑΓ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ, ¬«¡ßΓαπ¬Γ«αδ ¿½¿ ñÑßΓαπ¬Γ«αδ (ßí«αΘ¿¬¿ ¼πß«αá), Γ« «¡ Γá¬ªÑ ¡áß½ÑñπÑΓ ¿ »«½Ñ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, í½áú«ñáα∩ τÑ- ¼π ñ«»«½¡¿ΓÑ½∞¡«Ñ »«½Ñ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ¡Ñ óδñÑ½∩ÑΓß∩. ê¡¿µ¿á½¿ºáµ¿∩ »«½∩ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó φ¬ºÑ¼»½∩αá «íΩÑ¬Γá «ßπΘÑßΓó½∩ÑΓß∩ ¬«¡ßΓαπ¬Γ«α«¼ (¿½¿ ¬«¡ßΓαπ¬Γ«αá¼¿) «íΩÑ¬Γ- ¡«ú« Γ¿»á. Åα«úαá¼¼á ¡¿¬«úñá ¡Ñ ¿¡¿µ¿á½¿º¿απÑΓ »«½Ñ Γáí½¿µδ ó¿α- Γπá½∞¡δσ ¼ÑΓ«ñ«ó ∩ó¡« ¿ ¡Ñ ¿¼ÑÑΓ ¬ ¡Ñ¼π ñ«ßΓπ»á. æ½ÑñπεΘ¿Ñ »α¿¼Ñαδ ¿½½εßΓα¿απεΓ ó¡πΓαÑ¡¡¿Ñ Σ«α¼áΓδ ñá¡¡δσ «íΩÑ¬Γ¡δσ Γ¿»«ó. type PLocation = ^TLocation; TLocation = object X,Y: integer; procedure Init(PX, PY: Integer); function GetX: Integer; function GetY: Integer; end; PPoint = ^TPoint; TPoint = object(TLocation) Color: Integer; constructor Init(PX, PY, PColor: Integer); destructor Done; virtual; procedure Show; virtual; procedure Hide; virtual; procedure MoveTo(PX, PY: I+nteger); virtual; end; PCircle = ^TCircle; TCircle = object(TPoint) Radius: Integer; constructor Init(PX, PY, PColor, PRadius: Integer); procedure Show; virtual; B.Pascal 7 & Objects/LR - 378 - procedure Hide; virtual; procedure Fill; virtual; end; É¿ßπ¡«¬ 21.8 »«¬áºδóáÑΓ αáº¼ÑΘÑ¡¿Ñ φ¬ºÑ¼»½∩α«ó Γ¿»«ó TLocation, TPoint ¿ TCircle: ¬áªñδ⌐ »α∩¼«πú«½∞¡¿¬ ß««ΓóÑΓßΓóπÑΓ «ñ¡«¼π ß½«óπ »á¼∩Γ¿. TLocation TPoint TCircle ┌──────────┐ ┌───────────┐ ┌───────────┐ │ X │ │ X │ │ X │ ├──────────┤ ├───────────┤ ├───────────┤ │ Y │ │ Y │ │ Y │ └──────────┘ ├───────────┤ ├───────────┤ │ Color │ │ Color │ ├───────────┤ ├───────────┤ │ VMT │ │ VMT │ └───────────┘ ├───────────┤ │ Radius │ └───────────┘ É¿ß. 21.8 æσÑ¼á φ¬ºÑ¼»½∩α«ó Γ¿»«ó TLocation, TPoint ¿ TCircle. Æá¬ ¬á¬ TPoint ∩ó½∩ÑΓß∩ »Ñαóδ¼ Γ¿»«¼ ó ¿Ñαáασ¿¿, ¬«Γ«αδ⌐ óó«ñ¿Γ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ, Γ« »«½Ñ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó αáº¼ÑΘáÑΓß∩ ßαáºπ »«ß½Ñ »«½∩ Color. Æáí½¿µá ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ───────────────────────────────────────────────────────────────── èáªñδ⌐ «íΩÑ¬Γ¡δ⌐ Γ¿», ß«ñÑαªáΘ¿⌐ ¿½¿ ¡áß½ÑñπεΘ¿⌐ ó¿αΓπá½∞¡δÑ ¼ÑΓ«ñδ, ¬«¡ßΓαπ¬Γ«αδ ¿½¿ ñÑßΓαπ¬Γ«αδ, ¿¼ÑÑΓ ßó∩ºá¡¡πε ß ¡¿¼ Γáí- ½¿µπ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, ó ¬«Γ«α«⌐ ºá»«¼¿¡áÑΓß∩ ¿¡¿µ¿á½¿º¿απÑ¼á∩ τáßΓ∞ ßÑú¼Ñ¡Γá ñá¡¡δσ »α«úαá¼¼δ. ä½∩ ¬áªñ«ú« «íΩÑ¬Γ¡«ú« Γ¿»á (¡« ¡Ñ ñ½∩ ¬áªñ«ú« φ¬ºÑ¼»½∩αá) ¿¼ÑÑΓß∩ Γ«½∞¬« «ñ¡á Γáí½¿µá ó¿αΓπá½∞- ¡δσ ¼ÑΓ«ñ«ó, «ñ¡á¬« ñóá αáº½¿τ¡δσ «íΩÑ¬Γ¡δσ Γ¿»á ¡¿¬«úñá ¡Ñ αáº- ñÑ½∩εΓ «ñ¡π Γáí½¿µπ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, ¡Ñºáó¿ß¿¼« «Γ Γ«ú«, ¡áß- ¬«½∞¬« φΓ¿ Γ¿»δ ¿ñÑ¡Γ¿τ¡δ. Æáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ß«ºñáεΓß∩ áóΓ«¼áΓ¿τÑß¬¿ ¬«¼»¿½∩Γ«α«¼, ¿ »α«úαá¼¼á ¡¿¬«úñá ¡Ñ ¼á¡¿»π½¿απÑΓ ¿¼¿ ¡Ñ»«ßαÑñßΓóÑ¡¡«. Ç¡á½«ú¿τ¡«, π¬áºáΓÑ½¿ ¡á Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó áóΓ«¼áΓ¿τÑß¬¿ ºá»«¼¿¡áεΓß∩ ó αÑá½¿ºáµ¿∩σ «íΩÑ¬Γ¡δσ Γ¿»«ó ß »«¼«Θ∞ε ¬«¡ßΓαπ¬Γ«α«ó »α«úαá¼¼á ¡¿¬«úñá ¡Ñ αáí«ΓáÑΓ ß φΓ¿¼¿ π¬áºáΓÑ½∩¼¿ ¡Ñ»«ßαÑñßΓóÑ¡¡«. ÅÑαó«Ñ ß½«ó« Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ß«ñÑαª¿Γ αáº¼Ñα φ¬ºÑ¼»½∩α«ó ß««ΓóÑΓßΓóπεΘÑú« «íΩÑ¬Γ¡«ú« Γ¿»á. ¥Γá ¿¡Σ«α¼áµ¿∩ ¿ß- »«½∞ºπÑΓß∩ ¬«¡ßΓαπ¬Γ«αá¼¿ ¿ ñÑßΓαπ¬Γ«αá¼¿ ñ½∩ «»αÑñÑ½Ñ¡¿∩ Γ«ú«, ß¬«½∞¬« íá⌐Γ óδñÑ½∩ÑΓß∩ ¿½¿ «ßó«í«ªñáÑΓß∩ »α¿ ¿ß»«½∞º«óá¡¿¿ αáß- Φ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá ßΓá¡ñáαΓ¡δσ »α«µÑñπα New ¿ Dispose. éΓ«α«Ñ ß½«ó« Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ß«ñÑαª¿Γ «Γα¿µá- B.Pascal 7 & Objects/LR - 379 - ΓÑ½∞¡δ⌐ αáº¼Ñα φ¬ºÑ¼»½∩α«ó ß««ΓóÑΓßΓóπεΘÑú« «íΩÑ¬Γ¡«ú« Γ¿»á φΓá ¿¡Σ«α¼áµ¿∩ ¿ß»«½∞ºπÑΓß∩ αáΓ¿Σ¿¬áµ¿«¡¡δ¼ (Γ.Ñ. »«ñΓóÑαªñáεΘ¿¼ ñÑ⌐ßΓó¿ΓÑ½∞¡«ßΓ∞) ¼Ñσá¡¿º¼«¼ óδº«óá ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá ñ½∩ óδ∩ó- ½Ñ¡¿∩ ¿¡¿µ¿á½¿º¿απÑ¼δσ «íΩÑ¬Γ«ó (φ¬ºÑ¼»½∩α«ó, ñ½∩ ¬«Γ«αδσ ñ«½ªÑ¡ óδ»«½¡∩Γ∞ß∩ ¬«¡ßΓαπ¬Γ«α) ¿ ñ½∩ »α«óÑα¬¿ ß«ú½áß«óá¡¡«ßΓ¿ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó. è«úñá αáºαÑΦÑ¡á αáΓ¿Σ¿¬áµ¿∩ ó¿αΓπá½∞¡«ú« óδ- º«óá (ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ {$R+} ¬«¼»¿½∩Γ«αá, ¬«Γ«αá∩ αáßΦ¿αÑ¡á ¿ ó¬½ετáÑΓ ó ßÑí∩ »α«óÑα¬π ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó), ¬«¼»¿½∩Γ«α úÑ¡Ñα¿- απÑΓ óδº«ó »α«úαá¼¼δ αáΓ¿Σ¿¬áµ¿¿ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó »Ñ- αÑñ ¬áªñδ¼ óδº«ó«¼ ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá. Åα«úαá¼¼á αáΓ¿Σ¿¬áµ¿¿ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó »α«óÑα∩ÑΓ, τΓ« »Ñαó«Ñ ß½«ó« Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ¡Ñ αáó¡« ¡π½ε ¿ τΓ« ßπ¼¼á »Ñαó«ú« ¿ óΓ«α«ú« ß½«ó αáó¡á ¡π½ε. àß½¿ ½εíá∩ ¿º »α«óÑα«¬ ¡Ñπñáτ¡á, Γ« úÑ¡Ñα¿απÑΓß∩ «Φ¿í¬á 210 ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ Borland Pascal. ÉáºαÑΦÑ¡¿Ñ »α«óÑα«¬ úαá¡¿µ ñ¿á»áº«¡«ó ¿ »α«óÑα«¬ óδº«ó«ó ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ºá¼Ññ½∩ÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ¿ ñÑ½áÑΓ ÑÑ ¡Ñß¬«½∞¬« í«½∞ΦÑ, »«φΓ«¼π ¿ß»«½∞ºπ⌐ΓÑ {$R+} Γ«½∞¬« ó« óαÑ¼∩ «Γ- ½áñ¬¿ ¿ »ÑαÑ¬½ετ¿ΓÑ φΓπ ñ¿αÑ¬Γ¿óπ ó ß«ßΓ«∩¡¿Ñ {$R-} ó «¬«¡τáΓÑ½∞- ¡«⌐ óÑαß¿¿ »α«úαá¼¼δ. ìá¬«¡Ñµ, ¡áτ¿¡á∩ ß« ß¼ÑΘÑ¡¿∩ 4 Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ß½ÑñπÑΓ ß»¿ß«¬ 32-αáºα∩ñ¡δσ π¬áºáΓÑ½Ñ⌐ ¼ÑΓ«ñ«ó, «ñ¿¡ π¬áºáΓÑ½∞ ¡á ¬áªñδ⌐ ó¿αΓπá½∞¡δ⌐ ¼ÑΓ«ñ ó »«α∩ñ¬Ñ ¿σ «»¿ßá¡¿⌐. èáªñá∩ »«º¿µ¿∩ ß«ñÑαª¿Γ áñαÑß Γ«τ¬¿ óσ«ñá ß««ΓóÑΓßΓóπεΘÑú« ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá. B.Pascal 7 & Objects/LR - 380 - ìá É¿ß. 21.9 »«¬áºá¡« αáº¼ÑΘÑ¡¿Ñ Γáí½¿µ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó Γ¿»«ó Point ¿ Circle (Γ¿» Location ¡Ñ ¿¼ÑÑΓ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, Γ.¬. ¡Ñ ß«ñÑαª¿Γ ó ßÑíÑ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, ¬«¡ßΓαπ¬Γ«- α«ó ¿ ñÑßΓαπ¬Γ«α«ó): ¬áªñδ⌐ ¼á½Ñ¡∞¬¿⌐ »α∩¼«πú«½∞¡¿¬ ß««ΓóÑΓßΓóπÑΓ «ñ¡«¼π ß½«óπ »á¼∩Γ¿, á ¬áªñδ⌐ í«½∞Φ«⌐ »α∩¼«πú«½∞¡¿¬ - ñóπ¼ ß½«óá¼ »á¼∩Γ¿. Point VMT Circle VMT ┌───────────────┐ ┌────────────────┐ │ 8 │ │ 8 │ ├───────────────┤ ├────────────────┤ │ -8 │ │ -8 │ ├───────────────┤ ├────────────────┤ │ 0 │ │ 0 │ ├───────────────┤ ├────────────────┤ │ 0 │ │ 0 │ ├───────────────┤ ├────────────────┤ │ │ │ │ │ @TPoint.Done │ │ @TPoint.Done │ │ │ │ │ ├───────────────┤ ├────────────────┤ │ │ │ │ │ @TPoint.Show │ │ @TCircle.Show │ │ │ │ │ ├───────────────┤ ├────────────────┤ │ │ │ │ │ @TPoint.Hide │ │ @TCircle.Hide │ │ │ │ │ ├───────────────┤ ├────────────────┤ │ │ │ │ │ @TPoint.MoveTo│ │ @TPoint.MoveTo │ │ │ │ │ └───────────────┘ ├────────────────┤ │ │ │ @TCircle.Fill │ │ │ └────────────────┘ É¿ß. 21.9 æσÑ¼δ Γáí½¿µ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ñ½∩ TPoint ¿ TCircle. ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á Γ«, ¬á¬ TCircle ¡áß½ÑñπÑΓ ¼ÑΓ«ñδ Done ¿ MoveTo Γ¿»á TPoint ¿ ¬á¬ «¡ »ÑαÑ«»αÑñÑ½∩ÑΓ Show ¿ Hide. èá¬ πªÑ π»«¼¿¡á½«ß∞, ¬«¡ßΓαπ¬Γ«αδ «íΩÑ¬Γ¡δσ Γ¿»«ó ß«ñÑαªáΓ ß»Ñµ¿á½∞¡δ⌐ ¬«ñ, ¬«Γ«αδ⌐ ºá»«¼¿¡áÑΓ ß¼ÑΘÑ¡¿Ñ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó «íΩÑ¬Γ¡«ú« Γ¿»á ó ¿¡¿µ¿á½¿º¿απÑ¼δσ φ¬ºÑ¼»½∩αáσ. ìá»α¿¼Ñα, Ñß½¿ ¿¼ÑÑΓß∩ φ¬ºÑ¼»½∩α P Γ¿»á TPoint ¿ φ¬ºÑ¼»½∩α C Γ¿»á TCircle, Γ« óδº«ó P.Init íπñÑΓ áóΓ«¼áΓ¿τÑß¬¿ ºá»¿ßδóáΓ∞ ß¼ÑΘÑ¡¿Ñ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó Γ¿»á TPoint ó »«½Ñ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«- ñ«ó φ¬ºÑ¼»½∩αá P, á óδº«ó C.Init Γ«τ¡« Γá¬ ªÑ ºá»¿ΦÑΓ ß¼ÑΘÑ¡¿Ñ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó Γ¿»á TCircle ó »«½Ñ Γáí½¿µδ ó¿αΓπá½∞- B.Pascal 7 & Objects/LR - 381 - ¡δσ ¼ÑΓ«ñ«ó φ¬ºÑ¼»½∩αá C. ¥Γá áóΓ«¼áΓ¿τÑß¬á∩ ¿¡¿µ¿á½¿ºáµ¿∩ ∩ó½∩- ÑΓß∩ τáßΓ∞ε ¬«ñá óσ«ñá ¬«¡ßΓαπ¬Γ«αá, »«φΓ«¼π Ñß½¿ π»αáó½Ñ¡¿Ñ »Ñ- αÑñáÑΓß∩ ó ¡áτá½« «»ÑαáΓ«α¡«⌐ ßÑ¬µ¿¿, Γ« »«½Ñ Self Γáí½¿µδ ó¿αΓπ- á½∞¡δσ ¼ÑΓ«ñ«ó Γá¬ªÑ íπñÑΓ πßΓá¡«ó½Ñ¡«. Æá¬¿¼ «íαáº«¼, »α¿ ó«º- ¡¿¬¡«óÑ¡¿¿ ¡Ñ«íσ«ñ¿¼«ßΓ¿, ¬«¡ßΓαπ¬Γ«α ¼«ªÑΓ óδ»«½¡¿Γ∞ óδº«ó ó¿α- Γπá½∞¡«ú« ¼ÑΓ«ñá. Æáí½¿µá ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ───────────────────────────────────────────────────────────────── Æáí½¿µá ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó «íΩÑ¬Γ¡«ú« Γ¿»á ß«ñÑαª¿Γ ñ½∩ ¬áªñ«ú« «»¿ßá¡¡«ú« ó «íΩÑ¬Γ¡«¼ Γ¿»Ñ ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá ¿ Ñú« »αÑñ¬«ó τÑΓδαÑσíá⌐Γ«óπε ºá»¿ß∞. é ΓÑσ ß½πτá∩σ, ¬«úñá ó »«α«ªñáε- Θ¿σ Γ¿»áσ (»αÑñ¬áσ) «»αÑñÑ½∩ÑΓß∩ í«½∞ΦÑÑ τ¿ß½« ó¿αΓπá½∞¡δσ ¼ÑΓ«- ñ«ó, ó »α«µÑßßÑ ß«ºñá¡¿∩ »α«¿ºó«ñ¡δσ Γ¿»«ó ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ«ßΓáΓ«τ¡« í«½∞Φ«⌐ «íΩÑ¼ »á¼∩Γ¿, «ß«íÑ¡¡« Ñß½¿ ß«ºñáÑΓß∩ ¼¡«ú« »α«¿ºó«ñ¡δσ Γ¿»«ó. ò«Γ∩ ó »α«¿ºó«ñ¡δσ Γ¿»áσ ¼«úπΓ »ÑαÑ«»αÑñÑ½∩Γ∞- ß∩ Γ«½∞¬« ¡Ñ¬«Γ«αδÑ ¿º ¡áß½ÑñπÑ¼δσ ¼ÑΓ«ñ«ó, Γáí½¿µá ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ¬áªñ«ú« »α«¿ºó«ñ¡«ú« Γ¿»á ß«ñÑαª¿Γ π¬áºáΓÑ½¿ ¼ÑΓ«ñá ñ½∩ óßÑσ ¡áß½ÑñπÑ¼δσ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, ñáªÑ Ñß½¿ «¡¿ ¡Ñ ¿º¼Ñ¡∩- ½¿ß∞. ä¿¡á¼¿τÑß¬¿Ñ ¼ÑΓ«ñδ «íÑß»Ñτ¿óáεΓ ó Γá¬¿σ ß¿Γπáµ¿∩σ á½∞ΓÑα¡á- Γ¿óπ. é Borland Pascal ¿¼ÑÑΓß∩ Σ«α¼áΓ Γáí½¿µδ ¼ÑΓ«ñ«ó ¿ ¡«óδ⌐ ß»«ß«í ñ¿ß»ÑΓτÑα¿ºáµ¿¿ ¼ÑΓ«ñ«ó ß »«ºñ¡¿¼ ßó∩ºδóá¡¿Ñ¼. é¼ÑßΓ« ¬«- ñ¿α«óá¡¿∩ ñ½∩ óßÑσ ¼ÑΓ«ñ«ó «íΩÑ¬Γ¡«ú« Γ¿»á ß »«ºñ¡¿¼ ßó∩ºδóá¡¿Ñ¼, ó Γáí½¿µÑ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ¬«ñ¿απεΓß∩ Γ«½∞¬« ΓÑ ¼ÑΓ«ñδ, ¬«Γ«- αδÑ íδ½¿ ó «íΩÑ¬Γ¡«¼ Γ¿»Ñ »ÑαÑ«»αÑñÑ½Ñ¡δ. àß½¿ ó ¡áß½ÑñπεΘ¿σ Γ¿- »áσ »ÑαÑ«»αÑñÑ½∩εΓß∩ Γ«½∞¬« ¡Ñ¬«Γ«αδÑ ¿º í«½∞Φ«ú« τ¿ß½á ¼ÑΓ«ñ«ó ß »«ºñ¡¿¼ ßó∩ºδóá¡¿Ñ¼, Σ«α¼áΓ Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ¿ß»«½∞- ºπÑΓ ¼Ñ¡∞ΦÑÑ »α«ßΓαá¡ßΓó«, τÑ¼ Σ«α¼áΓ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«- ñ«ó. B.Pascal 7 & Objects/LR - 382 - ö«α¼áΓ Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ¿½½εßΓα¿απεΓ ß½ÑñπεΘ¿Ñ ñóá «íΩÑ¬Γ¡δσ Γ¿»á: type TBase = object X: Integer; constructor Init; destructor Done; virtual; procedure P10; virtual 10; procedure P20; virtual 20; procedure P30; virtual 30; procedure P30; virtual 30; end; type TDerived = object(TBase) Y: Integer; constructor Init; destructor Done; virtual; procedure P10; virtual 10; procedure P30; virtual 30; procedure P50; virtual 50; end; B.Pascal 7 & Objects/LR - 383 - ìá É¿ß. 21.10 ¿ 21.11 »«¬áºá¡δ ßσÑ¼δ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼Ñ- Γ«ñ«ó ¿ Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ñ½∩ TBase ¿ TDerived. èáªñá∩ ∩τÑ⌐¬á ß««ΓóÑΓßΓóπÑΓ ß½«óπ »á¼∩Γ¿, á ¬áªñá∩ í«½∞Φá∩ ∩τÑ⌐¬á - ñóπ¼ ß½«óá¼ »á¼∩Γ¿. Æéî TBase Æäî TBase ┌──────────────────┐ ┌──────────────────┐ │ 4 │ │ 0 │ ├──────────────────┤ ├──────────────────┤ │ -4 │ │ ¿¡ñÑ¬ß ó ¬φΦ │ ├──────────────────┤ ├──────────────────┤ │ æ¼ÑΘ. Æäî TBase │ │ ß¼ÑΘÑ¡¿Ñ ºá»¿ß¿ │ ├──────────────────┤ ├──────────────────┤ │ 0 │ │ 4 │ ├──────────────────┤ ├──────────────────┤ │ │ │ 10 │ │ @TBase.Done │ ├──────────────────┤ │ │ │ 20 │ └──────────────────┘ ├──────────────────┤ │ 30 │ ├──────────────────┤ │ 40 │ ├──────────────────┤ │ │ │ @TBase.P10 │ │ │ ├──────────────────┤ │ │ │ @TBase.P20 │ │ │ ├──────────────────┤ │ │ │ @TBase.P30 │ │ │ ├──────────────────┤ │ │ │ @TBase.P40 │ │ │ └──────────────────┘ É¿ß. 21.10 æσÑ¼δ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ¿ Γáí½¿µδ ñ¿¡á- ¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ñ½∩ TBase. B.Pascal 7 & Objects/LR - 384 - ÄíΩÑ¬Γ¡δ⌐ Γ¿» ¿¼ÑÑΓ Γáí½¿µπ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ ó ¡Ñ¼ óó«ñ∩Γß∩ ¿½¿ »ÑαÑ«»αÑñÑ½∩εΓß∩ ñ¿¡á¼¿τÑß¬¿Ñ ¼ÑΓ«ñδ. àß½¿ «íΩÑ¬Γ¡δ⌐ Γ¿» ¡áß½ÑñπÑΓ ñ¿¡á¼¿τÑß¬¿Ñ ¼ÑΓ«ñδ, ¡« «¡¿ ¡Ñ »ÑαÑ«»αÑñÑ½∩εΓß∩, ¿ ¡«óδÑ ñ¿¡á¼¿τÑß¬¿Ñ ¼ÑΓ«ñδ ¡Ñ óó«ñ∩Γß∩, Γ« «¡ »α«ßΓ« ¡áß½ÑñπÑΓ Γáí½¿µπ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ßó«Ñú« »αÑñ¬á. èá¬ ¿ ó ß½πτáÑ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, Γáí½¿µá ñ¿¡á¼¿- τÑß¬¿σ ¼ÑΓ«ñ«ó ºá»¿ßδóáÑΓß∩ ó ¿¡¿µ¿á½¿º¿α«óá¡¡πε τáßΓ∞ ßÑú¼Ñ¡Γá ñá¡¡δσ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. Æéî TDerived Æäî TDerived ┌───────────────────┐ ┌──────────────────┐ │ 6 │ │ æ¼ÑΘ. Æäî TBase │ ├───────────────────┤ ├──────────────────┤ │ -6 │ │ ¿¡ñÑ¬ß ó ¬ÑΦÑ │ ├───────────────────┤ ├──────────────────┤ │ æ¼ÑΘ. Æäî TDerived│ │ ß¼ÑΘÑ¡¿Ñ ºá»¿ß¿ │ ├───────────────────┤ ├──────────────────┤ │ 0 │ │ 3 │ ├───────────────────┤ ├──────────────────┤ │ │ │ 10 │ │ @TBase.Done │ ├──────────────────┤ │ │ │ 30 │ └───────────────────┘ ├──────────────────┤ │ 50 │ ├──────────────────┤ │ │ │ @TDerived.P10 │ │ │ ├──────────────────┤ │ │ │ @TDerived.P30 │ │ │ ├──────────────────┤ │ │ │ @TDerived.T50 │ │ │ └──────────────────┘ É¿ß. 21.11. æσÑ¼δ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ¿ Γáí½¿µδ ñ¿- ¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ñ½∩ TDerived. ÅÑαó«Ñ ß½«ó« Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ß«ñÑαª¿Γ ß¼ÑΘÑ¡¿Ñ ßÑú¼Ñ¡Γá ñá¡¡δσ α«ñ¿ΓÑ½∞ß¬«⌐ Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó, ¿½¿ 0, Ñß½¿ α«ñ¿ΓÑ½∞ß¬á∩ Γáí½¿µá ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó «ΓßπΓßΓóπÑΓ. éΓ«α«Ñ ¿ ΓαÑΓ∞Ñ ß½«ó« Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ¿ß»«½∞ºπ- ÑΓß∩ ó ¬ÑΦ-íπΣÑαÑ »α«ß¼«Γαá ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó (ß¼. ñá½ÑÑ). ùÑΓóÑαΓ«Ñ ß½«ó« Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ß«ñÑαª¿Γ ßτÑΓ- τ¿¬ ºá»¿ß¿ Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó. ìÑ»«ßαÑñßΓóÑ¡¡« ºá ¡¿¼ ß½ÑñπÑΓ ß»¿ß«¬ ß½«ó, ¬áªñ«Ñ ¿º ¬«Γ«αδσ ß«ñÑαª¿Γ ¿¡ñÑ¬ß ñ¿¡á¼¿τÑß- B.Pascal 7 & Objects/LR - 385 - ¬«ú« ¼ÑΓ«ñá, á ºáΓÑ¼ ß»¿ß«¬ ß««ΓóÑΓßΓóπεΘ¿σ π¬áºáΓÑ½Ñ⌐ ¼ÑΓ«ñ«ó. ä½¿¡á ¬áªñ«ú« ß»¿ß¬á ºáñáÑΓß∩ ßτÑΓτ¿¬«¼ ºá»¿ß¿ Γáí½¿µδ ñ¿¡á¼¿τÑß- ¬¿σ ¼ÑΓ«ñ«ó. ç¡áτÑ¡¿∩ Σá⌐½«ó«ú« Γ¿»á ───────────────────────────────────────────────────────────────── ç¡áτÑ¡¿∩ Σá⌐½«ó«ú« Γ¿»á »αÑñßΓáó½∩εΓß∩ ó ó¿ñÑ ºá»¿ßÑ⌐. Æ¿»¿- º¿α«óá¡¡δÑ ¿ ¡ÑΓ¿»¿º¿α«óá¡¡δÑ Σá⌐½δ ºá¡¿¼áεΓ 128 íá⌐Γ, ¬«Γ«αδÑ αáß»«½áúáεΓß∩ »« ß½ÑñπεΘÑ⌐ ßσÑ¼Ñ: type TFileRec = record Handle : word; { «»¿ßáΓÑ½∞ } Mode : word; { αÑª¿¼ } RecSize : word; { αáº¼Ñα ºá»¿ß¿ } Private : array[1..26] of byte; UserData : array[1..16] of byte; Name : array[0..79] of char; end; ÆÑ¬ßΓ«óδÑ Σá⌐½δ ºá¡¿¼áεΓ 256 íá⌐Γ ß« ß½ÑñπεΘÑ⌐ ßσÑ¼«⌐ αáß»«- ½«ªÑ¡¿∩: type TTextBuf = array[0..127] of char; TTextRec = record Handle : word; Mode : word; BufSize : word; Private : word; BufPos : word; BufEnd : word; BufPtr : ^TTextBuf; OpenFunc : pointer; InOutFunc : pointer; FlushFunc : pointer; CloseFunc : pointer; UserData : array[1..16] of Byte; Name : array[0..79] of Char; Buffer : TTextBuf; end; é »ÑαÑ¼Ñ¡¡«⌐ ìándlÑ ß«ñÑαª¿Γß∩ ¡«¼Ñα «»¿ßáΓÑ½∩ Σá⌐½á (¬«úñá Σá⌐½ «Γ¬αδΓ). ¥Γ« º¡áτÑ¡¿Ñ ó«ºóαáΘáÑΓß∩ DOS. Å«½Ñ î«dÑ ßτ¿ΓáÑΓß∩ αáó¡δ¼ «ñ¡«¼π ¿º ß½ÑñπεΘ¿σ º¡áτÑ¡¿⌐: const fmClosed = $D7B0; fmInput = $D7B1; fmOutput = $D7B2; fmInOut = $D7B3; B.Pascal 7 & Objects/LR - 386 - ç¡áτÑ¡¿Ñ fmClosed »«¬áºδóáÑΓ, τΓ« Σá⌐½ ºá¬αδΓ. ç¡áτÑ¡¿∩ fmInput ¿ fmOutput »«¬áºδóáεΓ, τΓ« Σá⌐½ ∩ó½∩ÑΓß∩ ΓÑ¬ßΓ«óδ¼ Σá⌐½«¼ ¿ τΓ« ñ½∩ ¡Ñú« íδ½á óδ»«½¡Ñ¡á »α«µÑñπαá Reset (fmInput) ¿½¿ Rewrite (fmOutput). ç¡áτÑ¡¿Ñ fmOutput »«¬áºδóáÑΓ, τΓ« »ÑαÑ¼Ñ¡¡á∩ Σá⌐½«ó«ú« Γ¿»á ∩ó½∩ÑΓß∩ Γ¿»¿º¿α«óá¡¡δ¼ ¿½¿ ¡ÑΓ¿»¿º¿α«óá¡¡δ¼ Σá⌐- ½«¼, ñ½∩ ¬«Γ«α«ú« íδ½á óδ»«½¡Ñ¡á »α«µÑñπαá Reset ¿½¿ Rewrite. ïε- í«Ñ ñαπú«Ñ º¡áτÑ¡¿Ñ ú«ó«α¿Γ « Γ«¼, τΓ« ñ½∩ Σá⌐½«ó«⌐ »ÑαÑ¼Ñ¡¡«⌐ »α¿ßóá¿óá¡¿Ñ ¡Ñ íδ½« óδ»«½¡Ñ¡« (¿ «¡á, Γá¬¿¼ «íαáº«¼, ¡Ñ ¿¡¿µ¿á- ½¿º¿α«óá¡á). Å«½Ñ UserData ó Borland Pascal ¡Ññ«ßΓπ»¡«, ¿ »«½∞º«óáΓÑ½∞- ß¬¿Ñ »α«úαá¼¼δ ¼«úπΓ ß«σαá¡∩Γ∞ ó ¡Ñ¼ ñá¡¡δÑ. Å«½Ñ Ná¼Ñ ß«ñÑαª¿Γ ¿¼∩ Σá⌐½á, ¬«Γ«α«Ñ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ß¿¼ó«½«ó, «¬á¡τ¿óáεΘπεß∩ ¡π½Ñóδ¼ ß¿¼ó«½«¼ (#0). ä½∩ Γ¿»¿º¿α«óá¡¡δσ ¿ ¡ÑΓ¿»¿º¿α«óá¡¡δσ »«½Ñ⌐ RÑßSizÑ ß«ñÑαª¿Γ ñ½¿¡π ºá»¿ß¿ ó íá⌐Γáσ, á »«½Ñ Érivate ºáαÑºÑαó¿α«óá¡«, ¡« ∩ó½∩ÑΓ- ß∩ ßó«í«ñ¡δ¼. ä½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó BufPtr ∩ó½∩ÑΓß∩ π¬áºáΓÑ½Ñ¼ ¡á íπΣÑα αáº¼Ñα«¼ BufSize, BufP«s »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¿¡ñÑ¬ß ß½ÑñπεΘÑú« ß¿¼ó«½á ó íπΣÑαÑ, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ ºá»¿ßá¡ ¿½¿ »α«τ¿Γá¡, á BufEnd - ßτÑΓτ¿¬ ñ«»πßΓ¿¼δσ ß¿¼ó«½«ó ó íπΣÑαÑ. ô¬áºáΓÑ½¿ OpenFunc, InOutFunc, FlushFunc ¿ CloseFunc ß½πªáΓ ñ½∩ ßßδ½¬¿ ¡á »α«úαá¼¼δ óó«ñá-óδó«ñá ¿ ¿ß»«½∞ºπεΓß∩ ñ½∩ π»αáó½Ñ¡¿∩ Σá⌐½«¼. é â½áóÑ 14 ó αáºñÑ½Ñ »«ñ ºáú½áó¿Ñ¼ "äαá⌐óÑαδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«- óδσ Σá⌐½«ó" »α¿ó«ñ¿Γß∩ ñ«»«½¡¿ΓÑ½∞¡á∩ ¿¡Σ«α¼áµ¿∩ »« φΓ«¼π ó«»α«- ßπ. B.Pascal 7 & Objects/LR - 387 - Åα«µÑñπα¡δÑ Γ¿»δ ───────────────────────────────────────────────────────────────── Åα«µÑñπα¡δÑ Γ¿»δ σαá¡∩Γß∩ ó ó¿ñÑ ñó«⌐¡«ú« ß½«óá. Åα¿ φΓ«¼ ó ¼½áñΦÑ¼ ß½«óÑ ß«ñÑαª¿Γß∩ ß¼ÑΘÑ¡¿Ñ »α«µÑñπαδ, á ó ßΓáαΦÑ¼ - íáº«- óδ⌐ ßÑú¼Ñ¡Γ. Åα∩¼«⌐ ñ«ßΓπ» ¬ »á¼∩Γ¿ ───────────────────────────────────────────────────────────────── é Borland Pascal αÑá½¿º«óá¡δ Γα¿ »αÑñ«»αÑñÑ½Ñ¡¡δσ ¼áßß¿óá Mem, MemW ¿ MemL, ¬«Γ«αδÑ ¿ß»«½∞ºπεΓß∩ ñ½∩ »α∩¼«ú« ñ«ßΓπ»á ¬ »á- ¼∩Γ¿. èáªñδ⌐ ¬«¼»«¡Ñ¡Γ ¼áßß¿óá Mem »αÑñßΓáó½∩ÑΓ ß«í«⌐ íá⌐Γ, ¬áª- ñδ⌐ ¬«¼»«¡Ñ¡Γ ¼áßß¿óá MemW - ß½«ó«, á ¬áªñδ⌐ ¬«¼»«¡Ñ¡Γ MemL - º¡áτÑ¡¿Ñ ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á (Longint). ä½∩ ¿¡ñÑ¬ß¿α«óá¡¿∩ ¼áßß¿óá Mem ¿ß»«½∞ºπÑΓß∩ ß»Ñµ¿á½∞¡δ⌐ ß¿¡- Γá¬ß¿ß. äóá óδαáªÑ¡¿∩ µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á Word, αáºñÑ½Ñ¡¡δÑ ºá»∩- Γδ¼¿, ¿ß»«½∞ºπεΓß∩ ñ½∩ ºáñá¡¿∩ íáº«ó«ú« ßÑú¼Ñ¡Γá ¿ ß¼ÑΘÑ¡¿∩ ∩τÑ⌐- ¬¿ »á¼∩Γ¿, ¬ ¬«Γ«α«⌐ »α«¿ºó«ñ¿Γß∩ ñ«ßΓπ». ìá»α¿¼Ñα: Mem[$0040:$0049] := 7; Data := MemW[Seg(V):Ofs(V)]; MemLong := MemL[64:3*4]; ÅÑαóδ⌐ «»ÑαáΓ«α ºá»¿ßδóáÑΓ º¡áτÑ¡¿Ñ 7 ó íá⌐Γ »« áñαÑßπ $0040:$0049. éΓ«α«⌐ «»ÑαáΓ«α »«¼ÑΘáÑΓ º¡áτÑ¡¿Ñ Γ¿»á Word, ºá»¿- ßá¡¡«Ñ ó »ÑαóδÑ 2 íá⌐Γá »ÑαÑ¼Ñ¡¡«⌐ V, ó »ÑαÑ¼Ñ¡¡πε Data. ÆαÑΓ¿⌐ «»ÑαáΓ«α »«¼ÑΘáÑΓ º¡áτÑ¡¿Ñ Γ¿»á Longint, ºá»¿ßá¡¡«Ñ »« áñαÑßπ $0040:$000C, ó »ÑαÑ¼Ñ¡¡πε MemLong. Åα∩¼«⌐ ñ«ßΓπ» ¬ »«αΓá¼ ───────────────────────────────────────────────────────────────── ä½∩ ñ«ßΓπ»á ¬ »«αΓá¼ ñá¡¡δσ »α«µÑßß«αá 80σ86 Borland Pascal αÑá½¿ºπÑΓ ñóá »αÑñ«»αÑñÑ½Ñ¡¡δσ ¼áßß¿óá - Port ¿ PortW. Äíá φΓ¿ ¼áßß¿óá ∩ó½∩εΓß∩ «ñ¡«¼Ñα¡δ¼¿ ¼áßß¿óá¼¿, úñÑ ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ »αÑñß- Γáó½∩ÑΓ »«αΓ ñá¡¡δσ, áñαÑß ¬«Γ«α«ú« ß««ΓóÑΓßΓóπÑΓ ¿¡ñÑ¬ßπ. ê¡ñÑ¬ß ¿¼ÑÑΓ Γ¿» Word. ¥½Ñ¼Ñ¡Γδ ¼áßß¿óá Port ¿¼ÑεΓ Γ¿»á Byte, á φ½Ñ¼Ñ¡Γδ ¼áßß¿óá PortW - Word. è«úñá φ½Ñ¼Ñ¡Γá¼¿ ¼áßß¿óá Port ¿½¿ PortW »α¿ßóá¿óáÑΓß∩ º¡áτÑ- ¡¿Ñ, «¡« óδó«ñ¿Γß∩ ó óδíαá¡¡δ⌐ »«αΓ. è«úñá ¡á φ½Ñ¼Ñ¡Γδ φΓ¿σ ¼áß- ß¿ó«ó ¿¼ÑεΓß∩ ßßδ½¬¿ ó óδαáªÑ¡¿∩σ, Γ« º¡áτÑ¡¿Ñ óó«ñ¿Γß∩ ¿º ºáñá¡- ¡«ú« »«αΓá. êß»«½∞º«óá¡¿Ñ ¼áßß¿ó«ó Port ¿ PortW «úαá¡¿τÑ¡« Γ«½∞¬« »α¿ß- óá¿óá¡¿Ñ¼ ¿ ßßδ½¬á¼¿ ó óδαáªÑ¡¿∩σ, Γ« ÑßΓ∞ φ½Ñ¼Ñ¡Γδ φΓ¿σ ¼áßß¿ó«ó ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ »áαá¼ÑΓα«ó-»ÑαÑ¼Ñ¡¡δσ. èα«¼Ñ Γ«ú«, ßßδ½¬¿ ¡á óÑß∞ ¼áßß¿ó Port ¿½¿ PortW (íÑº ¿¡ñÑ¬ßá) ¡Ñ ñ«- »πß¬áεΓß∩. B.Pascal 7 & Objects/LR - 388 - ─────────────────────────────────────────────────────────────────────── â½áóá 22. é«»α«ßδ π»αáó½Ñ¡¿∩ ───────────────────────────────────────────────────────────────── é ñá¡¡«⌐ ú½áóÑ »«ñα«í¡« «»¿ßδóáεΓß∩ αáº½¿τ¡δÑ ß»«ß«íδ αÑá½¿- ºáµ¿¿ ó Borland Pascal π»αáó½Ñ¡¿∩ »α«úαá¼¼«⌐. æεñá ó¬½ετÑ¡δ ß«ú- ½áΦÑ¡¿∩ »« óδº«óá¼, »α«µÑñπαδ óδσ«ñá, «íαáí«Γ¬á »αÑαδóá¡¿⌐ ¿ «í- αáí«Γ¬á «Φ¿í«¬. æ«ú½áΦÑ¡¿∩ »« óδº«óá¼ ───────────────────────────────────────────────────────────────── Åáαá¼ÑΓαδ »α«µÑñπαá¼ ¿ Σπ¡¬µ¿∩¼ »ÑαÑñáεΓß∩ τÑαÑº ßΓÑ¬. ÅÑαÑñ óδº«ó«¼ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ »áαá¼ÑΓαδ »«¼ÑΘáεΓß∩ ó ßΓÑ¬ ó »«- α∩ñ¬Ñ ¿σ «»¿ßá¡¿∩. ÅÑαÑñ óδσ«ñ«¼ ¿º »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ óßÑ »á- αá¼ÑΓαδ ¿ºó½Ñ¬áεΓß∩ ¿º ßΓÑ¬á. Åα¿¼Ñα¡δ⌐ óδº«ó »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¼«ª¡« »αÑñßΓáó¿Γ∞ ß½Ñ- ñπεΘ¿¼ «íαáº«¼: PUSH Param1 PUSH Param2 . . . PUSH ParamX Call ProcOrFunc Åáαá¼ÑΓαδ ¼«úπΓ »ÑαÑñáóáΓ∞ß∩ »« ßßδ½¬Ñ ¿½¿ »« º¡áτÑ¡¿ε. è«ú- ñá »áαá¼ÑΓα »ÑαÑñáÑΓß∩ »« ßßδ½¬Ñ, Γ« π¬áºáΓÑ½∞, ¬«Γ«αδ⌐ ßßδ½áÑΓß∩ ¡á αÑá½∞¡πε ∩τÑ⌐¬π »á¼∩Γ¿, »«¼ÑΘáÑΓß∩ ó ßΓÑ¬. è«úñá »áαá¼ÑΓα »Ñ- αÑñáÑΓß∩ »« º¡áτÑ¡¿ε, ó ßΓÑ¬ »«¼ÑΘáÑΓß∩ ßá¼« Σá¬Γ¿τÑß¬«Ñ º¡áτÑ- ¡¿Ñ. Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ ───────────────────────────────────────────────────────────────── Åáαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ (»áαá¼ÑΓαδ var) óßÑúñá »ÑαÑñáεΓß∩ »« ßßδ½¬Ñ, Γ« ÑßΓ∞ π¬áºáΓÑ½∞ ßßδ½áÑΓß∩ ¡á ∩τÑ⌐¬π »á¼∩Γ¿ ß Σá¬Γ¿τÑß- ¬¿¼ º¡áτÑ¡¿Ñ¼. Åáαá¼ÑΓαδ-º¡áτÑ¡¿∩ ───────────────────────────────────────────────────────────────── Åáαá¼ÑΓαδ-º¡áτÑ¡¿∩ »ÑαÑñáεΓß∩ »« º¡áτÑ¡¿ε ¿½¿ »« ßßδ½¬Ñ, ó ºáó¿ß¿¼«ßΓ¿ «Γ ¿σ Γ¿»á ¿ αáº¼Ñαá. é «íΘÑ¼ ß½πτáÑ, Ñß½¿ »áαá- ¼ÑΓα-º¡áτÑ¡¿Ñ ºá¡¿¼áÑΓ 1, 2 ¿½¿ 4 íá⌐Γá, Γ« º¡áτÑ¡¿Ñ »«¼ÑΘáÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ßΓÑ¬. é »α«Γ¿ó¡«¼ ß½πτáÑ ó ßΓÑ¬ »«¼ÑΘáÑΓß∩ π¬á- ºáΓÑ½∞ ¡á º¡áτÑ¡¿Ñ, á »α«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ¬«»¿απÑΓ ºáΓÑ¼ º¡áτÑ- ¡¿Ñ ó ½«¬á½∞¡πε ∩τÑ⌐¬π »á¼∩Γ¿. é »α«µÑßß«αÑ 8086 ¡Ñ »«ññÑαª¿óáεΓß∩ íá⌐Γ«óδÑ ¿¡ßΓαπ¬µ¿¿ ÉUSì ¿ ÉÄÉ, »«φΓ«¼π íá⌐Γ«óδÑ »áαá¼ÑΓαδ óßÑúñá »ÑαÑñáεΓß∩ ó ßΓÑ¬Ñ, ¬á¬ ß½«óá. î½áñΦ¿⌐ íá⌐Γ ß½«óá ß«ñÑαª¿Γ º¡áτÑ¡¿Ñ, á ßΓáαΦ¿⌐ íá⌐Γ ß½«óá B.Pascal 7 & Objects/LR - 389 - ßó«í«ñÑ¡ (¿ ¡Ñ«»αÑñÑ½Ñ¡). ç¡áτÑ¡¿Ñ ¿½¿ »áαá¼ÑΓα µÑ½«ú« Γ¿»á »ÑαÑñáÑΓß∩ ¬á¬ íá⌐Γ, ß½«ó« ¿½¿ ñó«⌐¡«Ñ ß½«ó«. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩ Γá¬«⌐ ªÑ Σ«α¼áΓ, ¬á¬ ñ½∩ »αÑñßΓáó½Ñ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ µÑ½«ú« Γ¿»á. (ä½∩ ñó«⌐¡δσ ß½«ó ßΓáαΦÑÑ ß½«ó« »«¼ÑΘáÑΓß∩ ó ßΓÑ¬ »ÑαÑñ ¼½áñΦ¿¼ ß½«ó«¼, Γá¬ τΓ« ¼½áñΦÑÑ ß½«ó« αáº¼ÑΘáÑΓß∩ ó í«½ÑÑ ¼½áñΦ¿σ áñαÑßáσ.) Åáαá¼ÑΓα ß¿¼ó«½∞¡«ú« Γ¿»á (Char) »ÑαÑñáÑΓß∩, ¬á¬ íá⌐Γ íÑº º¡á¬á. Åáαá¼ÑΓα íπ½Ñóß¬«ú« Γ¿»á (Boolean) »ÑαÑñáÑΓß∩, ¬á¬ íá⌐Γ ß« º¡áτÑ¡¿Ñ¼ 0 ¿½¿ 1. Åáαá¼ÑΓα »ÑαÑτ¿ß½¿¼«ú« Γ¿»á »ÑαÑñáÑΓß∩, ¬á¬ íá⌐Γ íÑº º¡á¬á, Ñß½¿ ¡π¼Ñαáµ¿∩ ¡Ñ »αÑóδΦáÑΓ 256. é »α«Γ¿ó¡«¼ ß½πτáÑ «¡ »ÑαÑñáÑΓ- ß∩, ¬á¬ ß½«ó« íÑº º¡á¬á. Åáαá¼ÑΓα óÑΘÑßΓóÑ¡¡«ú« Γ¿»á (Real, º¡áτÑ¡¿∩ ß «ñ¿¡áα¡«⌐, ñó«⌐¡«⌐ ¿½¿ »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿½¿ ß½«ª¡«ú« Γ¿»á - Single, Double, Extended, Comp), »ÑαÑñáεΓß∩ τÑαÑº ßΓÑ¬ ¬á¬ 4, 6, 8 ¿½¿ 10 íá⌐Γ. ¥Γ« ∩ó½∩ÑΓß∩ ¿ß¬½ετÑ¡¿Ñ¼ ¿º Γ«ú« »αáó¿½á, τΓ« 1-, 2- ¿ 4-íá⌐Γ«óδÑ º¡áτÑ¡¿Ñ »ÑαÑñáεΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« ó ßΓÑ¬Ñ. Åáαá¼ÑΓα Γ¿»á π¬áºáΓÑ½∞ »ÑαÑñáÑΓß∩ ó ó¿ñÑ ñó«⌐¡«ú« ß½«óá (áñαÑß ßÑú¼Ñ¡Γá »«¼ÑΘáÑΓß∩ ó ßΓÑ¬ »ÑαÑñ ß¼ÑΘÑ¡¿Ñ¼, Γá¬ τΓ« τáßΓ∞, »αÑñßΓáó½∩εΘá∩ ß«í«⌐ ß¼ÑΘÑ¡¿Ñ, ºá¬á¡τ¿óáÑΓß∩ ó ßá¼«¼ ¼½áñΦÑ¼ áñ- αÑßÑ). Åáαá¼ÑΓα ßΓα«¬«ó«ú« Γ¿»á »ÑαÑñáÑΓß∩, ¬á¬ π¬áºáΓÑ½∞ ¡á º¡áτÑ- ¡¿Ñ. Åáαá¼ÑΓα ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á »ÑαÑñáÑΓß∩ ó ó¿ñÑ íá⌐Γá (Ñß½¿ úαá¡¿µδ φ½Ñ¼Ñ¡Γá πßΓá¡«ó½Ñ¡δ ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 7) ¿½¿ ß½«óá (Ñß½¿ úαá¡¿µδ φ½Ñ¼Ñ¡Γá πßΓá¡«ó½Ñ¡δ ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 15). é »α«Γ¿ó¡«¼ ß½πτáÑ «¡« »ÑαÑñáÑΓß∩ ó ó¿ñÑ π¬áºáΓÑ½∩ ¡á "¡Ñπ»á¬«óá¡- ¡«Ñ" ¼¡«ªÑßΓó« ñ½¿¡«⌐ 32 íá⌐Γá. îáßß¿ó ¿½¿ ºá»¿ß∞ ¿º 1, 2 ¿½¿ 4 íá⌐Γ »«¼ÑΘáÑΓß∩ ¡Ñ»«ßαÑñß- ΓóÑ¡¡« ó ßΓÑ¬. äαπú¿Ñ ¼áßß¿óδ ¿ ºá»¿ß¿ »ÑαÑñáεΓß∩, ¬á¬ π¬áºáΓÑ½¿ ¡á º¡áτÑ¡¿∩. ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ ───────────────────────────────────────────────────────────────── ÄΓ¬αδΓδÑ ßΓα«¬«óδÑ »áαá¼ÑΓαδ »ÑαÑñáεΓß∩ ºá¡ÑßÑ¡¿Ñ¼ ó ßΓÑ¬ ß¡áτá½á π¬áºáΓÑ½∩ ¡á ßΓα«¬π, á ºáΓÑ¼ ß½«óá, ß«ñÑαªáΘÑú« áΓα¿íπΓ αáº¼Ñαá (¼á¬ß¿¼á½∞¡πε ñ½¿¡π ßΓα«¬¿). ÄΓ¬αδΓδÑ »áαá¼ÑΓαδ-¼áßß¿óδ »ÑαÑñáεΓß∩ ºá¡ÑßÑ¡¿Ñ¼ ó ßΓÑ¬ ß¡á- τá½á π¬áºáΓÑ½∩ ¡á ¼áßß¿ó, á ºáΓÑ¼ ß½«óá, ß«ñÑαªáΘÑú« áΓα¿íπΓ αáº- ¼Ñαá (τ¿ß½« φ½Ñ¼Ñ¡Γ«ó ¼áßß¿óá ¼¿¡πß 1). B.Pascal 7 & Objects/LR - 390 - Åα¿ ¿ß»«½∞º«óá¡¿¿ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá, º¡áτÑ¡¿Ñ, ó«ºóαá- ΘáÑ¼«Ñ ñ½∩ «Γ¬αδΓ«ú« »áαá¼ÑΓαá ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ Σπ¡¬µ¿¿ High, ¼«ª¡« »«½πτ¿Γ∞, ºáúαπªá∩ ß½«ó« ¡Ñ»«ßαÑñßΓóÑ¡¡« »«ñ «Γ¬αδΓδ¼ »áαá¼ÑΓα«¼. é ñá¡¡«¼ »α¿¼ÑαÑ φΓ« ñÑ¼«¡ßΓα¿απÑΓ »α«µÑñπαá FillString, ºá»«½¡∩εΘá∩ ßΓα«¬π ñ« ÑÑ ¼á¬ß¿¼á½∞¡«⌐ ñ½¿¡δ π¬áºá¡¡δ¼ ß¿¼ó«½«¼. procedure FillString(var Str: OpenString; Chr: Char); assebmler; asm LES DI,Str { ES:DI = @Str } MOV CX,Str,Str.Word[-2] { Cx = igh(Str) } MOV AL,CL CLD STOSB { πßΓá¡«ó¿Γ∞ Str[0] } MOV AL,Chr REP STOSB { πßΓá¡«ó¿Γ∞ Str[1..High] } end; ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿⌐ ───────────────────────────────────────────────────────────────── ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿⌐ »«α∩ñ¬«ó«ú« Γ¿»á ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓαáσ µÑ¡Γαá½∞¡«ú« »α«µÑßß«αá: íá⌐Γδ ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓαÑ AL, ß½«óá - ó αÑú¿ßΓαÑ Aò, ñó«⌐¡δÑ ß½«óá - ó DX:AX (ßΓáαΦÑÑ ß½«ó« - ó Dò, ¼½áñΦÑÑ - ó Aò). ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿⌐ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á (º¡áτÑ¡¿∩ óÑΘÑßΓóÑ¡¡«- ú« Γ¿»á Real) ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓαáσ Dò:éò:AX (ßΓáαΦÑÑ ß½«ó« - ó αÑú¿ßΓαÑ Dò, ßαÑñ¡ÑÑ ß½«ó« - ó αÑú¿ßΓαÑ éò, ¼½áñΦÑÑ ß½«ó« - ó AX). ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿¿, ¿¼ÑεΘ¿Ñ «ñ¿¡ ¿º Γ¿»«ó, ¿ß»«½∞ºπεΘ¿σß∩ ó »α«µÑßß«αÑ 8087, (º¡áτÑ¡¿∩ ß «ñ¿¡áα¡«⌐, ñó«⌐¡«⌐ ¿½¿ »«óδΦÑ¡¡«⌐ Γ«τ¡«ßΓ∞ε ¿½¿ ß½«ª¡«ú« Γ¿»á - Single, Double, Extended ¿ Comp), ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓαÑ óÑαΦ¿¡δ ßΓÑ¬á ß«»α«µÑßß«αá 8087 (SÆ(0)). ÉÑºπ½∞ΓáΓδ Σπ¡¬µ¿¿ Γ¿»á π¬áºáΓÑ½∞ ó«ºóαáΘáεΓß∩ ó αÑú¿ßΓαÑ Dò: AX (áñαÑß ßÑú¼Ñ¡Γá - ó Dò, á ß¼ÑΘÑ¡¿Ñ - ó AX). ùΓ« ¬áßáÑΓß∩ αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿ ßΓα«¬«ó«ú« Γ¿»á, Γ« óδºδóáε- Θá∩ »α«úαá¼¼á »«¼ÑΘáÑΓ ó ßΓÑ¬ »ÑαÑñ »ÑαÑñáτÑ⌐ ¬á¬¿σ-½¿í« »áαá¼ÑΓ- α«ó óαÑ¼Ñ¡¡πε ∩τÑ⌐¬π »á¼∩Γ¿, á Σπ¡¬µ¿∩ ó«ºóαáΘáÑΓ ßΓα«¬«ó«Ñ º¡á- τÑ¡¿Ñ ó φΓ«⌐ óαÑ¼Ñ¡¡«⌐ ∩τÑ⌐¬Ñ. öπ¡¬µ¿∩ ¡Ñ ñ«½ª¡á πñá½∩Γ∞ π¬áºá- ΓÑ½∞. B.Pascal 7 & Objects/LR - 391 - ü½¿ª¡¿Ñ ¿ ñá½∞¡¿Ñ Γ¿»δ óδº«ó«ó ───────────────────────────────────────────────────────────────── é µÑ¡Γαá½∞¡«¼ »α«µÑßß«αÑ 8086 »«ññÑαª¿óáÑΓß∩ ñóá Γ¿»á óδº«- ó«ó ¿ ¿¡ßΓαπ¬µ¿⌐ ó«ºóαáΓá π»αáó½Ñ¡¿∩ - í½¿ª¡¿Ñ (NEAR) ¿ ñá½∞¡¿Ñ (FAR). ü½¿ª¡¿Ñ óδº«óδ »ÑαÑñáεΓ π»αáó½Ñ¡¿Ñ ñαπú«⌐ ∩τÑ⌐¬Ñ ó »αÑñÑ- ½áσ Γ«ú« ªÑ »α«úαá¼¼¡«ú« ßÑú¼Ñ¡Γá, á ñá½∞¡¿Ñ óδº«óδ »«ºó«½∩εΓ »Ñ- αÑ⌐Γ¿ ó ñαπú«⌐ »α«úαá¼¼¡δ⌐ ßÑú¼Ñ¡Γ. ê¡ßΓαπ¬µ¿∩ í½¿ª¡Ñú« «íαáΘÑ¡¿∩ CALL »«¼ÑΘáÑΓ ó ßΓÑ¬ 16-í¿Γ«- óδ⌐ áñαÑß ó«ºóαáΓá (Γ«½∞¬« ß¼ÑΘÑ¡¿Ñ), á ¿¡ßΓαπ¬µ¿∩ ñá½∞¡Ñú« óδº«- óá »«¼ÑΘáÑΓ ó ßΓÑ¬ 32-í¿Γ«óδ⌐ áñαÑß ó«ºóαáΓá (áñαÑß ßÑú¼Ñ¡Γá ¿ ß¼ÑΘÑ¡¿Ñ). æ««ΓóÑΓßΓóπεΘá∩ ¿¡ßΓαπ¬µ¿∩ RET ¿ºó½Ñ¬áÑΓ ¿º ßΓÑ¬á Γ«½∞¬« ß¼ÑΘÑ¡¿Ñ ¿½¿ áñαÑß ßÑú¼Ñ¡Γá ¿ ß¼ÑΘÑ¡¿Ñ. ìá «ß¡«óÑ «»¿ßá¡¿∩ »α«µÑñπαδ ó Borland Pascal íπñÑΓ áóΓ«¼á- Γ¿τÑß¬¿ óδí¿αáΓ∞ß∩ »αáó¿½∞¡δ⌐ Γ¿» «íαáΘÑ¡¿∩. Åα«µÑñπαδ, «»¿ßá¡¡δÑ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ¼«ñπ½∩ ß««ΓóÑΓßΓóπεΓ ñá½∞¡Ñ¼π «íαáΘÑ¡¿ε ¿ ¼«úπΓ óδºδóáΓ∞ß∩ ¿º ñαπú¿σ í½«¬«ó. Åα«µÑñπαδ, «»¿ßá¡¡δÑ ó »α«ú- αá¼¼Ñ ó ßÑ¬µ¿¿ αÑá½¿ºáµ¿¿ ¼«ñπ½∩ (implementation), ∩ó½∩εΓß∩ í½¿ª- ¡¿¼¿ ¿ ¼«úπΓ óδºδóáΓ∞ß∩ Γ«½∞¬« ¿º φΓ«⌐ »α«úαá¼¼δ ¿½¿ ñá¡¡«ú« ¼«- ñπ½∩. ä½∩ ¡Ñ¬«Γ«αδσ ¬«¡¬αÑΓ¡δσ µÑ½Ñ⌐ ¼«ª¡« »«ΓαÑí«óáΓ∞, τΓ«íδ »α«- µÑñπαá ¿¼Ñ½á ñá½∞¡¿⌐ Γ¿» óδº«óá. ìá»α¿¼Ñα, »α«µÑñπαá óδσ«ñá, ñαá⌐óÑαδ πßΓα«⌐ßΓó ñ½∩ ΓÑ¬ßΓ«óδσ Σá⌐½«ó ¿ ñαπú¿Ñ ßαÑñßΓóá, ¿ß- »«½∞ºπεΘ¿Ñ π¬áºáΓÑ½¿ ¡á »α«µÑñπαδ. ä¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá {$F+} π¬áºδóáÑΓ ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ ¿ß»«½∞º«óá¡¿∩ ñá½∞¡Ñú« Γ¿»á óδº«ó«ó. Åα«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ß¬«¼»¿½¿α«óá¡¡δÑ ß ñá¡¡«⌐ ñ¿αÑ¬Γ¿ó«⌐, óßÑúñá íπñπΓ ¿¼ÑΓ∞ ñá½∞¡¿⌐ Γ¿» óδº«óá. Åα¿ ¿ß»«½∞º«óá¡¿¿ ó Borland Pascal ñ¿αÑ¬Γ¿óδ {$F-} »αáó¿½∞¡á∩ ßσÑ¼á óδº«óá íπñÑΓ óδ- í¿αáΓ∞ß∩ áóΓ«¼áΓ¿τÑß¬¿. Å« π¼«½τá¡¿ε ¡áº¡áτáÑΓß∩ αÑª¿¼ {$F-}. é½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ───────────────────────────────────────────────────────────────── Åα«µÑñπαá ¿½¿ Σπ¡¬µ¿∩ ßτ¿ΓáÑΓß∩ ó½«ªÑ¡¡«⌐, ¬«úñá «¡á «»¿ßδ- óáÑΓß∩ ó¡πΓα¿ ñαπú«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Å« π¼«½τá¡¿ε ó½«ªÑ¡- ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ óßÑúñá ¿ß»«½∞ºπεΓ í½¿ª¡¿⌐ Γ¿» óδº«óá (NEAR), »«ß¬«½∞¬π «¡¿ ñ«ßΓπ»¡δ Γ«½∞¬« ó¡πΓα¿ «»αÑñÑ½Ñ¡¡«⌐ »α«µÑ- ñπαδ ¿½¿ Σπ¡¬µ¿¿ ó Γ«¼ ªÑ ßÑú¼Ñ¡ΓÑ ¬«ñá. Äñ¡á¬« ó «óÑα½Ñ⌐¡δσ ºá- ñáτáσ «íδτ¡« ñ½∩ Γ«ú«, τΓ«íδ «íÑß»Ñτ¿Γ∞ ñ½∩ óßÑσ »α«µÑñπα ¿ Σπ¡¬- µ¿⌐ ñá½∞¡¿⌐ Γ¿» óδº«óá (FAR), ¿ß»«½∞ºπÑΓß∩ ñ¿αÑ¬Γ¿óá {$F+}. Åα¿ óδº«óÑ ó½«ªÑ¡¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ¬«¼»¿½∩Γ«α ¡Ñ»«ß- αÑñßΓóÑ¡¡« »ÑαÑñ ¿¡ßΓαπ¬µ¿Ñ⌐ CALL úÑ¡Ñα¿απÑΓ ¿¡ßΓαπ¬µ¿ε PUSH BP, Σá¬Γ¿τÑß¬¿ »ÑαÑñáóá∩ αÑú¿ßΓα BP óδºδóáεΘÑ⌐ »α«úαá¼¼δ ó ¬áτÑßΓóÑ ñ«»«½¡¿ΓÑ½∞¡«ú« »áαá¼ÑΓαá. Å«ß½Ñ Γ«ú«, ¬á¬ óδºδóáÑ¼á∩ »α«µÑñπαá πßΓá¡«ó¿Γ ßó«⌐ ß«íßΓóÑ¡¡δ⌐ αÑú¿ßΓα BP, αÑú¿ßΓα éÉ óδºδóáεΘÑ⌐ »α«- µÑñπαδ ñ«ßΓπ»Ñ¡, ¬á¬ ß½«ó«, ß«σαá¡Ñ¡¡«Ñ ó [BP+4] ¿½¿ ó [BP+6] (Ñß½¿ »α«µÑñπαá ¿¼ÑÑΓ ñá½∞¡¿⌐ Γ¿» óδº«óá). êß»«½∞ºπ∩ ßó∩º∞ τÑαÑº [BP+4] ¿ [BP+6], óδºδóáÑ¼á∩ »α«µÑñπαá ¼«ªÑΓ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ½«- B.Pascal 7 & Objects/LR - 392 - ¬á½∞¡δ¼ »ÑαÑ¼Ñ¡¡δ¼ ó úαá¡¿µáσ ßΓÑ¬á óδºδóáεΘÑ⌐ »α«µÑñπαδ. æ½Ññπε- Θ¿⌐ »α¿¼Ñα »«¬áºδóáÑΓ, ¬á¬ ¼«ª¡« »«½πτ¿Γ∞ ñ«ßΓπ» ¬ ½«¬á½∞¡δ¼ »Ñ- αÑ¼Ñ¡¡δ¼ ¿º «»ÑαáΓ«αá inline ó« ó½«ªÑ¡¡«⌐ »α«µÑñπαÑ: procedure A; near; var IntA: integer; procedure B; far; var IntB: integer; procedure C; near; var IntC: integer; begin inline( $8B/$46/<IntC>/ { MOV AX,[BP+IntC] ;AX = IntC } $8B/$5E/$04/ { MOV BX,[BP+4] ;BX = ßΓÑ¬ é } $36/$8b/$47/<IntB>/ { MOV AX,SS:[BX+IntB] ;AX = IntB } $8B/$5E/$04/ { MOV BX,[BP+4] ;BX = ßΓÑ¬ B } $36/8B/$5F/$06/ { MOV BX,SS:[BX+6] ;BX = ßΓÑ¬ A } $36/$8B/$47/<IntA>); { MOV AX,SS:[BX+IntA] ;AX =IntA } end; begin C end; begin B end; Åα¿¼Ñτá¡¿Ñ: é½«ªÑ¡¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¡Ñ½∞º∩ «»¿ßδ- óáΓ∞ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ external, ¿ «¡¿ ¡Ñ ¼«úπΓ ¿¼ÑΓ∞ »á- αá¼ÑΓαδ »α«µÑñπα¡«ú« Γ¿»á. Åα¿¼Ñτá¡¿Ñ: ü½«¬ inline ó »α¿óÑñÑ¡¡«¼ »α¿¼ÑαÑ ¼«ª¡« ºá»¿ßáΓ∞ Γá¬ªÑ ó ó¿ñÑ: begin asm MOV AX,[BP+IntC] { AX = IntC } MOV BX,[BP+4] { BX = ßΓÑ¬ é } MOV AX,SS:[BX+IntB] { AX = IntB } MOV BX,[BP+4] { BX = ¬áñα ßΓÑ¬ B } MOV BX,SS:[BX+6] { BX = ¬áñα ßΓÑ¬ A } MOV AX,SS:[BX+IntA] { AX =IntA } end; end; æ«ú½áΦÑ¡¿∩ « óδº«óáσ ¼ÑΓ«ñ«ó ───────────────────────────────────────────────────────────────── îÑΓ«ñδ ¿ß»«½∞ºπεΓ ΓÑ ªÑ ß«ú½áΦÑ¡¿∩ « óδº«óáσ, τΓ« ¿ «íδτ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ºá ΓÑ¼ ¿ß¬½ετÑ¡¿Ñ¼, τΓ« ¬áªñδ⌐ ¼ÑΓ«ñ ¿¼ÑÑΓ ¡Ñ∩ó¡δ⌐ ñ«»«½¡¿ΓÑ½∞¡δ⌐ »áαá¼ÑΓα Self, ¬«Γ«αδ⌐ ß««ΓóÑΓßΓóπÑΓ »áαá- ¼ÑΓαπ-»ÑαÑ¼Ñ¡¡«⌐ Γ«ú« ªÑ Γ¿»á, τΓ« ¿ «íΩÑ¬Γ¡δ⌐ Γ¿» ñá¡¡«ú« ¼ÑΓ«- ñá. Åáαá¼ÑΓα Self óßÑúñá »ÑαÑñáÑΓß∩ »«ß½Ññ¡¿¼ ¿ óßÑúñá ¿¼ÑÑΓ Σ«α- ¼π 32-αáºα∩ñ¡«ú« π¬áºáΓÑ½∩ ¡á φ¬ºÑ¼»½∩α, ¿º ¬«Γ«α«ú« óδºδóáÑΓß∩ B.Pascal 7 & Objects/LR - 393 - ¼ÑΓ«ñ. ìá»α¿¼Ñα, Ñß½¿ »ÑαÑ¼Ñ¡¡á∩ PP ¿¼ÑÑΓ Γ¿» PPoint, ¬á¬ «»αÑñÑ- ½Ñ¡« óδΦÑ, Γ« óδº«ó PP^.MoveTo (10, 20) ¬«ñ¿απÑΓß∩ ß½ÑñπεΘ¿¼ «í- αáº«¼: mov ax, 10 ; ºáúαπº¿Γ∞ 10 ó AX push ax ; »ÑαÑñáΓ∞ PX ¬á¬ »áαá¼ÑΓα mov ax, 20 ; ºáúαπº¿Γ∞ 20 ó AX push ax ; »ÑαÑñáΓ∞ PY ¬á¬ »áαá¼ÑΓα les di, PP ; ºáúαπº¿Γ∞ PP ó ES:DI push es ; »ÑαÑñáΓ∞, ¬á¬ »áαá¼ÑΓα Self push di mov di, es:[di + 6] ; ¿ºó½Ñτ∞ ß¼ÑΘÑ¡¿Ñ Æéî ¿º »«½∩ Æéî call DWORD PTR [di + 16] ; óδºóáΓ∞ ºá»¿ß∞ Æéî ñ½∩ MoveTo é« óαÑ¼∩ ó«ºóαáΓá ¼ÑΓ«ñ ñ«½ªÑ¡ πñá½¿Γ∞ »áαá¼ÑΓα Self ¿º ßΓÑ- ¬á Γ«τ¡« Γá¬ ªÑ, ¬á¬ «¡ πñá½∩ÑΓ «íδτ¡δÑ »áαá¼ÑΓαδ. îÑΓ«ñδ óßÑúñá ¿ß»«½∞ºπεΓ ñá½∞¡¿⌐ Γ¿» óδº«óá, ¡Ñºáó¿ß¿¼« «Γ ß«ßΓ«∩¡¿∩ ñ¿αÑ¬Γ¿óδ $F ¬«¼»¿½∩Γ«αá. B.Pascal 7 & Objects/LR - 394 - éδº«óδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ───────────────────────────────────────────────────────────────── ä½∩ óδº«óá ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá ¬«¼»¿½∩Γ«α úÑ¡Ñα¿απÑΓ ¬«ñ, ¬«Γ«αδ⌐ óδí¿αáÑΓ áñαÑß Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ¿º »«½∩ Γáí½¿- µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó «íΩÑ¬Γá, ¿ ºáΓÑ¼ óδºδóáÑΓ ¼ÑΓ«ñ, ¿ß»«½∞ºπ∩ ßó∩ºá¡¡πε ß ¡¿¼ Γ«τ¬π óσ«ñá. ìá»α¿¼Ñα, Ñß½¿ ñá¡á »ÑαÑ¼Ñ¡¡á∩ PP Γ¿»á Point, Γ« óδº«ó PP^.Show íπñÑΓ úÑ¡Ñα¿α«óáΓ∞ ß½ÑñπεΘ¿⌐ ¬«ñ: les di, PP ; ºáúαπº¿Γ∞ PP ó ES:DI push es ; »ÑαÑñáΓ∞, ¬á¬ »áαá¼ÑΓα Self push di mov di, es:[di + 6] ; ¿ºó½Ñτ∞ ß¼ÑΘÑ¡¿Ñ Æéî ¿º »«½∩ Æéî call DWORD PTR [di + 12] ; óδºóáΓ∞ ºá»¿ß∞ Æéî ñ½∩ Show Åαáó¿½á ß«ó¼ÑßΓ¿¼«ßΓ¿ Γ¿»«ó ñ½∩ «íΩÑ¬Γ¡δσ Γ¿»«ó »«ºó«½∩εΓ PP π¬áºδóáΓ∞ ¡á Point ¿ ¡á TCircle ¿½¿ ¡á ½εíδσ ñαπú¿σ »«Γ«¼¬«ó TPoint. ê Ñß½¿ óδ »α«ß¼«Γα¿ΓÑ »«¬áºá¡¡δÑ ºñÑß∞ Γáí½¿µδ ó¿αΓπá½∞- ¡δσ ¼ÑΓ«ñ«ó, Γ« óδ πó¿ñ¿ΓÑ, τΓ« ñ½∩ Γ¿»á TPoint Γ«τ¬á óσ«ñá ß« ß¼ÑΘÑ¡¿Ñ¼ 12 ó Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó π¬áºδóáÑΓ ¡á TPoint.Show. Æá¬¿¼ «íαáº«¼, ó ºáó¿ß¿¼«ßΓ¿ «Γ Σá¬Γ¿τÑß¬«ú« ó« óαÑ- ¼∩ óδ»«½¡Ñ¡¿∩ Γ¿»á PP, ¿¡ßΓαπ¬µ¿∩ CALL óδºδóáÑΓ ½¿í« TPoint.Show, ½¿í« TCircle.Show, ½¿í« ¼ÑΓ«ñ ½εí«ú« ñαπú«ú« »«Γ«¼¬á TPoint. àß½¿ Show ∩ó½∩ÑΓß∩ ßΓáΓ¿τÑß¬¿¼ ¼ÑΓ«ñ«¼, Γ« ñ½∩ óδº«óá PP.Show íπñÑΓ úÑ¡Ñα¿α«óáΓ∞ß∩ ß½ÑñπεΘ¿⌐ ¬«ñ: les di, PP ; ºáúαπº¿Γ∞ PP ó ES:DI push es ; »ÑαÑñáΓ∞, ¬á¬ »áαá¼ÑΓα Self push di call TPoint.Show ; ¡Ñ»«ßαÑñßΓóÑ¡¡« óδºóáΓ∞ TPonit.Show é ñá¡¡«¼ ß½πτáÑ ¡Ñ ¿¼ÑÑΓ º¡áτÑ¡¿∩, ¡á τΓ« π¬áºδóáÑΓ PP, ¿ ¬«ñ óßÑúñá íπñÑΓ óδºδóáΓ∞ ¼ÑΓ«ñ TPoint.Show. B.Pascal 7 & Objects/LR - 395 - éδº«óδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ───────────────────────────────────────────────────────────────── ä¿ß»ÑΓτÑα¿ºáµ¿∩ óδº«óá ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá ¡Ñß¬«½∞¬« í«½ÑÑ ß½«ª¡á ¿ ΓαÑíπÑΓ í«½∞ΦÑ óαÑ¼Ñ¡¿, τÑ¼ ñ¿ß»ÑΓτÑα¿ºáµ¿∩ ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá. é¼ÑßΓ« ¿ß»«½∞º«óá¡¿∩ ¿¡ßΓαπ¬µ¿¿ CALL ñ½∩ óδº«óá τÑαÑº π¬áºáΓÑ½∞ ¼ÑΓ«ñá »« ßΓáΓ¿τÑß¬«¼π ß¼ÑΘÑ¡¿ε ó Γáí½¿µÑ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, Γáí½¿µá ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó «íΩÑ¬Γ¡«ú« Γ¿»á ¿ Γáí½¿µá ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó Ñú« »αÑñ¬á ñ«½ª¡δ »α«ß¼áΓα¿óáΓ∞ß∩ ó »«¿ß¬Ñ "ßá¼«ú« óÑασ¡Ñú«" óσ«ªñÑ¡¿∩ ¿¡ñÑ¬ßá ¬«¡¬αÑΓ¡«ú« ñ¿¡á¼¿τÑß¬«ú« ¼Ñ- Γ«ñá, á óδº«ó ºáΓÑ¼ ñ«½ªÑ¡ óδ»«½¡∩Γ∞ß∩ τÑαÑº ß««ΓóÑΓßΓóπεΘ¿⌐ π¬á- ºáΓÑ½∞ ¼ÑΓ«ñá. ¥Γ«Γ »α«µÑßß ΓαÑíπÑΓ ¿ß»«½∞º«óá¡¿∩ ßπΘÑßΓóÑ¡¡« í«½∞ΦÑú« τ¿ß½á ¿¡ßΓαπ¬µ¿⌐, ¬«Γ«αδÑ ¼«ª¡« ºá»¿ßáΓ∞, ¬á¬ "óßΓα«Ñ¡- ¡δÑ" (inline), »«φΓ«¼π Æπαí« Åáß¬á½∞ «íÑß»Ñτ¿óáÑΓ »«ñ»α«úαá¼¼π ñ¿ß»ÑΓτÑα¿ºáµ¿¿, ¿ß»«½∞ºπÑ¼πε »α¿ óδº«óÑ ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá. àß½¿ íδ ¼ÑΓ«ñ Show »«¬áºá¡¡«ú« óδΦÑ Γ¿»á TPoint «»¿ßδóá½ß∩ ¬á¬ ñ¿¡á¼¿τÑß¬¿⌐ ¼ÑΓ«ñ (ß ¿¡ñÑ¬ß«¼ ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá 200), Γ« óδº«ó PP^.Show, úñÑ PP ¿¼ÑÑΓ Γ¿» TPointPtr, »α¿óÑ½ íδ ¬ úÑ¡Ñαáµ¿¿ ß½ÑñπεΘÑú« ¬«ñá: les di,PP ; ºáúαπº¬á PP ó ED:DI push es ; »ÑαÑñáτá, ¬á¬ »áαá¼ÑΓαá ; Self push di mow di,es:[di+6] ; ¿ºó½ÑτÑ¡¿Ñ ß¼ÑΘÑ¡¿∩ ; Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ; ¿º »«½∩ Γáí½¿µδ ; ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó mov ax,200 ; ºáúαπº¬á ó AX ¿¡ñÑ¬ßá ; ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá call Dispatch ; óδº«ó »«ñ»α«úαá¼¼δ ; ñ¿ß»ÑΓτÑα¿ºáµ¿¿ ä¿ß»ÑΓτÑα óδí¿αáÑΓ ß¡áτá½á ß¼ÑΘÑ¡¿Ñ Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼Ñ- Γ«ñ«ó «Γ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó, ¡á ¬«Γ«α«Ñ π¬áºδóáÑΓ αÑ- ú¿ßΓα DI. çáΓÑ¼ ¿ß»«½∞ºπÑΓß∩ "¿¡ñÑ¬ß ó ¬ÑΦÑ" - »«½Ñ Γáí½¿µδ ñ¿¡á- ¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó. ä¿ß»ÑΓτÑα »α«óÑα∩ÑΓ, ∩ó½∩ÑΓß∩ ½¿ ¿¡ñÑ¬ß óδºóá¡- ¡«ú« ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá ¿¡ñÑ¬ß«¼ Γ«ú« ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá, ¬«- Γ«αδ⌐ óδºδóá½ß∩ »«ß½Ññ¡¿¼. àß½¿ φΓ« Γá¬, «¡ ¡Ñ¼Ññ½Ñ¡¡« »ÑαÑñáÑΓ φΓ«¼π ¼ÑΓ«ñπ π»αáó½Ñ¡¿Ñ (»πΓÑ¼ »ÑαÑσ«ñá ß »«¼«Θ∞ε π¬áºáΓÑ½∩ ¼ÑΓ«- ñá, ºá»¿ßá¡¡«ú« »« ß¼ÑΘÑ¡¿ε, ºáñá¡¡«¼π »«½Ñ¼ "ß¼ÑΘÑ¡¿Ñ ºá»¿ß¿"). àß½¿ ñ¿¡á¼¿τÑß¬¿⌐ ¿¡ñÑ¬ß óδºóá¡¡«ú« ¼ÑΓ«ñá ¡Ñ ß«ó»áñáÑΓ ß ΓÑ¼, ¬«Γ«αδ⌐ ºá»¿ßá¡ ó ¬ÑΦÑ, Γ« ñ¿ß»ÑΓτÑα »α«ß¼áΓα¿óáÑΓ Γáí½¿µπ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó ¿ α«ñ¿ΓÑ½∞ß¬πε Γáí½¿µπ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó (ß½Ññπ∩ »« ßó∩º∩¼ ó Γáí½¿µÑ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó), »«¬á «¡ ¡Ñ ¡á⌐ñÑΓ ºá»¿ß∞, ß ñá¡¡δ¼ ¿¡ñÑ¬ß«¼ ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá. ê¡ñÑ¬ß ¿ ß¼ÑΘÑ¡¿Ñ ß««ΓóÑΓßΓóπεΘÑú« π¬áºáΓÑ½∩ ¼ÑΓ«ñá ºá»¿ßδóáεΓß∩ ºáΓÑ¼ ó »«½Ñ Γáí½¿µδ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó, á π»αáó½Ñ¡¿Ñ »ÑαÑñáÑΓß∩ ¼ÑΓ«- ñπ. àß½¿ »« ¬á¬¿¼-½¿í« »α¿τ¿¡á¼ ñ¿ß»ÑΓτÑα ¡Ñ ¼«ªÑΓ ¡á⌐Γ¿ ºá»¿ß∞ ß ñá¡¡δ¼ ¿¡ñÑ¬ß«¼ ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá, «¡ ºáóÑαΦáÑΓ »α¿¬½áñ¡πε »α«úαá¼¼π ß ¬«ñ«¼ «Φ¿í¬¿ φΓá»á óδ»«½¡Ñ¡¿∩ 210. B.Pascal 7 & Objects/LR - 396 - é«»αÑ¬¿ ¬ÑΦ¿α«óá¡¿ε ¿ óδß«¬««»Γ¿¼¿º¿α«óá¡¡«⌐ »«ñ»α«úαá¼¼Ñ ñ¿ß»ÑΓτÑα¿ºáµ¿¿, ñ¿ß»ÑΓτÑα¿ºáµ¿∩ ñ¿¡á¼¿τÑß¬«ú« ¼ÑΓ«ñá ¼«ªÑΓ »«Γ- αÑí«óáΓ∞ ßπΘÑßΓóÑ¡¡« í«½∞ΦÑ óαÑ¼Ñ¡¿, τÑ¼ óδº«ó ó¿αΓπá½∞¡«ú« ¼ÑΓ«- ñá. Äñ¡á¬« ó ΓÑσ ß½πτá∩σ, ¬«úñá ßá¼¿ ñÑ⌐ßΓó¿∩, óδ»«½¡∩Ñ¼δÑ ñ¿¡á- ¼¿τÑß¬¿¼ ¼ÑΓ«ñ«¼, ΓαÑíπεΓ ¼¡«ú« óαÑ¼Ñ¡¿, ñ«»«½¡¿ΓÑ½∞¡«Ñ »α«ßΓ- αá¡ßΓó«, ß«σαá¡∩Ñ¼«Ñ Γáí½¿µá¼¿ ñ¿¡á¼¿τÑß¬¿σ ¼ÑΓ«ñ«ó, ¼«ªÑΓ »ÑαÑ- óÑß¿Γ∞ φΓ«Γ ¡Ññ«ßΓáΓ«¬. è«¡ßΓαπ¬Γ«αδ ¿ ñÑßΓαπ¬Γ«αδ ───────────────────────────────────────────────────────────────── è«¡ßΓαπ¬Γ«αδ ¿ ñÑßΓαπ¬Γ«αδ ¿ß»«½∞ºπεΓ ΓÑ ªÑ ß«ú½áΦÑ¡¿∩ « óδ- º«óáσ, τΓ« ¿ «íδτ¡δÑ ¼ÑΓ«ñδ, ºá ΓÑ¼ ¿ß¬½ετÑ¡¿Ñ¼, τΓ« ñ«»«½¡¿ΓÑ½∞- ¡δ⌐ »áαá¼ÑΓα αáº¼Ñα«¼ ó ß½«ó«, ¡áºδóáÑ¼δ⌐ »áαá¼ÑΓα«¼ Γáí½¿µδ ó¿α- Γπá½∞¡δσ ¼ÑΓ«ñ«ó, »ÑαÑñáÑΓß∩ τÑαÑº ßΓÑ¬ ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ »áαá¼ÑΓα«¼ Self. ä½∩ ¬«¡ßΓαπ¬Γ«α«ó »áαá¼ÑΓα Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ß«- ñÑαª¿Γ ß¼ÑΘÑ¡¿Ñ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó ñ½∩ ºá»«¼¿¡á¡¿∩ »«½∩ Self Γáí½¿µδ ó¿αΓπá½∞¡«ú« ¼ÑΓ«ñá, τΓ«íδ ¿¡¿µ¿á½¿º¿α«óáΓ∞ Self. ü«½ÑÑ Γ«ú«, Ñß½¿ ¬«¡ßΓαπ¬Γ«α óδºδóáÑΓß∩ ñ½∩ αáº¼ÑΘÑ¡¿∩ ñ¿¡á- ¼¿τÑß¬«ú« «íΩÑ¬Γá ß »«¼«Θ∞ε αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ New, τÑαÑº »áαá¼ÑΓα Self »ÑαÑñáÑΓß∩ π¬áºáΓÑ½∞ nil. ¥Γ« ºáßΓáó½∩ÑΓ ¬«¡ßΓαπ¬Γ«α αáº¼ÑΘáΓ∞ ¡«óδ⌐ ñ¿¡á¼¿τÑß¬¿⌐ «íΩÑ¬Γ, áñαÑß ¬«Γ«α«ú« »ÑαÑñáÑΓß∩ óδºδóáεΘÑ⌐ »α«úαá¼¼Ñ τÑαÑº DX:AX »α¿ ó«ºóαáΓÑ ¿º ¬«¡ßΓαπ¬Γ«αá. àß½¿ ¬«¡ßΓαπ¬Γ«α ¡Ñ ¼«ªÑΓ αáº¼ÑßΓ¿Γ∞ «íΩÑ¬Γ, Γ« ó DX:AX ó«ºóαáΘáÑΓß∩ »πßΓ«⌐ π¬áºáΓÑ½∞ nil. (æ¼. ñá½ÑÑ "Äí¡áαπªÑ- ¡¿Ñ «Φ¿í«¬ ¬«¡ßΓαπ¬Γ«αá"). ìá¬«¡Ñµ, Ñß½¿ ¬«¡ßΓαπ¬Γ«α óδºδóáÑΓß∩ ß ¿ß»«½∞º«óá¡¿Ñ¼ πΓ«τ- ¡Ñ¡¡«ú« ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¼ÑΓ«ñá (Γ.Ñ. ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Γ¿»á «íΩÑ¬Γá, ºá ¬«Γ«αδ¼ ß½ÑñπεΓ Γ«τ¬á ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ«ñá), Γ« ó »áαá¼ÑΓαÑ Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó »ÑαÑñáÑΓß∩ ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ. ¥Γ« ∩ó- ½∩ÑΓß∩ π¬áºá¡¿Ñ¼ ¬«¡ßΓαπ¬Γ«απ ¡á Γ«, τΓ« Ñ¼π ¡Ñ ß½ÑñπÑΓ ¿¡¿µ¿á½¿- º¿α«óáΓ∞ »«½Ñ Self Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó. ä½∩ ñÑßΓαπ¬Γ«α«ó ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá Γáí½¿µδ ó¿αΓπá½∞¡δσ ¼ÑΓ«ñ«ó «º¡áτáÑΓ «íδτ¡δ⌐ óδº«ó, á ¡Ñ¡π½Ñó«Ñ π¬áºδóáÑΓ, τΓ« ñÑßΓαπ¬Γ«α íδ½ óδºóá¡ ß ¿ß»«½∞º«óá¡¿Ñ¼ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá ßΓá¡ñáαΓ¡«⌐ »α«µÑñπαδ Dispose. ¥Γ« ºáßΓáó½∩ÑΓ ñÑßΓαπ¬Γ«α πñá½¿Γ∞ Self ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ ó«ºóαáΓ«¼ (αáº¼Ñα Self «»αÑñÑ½∩ÑΓß∩ ¿º »Ñαó«ú« ß½«óá Self ó Æéî). æΓá¡ñáαΓ¡δ⌐ ¬«ñ óσ«ñá ¿ óδσ«ñá ───────────────────────────────────────────────────────────────── èáªñá∩ »α«µÑñπαá ¿ Σπ¡¬µ¿∩ Borland Pascal ¡áτ¿¡áÑΓß∩ ¿ ºá- ¬á¡τ¿óáÑΓß∩ ßΓá¡ñáαΓ¡δ¼ ¡áí«α«¼ «»ÑαáΓ«α«ó, ¬«Γ«αδÑ »«ºó«½∩εΓ á¬- Γ¿ó¿º¿α«óáΓ∞ ¿ ñÑá¬Γ¿ó¿º¿α«óáΓ∞ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε. æΓá¡ñáαΓ¡δ¼ óσ«ñ«¼ ß½πª¿Γ ß½ÑñπεΘá∩ úαπ»»á «»ÑαáΓ«α«ó: PUSH BP ; ß«σαá¡¿Γ∞ αÑú¿ßΓα éÉ B.Pascal 7 & Objects/LR - 397 - MOV BP,SP ; πßΓá¡«ó¿Γ∞ úαá¡¿µδ ßΓÑ¬á SUB SP,LocalSize ; óδñÑ½¿Γ∞ »á¼∩Γ∞ ñ½∩ ½«¬á½∞¡δσ »ÑαÑ- ; ¼Ñ¡¡δσ é φΓ«¼ »α¿¼ÑαÑ LocalSize - φΓ« αáº¼Ñα ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ. ê¡ßΓαπ¬µ¿∩ SUé »α¿ßπΓßΓóπÑΓ Γ«½∞¬« ó Γ«¼ ß½πτáÑ, ¬«úñá LocalSize ¡Ñ αáó¡« ¡π½ε. àß½¿ Γ¿» «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ ∩ó½∩ÑΓß∩ í½¿ª¡¿¼, Γ« »áαá¼ÑΓαδ ¡áτ¿¡áεΓß∩ ß BP+4, Ñß½¿ ñ½∩ óδº«óá »α«µÑñπαδ ¿ß»«½∞- ºπÑΓß∩ ñá½∞¡¿⌐ Γ¿» «íαáΘÑ¡¿∩, Γ« «¡¿ ¡áτ¿¡áεΓß∩ ß BP+6. ä½∩ »α«úαá¼¼ DOS ¬«ñ óσ«ñá ¿ óδσ«ñá ñ½∩ »«ñ»α«úαá¼¼δ, ¿ß- »«½∞ºπεΘÑ⌐ ñá½∞¡εε ¼«ñÑ½∞ óδº«óá, Γ«Γ ªÑ, τΓ« ¿ ñ½∩ »«ñ»α«úαá¼¼δ ß í½¿ª¡¿¼ Γ¿»«¼ óδº«ó, ¡« ñ½∩ ó«ºóαáΓá ¿º »«ñ»α«úαá¼¼δ ¿ß»«½∞ºπ- ÑΓß∩ ¿¡ßΓαπ¬µ¿∩ RETF. ¥Γ« ß»αáóÑñ½¿ó« Γá¬ªÑ ñ½∩ »α«úαá¼¼δ Windows, c¬«¼»¿½¿α«óá¡¡«⌐ ó ß«ßΓ«∩¡¿¿ {$W-}. Åα¿¼Ñτá¡¿Ñ: Äí ¿ß»«½∞º«óá¡¿¿ »α«µÑñπα óσ«ñá ¿ óδσ«ñá ó DLL αáßß¬áºδóáÑΓß∩ ó â½áóÑ 11 "ä¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼δÑ í¿í- ½¿«ΓÑ¬¿". æΓá¡ñáαΓ¡«⌐ úαπ»»«⌐ «»ÑαáΓ«α«ó óδσ«ñá ∩ó½∩ÑΓß∩: MOV SP,BP ; «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, óδñÑ½Ñ¡¡πε ñ½∩ ; ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ POP BP ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓα éÉ RET ParamSize ; πñá½¿Γ∞ »áαá¼ÑΓαδ ¿ óδ»«½¡¿Γ∞ ó«ºóαáΓ ; π»αáó½Ñ¡¿∩ çñÑß∞ Éárá¼SizÑ - φΓ« αáº¼Ñα »áαá¼ÑΓα«ó. ê¡ßΓαπ¬µ¿∩ RET ∩ó- ½∩ÑΓß∩ ¿¡ßΓαπ¬µ¿Ñ⌐ í½¿ª¡Ñú« ¿½¿ ñá½∞¡Ñú« Γ¿»á, ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ¿»á «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ. é ß«ßΓ«∩¡¿¿ {$W+} (»« π¼«½τá¡¿ε) ó »«ñ»α«úαá¼¼Ñ, ¿ß»«½∞ºπε- ΘÑ⌐ ñá½∞¡εε ¼«ñÑ½∞ óδº«óá, ¬«ñ óδσ«ñá ¿ óδσ«ñá óδú½∩ñ¿Γ ß½ÑñπεΘ¿¼ «íαáº«¼: INC BP ; π¬áºδóáÑΓ ¡á ¬áñα ßΓÑ¬á FAR PUSH BP ; ß«σαá¡¿Γ∞ αÑú¿ßΓα éÉ MOV BP,SP ; πßΓá¡«ó¿Γ∞ ¬áñα ßΓÑ¬á PUSH DS ; ß«σαá¡¿Γ∞ DS SUB SP,LocalSize ; óδñÑ½¿Γ∞ »á¼∩Γ∞ ñ½∩ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ . . . MOV SP,BP ; «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, óδñÑ½Ñ¡¡πε ñ½∩ ; ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ POP BP ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓα éÉ DEC PB ; ¡áßΓα«¿Γ∞ BP RETF ParamSize ; πñá½¿Γ∞ »áαá¼ÑΓαδ ¿ óδ»«½¡¿Γ∞ ó«ºóαáΓ ; π»αáó½Ñ¡¿∩ è«ñ óσ«ñá ¿ óδσ«ñá ñ½∩ φ¬ß»«αΓ¿απÑ¼«⌐ »«ñ»α«úαá¼¼δ (»α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, ß¬«¼»¿½¿α«óá¡¡«⌐ ß ñ¿αÑ¬Γ¿ó«⌐ B.Pascal 7 & Objects/LR - 398 - ¬«¼»¿½∩Γ«αá export) óδú½∩ñ¿Γ ß½ÑñπεΘ¿¼ «íαáº«¼: mov AXC,DS ; ºáúαπº¿Γ∞ ßÑ½Ñ¬Γ«α DS ó AX nop ; ñ«»«½¡¿ΓÑ½∞¡«Ñ »α«ßΓαá¡ßΓó« ñ½∩ ; ¬«ααÑ¬Γ¿α«ó«¬ inc BP ; π¬áºδóáÑΓ ¡á ñá½∞¡¿⌐ ¬áñα ßΓÑ¬á push BP ; ß«σαá¡¿Γ∞ BP mov BP,SP ; πßΓá¡«ó¿Γ∞ ¬áñα ßΓÑ¬á push DS ; ß«σαá¡¿Γ∞ DS mov DS,AX ; ¿¡¿µ¿á½¿ºáµ¿∩ αÑú¿ßΓαá DS sub SP,LocalSize; αáß»αÑñÑ½Ñ¡¿¿ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ . ; (Ñß½¿ «¡¿ ¿¼ÑεΓß∩) . . pop DI ; ó«ßßΓá¡«ó¿Γ∞ DI pop SI ; ó«ßßΓá¡«ó¿Γ∞ SI lea SP,[BP-2] ; «ßó«í«ñ¿Γ∞ »á¼∩Γ∞, óδñÑ½Ñ¡¡πε ñ½∩ ; ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ pop DS ; ó«ßßΓá¡«ó¿Γ∞ DS pop BP ; ó«ßßΓá¡«ó¿Γ∞ BP dec BP ; ¡áßΓα«¿Γ∞ αÑú¿ßΓα BP retf ParamSize ; πñá½Ñ¡¿Ñ »áαá¼ÑΓα«ó ¿ ó«ºóαáΓ ; π»αáó½Ñ¡¿∩ ä½∩ óßÑσ ¼«ñÑ½Ñ⌐ óδº«óá, Ñß½¿ »«ñ»α«úαá¼¼á ¡Ñ ß«ñÑαª¿Γ ½«- ¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ, ¿¡ßΓαπ¬µ¿¿ óδñÑ½Ñ¡¿∩ ¿ «ßó«í«ªñÑ¡¿∩ »á¼∩Γ¿ ñ½∩ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ¼«ª¡« «»πßΓ¿Γ∞. Åα¿ αáí«ΓÑ ó αÑá½∞¡«¼ αÑª¿¼Ñ, τΓ«íδ αáº½¿τáΓ∞ í½¿ª¡¿⌐ ¿ ñá½∞¡¿⌐ ¬áñα ßΓÑ¬á, Windows ΓαÑíπÑΓ, τΓ«íδ óßÑ ¬áñαδ ßΓÑ¬á (ó¬½ε- τá∩ ¬áñαδ ßΓÑ¬á φ¬ß»«αΓ¿απÑ¼δσ »«ñ»α«úαá¼¼) ß«σαá¡∩½¿ ó ß½«óÑ »« áñαÑßπ [BP+0] ¡ÑτÑΓ¡«Ñ º¡áτÑ¡¿Ñ BP. èα«¼Ñ Γ«ú«, Windows ΓαÑíπÑΓ, τΓ«íδ ß½«ó« »« áñαÑßπ [BP-2] ß«ñÑαªá½« ßÑ½Ñ¬Γ«α ßÑú¼Ñ¡Γá ñá¡¡δσ óδºδóáεΘÑ⌐ »α«úαá¼¼δ. ¥Γ« «íΩ∩ß¡∩ÑΓ ¿ß»«½∞º«óá¡¿Ñ ¿¡ßΓαπ¬µ¿⌐ INC BP, PUSH DS ¿ DEC BP (ßúÑ¡Ñα¿α«óá¡¡δσ ó ß«ßΓ«∩¡¿¿ {$W+}) ¡á óσ«ñÑ ¿ óδσ«ñÑ ñ½∩ »«ñ»α«úαá¼¼ far ¿ export. çá¼ÑΓ¿¼, τΓ« ¿ß»«½∞º«óá¡¿Ñ {$W+} ΓαÑíπεΓ Γ«½∞¬« αÑá½∞¡δ⌐ αÑª¿¼ Windows. àß½¿ óδ ¡Ñ »«ññÑαª¿óáÑΓÑ αÑá½∞¡δ⌐ αÑª¿¼, π¬áª¿ΓÑ {$W-}. éδ »«½πτ¿ΓÑ »α«úαá¼¼π ¼Ñ¡∞ΦÑú« αáº¼Ñαá ¿ ¡Ñ¬«Γ«αδ⌐ óδ¿úαδΦ ó ß¬«α«ßΓ¿. Åα¿ αáºαáí«Γ¬Ñ »α«úαá¼¼δ ºáΘ¿ΘÑ¡¡«ú« αÑª¿¼á Windows ¼«ªÑΓ «¬áºáΓ∞ß∩ »«½Ñº¡δ¼ ¿ß»«½∞º«óá¡¿Ñ ß«ßΓ«∩¡¿∩ {$W+}. ìÑ¬«Γ«αδÑ ßαÑñßΓóá «Γ½áñ¬¿, «Γ½¿τ¡δÑ «Γ ßαÑñßΓó Borland, ΓαÑíπεΓ φΓ«ú« ñ½∩ ¬«ααÑ¬Γ¡«⌐ αáí«Γδ. Å« π¼«½τá¡¿ε Borland Pascal áóΓ«¼áΓ¿τÑß¬¿ úÑ¡Ñα¿απÑΓ φΣΣÑ¬- Γ¿ó¡δÑ ß¿ßΓÑ¼¡δÑ óδº«óδ ñ½∩ »α«µÑñπα ¿ Σπ¡¬µ¿⌐, φ¬ß»«αΓ¿απÑ¼δσ »α¿¬½áñ¡«⌐ »α«úαá¼¼«⌐. Åα¿ ¬«¼»«¡«ó¬Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ó ß«ß- Γ«∩¡¿¿ {$K+} (»« π¼«½τá¡¿ε) «Γ½áñτ¿¬ ¿ΘÑΓ ó ¬áªñ«⌐ φ¬ß»«αΓ¿απÑ¼«⌐ Γ«τ¬Ñ óσ«ñá »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ¿¡ßΓαπ¬µ¿⌐ MOV AX,DS ß »«ß½ÑñπεΘÑ⌐ ¿¡ßΓαπ¬µ¿Ñ⌐ NOP, ºá¼Ñ¡∩∩ ¿σ ¡á MOV AX.DS ¡á MOV AX,SS. ¥Γ« ¿º¼Ñ- B.Pascal 7 & Objects/LR - 399 - ¡Ñ¡¿Ñ «ß½áí½∩ÑΓ ΓαÑí«óá¡¿Ñ ¿ß»«½∞º«óá¡¿∩ »α¿ ß«ºñá¡¿¿ »α«úαá¼¼ ß¿ßΓÑ¼¡«ú« óδº«óá »«ñ»α«úαá¼¼ API Windows MakeProcInstanc ¿ FreeProcInstance (σ«Γ∩ φΓ« ¡Ñ ó«ºíαá¡∩ÑΓß∩). î«ª¡« Γá¬ªÑ óδºδóáΓ∞ φ¬ß»«αΓ¿απÑ¼δÑ Γ«τ¬¿ óσ«ñá ¿º ßá¼«⌐ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ. é ß«ßΓ«∩¡¿¿ {$K-} »α¿ ß«ºñá¡¿¿ ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ¼«⌐ í¿í- ½¿«ΓÑ¬¿ ¬«¼»«¡«óΘ¿¬ Borland Pascal ¡Ñ ¼«ñ¿Σ¿µ¿απÑΓ ¬«ñ óσ«ñá ¿ óδσ«ñá φ¬ß»«αΓ¿α«óá¡¡«⌐ Γ«τ¬¿ óσ«ñá. àß½¿ »«ñ»α«úαá¼¼á ß¿ßΓÑ¼¡«ú« óδº«óá ó »α¿½«ªÑ¡¿¿ ñ«½ª¡á óδºδóáΓ∞ß∩ ¿º ñαπú«⌐ »α¿¬½áñ¡«⌐ »α«ú- αá¼¼δ, óδí¿αáΓ∞ ß«ßΓ«∩¡¿Ñ {$K-} ¡Ñ ß½ÑñπÑΓ. Åα¿ ºáúαπº¬Ñ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ ¿½¿ ñ¿¡á¼¿τÑß¬¿ ¬«¼»«¡πÑ- ¼«⌐ í¿í½¿«ΓÑ¬¿ Windows ¿ΘÑΓ ó ¬áªñ«⌐ φ¬ß»«αΓ¿απÑ¼«⌐ Γ«τ¬Ñ óσ«ñá »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ¿¡ßΓαπ¬µ¿⌐ MOV AX,DS ß »«ß½ÑñπεΘÑ⌐ ¿¡ßΓαπ¬µ¿Ñ⌐ NOP. ä½∩ »α¿¬½áñ¡«⌐ »α«úαá¼¼δ Windows ¿º¼Ñ¡∩ÑΓ »ÑαóδÑ Γα¿ íá⌐Γá ¡á Γα¿ ¿¡ßΓαπ¬µ¿¿ NOP, τΓ«íδ »«ñú«Γ«ó¿Γ∞ »«ñ»α«úαá¼¼π ñ½∩ ¿ß»«½∞- º«óá¡¿∩ ÑÑ Σπ¡¬µ¿Ñ⌐ Windows MakeProcInstance. ä½∩ í¿í½¿«ΓÑ¬ Windows ¿º¼Ñ¡∩ÑΓ »ÑαóδÑ Γα¿ íá⌐Γá ó ¿¡ßΓαπ¬µ¿¿ MOV AX,xxxx, úñÑ xxxx - ßÑ½Ñ¬Γ«α (áñαÑß ßÑú¼Ñ¡Γá) ßÑú¼Ñ¡Γá ñ¿¡á¼¿τÑß¬¿σ ½«¬á½∞¡δσ ñá¡¡δσ í¿í½¿«ΓÑ¬¿. B.Pascal 7 & Objects/LR - 400 - æ«ú½áΦÑ¡¿∩ »« ß«σαá¡Ñ¡¿ε αÑú¿ßΓα«ó ───────────────────────────────────────────────────────────────── é »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ ß½ÑñπÑΓ ß«σαá¡∩Γ∞ αÑú¿ßΓαδ BP, SP, SS ¿ DS. ç¡áτÑ¡¿∩ óßÑσ ñαπú¿σ αÑú¿ßΓα«ó ¼«ª¡« ¿º¼Ñ¡∩Γ∞. èα«¼Ñ Γ«- ú«, φ¬ß»«αΓ¿απÑ¼δÑ »«ñ»α«úαá¼¼δ ñ«½ª¡δ ß«σαá¡∩Γ∞ αÑú¿ßΓαδ SI ¿ DI. Åα«µÑñπαδ óδσ«ñá ───────────────────────────────────────────────────────────────── é »«¼«Θ∞ε »α«µÑñπα óδσ«ñá (¿½¿ »α«µÑñπα ºáóÑαΦÑ¡¿∩) óδ ¼«ªÑ- ΓÑ π»αáó½∩Γ∞ »α«µÑßß«¼ ºáóÑαΦÑ¡¿∩ αáí«Γδ »α«úαá¼¼δ. ¥Γ« »«½Ñº¡« ó Γ«¼ ß½πτáÑ, ¬«úñá óδ σ«Γ¿ΓÑ »ÑαÑñ »αÑ¬αáΘÑ¡¿Ñ¼ αáí«Γδ »α«úαá¼¼δ «íÑß»Ñτ¿Γ∞ óδ»«½¡Ñ¡¿Ñ «»αÑñÑ½Ñ¡¡δσ ñÑ⌐ßΓó¿⌐ (Γ¿»¿τ¡δ¼ »α¿¼Ñα«¼ ∩ó½∩ÑΓß∩ «í¡«ó½Ñ¡¿Ñ ¿ ºá¬αδΓ¿Ñ Σá⌐½«ó). ÉÑá½¿º«óáΓ∞ »α«µÑñπαπ óδσ«ñá óá¼ »«ºó«½∩ÑΓ »ÑαÑ¼Ñ¡¡á∩-π¬áºá- ΓÑ½∞ EσitProc. Åα«µÑñπαá óδσ«ñá óßÑúñá »«½πτáÑΓ óδº«ó »α¿ ºáóÑα- ΦÑ¡¿¿ αáí«Γδ »α«úαá¼¼δ, ¡Ñºáó¿ß¿¼« «Γ Γ«ú«, ∩ó½∩ÑΓß∩ ½¿ φΓ« ºá- óÑαΦÑ¡¿Ñ ¡«α¼á½∞¡δ¼ «¬«¡τá¡¿Ñ¼ αáí«Γδ »α«úαá¼¼δ, ºáóÑαΦÑ¡¿Ñ¼ »«ß½Ñ «íαáΘÑ¡¿∩ ¬ Σπ¡¬µ¿¿ ìált, ¿½¿ αáí«Γá »α«úαá¼¼δ »αÑ¬αáΓ¿½áß∞ ¿º-ºá «Φ¿í¬¿ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩. Åáαá¼ÑΓαδ ñ½∩ »α«µÑñπαδ óδσ«ñá ¡Ñ ΓαÑíπεΓß∩, ¿ ñ½∩ Γ«ú«, τΓ«íδ ¿ß»«½∞º«óá½ß∩ ñá½∞¡¿⌐ Γ¿» óδº«óá, «¡á ñ«½ª¡á ¬«¼»¿½¿α«óáΓ∞- ß∩ ß π¬áºá¡¿Ñ¼ ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$F+}. è«úñá »α«µÑñπαá óδσ«ñá ñ«½ª¡δ¼ «íαáº«¼ αÑá½¿º«óá¡á, «¡á ó ñÑ⌐ßΓó¿ΓÑ½∞¡«ßΓ¿ ßΓá¡«ó¿Γß∩ τáßΓ∞ε µÑ»«τ¬¿ »α«µÑñπα óδσ«ñá. ¥Γá µÑ»«τ¬á »«ºó«½∩ÑΓ αÑá½¿º«óáΓ∞ »α«µÑñπαδ óδσ«ñá ¬á¬ ñ½∩ ¼«ñπ½Ñ⌐, Γá¬ ¿ ñ½∩ »α«úαá¼¼. é ¡Ñ¬«Γ«αδσ ¼«ñπ½∩σ »α«µÑñπαá óδσ«ñá αÑá½¿ºπ- ÑΓß∩, ¬á¬ τáßΓ∞ ßá¼«ú« ¼«ñπ½∩, á óδ»«½¡Ñ¡¿Ñ ¡Ñ¬«Γ«αδσ ºáóÑαΦáεΘ¿σ ñÑ⌐ßΓó¿⌐ »«ß½Ñ óδσ«ñá ¿º ¼«ñπ½∩, ¡á»α¿¼Ñα, ºá¬αδΓ¿Ñ Σá⌐½«ó ¿½¿ ó«ßßΓá¡«ó½Ñ¡¿Ñ óÑ¬Γ«α«ó »αÑαδóá¡¿⌐, ó«º½áúáÑΓß∩ ¡á ¬«¡¬αÑΓ¡πε »α«µÑñπαπ. Åα«µÑñπαδ ó µÑ»«τ¬Ñ óδσ«ñá óδ»«½¡∩εΓß∩ ó »«ß½Ññ«óá- ΓÑ½∞¡«ßΓ¿, «íαáΓ¡«⌐ »«α∩ñ¬π ¿σ αÑá½¿ºáµ¿¿. ¥Γ¿¼ «íÑß»Ñτ¿óáÑΓß∩, τΓ« «»ÑαáΓ«αδ óδσ«ñá «ñ¡«ú« í½«¬á ¡Ñ óδ»«½¡∩εΓß∩, »«¬á ¡Ñ íπñπΓ óδ»«½¡Ñ¡δ «»ÑαáΓ«αδ óδσ«ñá ¬á¬«ú«-½¿í« ºáó¿ß∩ΘÑú« «Γ ¡Ñú« ¼«ñπ½∩. ùΓ«íδ ß«σαá¡¿Γ∞ µÑ»«τ¬π óδσ«ñá ó ¡Ñ»α¿¬«ß¡«óÑ¡¡«ßΓ¿, óδ ñ«½ª¡δ »ÑαÑñ ¿º¼Ñ¡Ñ¡¿Ñ¼ π¬áºáΓÑ½∩ EσitPr«ß ¡á áñαÑß óáΦÑ⌐ ß«íß- ΓóÑ¡¡«⌐ »α«µÑñπαδ ß«σαá¡¿Γ∞ ΓÑ¬πΘÑÑ ß«ñÑαª¿¼«Ñ φΓ«ú« π¬áºáΓÑ½∩. äá½ÑÑ, ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ ó«ºóαáΓ«¼ π»αáó½Ñ¡¿∩ óáΦá »α«µÑñπαá óδσ«ñá ñ«½ª¡á ó«ßßΓá¡«ó¿Γ∞ ß«σαá¡Ñ¡¡«Ñ º¡áτÑ¡¿Ñ EσitProc. é ß½Ñ- ñπεΘÑ⌐ »α«úαá¼¼Ñ »«¬áºá¡δ «ß¡«óδ ¼ÑΓ«ñá αÑá½¿ºáµ¿¿ Γá¬«⌐ »α«µÑñπ- αδ óδσ«ñá. program Testexit; var ExitSave: Pointer; procedure MyExit; far B.Pascal 7 & Objects/LR - 401 - begin ExitProc := ExitSave; { óßÑúñá ó«ßßΓá¡áó½¿óáÑΓ ß¡áτá½á ßΓáαδ⌐ óÑ¬Γ«α } . . . end; begin ExitProc := ExitSave; ExitProc := @MyExit; . . . end. Åα¿ óσ«ñÑ ó »α«úαá¼¼π ß«ñÑαª¿¼«Ñ EσitProc ß«σαá¡∩ÑΓß∩ ß EσitSave, á ºáΓÑ¼ ß½ÑñπÑΓ »α«µÑñπαá óδσ«ñá îπEσit. Å«ß½Ñ Γ«ú«, ¬á¬ «¡á íπñÑΓ óδºóá¡á ó ¬áτÑßΓóÑ φ½Ñ¼Ñ¡Γá »α«µÑßßá ºáóÑαΦÑ¡¿∩ αá- í«Γδ »α«úαá¼¼δ, »α«µÑñπαá îπEσit ó«ßßΓá¡«ó¿Γ »αÑñδñπΘπε »α«µÑñπαπ óδσ«ñá. Åα«úαá¼¼á ºáóÑαΦÑ¡¿∩ ó í¿í½¿«ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ íπñÑΓ óδºδóáΓ∞ »α«µÑñπαδ óδσ«ñá, »«¬á π¬áºáΓÑ½∞ EσitPr«ß ¡Ñ »α¿¼ÑΓ º¡á- τÑ¡¿Ñ nil. é« ¿ºíÑªá¡¿¿ ºáµ¿¬½¿óá¡¿∩ EσitPr«ß πßΓá¡áó½¿óáÑΓß∩ ó nil »ÑαÑñ ¬áªñδ¼ «íαáΘÑ¡¿Ñ¼, Γá¬ τΓ« ß½ÑñπεΘá∩ »α«µÑñπαá óδσ«ñá óδºδóáÑΓß∩ Γ«½∞¬« ó Γ«¼ ß½πτáÑ, Ñß½¿ ΓÑ¬πΘá∩ »α«µÑñπαá óδσ«ñá πß- Γá¡áó½¿óáÑΓ ñ½∩ EσitPr«ß ÑÑ áñαÑß. àß½¿ »α¿ óδ»«½¡Ñ¡¿¿ »α«µÑñπαδ óδσ«ñá ó«º¡¿¬áÑΓ «Φ¿í¬á, Γ« ó ¡Ñ⌐ ¡Ñ πß»ÑÑΓ ÑΘÑ óδ»«½¡¿Γ∞ß∩ »α¿ß- óá¿óá¡¿Ñ ¡«ó«ú« áñαÑßá π¬áºáΓÑ½ε EσitPr«ß, Γá¬ ¬á¬ φΓ« ñÑ½áÑΓß∩ ¡Ñ»«ßαÑñßΓóÑ¡¡« »ÑαÑñ ΓÑ¼, ¬á¬ »α«µÑñπαá óδσ«ñá óδ»«½¡¿Γ ó«ºóαáΓ π»αáó½Ñ¡¿∩. Åα«µÑñπαá óδσ«ñá ¼«ªÑΓ αáß»«º¡áóáΓ∞ »α¿τ¿¡π ºáóÑαΦÑ¡¿∩ αáí«- Γδ »α«úαá¼¼δ »πΓÑ¼ »α«óÑα¬¿ µÑ½«τ¿ß½Ñ¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ EσitCode ¿ »ÑαÑ¼Ñ¡¡«⌐-π¬áºáΓÑ½∩ ErrorAddr. é ß½πτáÑ ¡«α¼á½∞¡«ú« ºáóÑαΦÑ¡¿∩ ó EσitCode ß«ñÑαª¿Γß∩ ¡π½Ñó«Ñ º¡áτÑ¡¿Ñ ¿ ErrorAddr ¿¼ÑÑΓ º¡áτÑ¡¿Ñ nil. é ß½πτáÑ ºáóÑαΦÑ¡¿∩ τÑαÑº «íαáΘÑ¡¿Ñ ¬ »α«µÑñπαÑ ìált EσitCode ß«ñÑαª¿Γ º¡áτÑ¡¿Ñ, »ÑαÑñá¡¡«Ñ Σπ¡¬µ¿¿ ìált, á ErrorAddr ¿¼ÑÑΓ º¡áτÑ¡¿Ñ nil. ìá¬«¡Ñµ, ó ß½πτáÑ »αÑ¬αáΘÑ¡¿∩ αáí«Γδ »α«úαá¼- ¼δ ¿º-ºá «Φ¿í¬¿ ó« óαÑ¼∩ ÑÑ óδ»«½¡Ñ¡¿∩ EσitCode ß«ñÑαª¿Γ ¬«ñ «Φ¿í¬¿, á ErrorAddr ß«ñÑαª¿Γ áñαÑß «Φ¿í«τ¡«ú« «»ÑαáΓ«αá. B.Pascal 7 & Objects/LR - 402 - Åα¿¼Ñτá¡¿Ñ: Ä »α«µÑñπαáσ óδσ«ñá ñ½∩ DLL αáßß¬áºδóáÑΓß∩ ó â½áóÑ 11. Å«ß½Ññ¡∩∩ »α«µÑñπαá óδσ«ñá (¬«Γ«αá∩ ß«ñÑαª¿Γß∩ ó í¿í½¿«ΓÑ¬Ñ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ) ºá¬αδóáÑΓ Σá⌐½δ Input ¿ Output ¿ ó«ßßΓá¡áó- ½¿óáÑΓ óÑ¬Γ«αδ »αÑαδóá¡¿⌐, ¬«Γ«αδÑ íδ½¿ »ÑαÑσóáτÑ¡δ Æπαí« Åáß¬á- ½Ñ¼. Åα¿ φΓ«¼, Ñß½¿ π¬áºáΓÑ½∞ ErrorAddr ¿¼ÑÑΓ º¡áτÑ¡¿Ñ, «Γ½¿τ¡«Ñ «Γ nil, Γ« »α«µÑñπαá óδσ«ñá óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. àß½¿ óδ σ«Γ¿ΓÑ óδó«ñ¿Γ∞ ßó«¿ ß«íßΓóÑ¡¡δÑ ß««íΘÑ¡¿∩ «í «Φ¿í¬áσ ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩, ¿ß»«½∞ºπ⌐ΓÑ »α«µÑñπαπ óδσ«ñá, ¬«Γ«αá∩ »α«óÑα∩ÑΓ ErrorAddr ¿ óδó«ñ¿Γ ß««íΘÑ¡¿Ñ «í «Φ¿í- ¬Ñ, Ñß½¿ Ñú« º¡áτÑ¡¿Ñ «Γ½¿τ¡« «Γ nil. é ñ«íáó«¬ ¬ φΓ«¼π »ÑαÑñ ó«ºóαáΓ«¼ π»αáó½Ñ¡¿∩ ¡Ñ«íσ«ñ¿¼« «íÑß»Ñτ¿Γ∞, τΓ«íδ π¬áºáΓÑ½∞ ErrorAddr íδ½ πßΓá¡«ó½Ñ¡ ó º¡áτÑ¡¿Ñ nil, τΓ«íδ ß««íΘÑ¡¿Ñ «í «Φ¿í- ¬Ñ ¡Ñ óδñáóá½«ß∞ ß¡«óá ñαπú«⌐ »α«µÑñπα«⌐ óδσ«ñá. Å«ß½Ñ Γ«ú«, ¬á¬ í¿í½¿«ΓÑ¬á ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ «íαáΘáÑΓß∩ ó »α«µÑñπαá¼ óδσ«ñá, «¡á ó«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ DOS ¿ »ÑαÑñáÑΓ ó ¬á- τÑßΓóÑ ¬«ñá ó«ºóαáΓá º¡áτÑ¡¿Ñ, ß«ñÑαªáΘÑÑß∩ ó àσitCode. B.Pascal 7 & Objects/LR - 403 - Äíαáí«Γ¬á »αÑαδóá¡¿⌐ ───────────────────────────────────────────────────────────────── ü¿í½¿«ΓÑ¬á ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ Borland Pascal ¿ ¬«ñ, ß«ºñá- óáÑ¼δ⌐ ¬«¼»¿½∩Γ«α«¼, ∩ó½∩εΓß∩ »«½¡«ßΓ∞ε »αÑαδóáÑ¼δ¼¿. ü«½∞Φ¿¡ßΓó« ¿º »α«úαá¼¼ í¿í½¿«ΓÑ¬¿ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ∩ó½∩εΓß∩ Γá¬ªÑ αÑÑ¡ΓÑ- αáíÑ½∞¡δ¼¿, τΓ« »«ºó«½∩ÑΓ óá¼ »¿ßáΓ∞ ¡á Borland Pascal »α«úαá¼¼δ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐. ä½∩ Windows »«ñ»α«úαá¼¼δ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ »¿ßáΓ∞ ¡Ñ ß½Ñ- ñπÑΓ. àß½¿ óδ φΓ« ßñÑ½áÑΓÑ, »«ß½ÑñßΓó¿Ñ¼ ¼«ªÑΓ íδΓ∞ ßí«⌐ ß¿ßΓÑ¼δ. Éáºαáí«Γ¬á »α«µÑñπα «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ ───────────────────────────────────────────────────────────────── Åα«µÑñπαδ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ «»¿ßδóáεΓß∩ ß »«¼«Θ∞ε ñ¿αÑ¬- Γ¿óδ Interrupt. é ¬áªñ«⌐ »α«µÑñπαÑ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ ñ«½ªÑ¡ «»αÑñÑ½∩Γ∞ß∩ ß½ÑñπεΘ¿⌐ ºáú«½«ó«¬ »α«µÑñπαδ (¿½¿, ¬á¬ íπñÑΓ »«∩ß- ¡∩Γ∞ß∩ ñá½ÑÑ, Ñú« »«ñ¼¡«ªÑßΓó«): procedure IntHandler(Flags,CS,IPAX,BX,CX,DX,SI,DI,DS,ES,BP: Word); interrupt; begin . . . end; èá¬ ¼«ª¡« ó¿ñÑΓ∞, óßÑ αÑú¿ßΓαδ »ÑαÑñáεΓß∩ ó ¬áτÑßΓóÑ »ßÑóñ«- »áαá¼ÑΓα«ó, Γá¬ τΓ« óδ ¼«ªÑΓÑ ¿σ ¿ß»«½∞º«óáΓ∞ ¿ ¿º¼Ñ¡∩Γ∞ ó ßó«Ñ⌐ »α«úαá¼¼Ñ. éδ ¼«ªÑΓÑ «»πßΓ¿Γ∞ ¡Ñ¬«Γ«αδÑ ¿º »áαá¼ÑΓα«ó ¿½¿ óßÑ »á- αá¼ÑΓαδ, ¡áτ¿¡á∩ ß »áαá¼ÑΓαá Flag ¿ ¬«¡τá∩ éÉ. Å«»δΓ¬á «»¿ßáΓ∞ í«½∞ΦÑÑ ¬«½¿τÑßΓó« »áαá¼ÑΓα«ó ¿½¿ »«»δΓ¬á «»πßΓ¿Γ∞ «ΓñÑ½∞¡δ⌐ »á- αá¼ÑΓα íÑº »α«»πß¬á Γá¬ªÑ Γ«ú« »áαá¼ÑΓαá, ºá ¬«Γ«αδ¼ «¡ ß½ÑñπÑΓ, ∩ó½∩ÑΓß∩ «Φ¿í¬«⌐, σ«Γ∩ ß««íΘÑ¡¿∩ « ¡Ñ⌐ ¡Ñ óδñáÑΓß∩. ìá»α¿¼Ñα: procedure IntHandler(DI,ES,BP : Word); { ¡Ññ«»πßΓ¿¼δ⌐ ºáú«½«ó«¬ } procedure IntHandler(SI,DI,DS,ES,BP : Word); { ñ«»πßΓ¿¼δ⌐ ºáú«½«ó«¬ } Åα¿ óσ«ñÑ ó ¡ÑÑ »α«µÑñπαá «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ áóΓ«¼áΓ¿τÑß¬¿ ß«σαá¡∩ÑΓ óßÑ αÑú¿ßΓαδ (¡Ñºáó¿ß¿¼« «Γ ºáú«½«ó¬á »α«µÑñπαδ) ¿ ¿¡¿- µ¿á½¿º¿απÑΓ αÑú¿ßΓα DS: PUSH AX PUSH BX PUSH DX PUSH SI PUSH DI PUSH DS PUSH ES B.Pascal 7 & Objects/LR - 404 - PUSH BP MOV BP,SP SUB SP,LocalSize MOV AX,SEG DATA MOV DS,AX ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á «ΓßπΓßΓó¿Ñ »α«µÑñπαδ æLI, τΓ«íδ αáºαÑ- Φ¿Γ∞ ñá½∞¡Ñ⌐Φ¿Ñ »αÑαδóá¡¿∩. æ »«¼«Θ∞ε «»ÑαáΓ«αá inline óδ ¼«ªÑΓÑ ¡á»¿ßáΓ∞ ÑÑ ßá¼¿ (Ñß½¿ φΓ« ¡Ñ«íσ«ñ¿¼«). ìáí«α «»ÑαáΓ«α«ó óδσ«ñá ó«ßßΓá¡áó½¿óáÑΓ αÑú¿ßΓαδ ¿ óδ»«½¡∩ÑΓ Σπ¡¬µ¿ε ó«ºóαáΓá »αÑαδóá¡¿∩: MOV SP,BP POP BP POP ES POP DS POP DI POP SI POP DX POP CX POP BX POP AX IRET Åα«µÑñπαá «íαáí«Γ¬¿ »αÑαδóá¡¿⌐ ¼«ªÑΓ ¼«ñ¿Σ¿µ¿α«óáΓ∞ ßó«¿ »á- αá¼ÑΓαδ. è«úñá «íαáí«Γτ¿¬ »αÑαδóá¡¿⌐ ó«ºóαáΓ¿Γ π»αáó½Ñ¡¿Ñ, ¿º¼Ñ- ¡Ñ¡¿Ñ «»¿ßá¡¡δσ »áαá¼ÑΓα«ó »α¿óÑñÑΓ ¬ ¿º¼Ñ¡Ñ¡¿ε ß«ñÑαª¿¼«ú« ß««Γ- óÑΓßΓóπεΘ¿σ αÑú¿ßΓα«ó. ¥Γ« ¼«ªÑΓ «¬áºáΓ∞ß∩ »«½Ñº¡δ¼, ¬«úñá óδ ¿ß»«½∞ºπÑΓÑ «íαáí«Γτ¿¬ »αÑαδóá¡¿⌐ ó ¬áτÑßΓóÑ »«½∞º«óáΓÑ½∞ß¬«ú« ßÑαó¿ß¡«ú« ßαÑñßΓóá, á¡á½«ú¿τ¡«ú« óδº«óπ Σπ¡¬µ¿¿ DOS »« ¿¡ßΓαπ¬- µ¿¿ INÆ 21ì. é »α«µÑñπαáσ «íαáí«Γ¬¿ »αÑαδóá¡¿⌐, «íß½πª¿óáεΘ¿σ »αÑαδóá¡¿∩, »«½πτáÑ¼δÑ «Γ á»»áαáΓ¡δσ ßσÑ¼, ß½ÑñπÑΓ ó«ºñÑαª¿óáΓ∞ß∩ «Γ ¿ß»«½∞- º«óá¡¿∩ ¬á¬¿σ-½¿í« »α«úαá¼¼ óó«ñá-óδó«ñá Æπαí« Åáß¬á½∩ ¿½¿ »α«ú- αá¼¼ αáß»αÑñÑ½Ñ¡¿∩ »á¼∩Γ¿, »«ß¬«½∞¬π «¡¿ ¡Ñ ∩ó½∩εΓß∩ αÑÑ¡ΓÑαá- íÑ½∞¡δ¼¿. êº-ºá ¿σ ¡ÑαÑÑ¡ΓÑαáíÑ½∞¡«ßΓ¿ ¡Ñ½∞º∩ Γá¬ªÑ ¿ß»«½∞º«óáΓ∞ ¡¿¬á¬¿Ñ Σπ¡¬µ¿¿ DOS. B.Pascal 7 & Objects/LR - 405 - ─────────────────────────────────────────────────────────────────────── â½áóá 23. ÇóΓ«¼áΓ¿τÑß¬á∩ «»Γ¿¼¿ºáµ¿∩ ───────────────────────────────────────────────────────────────── é Borland Pascal óδ»«½¡∩ÑΓß∩ ¡Ñß¬«½∞¬« αáº½¿τ¡δσ Γ¿»«ó «»Γ¿- ¼¿ºáµ¿¿ ¬«ñá, ¡áτ¿¡á∩ «Γ ßóÑαΓδóá¡¿∩ ¬«¡ßΓá¡Γ ¿ óδτ¿ß½Ñ¡¿∩ íπ- ½Ñóß¬¿σ óδαáªÑ¡¿⌐ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ¿ ¬«¡τá∩ φΣΣÑ¬Γ¿ó¡«⌐ ¬«¼»«- ¡«ó¬«⌐. Éáßß¼«Γα¿¼ ¡Ñ¬«Γ«αδÑ ó¿ñδ «»Γ¿¼¿ºáµ¿¿. æóÑαΓδóá¡¿Ñ ¬«¡ßΓá¡Γ ───────────────────────────────────────────────────────────────── àß½¿ πτáßΓóπεΘ¿Ñ ó «»Ñαáµ¿¿ «»Ñαá¡ñδ »αÑñßΓáó½∩εΓ ß«í«⌐ ¬«¡ßΓá¡Γδ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á, Γ« ó Borland Γá¬«Ñ óδαáªÑ¡¿Ñ óδτ¿ß- ½∩ÑΓß∩ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿. ìá»α¿¼Ñα, óδαáªÑ¡¿Ñ: ò := 3 + 4 * 2 »α¿óÑñÑΓ ¬ úÑ¡Ñαáµ¿¿ Γá¬«ú« ªÑ ¬«ñá, ¬á¬ óδαáªÑ¡¿Ñ ò := 11, á óδ- αáªÑ¡¿Ñ: S := 'In' + 'Out' úÑ¡Ñα¿απÑΓ Γ«Γ ªÑ ¬«ñ, τΓ« S := 'InOut'. Ç¡á½«ú¿τ¡«, Ñß½¿ «»Ñαá¡ñδ Σπ¡¬µ¿⌐ Abs, Sqr, Succ, Pred, Odd, Lo, Hi ¿ Swap »αÑñßΓáó½∩εΓ ß«í«⌐ ¬«¡ßΓá¡Γδ »ÑαÑτ¿ß½¿¼«ú« Γ¿»á, Γ« Σπ¡¬µ¿∩ óδτ¿ß½∩ÑΓß∩ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿. àß½¿ ¿¡ñÑ¬ß«¼ ¼áßß¿óá ∩ó½∩ÑΓß∩ ¬«¡ßΓá¡Γá ¿½¿ óδαáªÑ¡¿Ñ, ß«ß- Γ«∩ΘÑÑ ¿º ¬«¡ßΓá¡Γ, Γ« áñαÑß φ½Ñ¼Ñ¡Γá óδτ¿ß½∩ÑΓß∩ ó« óαÑ¼∩ ¬«¼»¿- ½∩µ¿¿. ìá»α¿¼Ñα, ñ«ßΓπ» ¬ φ½Ñ¼Ñ¡Γπ Dátá[5,5] Γá¬ ªÑ φΣΣÑ¬Γ¿óÑ¡, ¬á¬ ñ«ßΓπ» ¬ »α«ßΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐. æ½¿∩¡¿Ñ ¬«¡ßΓá¡Γ ───────────────────────────────────────────────────────────────── êß»«½∞º«óá¡¿Ñ «ñ¡«⌐ ¿ Γ«⌐ ªÑ ßΓα«¬«ó«⌐ ¬«¡ßΓá¡Γδ ñóá ¿½¿ í«- ½ÑÑ αáº »α¿ó«ñ¿Γ ¬ úÑ¡Ñαáµ¿¿ Γ«½∞¬« «ñ¡«⌐ ¬«»¿¿ ¬«¡ßΓá¡Γδ. ìá»α¿- ¼Ñα, ñóá ¿½¿ í«½ÑÑ «»ÑαáΓ«αá Write('D«nÑ') ó «ñ¡«⌐ ¿ Γ«⌐ ªÑ τáßΓ¿ »α«úαá¼¼δ »α¿óÑñÑΓ ¬ ßßδ½¬Ñ ¡á «ñ¡π ¿ Γπ ªÑ ¬«»¿ε ßΓα«¬«ó«⌐ ¬«¡ß- Γá¡Γδ 'DonÑ'. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ───────────────────────────────────────────────────────────────── é Borland Pascal αÑá½¿ºπÑΓß∩ óδτ¿ß½Ñ¡¿Ñ íπ½Ñóß¬«ú« óδαáªÑ¡¿∩ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ. ¥Γ« «º¡áτáÑΓ, τΓ« óδτ¿ß½Ñ¡¿Ñ íπ½Ñóß¬«ú« óδαá- ªÑ¡¿∩ »αÑ¬αáΘáÑΓß∩, ¬á¬ Γ«½∞¬« αÑºπ½∞ΓáΓ óßÑú« íπ½Ñóß¬«ú« óδαáªÑ- ¡¿∩ ßΓá¡«ó¿Γß∩ «τÑó¿ñ¡δ¼. Åα¿ φΓ«¼ «íÑß»Ñτ¿óáÑΓß∩ ¼¿¡¿¼á½∞¡«Ñ óαÑ¼∩ óδ»«½¡Ñ¡¿∩ ¿, «íδτ¡«, ¼¿¡¿¼á½∞¡δ⌐ αáº¼Ñα «íΩÑ¬Γ¡«ú« ¬«ñá. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ñÑ½áÑΓ Γá¬ªÑ ó«º¼«ª¡δ¼ óδτ¿ß½Ñ¡¿Ñ ¬«¡ßΓαπ¬µ¿⌐, ¬«Γ«αδÑ ¿¡áτÑ íδ½¿ íδ ¡Ññ«»πßΓ¿¼δ¼¿. ìá»α¿¼Ñα: B.Pascal 7 & Objects/LR - 406 - while (I<=Length(S)) and (S[I]<>' ') do Inc(I); while (P<>nil) and (P^.Value<>5) do P:=P^.Next; é «í«¿σ ß½πτá∩σ, Ñß½¿ »Ñαóá∩ »α«óÑα¬á ¿¼ÑÑΓ º¡áτÑ¡¿Ñ FalsÑ, óΓ«αá∩ »α«óÑα¬á ¡Ñ óδτ¿ß½∩ÑΓß∩. Åα«Γ¿ó«»«½«ª¡δ¼ óδτ¿ß½Ñ¡¿ε »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ ∩ó½∩ÑΓß∩ »«½¡«Ñ óδτ¿ß½Ñ¡¿Ñ, ¬«Γ«α«Ñ ¼«ª¡« óδíαáΓ∞ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$é+}. é φΓ«¼ ß½πτáÑ «íÑß»Ñτ¿óáÑΓß∩ óδτ¿ß½Ñ¡¿Ñ ¬áªñ«ú« «»Ñαá¡ñá íπ½Ñóß¬«ú« óδαáªÑ¡¿∩. Åáαá¼ÑΓαδ-¬«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── Æá¼, úñÑ φΓ« ó«º¼«ª¡«, ó¼ÑßΓ« »áαá¼ÑΓα«ó-º¡áτÑ¡¿⌐ ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ »áαá¼ÑΓαδ-¬«¡ßΓá¡Γδ. Åáαá¼ÑΓαδ-¬«¡ßΓá¡Γδ ¡áßΓ«½∞¬« ªÑ φΣΣÑ¬Γ¿ó¡δ, τΓ« ¿ »áαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ, á ó« ¼¡«ú¿σ ß½πτá∩σ »αÑó«ßσ«ñ¿Γ ¿σ »« φΣΣÑ¬Γ¿ó¡«ßΓ¿. é τáßΓ¡«ßΓ¿, »áαá¼ÑΓαδ-¬«¡ßΓá¡Γδ úÑ¡Ñα¿απεΓ »«½πτÑ¡¿Ñ ¬«ñá ¼Ñ¡∞ΦÑú« αáº¼Ñαá ¿ »α«úαá¼¼δ ß ¡¿¼¿ óδ- »«½¡∩εΓß∩ íδßΓαÑÑ, τÑ¼ »α«úαá¼¼δ ß »áαá¼ÑΓαá¼¿-º¡áτÑ¡¿∩¼¿ ßΓαπ¬- Γπα¡«ú« ¿ ßΓα«¬«ó«ú« Γ¿»«ó. Åáαá¼ÑΓαδ-¬«¡ßΓá¡Γδ í«½ÑÑ φΣΣÑ¬Γ¿ó¡δ, τÑ¼ »áαá¼ÑΓαδ-º¡áτÑ- ¡¿∩, »«ß¬«½∞¬π ¬«¼»¿½∩Γ«απ ¡Ñ »α¿σ«ñ¿Γß∩ úÑ¡Ñα¿α«óáΓ∞ ¬«»¿¿ Σá¬- Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó ¡á óσ«ñÑ ó »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. ç¡áτÑ¡¿∩ »á- αá¼ÑΓα«ó ñ«½ª¡δ íδΓ∞ ß¬«»¿α«óá¡δ ó ½«¬á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ, Γá¬ τΓ« ¼«ñ¿Σ¿¬áµ¿¿ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ¡Ñ »α¿óÑñπΓ ¬ ¼«ñ¿Σ¿¬áµ¿¿ Σá¬- Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó. Å«ß¬«½∞¬π Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ-¬«¡ßΓá¡Γδ ¼«- ñ¿Σ¿µ¿α«óáΓ∞ß∩ ¡Ñ ¼«úπΓ, ¬«¼»¿½∩Γ«απ ¡ÑΓ ¡Ñ«íσ«ñ¿¼«ßΓ¿ ¬«»¿α«óáΓ∞ Σá¬Γ¿τÑß¬¿Ñ »áαá¼ÑΓαδ, τΓ« φ¬«¡«¼¿Γ ¬«ñ ¿ »α«ßΓαá¡ßΓó« ó ßΓÑ¬Ñ. ôßΓαá¡Ñ¡¿Ñ ¿ºíδΓ«τ¡«⌐ ºáúαπº¬¿ π¬áºáΓÑ½Ñ⌐ ───────────────────────────────────────────────────────────────── é «»αÑñÑ½Ñ¡¡δσ ß¿Γπáµ¿∩σ úÑ¡ÑαáΓ«α ¬«ñá Borland Pascal ¼«ªÑΓ πßΓαá¡¿Γ∞ ¿ºíδΓ«τ¡δÑ ¿¡ßΓαπ¬µ¿¿ ºáúαπº¬¿ π¬áºáΓÑ½Ñ⌐, π¼Ñ¡∞Φá∩ ΓÑ¼ ßá¼δ¼ αáº¼Ñα ¬«ñá ¿ «íÑß»Ñτ¿óá∩ í«½ÑÑ íδßΓα«Ñ Ñú« óδ»«½¡Ñ¡¿Ñ. è«úñá úÑ¡ÑαáΓ«α ¬«ñá ¼«ªÑΓ «íÑß»Ñτ¿Γ∞, τΓ« π¬áºáΓÑ½∞ «ßΓáÑΓß∩ »«ßΓ«∩¡¡δ¼ ¡á πτáßΓ¬Ñ ½¿¡Ñ⌐¡«ú« ¬«ñá (¬«ñá, ¡Ñ ß«ñÑαªáΘÑú« »ÑαÑ- σ«ñ«ó ¡á ¡Ñú«), ¿ ¬«úñá π¬áºáΓÑ½∞ πªÑ ºáúαπªÑ¡ ó »áαπ αÑú¿ßΓα«ó (¡á»α¿¼Ñα, ES:DI), úÑ¡ÑαáΓ«α ¬«ñá πßΓαá¡∩ÑΓ ¡Ñ¡πª¡δÑ ºáúαπº¬¿ π¬áºáΓÑ½Ñ⌐ ó í½«¬Ñ ¬«ñá. ô¬áºáΓÑ½∞ ßτ¿ΓáÑΓß∩ ¬«¡ßΓá¡Γ«⌐, Ñß½¿ «¡ »«½πτáÑΓß∩ ¿º »áαá- ¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ (»áαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ óßÑúñá »ÑαÑñáεΓß∩ ¬á¬ π¬á- ºáΓÑ½¿) ¿½¿ ¿º ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡πε «»ÑαáΓ«α with. Å«φΓ«¼π «»Ñαá- Γ«α with τáßΓ« ∩ó½∩ÑΓß∩ í«½ÑÑ φΣΣÑ¬Γ¿ó¡δ¼ (¡« ¡¿¬«úñá ¡Ñ íπñÑΓ ¼Ñ¡ÑÑ φΣΣÑ¬Γ¿ó¡δ¼), τÑ¼ ºá»¿ß∞ ñ½∩ ¬áªñ«⌐ ßßδ½¬¿ ¡á φ½Ñ¼Ñ¡Γ »«½- ¡«ßΓ∞ε πΓ«τ¡Ñ¡¡«⌐ »ÑαÑ¼Ñ¡¡«⌐. B.Pascal 7 & Objects/LR - 407 - Å«ñßΓá¡«ó¬á ¬«¡ßΓá¡Γ ¼¡«ªÑßΓóÑ¡¡«ú« Γ¿»á ───────────────────────────────────────────────────────────────── è«úñá »αáóá∩ τáßΓ∞ «»ÑαáΓ«α in ∩ó½∩ÑΓß∩ ¬«¡ßΓá¡Γ«⌐ ¼¡«ªÑßΓ- óÑ¡¡«ú« Γ¿»á, ¬«¼»¿½∩Γ«α úÑ¡Ñα¿απÑΓ ó¬½ετÑ¡¿Ñ »α«óÑα¬¿ ß »«¼«Θ∞ε ¬«¼á¡ñ CMP. Æá¬¿Ñ »«ßΓáó½∩Ñ¼δÑ »α«óÑα¬¿ í«½ÑÑ φΣΣÑ¬Γ¿ó¡δ τÑ¼ ¬«ñ, úÑ¡Ñα¿απÑ¼δ⌐ ó »α«Γ¿ó¡«¼ ß½πτáÑ ß««ΓóÑΓßΓóπεΘ¿¼¿ íπ½Ñóß¬¿¼¿ óδαá- ªÑ¡¿∩¼¿ ß ¿ß»«½∞º«óá¡¿Ñ¼ «»Ñαáµ¿⌐ «Γ¡«ΦÑ¡¿∩. ìá»α¿¼Ñα, «»ÑαáΓ«α: if ((Ch >= 'A') and (Ch <: 'Z')) or ((Ch >= 'a') and (Ch <= 'z')) then ...; ¼Ñ¡ÑÑ τ¿ΓáÑ¼ ¿ ¼Ñ¡ÑÑ φΣΣÑ¬Γ¿óÑ¡ τÑ¼ if Ch in ['A'..'Z', 'a'..'z'] then ...; Å«ß¬«½∞¬π ßóÑαΓδóá¡¿Ñ ¬«¡ßΓá¡Γ »α¿¼Ñ¡∩ÑΓß∩ ¬ ¬«¡ßΓá¡Γá¼ ¼¡«- ªÑßΓóÑ¡¡«ú« Γ¿»á Γá¬ªÑ ¬á¬ ¬ ¬«¡ßΓá¡Γá¼ ñαπú¿σ Γ¿»«ó, ¼«ª¡« ¿ß- »«½∞º«óáΓ∞ «»¿ßá¡¿∩ const íÑº »«ΓÑα¿ φΣΣÑ¬Γ¿ó¡«ßΓ¿. const Upper = ['A'..'Z']; Lower = ['a'..'z']; Alpha = Upper + Lower; æ πτÑΓ«¼ ñá¡¡δσ «»¿ßá¡¿⌐ «»ÑαáΓ«α if úÑ¡Ñα¿απÑΓ Γ«Γ ªÑ ¬«ñ, τΓ« ¿ ó ß½πτáÑ »αÑñδñπΘÑú« «»ÑαáΓ«α if: if Ch in Alpha then ... ; îá½δÑ ¼¡«ªÑßΓóá ───────────────────────────────────────────────────────────────── ä½∩ «»Ñαáµ¿⌐ ß ¼á½δ¼¿ ¼¡«ªÑßΓóá¼¿ ¬«¼»¿½∩Γ«α úÑ¡Ñα¿απÑΓ «τÑ¡∞ φΣΣÑ¬Γ¿ó¡δ⌐ ¬«ñ. îá½«Ñ ¼¡«ªÑßΓó« - φΓ« ¼¡«ªÑßΓó« ß ¡¿ª¡¿¼ »«α∩ñ¬«óδ¼ º¡áτÑ¡¿Ñ¼ ó ñ¿á»áº«¡Ñ 0..7 ¿ óÑασ¡¿¼ »«α∩ñ¬«óδ¼ º¡áτÑ- ¡¿Ñ¼ ó ñ¿á»áº«¡Ñ 0..15. ìá»α¿¼Ñα, ß½ÑñπεΘ¿Ñ ¼¡«ªÑßΓóá TByteSet ¿ TWordSet ∩ó½∩εΓß∩ ¼á½δ¼¿ ¼¡«ªÑßΓóá¼¿: type TByteSet = set of 0..7; TWordSet = set of 0..15; Ä»Ñαáµ¿¿ ß ¼á½δ¼¿ ¼¡«ªÑßΓóá¼¿, Γá¬¿Ñ ¬á¬ «íΩÑñ¿¡Ñ¡¿Ñ (+), αáº¡«ßΓ∞ (-), »ÑαÑßÑτÑ¡¿Ñ (*) ¿ »α«óÑα¬á ¡á ó¬½ετÑ¡¿Ñ in úÑ¡Ñα¿- απεΓ ß »«¼«Θ∞ε «»Ñαáµ¿⌐ AND, OR, NOT ¿ TEST ó¼ÑßΓ« óδº«óá í¿í½¿«- ΓÑ¬ ¿ß»«½¡∩εΘÑ⌐ ß¿ßΓÑ¼δ ¿¡ßΓαπ¬µ¿¿ ¼áΦ¿¡¡«ú« ¬«ñá. Ç¡á½«ú¿τ¡«, ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ Include ¿ Exclude úÑ¡Ñα¿απεΓ »α¿ »α¿¼Ñ¡Ñ¡¿¿ ¬ ¼á½δ¼ ¼¡«ªÑßΓóá¼ »«ßΓáó½∩Ñ¼δ⌐ ¬«ñ. Å«α∩ñ«¬ óδτ¿ß½Ñ¡¿∩ ───────────────────────────────────────────────────────────────── æΓá¡ñáαΓá¼¿ Åáß¬á½∩ ñ«»πß¬áÑΓß∩, τΓ« «»Ñαá¡ñδ ó óδαáªÑ¡¿¿ B.Pascal 7 & Objects/LR - 408 - τáßΓ« óδτ¿ß½∩εΓß∩ ó »«α∩ñ¬Ñ, «Γ½¿τ¡«¼ «Γ Γ«ú«, ó ¬«Γ«α«¼ «¡¿ ºá- »¿ßá¡δ (ß½Ñóá ¡á»αáó«). ìá»α¿¼Ñα, «»ÑαáΓ«α: I := F(J) div G(J) úñÑ F ¿ G - Σπ¡¬µ¿¿ µÑ½«ú« Γ¿»á, »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« G óδτ¿ß½∩- ÑΓß∩ »ÑαÑñ óδτ¿ß½Ñ¡¿Ñ¼ F, Γá¬ ¬á¬ φΓ« »«ºó«½∩ÑΓ ¬«¼»¿½∩Γ«απ »«½π- τ¿Γ∞ í«½ÑÑ «»Γ¿¼á½∞¡δ⌐ «íΩÑ¬Γ¡δ⌐ ¬«ñ. éáª¡«, »«φΓ«¼π, τΓ«íδ óδαá- ªÑ¡¿Ñ ¡¿¬«úñá ¡Ñ ºáó¿ßÑ½« «Γ ¬á¬«ú«-Γ« ¬«¡¬αÑΓ¡«ú« »«α∩ñ¬á óδτ¿ß½Ñ¡¿∩ óßΓα«Ñ¡¡δσ Σπ¡¬µ¿⌐. àß½¿ óÑα¡πΓ∞ß∩ ¬ »αÑñδñπΘÑ¼π »α¿- ¼Ñαπ, Γ« ñ½∩ Γ«ú«, τΓ«íδ óδºóáΓ∞ Σπ¡¬µ¿ε F »ÑαÑñ Σπ¡¬µ¿Ñ⌐ G, ¼«ª- ¡« ¿ß»«½∞º«óáΓ∞ óαÑ¼Ñ¡¡πε »ÑαÑ¼Ñ¡¡πε: T := F(J); I := T div G(J); êß¬½ετÑ¡¿Ñ¼ ¿º φΓ«ú« »αáó¿½á ∩ó½∩ÑΓß∩ óδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ (αáºαÑΦÑ¡¡«Ñ ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá {$B-}, »α¿ ¬«Γ«α«¼ «»Ñ- αá¡ñδ íπ½Ñóß¬«ú« Γ¿»á, ßó∩ºá¡¡δÑ «»Ñαáµ¿∩¼¿ and ¿½¿ «r, óßÑúñá óδτ¿ß½∩εΓß∩ ß½Ñóá ¡á»αáó«. Åα«óÑα¬á ¡á ñ«»πßΓ¿¼«ßΓ∞ úαá¡¿µ ───────────────────────────────────────────────────────────────── Åα¿ßóá¿óá¡¿Ñ ¬«¡ßΓá¡Γδ »ÑαÑ¼Ñ¡¡«⌐ ¿ ¿ß»«½∞º«óá¡¿Ñ ¬«¡ßΓá¡Γδ ó ¬áτÑßΓóÑ º¡áτÑ¡¿∩ »áαá¼ÑΓαá »α«óÑα∩ÑΓß∩ ó« óαÑ¼∩ ¬«¼»¿½∩µ¿¿ ¡á ñ«»πßΓ¿¼«ßΓ∞ ¡áσ«ªñÑ¡¿∩ ó ºáñá¡¡δσ úαá¡¿µáσ. Åα¿ φΓ«¼ úÑ¡Ñα¿απÑΓ- ß∩ Γá¬«⌐ ¬«ñ, τΓ« ó« óαÑ¼∩ óδ»«½¡Ñ¡¿∩ Γá¬¿σ »α«óÑα«¬ ¡Ñ ñÑ½áÑΓß∩. ìá»α¿¼Ñα, ò := 999, úñÑ ò - »ÑαÑ¼Ñ¡¡á∩ íá⌐Γ«ó«ú« Γ¿»á (BytÑ), »α¿ó«ñ¿Γ ¬ «Φ¿í¬Ñ ¬«¼»¿½∩µ¿¿. êß»«½∞º«óá¡¿Ñ ßñó¿úá ó¼ÑßΓ« π¼¡«ªÑ¡¿∩ ───────────────────────────────────────────────────────────────── Ä»Ñαáµ¿∩ X*C, úñÑ C - ¬«¡ßΓá¡Γá, ∩ó½∩εΘá∩ß∩ ßΓÑ»Ñ¡∞ε τ¿ß½á 2, »α¿ó«ñ¿Γ ¬ úÑ¡Ñαáµ¿¿ «íΩÑ¬Γ¡«ú« ¬«ñá, ó ¬«Γ«α«¼ ¿ß»«½∞ºπÑΓß∩ ¿¡ßΓαπ¬µ¿∩ Shl (ßñó¿ú ó½Ñó«). Ç¡á½«ú¿τ¡«, ¬«úñá αáº¼Ñα¡«ßΓ∞ ¼áßß¿óá »αÑñßΓáó½∩ÑΓ ß«í«⌐ ßΓÑ»Ñ¡∞ τ¿ß½á 2, Γ« ñ½∩ óδτ¿ß½Ñ¡¿∩ ¿¡ñÑ¬ß¡δσ óδαáªÑ¡¿⌐ ¿ß»«½∞ºπ- ÑΓß∩ ¿¡ßΓαπ¬µ¿∩ Shl (á ¡Ñ ¿¡ßΓαπ¬µ¿∩ îul). ÇóΓ«¼áΓ¿τÑß¬«Ñ óδαáó¡¿óá¡¿Ñ ¡á úαá¡¿µπ ß½«óá ───────────────────────────────────────────────────────────────── Å« π¼«½τá¡¿ε Borland Pascal óδαáó¡¿óáÑΓ óßÑ »ÑαÑ¼Ñ¡¡δÑ ¿ Γ¿- »¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ, »αÑóδΦáεΘ¿Ñ »« αáº¼Ñαπ 1 íá⌐Γ, ¡á úαá¡¿µπ ¼áΦ¿¡¡«ú« ß½«óá. ìá óßÑσ 16-αáºα∩ñ¡δσ »α«µÑßß«αáσ ßÑ¼Ñ⌐ßΓóá 80σ86 óδαáó¡¿óá¡¿Ñ ¡á úαá¡¿µπ ß½«óá «º¡áτáÑΓ í«½ÑÑ íδßΓα«Ñ óδ»«½¡Ñ¡¿Ñ, »«ß¬«½∞¬π ñ«ßΓπ» ¬ φ½Ñ¼Ñ¡Γá¼ αáº¼Ñα«¼ ó ß½«ó« ¿½¿ τÑΓ¡δ¼ áñαÑßá¼ «ßπΘÑßΓó½∩ÑΓß∩ íδßΓαÑÑ, τÑ¼ ¬ ß½«óá¼ »« ¡ÑτÑΓ¡«¼π áñαÑßπ. éδαáó¡¿óá¡¿Ñ ñá¡¡δσ π»αáó½∩ÑΓß∩ ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá $A. B.Pascal 7 & Objects/LR - 409 - Å« π¼«½τá¡¿ε ó ß«ßΓ«∩¡¿¿ {$A+} »ÑαÑ¼Ñ¡¡δÑ ¿ Γ¿»¿º«óá¡¡δÑ ¬«¡ßΓá¡- Γδ óδαáó¡¿óáεΓß∩ π¬áºá¡¡δ¼ óδΦÑ «íαáº«¼. é ß«ßΓ«∩¡¿¿ {$A-} ¡¿¬á- ¬¿σ ñÑ⌐ßΓó¿⌐ »« óδαáó¡¿óá¡¿ε ¡Ñ »α«¿ºó«ñ¿Γß∩. Åα¿¼Ñτá¡¿Ñ: äá½∞¡Ñ⌐Φ¿Ñ »«ñα«í¡«ßΓ¿ »α¿óÑñÑ¡δ ó â½áóÑ 2 ("ä¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá") "æ»αáó«τ¡«ú« απ¬«ó«ñßΓóá »α«úαá¼- ¼¿ßΓá". ôñá½Ñ¡¿Ñ ¡Ñ¿ß»«½∞ºπÑ¼«ú« ¬«ñá ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«αδ, « ¬«Γ«αδσ ¿ºóÑßΓ¡«, τΓ« «¡¿ ¡¿¬«úñá ¡Ñ íπñπΓ óδ- »«½¡∩Γ∞ß∩, ¡Ñ ó¬½ετáεΓß∩ ó «íΩÑ¬Γ¡δ⌐ ¬«ñ. äá¡¡δÑ óδαáªÑ¡¿∩, ¡á»- α¿¼Ñα, ¡Ñ »α¿óÑñπΓ ¬ úÑ¡Ñαáµ¿¿ «íΩÑ¬Γ¡«ú« ¬«ñá: if false then statement { «»ÑαáΓ«α } while false do statement ¥ΣΣÑ¬Γ¿ó¡á∩ ¬«¼»«¡«ó¬á ───────────────────────────────────────────────────────────────── è«¼»«¡«óΘ¿¬ Borland Pascal áóΓ«¼áΓ¿τÑß¬¿ πñá½∩ÑΓ ¡Ñ¿ß»«½∞ºπ- Ñ¼δ⌐ ¬«ñ (»« »α«µÑñπαá¼), Γ« ÑßΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ∩ó½∩εΘ¿Ñß∩ τáßΓ∞ε ß¬«¼»¿½¿α«óá¡¡«⌐ »α«úαá¼¼δ, ¡« ¬ ¬«Γ«αδ¼ ¡ÑΓ «íαáΘÑ¡¿⌐, ¡Ñ ó¬½ετáεΓß∩ ó Σá⌐½ Γ¿»á .EXE. Åα«µÑñπαδ, Σπ¡¬µ¿¿, »ÑαÑ¼Ñ¡¡δÑ ¿ Γ¿- »¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ, πτáßΓóπεΘ¿Ñ ó »α«µÑßßÑ ¬«¼»¿½∩µ¿¿, ¡« ßßδ½- ¬¿ ¡á ¬«Γ«αδÑ «ΓßπΓßΓóπεΓ, πñá½∩εΓß∩ ¿º Σá⌐½a .EXE. ôñá½Ñ¡¿Ñ ¡Ñ- ¿ß»«½∞ºπÑ¼«ú« ¬«ñá óδ»«½¡∩ÑΓß∩ »« »α«µÑñπαá¼, á πñá½Ñ¡¿Ñ ¡Ñ¿ß- »«½∞ºπÑ¼δσ ñá¡¡δσ - »« ßÑ¬µ¿∩¼, úñÑ φΓ¿ ñá¡¡δÑ «»¿ßδóáεΓß∩. Éáßß¼«Γα¿¼ ß½ÑñπεΘπε »α«úαá¼¼π: program SmartLink; const H: array[0..15] of char = '0123456789ABCDEF'; var I,J : integer; X,Y : real; var S: string[79]; var A: array[1..10000] of integer; procedure P1: begin A[1] = 1; end; procedure P2; begin I := 1; B.Pascal 7 & Objects/LR - 410 - end; procedure P3; begin S := 'Borland Pascal'; P2; end; begin P3; end; Äß¡«ó¡á∩ »α«úαá¼¼á óδºδóáÑΓ »α«µÑñπαπ P3, ¬«Γ«αá∩ óδºδóáÑΓ »α«µÑñπαπ P2, »«φΓ«¼π «íÑ »α«µÑñπαδ P2 ¿ P3 ó¬½ετáεΓß∩ ó Σá⌐½ .EXE. Å«ß¬«½∞¬π P2 ßßδ½áÑΓß∩ ¡á »Ñαóδ⌐ αáºñÑ½ «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡- ¡δσ, á P3 ßßδ½áÑΓß∩ ¡á óΓ«α«⌐ αáºñÑ½ «»¿ßá¡¿Ñ »ÑαÑ¼Ñ¡¡δσ, »ÑαÑ- ¼Ñ¡¡δÑ I, J, X, Y, S Γá¬ªÑ ó¬½ετáεΓß∩ ó óδ»«½¡∩Ñ¼δ⌐ Σá⌐½. Äñ¡á¬« ¡á »α«µÑñπαπ P1 ¡¿¬á¬¿σ ßßδ½«¬ ¡ÑΓ, á ó¬½ετÑ¡¡δÑ ó óδ»«½¡∩Ñ¼δ⌐ Σá⌐½ »α«µÑñπαδ ¡Ñ ßßδ½áεΓß∩ ¡á »ÑαÑ¼Ñ¡¡δÑ ì ¿ A, »«φΓ«¼π φΓ¿ «íΩ- Ñ¬Γδ πñá½∩εΓß∩. ¥ΣΣÑ¬Γ¿ó¡á∩ ¬«¼»«¡«ó¬á ¿¼ÑÑΓ «ß«íπε µÑ¡¡«ßΓ∞ ó ßó∩º¿ ß ¿ß- »«½∞º«óá¡¿Ñ¼ ¼«ñπ½Ñ⌐, ¬«Γ«αδÑ αÑá½¿ºπεΓ í¿í½¿«ΓÑ¬¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. Åα¿¼Ñα«¼ Γá¬«ú« ¼«ñπ½∩ ∩ó½∩ÑΓß∩ ßΓá¡ñáαΓ¡δ⌐ ¼«ñπ½∞ Dos, ¬«Γ«αδ⌐ ß«ñÑαª¿Γ α∩ñ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. Åα¿ φΓ«¼ »α«úαá¼¼á αÑñ¬« ¿ß»«½∞ºπÑΓ óßÑ φΓ¿ »α«µÑñπαδ. àß½¿ «¡á ¿ß»«½∞ºπÑΓ Γ«½∞¬« «ñ¡π ¿½¿ ñóÑ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, Γ« Γ«½∞¬« φΓ¿ »α«µÑñπαδ ó¬½ετáεΓß∩ ó »«½πτÑ¡¡δ⌐ ó αÑºπ½∞ΓáΓÑ ¬«ñ. B.Pascal 7 & Objects/LR - 411 - ─────────────────────────────────────────────────────────────────────── ùáßΓ∞ IV. êß»«½∞º«óá¡¿Ñ Borland Pascal ß ∩ºδ¬«¼ áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── â½áóá 24. éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα Borland Pascal »«ºó«½∩ÑΓ óá¼ ¡Ñ»«ßαÑñß- ΓóÑ¡¡« ó »α«úαá¼¼áσ Åáß¬á½∩ ºá»¿ßδóáΓ∞ ¬«ñ áßßÑ¼í½Ñαá »α«µÑßß«α«ó 8087/8087 ¿ 80286/80287. éδ, ¬«¡Ñτ¡«, Ñß½¿ ΓαÑíπÑΓß∩ τÑαÑñ«óáΓ∞ ¬«ñ Åáß¬á½∩ ¿ áßßÑ¼í½Ñαá, ¼«ªÑΓÑ »αÑ«íαáº«óáΓ∞ ¬«ñ áßßÑ¼í½Ñαá ó ¼áΦ¿¡¡δÑ ¿¡ßΓαπ¬µ¿¿ óαπτ¡πε ¿ ó«ß»«½∞º«óáΓ∞ß∩ ºáΓÑ¼ «»ÑαáΓ«αá¼¿ inline, ½¿í« óδ»«½¡∩Γ∞ ¬«¼»«¡«ó¬π ß Σá⌐½á¼¿ .OBJ, ¬«Γ«αδÑ ß«ñÑα- ªáΓ ó¡ÑΦ¡¿Ñ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ (external). éßΓα«Ñ¡¡δÑ «»ÑαáΓ«αδ áßßÑ¼í½Ñαá »αÑñßΓáó½∩εΓ ß«í«⌐ í«½∞Φ«Ñ »«ñ¼¡«ªÑßΓó« ß¿¡Γá¬ß¿ßá, »«ññÑαª¿óáÑ¼«ú« Æπαí« ÇßßÑ¼í½Ñα«¼ ¿ îá¬- α«áßßÑ¼í½Ñα«¼ Σ¿α¼δ Microsoft. éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα »«ññÑαª¿óáÑΓ óßÑ ¬«ñδ «»Ñαáµ¿⌐ »α«µÑßß«α«¼ 8086/8087 ¿ 80286/80287 ¿ ¡Ñ¬«Γ«αδÑ ¿º «»Ñαáµ¿⌐, ¿ß»«½∞ºπÑ¼δσ ó óδαáªÑ¡¿∩σ Æπαí« ÇßßÑ¼í½Ñαá. çá ¿ß¬½ετÑ¡¿Ñ¼ ñ¿αÑ¬Γ¿ó DB («»αÑñÑ½¿Γ∞ íá⌐Γ), DW («»αÑñÑ½¿Γ∞ ß½«ó«) ¿ DD («»αÑñÑ½¿Γ∞ ñó«⌐¡«Ñ ß½«ó«) ¡¿¬á¬¿Ñ ñαπú¿Ñ ñ¿αÑ¬Γ¿óδ Æπαí« ÇßßÑ¼í½Ñαá, Γ¿»á EQU, STRUC, SEGMENT ¿½¿ MACRO, óßΓα«Ñ¡¡δ¼ áßßÑ¼í½Ñα«¼ ¡Ñ »«ññÑαª¿óáεΓß∩. Äñ¡á¬«, «»Ñαáµ¿¿, αÑá½¿ºπÑ¼δÑ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿ó Æπαí« ÇßßÑ¼í½Ñαá, í½¿º¬« ß««ΓóÑΓßΓóπεΓ ¬«¡ßΓαπ¬- µ¿∩¼ Borland Pascal. ìá»α¿¼Ñα, í«½∞Φ¿¡ßΓó« ñ¿αÑ¬Γ¿ó EQU ß««ΓóÑΓß- ΓóπεΓ «»¿ßá¡¿∩¼ Borland Pascal const, var ¿ type, ñ¿αÑ¬Γ¿óá PROC - «»¿ßá¡¿∩¼ procedure ¿ function, á ñ¿αÑ¬Γ¿óá STRUC - Γ¿»á¼ record Borland Pascal. öá¬Γ¿τÑß¬¿, óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα Borland Pascal ¼«ª¡« αáßß¼áΓα¿óáΓ∞, ¬á¬ ¬«¼»¿½∩Γ«α ∩ºδ¬á áßßÑ¼í½Ñαá, ¿ß- »«½∞ºπεΘ¿⌐ ñ½∩ óßÑσ «»¿ßá¡¿⌐ ß¿¡Γá¬ß¿ß Åáß¬á½∩. Ä»ÑαáΓ«α asm ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα ßΓá¡«ó¿Γß∩ ñ«ßΓπ»¡δ¼ ß »«¼«Θ∞ε «»ÑαáΓ«- α«ó asm. Ä»ÑαáΓ«α asm ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: asm «»ÑαáΓ«α_áßßÑ¼í½Ñαá < αáºñÑ½¿ΓÑ½∞ «»ÑαáΓ«α_áßßÑ¼í½Ñαá > end úñÑ "«»ÑαáΓ«α_áßßÑ¼í½Ñαá" »αÑñßΓáó½∩ÑΓ ß«í«⌐ «»ÑαáΓ«α áßßÑ¼í½Ñαá, á "αáºñÑ½¿ΓÑ½∞ " - φΓ« Γ«τ¬á ß ºá»∩Γ«⌐, ¡«óá∩ ßΓα«¬á ¿½¿ ¬«¼¼Ñ¡- Γáα¿⌐ Åáß¬á½∩. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ «»ÑαáΓ«α«ó asm: asm mov ah,0 { ßτ¿ΓáΓ∞ ß ¬½áó¿áΓπαδ ¬«ñ Σπ¡¬µ¿¿ } int 16H { ñ½∩ τΓÑ¡¿∩ ¬½áó¿Φ¿ óδºóáΓ∞ BIOS } mov CharCode,al { ß«σαá¡¿Γ∞ ¬«ñ ASCII } mov ScanCode,ah { ß«σαá¡¿Γ∞ ¬«ñ «»α«ßá } end; asm B.Pascal 7 & Objects/LR - 412 - push ds { ß«σαá¡¿Γ∞ DS } lds si,Source { ºáúαπº¿Γ∞ π¬áºáΓÑ½∞ ¿ßΓ«τ¡¿¬á } les di,Dest { ºáúαπº¿Γ∞ π¬áºáΓÑ½∞ »α¿Ñ¼¡¿¬á } mov cx,Count { ºáúαπº¿Γ∞ αáº¼Ñα í½«¬á } cld { »ÑαÑ¼ÑßΓ¿Γ∞ } rep movsb { ß¬«»¿α«óáΓ∞ í½«¬ } pop ds { ó«ßßΓá¡«ó¿Γ∞ DS } end; çá¼ÑΓ¿¼, τΓ« ¡á «ñ¡«⌐ ßΓα«¬Ñ ¼«ª¡« αáº¼ÑßΓ¿Γ∞ ¡Ñß¬«½∞¬« «»Ñ- αáΓ«α«ó áßßÑ¼í½Ñαá, αáºñÑ½¿ó ¿σ Γ«τ¬á¼¿ ß ºá»∩Γ«⌐. èα«¼Ñ Γ«ú« ß½ÑñπÑΓ «Γ¼ÑΓ¿Γ∞, τΓ« Ñß½¿ «»ÑαáΓ«αδ áßßÑ¼í½Ñαá αáº¼ÑΘáεΓß∩ ¡á αáº¡δσ ßΓα«¬áσ, αáºñÑ½∩Γ∞ ¿σ Γ«τ¬á¼¿ ß ºá»∩Γ«⌐ ¡Ñ ΓαÑíπÑΓß∩. çá- ¼ÑΓ¿¼ Γá¬ªÑ, τΓ« Γ«τ¬á ß ºá»∩Γ«⌐ ¡Ñ ú«ó«α¿Γ « Γ«¼, τΓ« «ßΓá½∞¡á∩ τáßΓ∞ ßΓα«¬¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¬«¼¼Ñ¡Γáα¿⌐. è«¼¼Ñ¡Γáα¿¿ ß½ÑñπÑΓ ºá»¿ßδóáΓ∞, ¿ß»«½∞ºπ∩ ß¿¡Γá¬ß¿ß Åáß¬á½∩: ß »«¼«Θ∞ε { ¿ } ¿½¿ (* ¿ *). êß»«½∞º«óá¡¿Ñ αÑú¿ßΓα«ó ───────────────────────────────────────────────────────────────── Åαáó¿½á ¿ß»«½∞º«óá¡¿∩ αÑú¿ßΓα«ó ó «»ÑαáΓ«αÑ asm ó «ß¡«ó¡«¼ ß«ó»áñáεΓ ß φΓ¿¼¿ »αáó¿½á¼¿ ñ½∩ ó¡ÑΦ¡¿σ »α«µÑñπα ¿ Σπ¡¬µ¿⌐. Ä»Ñ- αáΓ«α asm ñ«½ªÑ¡ ß«σαá¡∩Γ∞ αÑú¿ßΓαδ BP, SP, SS ¿ DS, ¡« ¼«ªÑΓ ßó«í«ñ¡« ¿º¼Ñ¡∩Γ∞ AX, BX, CX, DX, SI, DI, ES ¿ αÑú¿ßΓα Σ½áú«ó. ìá óσ«ñÑ ó «»ÑαáΓ«α asm BP π¬áºδóáÑΓ ¡á ΓÑ¬πΘπε αá¼¬π ßΓÑ¬á, SP π¬á- ºδóáÑΓ ¡á óÑαΦ¿¡π ßΓÑ¬á, SS ß«ñÑαª¿Γ áñαÑß ßÑú¼Ñ¡Γá ßΓÑ¬á, á DS - áñαÑß ßÑú¼Ñ¡Γá ñá¡¡δσ. çá ¿ß¬½ετÑ¡¿Ñ¼ αÑú¿ßΓα«ó BP, SP, SS ¿ DS «»ÑαáΓ«α asm ¡Ñ ¼«ªÑΓ ñÑ½áΓ∞ ¡¿¬á¬¿σ »αÑñ»«½«ªÑ¡¿⌐ «Γ¡«ß¿ΓÑ½∞¡« ß«ñÑαª¿¼«ú« ñαπú¿σ αÑú¿ßΓα«ó ¡á óσ«ñÑ ó φΓ«Γ «»ÑαáΓ«α. æ¿¡Γá¬ß¿ß «»ÑαáΓ«αa áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α áßßÑ¼í½Ñαá ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: [ ¼ÑΓ¬á":" ] < »αÑΣ¿¬ß > [¬«ñ_«»Ñαáµ¿¿ [«»Ñαá¡ñ < "," «»Ñαá¡ñ >]] úñÑ "¼ÑΓ¬á" - φΓ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ¬¿, "»αÑΣ¿¬ß" - »αÑΣ¿¬ß ¬«ñá «»Ñαáµ¿¿ áßßÑ¼í½Ñαá. "è«ñ_«»Ñαáµ¿¿" - ¬«ñ ¿¡ßΓαπ¬µ¿¿ ¿½¿ ñ¿αÑ¬Γ¿- óá áßßÑ¼í½Ñαá, á "«»Ñαá¡ñ" - óδαáªÑ¡¿Ñ áßßÑ¼í½Ñαá. îÑªñπ «»ÑαáΓ«αá¼¿ áßßÑ¼í½Ñαá (¡« ¡Ñ ó ¡¿σ) ñ«»πß¬áÑΓß∩ ó¬½ε- τáΓ∞ ¬«¼¼Ñ¡Γáα¿¿. ä«»πßΓ¿¼«, ¡á»α¿¼Ñα, ß½ÑñπεΘÑÑ: asm mov ax,1 { ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ } mov cx,100 { ßτÑΓτ¿¬ } end; «ñ¡á¬« ß½ÑñπεΘá∩ ºá»¿ß∞ «Φ¿í«τ¡á: asm B.Pascal 7 & Objects/LR - 413 - mov { ¡áτá½∞¡«Ñ º¡áτÑ¡¿Ñ } ax,1 mov cx, { ßτÑΓτ¿¬ } 100 end; îÑΓ¬¿ ───────────────────────────────────────────────────────────────── îÑΓ¬¿ ó áßßÑ¼í½ÑαÑ «»αÑñÑ½∩εΓß∩ Γá¬ªÑ, ¬á¬ ó Åáß¬á½Ñ: »ÑαÑñ «»ÑαáΓ«α«¼ ºá»¿ßδóáÑΓß∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼ÑΓ¬¿ ¿ ñó«ÑΓ«τ¿Ñ. èá¬ ¿ ó Åáß¬á½Ñ, ¼ÑΓ¬¿ ó áßßÑ¼í½ÑαÑ ñ«½ª¡δ «»¿ßδóáΓ∞ß∩ ó «íΩ∩ó½Ñ¡¿¿ label Γ«ú« í½«¬á, ¬«Γ«αδ⌐ ß«ñÑαª¿Γ «»ÑαáΓ«α asm. Äñ¡á¬« ¿º φΓ«ú« »αáó¿- ½á ÑßΓ∞ «ñ¡« ¿ß¬½ετÑ¡¿Ñ. ¥Γ« ½«¬á½∞¡δÑ ¼ÑΓ¬¿. ï«¬á½∞¡δÑ ¼ÑΓ¬¿ - φΓ« ¼ÑΓ¬¿, ¬«Γ«αδÑ ¡áτ¿¡áεΓß∩ ß ß¿¼ó«½á @. Å«ß¬«½∞¬π φΓ«Γ ß¿¼ó«½ ¡Ñ ¼«ªÑΓ íδΓ∞ τáßΓ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Åáß¬á- ½∩, Γá¬¿Ñ ½«¬á½∞¡δÑ ¼ÑΓ¬¿ áóΓ«¼áΓ¿τÑß¬¿ «úαá¡¿τ¿óáεΓß∩ ¿ß»«½∞º«- óá¡¿Ñ¼ ¿σ ó «»ÑαáΓ«αáσ asm. ï«¬á½∞¡á∩ ¼ÑΓ¬á ¿ºóÑßΓ¡á Γ«½∞¬« ó «»- αÑñÑ½∩εΘÑ¼ ÑÑ «»ÑαáΓ«αÑ asm (Γ« ÑßΓ∞ «í½áßΓ∞ ñÑ⌐ßΓó¿∩ ½«¬á½∞¡«⌐ ¼ÑΓ¬¿ ¡áτ¿¡áÑΓß∩ «Γ ¬½ετÑó«ú« ß½«óá asm ¿ ºá¬á¡τ¿óáÑΓß∩ ¬½ετÑóδ¼ ß½«ó«¼ end «»ÑαáΓ«αá asm, ¬«Γ«αδ⌐ ÑÑ ß«ñÑαª¿Γ). é «Γ½¿τ¿Ñ «Γ «íδτ¡«⌐ ¼ÑΓ¬¿, ½«¬á½∞¡πε ¼ÑΓ¬π »ÑαÑñ ÑÑ ¿ß»«½∞- º«óá¡¿Ñ¼ ¡Ñ ΓαÑíπÑΓß∩ «»¿ßδóáΓ∞ ó «íΩ∩ó½Ñ¡¿¿ label. êñÑ¡Γ¿Σ¿¬áΓ«α ½«¬á½∞¡«⌐ ¼ÑΓ¬¿ ß«ßΓ«¿Γ ¿º ß¿¼ó«½á @, ºá ¬«Γ«- αδ¼ ß½ÑñπÑΓ «ñ¡á ¿½¿ í«½ÑÑ íπ¬ó (A..Z) µ¿Σα (0..9) ß¿¼ó«½«ó »«ñ- τÑα¬¿óá¡¿∩ ¿½¿ ß¿¼ó«½«ó @. èá¬ ¿ óßÑ ¼ÑΓ¬¿, ¿ñÑ¡Γ¿Σ¿¬áΓ«α ºáóÑα- ΦáÑΓß∩ ñó«ÑΓ«τ¿Ñ¼. s è«ñδ ¿¡ßΓαπ¬µ¿⌐ ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα »«ññÑαª¿óáÑΓ ¿¡ßΓαπ¬µ¿¿ »α«µÑßß«α«ó 8086/8087 ¿ 80286/80287. ê¡ßΓαπ¬µ¿¿ »α«µÑßß«αá 8087 ñ«ßΓπ»¡δ Γ«½∞¬« ó ß«ßΓ«∩¡¿¿ {$N+} (αáºαÑΦÑ¡« ¿ß»«½∞º«óá¡¿Ñ ß«»α«µÑßß«αá), ¿¡ßΓαπ¬µ¿¿ »α«µÑßß«αá 80286 - Γ«½∞¬« ó ß«ßΓ«∩¡¿¿ {$G+} (αáºαÑΦÑ¡á úÑ¡Ñαáµ¿∩ ¬«ñá ñ½∩ »α«µÑßß«αá 80286), á ¿¡ßΓαπ¬µ¿¿ ß«»α«µÑßß«αá 80287 - Γ«½∞¬« ó ß«ßΓ«∩¡¿¿ {$G+,N+}. Å«½¡«Ñ «»¿ßá¡¿Ñ ¬áªñ«⌐ ¿¡ßΓαπ¬µ¿¿ ß«ñÑαª¿Γß∩ ó ß»αáó«τ¡δσ ¼áΓÑα¿á½áσ »« »α«µÑßß«αá¼ 80σ86 ¿ 80σ87. Éáº¼Ñα ¿¡ßΓαπ¬µ¿¿ RET ───────────────────────────────────────────────────────────────── ê¡ßΓαπ¬µ¿∩ REP úÑ¡Ñα¿απÑΓ ¬«ñ ¼áΦ¿¡¡«⌐ ¿¡ßΓαπ¬µ¿¿ ó«ºóαáΓá í½¿ª¡Ñú« ¿½¿ ñá½∞¡Ñú« Γ¿»á, ó ºáó¿ß¿¼«ßΓ¿ «Γ ¼«ñÑ½¿ óδº«óá ΓÑ¬π- ΘÑ⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. procedure NearProc; near; begin asm ret { úÑ¡Ñα¿απÑΓß∩ í½¿ª¡¿⌐ ó«ºóαáΓ } B.Pascal 7 & Objects/LR - 414 - end; end; procedure FarProc; far begin asm ret { úÑ¡Ñα¿απÑΓß∩ ñá½∞¡¿⌐ ó«ºóαáΓ } end; end; æ ñαπú«⌐ ßΓ«α«¡δ, ¿¡ßΓαπ¬µ¿¿ RETN ¿ RETF óßÑúñá úÑ¡Ñα¿απεΓ í½¿ª¡¿⌐ ¿½¿ ñá½∞¡¿⌐ ó«ºóαáΓ ß««ΓóÑΓßΓóÑ¡¡«, ¡Ñºáó¿ß¿¼ «Γ ¼«ñÑ½¿ óδº«óá ΓÑ¬πΘÑ⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. ÇóΓ«¼áΓ¿τÑß¬«Ñ «»αÑñÑ½Ñ¡¿Ñ αáº¼Ñαá »ÑαÑσ«ñá ───────────────────────────────────────────────────────────────── àß½¿ ¡Ñ π¬áºδóáÑΓß∩ »α«Γ¿ó¡«Ñ, óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα «»Γ¿¼¿- º¿απÑΓ ¿¡ßΓαπ¬µ¿¿ »ÑαÑσ«ñá, áóΓ«¼áΓ¿τÑß¬¿ óδí¿αá∩ ¡á¿í«½ÑÑ ¬«α«Γ- ¬πε, ¿, ß½Ññ«óáΓÑ½∞¡«, ¡á¿í«½ÑÑ φΣΣÑ¬Γ¿ó¡πε Σ«α¼π ¿¡ßΓαπ¬µ¿¿ »Ñ- αÑσ«ñá. Æá¬«Ñ áóΓ«¼áΓ¿τÑß¬«Ñ «»αÑñÑ½Ñ¡¿Ñ αáº¼Ñαá »ÑαÑσ«ñá »α¿¼Ñ¡∩ÑΓß∩ ¬ ¿¡ßΓαπ¬µ¿¿ íÑºπß½«ó¡«ú« »ÑαÑσ«ñá (JMP) ¿ óßÑ¼ ¿¡ß- Γαπ¬µ¿∩¼ πß½«ó¡«ú« »ÑαÑσ«ñá, ¬«úñá »ÑαÑσ«ñ óδ»«½¡∩ÑΓß∩ ¡á ¼ÑΓ¬π, á ¡Ñ »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε. ä½∩ ¿¡ßΓαπ¬µ¿¿ íÑºπß½«ó¡«ú« »ÑαÑσ«ñá óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα úÑ¡Ñα¿απÑΓ ¬«α«Γ¬¿⌐ »ÑαÑσ«ñ («ñ¿¡ íá⌐Γ ¬«ñá «»Ñαáµ¿¿, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ «ñ¿¡ íá⌐Γ ß¼ÑΘÑ¡¿∩), Ñß½¿ αáßßΓ«∩¡¿Ñ ñ« µÑ½Ñó«⌐ ¼ÑΓ¬¿ ¡á- σ«ñ¿Γß∩ ó úαá¡¿µáσ «Γ -128 ñ« 127 íá⌐Γ. é »α«Γ¿ó¡«¼ ß½πτáÑ úÑ¡Ñ- α¿απÑΓß∩ í½¿ª¡¿⌐ »ÑαÑσ«ñ («ñ¿¡ íá⌐Γ ¬«ñá «»Ñαáµ¿¿, ºá ¬«Γ«αδ¼ ß½Ññπε ñóá íá⌐Γá ß¼ÑΘÑ¡¿∩). ä½∩ ¿¡ßΓαπ¬µ¿⌐ πß½«ó¡«ú« »ÑαÑσ«ñá ¬«α«Γ¬¿⌐ »ÑαÑσ«ñ («ñ¿¡ íá⌐Γ ¬«ñá «»Ñαáµ¿¿, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ «ñ¿¡ íá⌐Γ ß¼ÑΘÑ¡¿∩) úÑ¡Ñ- α¿απÑΓß∩, Ñß½¿ αáßßΓ«∩¡¿Ñ ñ« µÑ½Ñó«⌐ ¼ÑΓ¬¿ ¡áσ«ñ¿Γß∩ ó »αÑñÑ½áσ «Γ -128 ñ« 127 íá⌐Γ, ó »α«Γ¿ó¡«¼ ß½πτáÑ óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα úÑ- ¡Ñα¿απÑΓ ¬«α«Γ¬¿⌐ »ÑαÑσ«ñ ß «íαáΓ¡δ¼ πß½«ó¿Ñ¼, ¬«Γ«αδ⌐ óδ»«½¡∩ÑΓ »ÑαÑσ«ñ ¡á µÑ½Ñóπε ¼ÑΓ¬π τÑαÑº í½¿ª¡¿⌐ »ÑαÑσ«ñ (ó «íΘÑ¼ ß½πτáÑ 5 íá⌐Γ). ìá»α¿¼Ñα, «»ÑαáΓ«α áßßÑ¼í½Ñαá: JC Stop úñÑ Stop ¡Ñ ¡áσ«ñ¿Γß∩ ó úαá¡¿µáσ ¬«α«Γ¬«ú« »ÑαÑσ«ñá, »αÑ«íαáºπÑΓ- ß∩ ó »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ¼áΦ¿¡¡δσ ¬«ñ«ó, ß««ΓóÑΓßΓóπεΘ¿σ ¿¡ßΓαπ¬- µ¿∩¼: jnc Skip jmp Stop Skip: ÅÑαÑσ«ñδ ¡á Γ«τ¬¿ óσ«ñá ó »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε óßÑúñá ¿¼ÑεΓ í½¿ª¡¿⌐ ¿½¿ ñá½∞¡¿⌐ Γ¿» (¡« ¡Ñ ¬«α«Γ¬¿⌐), á πß½«ó¡δÑ »ÑαÑσ«ñδ ¡á »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ¡Ñ ñ«»πß¬áεΓß∩. éδ ¼«ªÑΓÑ π¬áºáΓ∞ óßΓα«Ñ¡- B.Pascal 7 & Objects/LR - 415 - ¡«¼π áßßÑ¼í½Ñαπ, τΓ« ¡πª¡« úÑ¡Ñα¿α«óáΓ∞ í½¿ª¡¿⌐ ¿½¿ ñá½∞¡¿⌐ »ÑαÑ- σ«ñ, ¿ß»«½∞ºπ∩ ¬«¡ßΓαπ¬µ¿ε NEAR PTR ¿½¿ FAR PTR. ìá»α¿¼Ñα, «»Ñαá- Γ«αδ áßßÑ¼í½Ñαá: jmp NEAR PTR Stop jmp FAR PTR Stop íπñπΓ óßÑúñá úÑ¡Ñα¿α«óáΓ∞ ß««ΓóÑΓßΓóÑ¡¡« í½¿ª¡¿⌐ ¿ ñá½∞¡¿⌐ »ÑαÑ- σ«ñ, ñáªÑ Ñß½¿ ¡á ¼ÑΓ¬π Stop ¼«ª¡« »ÑαÑ⌐Γ¿ ß »«¼«Θ∞ε ¬«α«Γ¬«ú« »ÑαÑσ«ñá. ä¿αÑ¬Γ¿óδ áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα Borland Pascal »«ññÑαª¿óáÑΓ Γα¿ ñ¿αÑ¬- Γ¿óδ áßßÑ¼í½Ñαá: DB («»αÑñÑ½¿Γ∞ íá⌐Γ), DW («»αÑñÑ½¿Γ∞ ß½«ó«) ¿ DD («»αÑñÑ½¿Γ∞ ñó«⌐¡«Ñ ß½«ó«). èáªñá∩ ¿º ¡¿σ úÑ¡Ñα¿απÑΓ ñá¡¡δÑ, ß«- «ΓóÑΓßΓóπεΘ¿Ñ αáºñÑ½Ñ¡¡δ¼ ºá»∩Γδ¼ «»Ñαá¡ñá¼, ¬«Γ«αδÑ ß½ÑñπεΓ ºá ñ¿αÑ¬Γ¿ó«⌐. ä¿αÑ¬Γ¿óá DB úÑ¡Ñα¿απÑΓ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ íá⌐Γ. èáªñδ⌐ «»Ñ- αá¡ñ ¼«ªÑΓ »αÑñßΓáó½∩Γ∞ ß«í«⌐ óδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γπ ß« º¡áτÑ¡¿Ñ¼ «Γ -128 ñ« 255, ¿½¿ ßΓα«¬π ß¿¼ó«½«ó ½εí«⌐ ñ½¿¡δ. éδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γá úÑ¡Ñα¿απÑΓ 1 íá⌐Γ ¬«ñá, á ßΓα«¬¿ úÑ¡Ñα¿απεΓ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ íá⌐Γ ß« º¡áτÑ¡¿∩¼¿, ß««ΓóÑΓßΓóπεΘ¿¼ ¬«ñπ ASCII ¬áªñ«ú« ß¿¼ó«½á. ä¿αÑ¬Γ¿óá DW úÑ¡Ñα¿απÑΓ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ß½«ó. èáªñδ⌐ «»Ñ- αá¡ñ ¼«ªÑΓ »αÑñßΓáó½∩Γ∞ ß«í«⌐ óδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γπ ß« º¡áτÑ¡¿Ñ¼ «Γ -32768 ñ« 65535, ¿½¿ áñαÑß¡«Ñ óδαáªÑ¡¿Ñ. ä½∩ áñαÑß¡«ú« óδαáªÑ¡¿∩ óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα úÑ¡Ñα¿απÑΓ π¬áºáΓÑ½∞ í½¿ª¡Ñú« Γ¿»á, τΓ« ÑßΓ∞ ß½«ó«, ß«ñÑαªáΘ¿Ñ ß¼ÑΘÑ¡¿∩ áñαÑßá. ä¿αÑ¬Γ¿óá DD úÑ¡Ñα¿απÑΓ »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ñó«⌐¡δσ ß½«ó. èáªñδ⌐ «»Ñαá¡ñ ¼«ªÑΓ »αÑñßΓáó½∩Γ∞ ß«í«⌐ óδαáªÑ¡¿Ñ-¬«¡ßΓá¡Γπ ß« º¡áτÑ¡¿Ñ¼ «Γ -2147483648 ñ« 4294967295 ¿½¿ áñαÑß¡«Ñ óδαáªÑ¡¿Ñ. ä½∩ áñαÑß¡«ú« óδαáªÑ¡¿∩ óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα úÑ¡Ñα¿απÑΓ π¬áºáΓÑ½∞ ñá½∞¡Ñú« Γ¿»á, τΓ« ÑßΓ∞ ß½«ó«, ß«ñÑαªáΘ¿Ñ ß¼ÑΘÑ¡¿∩ áñαÑßá, ºá ¬«- Γ«αδ¼ ß½ÑñπÑΓ ß½«ó«, ß«ñÑαªáΘÑÑ ßÑú¼Ñ¡Γ¡πε τáßΓ∞ áñαÑßá. äá¡¡δÑ, úÑ¡Ñα¿απÑ¼δÑ »« ñ¿αÑ¬Γ¿óá¼ DB, DW ¿ DD, óßÑúñá ºá»¿- ßδóáεΓß∩ ó ßÑú¼Ñ¡Γ ¬«ñá, á¡á½«ú¿τ¡« ¬«ñπ, úÑ¡Ñα¿απÑ¼«¼π ñαπú¿¼¿ «»ÑαáΓ«αá¼¿ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá. ùΓ«íδ ßúÑ¡Ñα¿α«óáΓ∞ ¿¡¿µ¿á½¿- º¿α«óá¡¡δÑ ¿½¿ ¡Ñ¿¡¿µ¿á½¿º¿α«óá¡¡δÑ ñá¡¡δÑ ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ, óá¼ ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ «íδτ¡δÑ «»¿ßá¡¿∩ Åáß¬á½∩ Γ¿»á var ¿½¿ const. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ ñ¿αÑ¬Γ¿ó DB, DW ¿ DD: asm DB 00FH { 1 íá⌐Γ } DB 0,99 { 2 íá⌐Γá } DB 'A' { Ord('A) } DB 'Åα¿¼Ñα',0DH,OAH { ßΓα«¬á, ºá ¬«Γ«α«⌐ ß½ÑñπεΓ ó«ºóαáΓ ¬áαÑΓ¬¿ ¿ »ÑαÑó«ñ ßΓα«¬¿ } B.Pascal 7 & Objects/LR - 416 - DB 12,"Borland Pascal" { ßΓα«¬á Åáß¬á½∩ } DW 0FFFFH { 1 ß½«ó« } DW 0,9999 { 2 ß½«óá } DW 'A' { φ¬ó¿óá½Ñ¡Γ¡« DB 'A',0 } DW 'BA' { φ¬ó¿óá½Ñ¡Γ¡« DB 'A','B' } DW MyVar { ß¼ÑΘÑ¡¿Ñ MyVar } DW MyProc { ß¼ÑΘÑ¡¿Ñ MyProc } DD 0FFFFFFFH { 1 ñó«⌐¡«Ñ ß½«ó« } DD 0,99999999 { 2 ñó«⌐¡δσ ß½«óá } DD 'A' { φ¬ó¿óá½Ñ¡Γ¡« DB 'A',0,0,0 } DD 'DBCA' { φ¬ó¿óá½Ñ¡Γ¡« DS 'A','B','C','D' } DD MyVar { π¬áºáΓÑ½∞ ¡á MyVar } DD MyProc { π¬áºáΓÑ½∞ ¡á MyProc } end; é Æπαí« ÇßßÑ¼í½ÑαÑ, ¬«úñá »ÑαÑñ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ π¬áºδóáÑΓß∩ DB, DW ¿½¿ DD, φΓ« »α¿ó«ñ¿Γ ¬ úÑ¡Ñαáµ¿¿ ó Γ«¼ ¼ÑßΓÑ, úñÑ π¬áºá¡á ñ¿αÑ¬Γ¿óá, »ÑαÑ¼Ñ¡¡«⌐ αáº¼Ñα«¼ ó íá⌐Γ, ß½«ó« ¿½¿ ñó«⌐¡«Ñ ß½«ó«. ìá»α¿¼Ñα, Æπαí« ÇßßÑ¼í½Ñα ñ«»πß¬áÑΓ ß½ÑñπεΘÑÑ: ByteVar DB ? WordVar DW ? . . . mov al,ByteVar mov bx,WordVar éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα ¡Ñ »«ññÑαª¿óáÑΓ Γá¬¿Ñ «»¿ßá¡¿∩ »ÑαÑ¼Ñ¡- ¡δσ. é Borland Pascal Ññ¿¡ßΓóÑ¡¡δ¼ ó¿ñ«¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá, ¬«Γ«αδ⌐ ¼«ª¡« «»αÑñÑ½¿Γ∞ ó «»ÑαáΓ«αÑ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá, ∩ó½∩ÑΓß∩ ¼ÑΓ¬á. éßÑ »ÑαÑ¼Ñ¡¡δÑ ñ«½ª¡δ «»¿ßδóáΓ∞ß∩ ß »«¼«Θ∞ε ß¿¡Γá¬ß¿ßá Åáß¬á½∩, ¿ »αÑñδñπΘá∩ ¬«¡ßΓαπ¬µ¿∩ ß««ΓóÑΓßΓóπÑΓ ß½ÑñπεΘÑ¼π: var ByteVar: Byte; WordWat: Word; . . . asm mov al,ByteVar mov bx,WordVar end; B.Pascal 7 & Objects/LR - 417 - Ä»Ñαá¡ñδ ───────────────────────────────────────────────────────────────── Ä»Ñαá¡ñδ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá »αÑñßΓáó½∩εΓ ß«í«⌐ óδαáªÑ- ¡¿∩, ¬«Γ«αδÑ ß«ßΓ«∩Γ ¿º ß«τÑΓá¡¿∩ ¬«¡ßΓá¡Γ, αÑú¿ßΓα«ó, ¿ñÑ¡Γ¿Σ¿- ¬áΓ«α«ó ¿ «»Ñαáµ¿⌐. ò«Γ∩ óδαáªÑ¡¿∩ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá Σ«α¼¿- απεΓß∩ ß ¿ß»«½∞º«óá¡¿Ñ¼ ΓÑσ ªÑ «ß¡«ó¡δσ »α¿¡µ¿»«ó, τΓ« ¿ óδαáªÑ¡¿∩ Åáß¬á½∩, ¿¼ÑÑΓß∩ α∩ñ óáª¡δσ «Γ½¿τ¿⌐, ¬«Γ«αδÑ ¡Ñ«íσ«ñ¿¼« »«∩ß¡¿Γ∞. é« óßΓα«Ñ¡¡«¼ áßßÑ¼í½ÑαÑ »αÑñ«»αÑñÑ½Ñ¡¡δ⌐ ß¼δß½ ¿¼ÑεΓ ß½Ññπ- εΘ¿Ñ ºáαÑºÑαó¿α«óá¡¡δÑ ß½«óá: AH CL FAR SEG AL CS HIGH SHL AND CX LOW SHR AX DH MOD SI BH DI NEAR SP BL DL NOT SS BP DS OFFSET ST BX DWORD OR TBYTE BYTE DX PTR TYPE CH ES WQORD WORD XOR çáαÑºÑαó¿α«óá¡¡δÑ ß½«óá óßÑúñá ¿¼ÑεΓ í«½∞Φ¿⌐ »α¿«α¿ΓÑΓ, τÑ¼ «»αÑñÑ½Ñ¡¡δÑ »«½∞º«óáΓÑ½Ñ¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ. ìá»α¿¼Ñα, ó« Σαáú¼Ñ¡ΓÑ »α«úαá¼¼δ: var ch: Char; ... asm mov ch,1 end; 1 íπñÑΓ ºáúαπªáΓ∞ß∩ ó αÑú¿ßΓα CH, á ¡Ñ ó »ÑαÑ¼Ñ¡¡πε CH. ä½∩ ñ«ß- Γπ»á ¬ «»αÑñÑ½Ñ¡¡«¼π »«½∞º«óáΓÑ½Ñ¼ ¿¼Ñ¡¿ ¡πª¡« ¿ß»«½∞º«óáΓ∞ á¼- »Ñαßá¡ñ - «»Ñαáµ¿ε »ÑαÑ«»αÑñÑ½Ñ¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá (&). asm mov &ch,1 end; îδ ¡áßΓ«∩ΓÑ½∞¡« αÑ¬«¼Ñ¡ñπÑ¼ ¡Ñ ¿ß»«½∞º«óáΓ∞ «»αÑñÑ½Ñ¡¡δÑ »«½∞º«óáΓÑ½Ñ¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ ß ΓÑ¼¿ ªÑ ¿¼Ñ¡á¼¿, τΓ« ¿ ºáαÑºÑαó¿- α«óá¡¡δÑ ß½«óá óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá, »«ß¬«½∞¬π Γá¬á∩ »πΓá¡¿µá ¿¼Ñ¡ ¼«ªÑΓ ½Ñú¬« »α¿ó«ñ¿Γ∞ ¬ «τÑ¡∞ Γαπñ¡«π½«ó¿¼δ¼ «Φ¿í¬á¼. éδαáªÑ¡¿∩ ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα óδτ¿ß½∩ÑΓ óßÑ óδαáªÑ¡¿∩, ¬á¬ 32-αáºα∩ñ- B.Pascal 7 & Objects/LR - 418 - ¡δÑ º¡áτÑ¡¿∩-π¬áºáΓÑ½¿. Ä¡ ¡Ñ »«ññÑαª¿óáÑΓ º¡áτÑ¡¿∩ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ¿ ßΓα«¬«óδÑ º¡áτÑ¡¿∩, ºá ¿ß¬½ετÑ¡¿Ñ¼ ßΓα«¬«óδσ ¬«¡ßΓá¡Γ. éδαáªÑ¡¿∩ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá ßΓα«∩Γß∩ ¿º φ½Ñ¼Ñ¡Γ«ó óδαá- ªÑ¡¿⌐ ¿ «»Ñαáµ¿⌐, á ¬áªñá∩ «»Ñαáµ¿∩ ¿¼ÑÑΓ ß««ΓóÑΓßΓóπεΘ¿⌐ ¬½áßß óδαáªÑ¡¿∩ ¿ Γ¿» óδαáªÑ¡¿∩. ¥Γ¿ »α¿¡µ¿»δ »«∩ß¡∩εΓß∩ ó ß½ÑñπεΘ¿σ αáºñÑ½áσ. Éáº½¿τ¿∩ ¼Ñªñπ óδαáªÑ¡¿∩¼¿ Åáß¬á½∩ ¿ áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── ü«½∞Φ¿¡ßΓó« óáª¡δσ αáº½¿τ¿⌐ ¼Ñªñπ óδαáªÑ¡¿∩¼¿ Åáß¬á½∩ ¿ óδ- αáªÑ¡¿∩¼¿ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá ß«ßΓ«¿Γ ó Γ«¼, τΓ« óδαáªÑ¡¿∩ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá ñ«½ª¡δ »α¿ óδτ¿ß½Ñ¡¿¿ ßó«ñ¿Γ∞ß∩ ¬ º¡áτÑ- ¡¿ε-¬«¡ßΓá¡ΓÑ, ñαπú¿¼¿ ß½«óá¼¿, ¬ º¡áτÑ¡¿ε, ¬«Γ«α«Ñ ¼«ª¡« óδτ¿ß- ½¿Γ∞ ¡á φΓá»Ñ ¬«¼»¿½∩µ¿¿. ìá»α¿¼Ñα, ß πτÑΓ«¼ «»¿ßá¡¿⌐: const X = 10; Y = 20; var Z: Integer; ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α ∩ó½∩ÑΓß∩ ó« óßΓα«Ñ¡¡«¼ áßßÑ¼í½ÑαÑ ñ«»πßΓ¿¼δ¼: asm mov Z,X+Y end; Å«ß¬«½∞¬π X ¿ Y - φΓ« ¬«¡ßΓá¡Γδ, óδαáªÑ¡¿Ñ X + Y »αÑñßΓáó½∩- ÑΓ ß«í«⌐ »α«ßΓ« πñ«í¡δ⌐ ß»«ß«í ºá»¿ß¿ ¬«¡ßΓá¡Γδ 30, ¿ »«½πτÑ¡¡á∩ ó αÑºπ½∞ΓáΓÑ ¿¡ßΓαπ¬µ¿∩ »«¼ÑΘáÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ º¡áτÑ¡¿Ñ 30 ó »ÑαÑ¼Ñ¡¡πε Z αáº¼Ñα«¼ ó ß½«ó«. ì« Ñß½¿ óδ «»¿ΦÑΓÑ X ¿ Y, ¬á¬ »Ñ- αÑ¼Ñ¡¡δÑ: var X, Y: Integer; Γ« óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα ¡Ñ ß¼«ªÑΓ ¡á φΓá»Ñ ¬«¼»¿½∩µ¿¿ óδτ¿ß½¿Γ∞ º¡áτÑ¡¿Ñ X + Y. è«ααÑ¬Γ¡«⌐ ¬«¡ßΓαπ¬µ¿Ñ⌐ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá ó φΓ«¼ ß½πτáÑ íπñÑΓ: asm mov ax,X add ax,Y mov Z,ax end; äαπú¿¼ óáª¡δ¼ «Γ½¿τ¿Ñ¼ óδαáªÑ¡¿⌐ Åáß¬á½∩ ¿ óßΓα«Ñ¡¡«ú« Çß- ßÑ¼í½Ñαá ∩ó½∩ÑΓß∩ ß»«ß«í ¿¡ΓÑα»αÑΓáµ¿¿ »ÑαÑ¼Ñ¡¡δσ. é óδαáªÑ¡¿¿ Åáß¬á½∩ ßßδ½¬á ¡Ñ »ÑαÑ¼Ñ¡¡πε ¿¡ΓÑα»αÑΓ¿απÑΓß∩, ¬á¬ ß«ñÑαª¿¼«Ñ »Ñ- αÑ¼Ñ¡¡«⌐, ¡« ó óδαáªÑ¡¿¿ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá ßßδ½¬á ¡á »ÑαÑ- B.Pascal 7 & Objects/LR - 419 - ¼Ñ¡¡πε «º¡áτáÑΓ áñαÑß »ÑαÑ¼Ñ¡¡«⌐. ìá»α¿¼Ñα, ó Åáß¬á½Ñ óδαáªÑ¡¿Ñ X + 4, úñÑ X - »ÑαÑ¼Ñ¡¡á∩, «º¡áτáÑΓ ß«ñÑαª¿¼«Ñ X, »½εß 4, á ó« óßΓα«Ñ¡¡«¼ áßßÑ¼í½ÑαÑ φΓ« «º¡áτáÑΓ ß«ñÑαª¿¼«Ñ ó ß½«óÑ »« áñαÑßπ ¡á 4 íá⌐Γá óδΦÑ, τÑ¼ áñαÑß X. Å«φΓ«¼π, σ«Γ∩ ñ«»πßΓ¿¼á ºá»¿ß∞: asm mov ax,X+4 end; φΓ«Γ ¬«ñ ¡Ñ ºáúαπªáÑΓ º¡áτÑ¡¿∩ X, »½εß 4 ó AX, á ºáúαπªáÑΓ º¡áτÑ- ¡¿Ñ ß½«óá, ºá»¿ßá¡¡«ú« τÑαÑº 4 íá⌐Γá »«ß½Ñ X. è«ααÑ¬Γ¡«⌐ ºá»¿ß∞ε ß½«ªÑ¡¿∩ 4 ß ß«ñÑαª¿¼δ¼ X íπñÑΓ: asm MOV AX,X ADD AX,4 end; ¥½Ñ¼Ñ¡Γδ óδαáªÑ¡¿⌐ ───────────────────────────────────────────────────────────────── Äß¡«ó¡δ¼¿ φ½Ñ¼Ñ¡Γá¼¿ óδαáªÑ¡¿∩ ∩ó½∩εΓß∩ ¬«¡ßΓá¡Γδ, αÑú¿ßΓαδ ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ. B.Pascal 7 & Objects/LR - 420 - è«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα »«ññÑαª¿óáÑΓ ñóá Γ¿»á ¬«¡ßΓá¡Γ: τ¿ß½«- óδÑ ¬«¡ßΓá¡Γδ ¿ ßΓα«¬«óδÑ ¬«¡ßΓá¡Γδ. ù¿ß½«óδÑ ¬«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── ù¿ß½«óδÑ ¬«¡ßΓá¡Γδ ñ«½ª¡δ íδΓ∞ µÑ½δ¼¿ ¿ »α¿¡¿¼áΓ∞ º¡áτÑ¡¿∩ ó ñ¿á»áº«¡Ñ «Γ -2147483648 ñ« 4294967295. Å« π¼«½τá¡¿ε τ¿ß½«óδÑ ¬«¡ßΓá¡Γδ ∩ó½∩εΓß∩ ñÑß∩Γ¿τ¡δ¼¿, «ñ¡á¬« óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα »«ññÑαª¿óáÑΓ Γá¬ªÑ ñó«¿τ¡δÑ, ó«ß∞¼Ñα¿τ¡δÑ ¿ ΦÑßΓ¡áñµáΓ¿α¿τ¡δÑ ¬«¡ßΓá¡Γδ. äó«¿τ¡«Ñ »αÑñßΓáó½Ñ¡¿Ñ «í«º¡áτáÑΓß∩ ºá»¿ß∞ε »«ß½Ñ τ¿ß½á B, ó«ß∞¼Ñα¿τ¡«Ñ - ºá»¿ß∞ε íπ¬óδ O, á ΦÑßΓ¡áñ- µáΓ¿α¿τ¡«Ñ - ºá»¿ß∞ε »«ß½Ñ τ¿ß½á H ¿½¿ π¬áºá¡¿Ñ¼ »ÑαÑñ τ¿ß½«¼ $. é óδαáªÑ¡¿∩σ Åáß¬á½∩ ßπΣΣ¿¬ßδ B, O ¿ H ¡Ñ »«ññÑαª¿óáεΓß∩. éδαáªÑ¡¿∩ Åáß¬á½∩ ñ«»πß¬áεΓ Γ«½∞¬« ñÑß∩Γ¿τ¡πε (»« π¼«½τá¡¿ε) ¿ ΦÑßΓ¡áñµáΓ¿α¿τ¡πε ºá»¿ß∞ (¿ß»«½∞ºπÑΓß∩ »αÑΣ¿¬ß $). ù¿ß½«óδÑ ¬«¡ßΓá¡Γδ ñ«½ª¡δ ¡áτ¿¡áΓ∞ß∩ ß «ñ¡«⌐ ¿º µ¿Σα ¿½¿ ß¿¼ó«½á $. Æá¬¿¼ «íαáº«¼, ¬«úñá óδ ºá»¿ßδóáÑΓÑ ΦÑßΓ¡áñµáΓ¿α¿τ¡πε ¬«¡ßΓá¡Γπ ß »«¼«Θ∞ε ßπΣΣ¿¬ßá H, Γ« Ñß½¿ »Ñαó«⌐ º¡áτáΘÑ⌐ µ¿Σα«⌐ ∩ó½∩ÑΓß∩ «ñ¡á ¿º ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ µ¿Σα «Γ A ñ« F, Γ« ΓαÑíπÑΓß∩ ñ«»«½¡¿ΓÑ½∞¡δ⌐ ¡«½∞. ìá»α¿¼Ñα, 0BAD4H ¿ $BAD4 »αÑñßΓáó½∩εΓ ß«í«⌐ ΦÑßΓ¡áñµáΓ¿α¿τ¡δÑ ¬«¡ßΓá¡Γδ, á BAD4H - φΓ« ¿ñÑ¡Γ¿Σ¿¬áΓ«α, Γá¬ ¬á¬ «¡ ¡áτ¿¡áÑΓß∩ ß íπ¬óδ, á ¡Ñ ß µ¿Σαδ. æΓα«¬«óδÑ ¬«¡ßΓá¡Γδ ───────────────────────────────────────────────────────────────── æΓα«¬«óδÑ ¬«¡ßΓá¡Γδ ñ«½ª¡δ ºá¬½ετáΓ∞ß∩ ó «ñ¿¡«τ¡δÑ ¿½¿ ñó«⌐- ¡δÑ ¬áóδτ¬¿. ô¬áºá¡¿Ñ ñóπσ »«ß½Ññ«óáΓÑ½∞¡δσ ¬áóδτÑ¬ «ñ¡«ú« Γ¿»á ó ¬áτÑßΓóÑ ºá¬αδóáεΘ¿σ ¬áóδτÑ¬ ßτ¿ΓáÑΓß∩ ºá «ñ¿¡ ß¿¼ó«½. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ ßΓα«¬«óδσ ¬«¡ßΓá¡Γ: 'Z' 'Borland Pascal' "That's all folks" '"That''s all falks," he said.' '100 '"' "'" çá¼ÑΓ¿¼, τΓ« ó τÑΓóÑαΓ«⌐ ßΓα«¬Ñ ñ½∩ «í«º¡áτÑ¡¿∩ «ñ¿¡«τ¡«ú« ß¿¼ó«½δ ¬áóδτ¬¿ ¿ß»«½∞ºπÑΓß∩ ñóÑ »«ß½Ññ«óáΓÑ½∞¡δσ «ñ¿¡«τ¡δσ ¬á- óδτ¬¿. é ñ¿αÑ¬Γ¿óáσ DB ñ«»πß¬áεΓß∩ ßΓα«¬«óδÑ ¬áóδτ¬¿ ½εí«⌐ ñ½¿¡δ. ¥Γ« »α¿ó«ñ¿Γ ¬ óδñÑ½Ñ¡¿ε »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿ íá⌐Γ, ß«ñÑαªáΘ¿σ º¡á- B.Pascal 7 & Objects/LR - 421 - τÑ¡¿∩ (ASCII) ß¿¼ó«½«ó ßΓα«¬¿. é« óßÑσ ñαπú¿σ ß½πτá∩σ ßΓα«¬«óδÑ ¬«¡ßΓá¡Γδ ¡Ñ ¼«úπΓ »αÑóδΦáΓ∞ τÑΓδαÑσ ß¿¼ó«½«ó ¿ «í«º¡áτáεΓ τ¿ß½«- ó«Ñ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ¼«ªÑΓ πτáßΓó«óáΓ∞ ó óδαáªÑ¡¿∩σ. ù¿ß½«ó«Ñ º¡áτÑ¡¿Ñ ßΓα«¬¿ óδτ¿ß½∩ÑΓß∩ ß½ÑñπεΘ¿¼ «íαáº«¼: Ord(Ch1) + Ord(Ch2) shl 8 + Ord(Ch3) shl 16 + Ord(Ch4) shl 24 úñÑ Ch1 - φΓ« ßá¼δ⌐ »αáóδ⌐ (»«ß½Ññ¡¿⌐) ß¿¼ó«½, á Ch4 - ßá¼δ⌐ ½Ñ- óδ⌐ (»Ñαóδ⌐) ß¿¼ó«½. àß½¿ ßΓα«¬á ¬«α«τÑ 4 ß¿¼ó«½«ó, Γ« ßá¼δÑ ½Ñ- óδÑ (»ÑαóδÑ) ß¿¼ó«½δ ßτ¿ΓáεΓß∩ ¡π½Ñóδ¼¿. Åα¿óÑñÑ¼ ¡Ñ¬«Γ«αδÑ »α¿- ¼Ñαδ ßΓα«¬«óδσ ¬«¡ßΓá¡Γ ¿ ¿σ º¡áτÑ¡¿⌐: Åα¿¼Ñαδ ßΓα«¬ ¿ ¿σ º¡áτÑ¡¿∩ Æáí½¿µá 24.1 ┌──────────────┬─────────────────────┐ │ æΓα«¬á │ ç¡áτÑ¡¿Ñ │ ├──────────────┼─────────────────────┤ │ 'a' │ 00000061H │ │ 'ba' │ 00006261H │ │ 'cba' │ 00636261H │ │ 'dcba' │ 64636261H │ │ 'a' │ 00006120H │ │ ' a' │ 20202061H │ │ 'a'*2 │ 000000E2H │ │ 'a'-'A' │ 00000020H │ │ not 'a' │ FFFFFF9EH │ └──────────────┴─────────────────────┘ B.Pascal 7 & Objects/LR - 422 - ÉÑú¿ßΓαδ ───────────────────────────────────────────────────────────────── æ½ÑñπεΘ¿Ñ ºáαÑºÑαó¿α«óá¡¡δÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ «í«º¡áτáεΓ αÑ- ú¿ßΓαδ ûÅ: ÉÑú¿ßΓαδ ûÅ Æáí½¿µá 24.2 ───────────────────────────────────────────────────────────────── 16-αáºα∩ñ¡δÑ αÑú¿ßΓαδ «íΘÑú« ¡áº¡áτÑ¡¿∩: AX BX CX DX 8-αáºα∩ñ¡δÑ ¼½áñΦ¿Ñ »«½παÑú¿ßΓαδ: AL BL CL DL 8-αáºα∩ñ¡δÑ ßΓáαΦ¿Ñ »«½παÑú¿ßΓαδ: AH BH CH DH 16-αáºα∩ñ¡δÑ π¬áºáΓÑ½¿ ¿½¿ ¿¡ñÑ¬ß¡δÑ αÑú¿ßΓαδ: SP BP SI DI 16-αáºα∩ñ¡δÑ ßÑú¼Ñ¡Γ¡δÑ αÑú¿ßΓαδ: CS DS SS ES αÑú¿ßΓα ßΓÑ¬á »α«µÑßß«αá 8087 ST ───────────────────────────────────────────────────────────────── è«úñá «»Ñαá¡ñ ß«ßΓ«¿Γ ¿ß¬½ετ¿ΓÑ½∞¡« ¿º ¿¼Ñ¡¿ αÑú¿ßΓαá, «¡ ¡áºδóáÑΓß∩ αÑú¿ßΓα«óδ¼ «»Ñαá¡ñ«¼. éßÑ αÑú¿ßΓαδ ¼«ª¡« ¿ß»«½∞º«- óáΓ∞, ¬á¬ αÑú¿ßΓα«óδÑ «»Ñαá¡ñδ. èα«¼Ñ Γ«ú«, ¡Ñ¬«Γ«αδÑ αÑú¿ßΓαδ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ñαπú¿σ ¬«¡ΓÑ¬ßΓáσ. üáº«óδÑ αÑú¿ßΓαδ (BX ¿½¿ BP) ¿ ¿¡ñÑ¬ß¡δÑ αÑú¿ßΓαδ (SI ¿½¿ DI) ¼«ª¡« ºá»¿ßδóáΓ∞ ó ¬óáñαáΓ¡δσ ß¬«í¬áσ ñ½∩ π¬áºá¡¿∩ ¿¡ñÑ¬ßá- µ¿¿. ä«»πßΓ¿¼δ¼ ß«τÑΓá¡¿Ñ¼ íáº«ó«ú«/¿¡ñÑ¬ß¡«ú« αÑú¿ßΓαá ∩ó½∩εΓß∩ [BX], [BP], [SI], [DI], [BX+SI], [BX+DI], [BP+SI] ¿ [BP+DI]. æÑú¼Ñ¡Γ¡δÑ αÑú¿ßΓαδ (ES, CS, SS ¿ DS) ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó¼ÑßΓÑ ß «»Ñαáµ¿Ñ⌐ »ÑαÑ«»αÑñÑ½Ñ¡¿∩ ßÑú¼Ñ¡Γá (:) ¿ π¬áºδóáΓ∞ ¡á ñαπú«⌐ ßÑú¼Ñ¡Γ, «Γ½¿τ¡δ⌐ «Γ Γ«ú«, ¬«Γ«αδ⌐ »α«µÑßß«α óδí¿αáÑΓ »« π¼«½τá¡¿ε. ìá ¬áªñδ⌐ ¿º 8 αÑú¿ßΓα«ó ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ¼«ª¡« ßßδ- ½áΓ∞ß∩ ß »«¼«Θ∞ε ST(x), úñÑ x - ¬«¡ßΓá¡Γá «Γ 0 ñ« 7, π¬áºδóáεΘá∩ ¡á αáßßΓ«∩¡¿Ñ «Γ óÑαΦ¿¡δ ßΓÑ¬á αÑú¿ßΓα«ó. êñÑ¡Γ¿Σ¿¬áΓ«αδ ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα »«ºó«½∩ÑΓ ó óδαáªÑ¡¿∩σ áßßÑ¼í½Ñαá »«½π- τ¿Γ∞ ñ«ßΓπ» ¬« óßÑ¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá¼ Åáß¬á½∩, ó¬½ετá∩ ¼ÑΓ¬¿, ¬«¡ß- Γá¡Γδ, Γ¿»δ, »ÑαÑ¼Ñ¡¡δÑ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. èα«¼Ñ Γ«ú«, ó« óßΓα«Ñ¡¡«¼ áßßÑ¼í½ÑαÑ αÑá½¿º«óá¡δ ß½ÑñπεΘ¿Ñ ß»Ñµ¿á½∞¡δÑ ¿ñÑ¡Γ¿Σ¿- ¬áΓ«αδ: @Code @Data @Result êñÑ¡Γ¿Σ¿¬áΓ«αδ @Code ¿ @Data »αÑñßΓáó½∩εΓ ΓÑ¬πΘ¿Ñ ßÑú¼Ñ¡Γδ ¬«ñá ¿ ñá¡¡δσ ß««ΓóÑΓßΓóÑ¡¡«. êσ ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ Γ«½∞¬« ó ß«τÑΓá¡¿¿ ß «»Ñαáµ¿Ñ⌐ SEG: asm mov ax,SEG @Data mov ds,ax end; B.Pascal 7 & Objects/LR - 423 - êñÑ¡Γ¿Σ¿¬áΓ«α @Result ó «»ÑαáΓ«α¡«⌐ τáßΓ¿ Σπ¡¬µ¿¿ »ÑαÑ¼Ñ¡¡πε - αÑºπ½∞ΓáΓ Σπ¡¬µ¿¿. ìá»α¿¼Ñα, ó Σπ¡¬µ¿¿: function Sum(X, Y: Integer): Integer; begin Sum := X + Y; end; ó «»ÑαáΓ«αÑ, »α¿ßóá¿óáεΘÑ¼ αÑºπ½∞ΓáΓ Σπ¡¬µ¿¿ »ÑαÑ¼Ñ¡¡«⌐ Sum, ¼«ª- ¡« íδ½« íδ »α¿ ºá»¿ß¿ ¡á óßΓα«Ñ¡¡«¼ áßßÑ¼í½ÑαÑ ¿ß»«½∞º«óáΓ∞ »ÑαÑ- ¼Ñ¡¡πε @Result: function Sum(X, Y: Integer): Integer; begin asm mov ax,X add ax,Y mov @Result,ax end; end; é óδαáªÑ¡¿∩σ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá ¡Ñ½∞º∩ ¿ß»«½∞º«óáΓ∞ ß½Ñ- ñπεΘ¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ: - ßΓá¡ñáαΓ¡δÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ (¡á»α¿¼Ñα, WriteLn, Chr); - ß»Ñµ¿á½∞¡δÑ ¼áßß¿óδ Mem, MemW, MemL, Port, PortW; - ßΓα«¬¿, º¡áτÑ¡¿∩ ß »½áóáεΘÑ⌐ Γ«τ¬«⌐ ¿ ¬«¡ßΓá¡Γδ ¼¡«ªÑßΓ- óÑ¡¡«ú« Γ¿»á; - ¼ÑΓ¬¿, ¬«Γ«αδÑ ¡Ñ «»¿ßá¡δ ó ΓÑ¬πΘÑ¼ í½«¬Ñ; - ¿ñÑ¡Γ¿Σ¿¬áΓ«α @Result ó¡Ñ Σπ¡¬µ¿¿. é Æáí½¿µÑ 24.3 »α¿óÑñÑ¡δ º¡áτÑ¡¿Ñ, ¬½áßß ¿ Γ¿» αáº½¿τ¡«ú« ó¿ñá ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó, ¬«Γ«αδÑ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ó óδαáªÑ¡¿∩σ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá (¬½áßßδ ¿ Γ¿»δ óδαáªÑ¡¿⌐ «»¿ßδóáεΓß∩ ó ß½ÑñπεΘÑ¼ αáºñÑ½Ñ): B.Pascal 7 & Objects/LR - 424 - ç¡áτÑ¡¿∩, ¬½áßßδ ¿ Γ¿»δ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó Æáí½¿µá 24.3 ─────────────┬────────────────────┬────────────────┬────────────┐ │êñÑ¡Γ¿Σ¿¬áΓ.│ ç¡áτÑ¡¿Ñ │ è½áßß │ Æ¿» │ ├────────────┼────────────────────┼────────────────┼────────────┤ │ îÑΓ¬á │ ÇñαÑß ¼ÑΓ¬¿ │ Åá¼∩Γ∞ │ SHORT │ │ è«¡ßΓá¡Γá │ ç¡áτÑ¡¿Ñ ¬«¡ßΓá¡Γδ │ ìÑ»«ßαÑñßΓóÑ¡- │ 0 │ │ │ │ ¡δ⌐ │ │ │ Æ¿» │ 0 │ Åá¼∩Γ∞ │ Éáº¼Ñα Γ¿»á│ │ Å«½Ñ │ æ¼ÑΘÑ¡¿Ñ »«½∩ │ Åá¼∩Γ∞ │ Éáº¼Ñα Γ¿»á│ │ ÅÑαÑ¼Ñ¡¡á∩ │ ÇñαÑß »ÑαÑ¼Ñ¡¡«⌐ │ Åá¼∩Γ∞ │ Éáº¼Ñα Γ¿»á│ │ Åα«µÑñπαá │ ÇñαÑß »α«µÑñπαδ │ Åá¼∩Γ∞ │ NEAR / FAR│ │ öπ¡¬µ¿∩ │ ÇñαÑß Σπ¡¬µ¿¿ │ Åá¼∩Γ∞ │ NEAR / FAR│ │ î«ñπ½∞ │ 0 │ ìÑ»«ßαÑñßΓóÑ¡- │ 0 │ │ │ │ ¡δ⌐ │ │ │ @Code │ ÇñαÑß ßÑú¼Ñ¡Γá ¬«ñá│ Åá¼∩Γ∞ │ 0FFF0H │ │ @Data │ ÇñαÑß ßÑú¼Ñ¡Γá │ Åá¼∩Γ∞ │ 0FFF0H │ │ │ ñá¡¡δσ │ │ │ │ @Result │ æ¼ÑΘÑ¡¿Ñ »ÑαÑ¼Ñ¡- │ Åá¼∩Γ∞ │ Éáº¼Ñα Γ¿»á│ │ │ ¡«⌐ αÑºπ½∞ΓáΓá │ │ │ └────────────┴────────────────────┴────────────────┴────────────┘ ï«¬á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ (»ÑαÑ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ó »α«µÑñπαáσ ¿ öπ¡¬µ¿∩σ) óßÑúñá αáß»αÑñÑ½∩εΓß∩ ó ßΓÑ¬Ñ ¿ ñ«ßΓπ»¡δ «Γ¡«ß¿ΓÑ½∞¡« SS:BP, á º¡áτÑ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ½«¬á½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ »αÑñßΓáó½∩- ÑΓ ß«í«⌐ ÑÑ ß¼ÑΘÑ¡¿Ñ ß« º¡á¬«¼ «Γ SS:BP. áßßÑ¼í½Ñα áóΓ«¼áΓ¿τÑß¬¿ ñ«íáó½∩ÑΓ [BP] ¬ ßßδ½¬á¼ ¡á ½«¬á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ. ìá»α¿¼Ñα, ß πτÑΓ«¼ «»¿ßá¡¿⌐: procedure Test; var Count: Integer; ¿¡ßΓαπ¬µ¿¿: asm mov ax,Count end; áßßÑ¼í½¿απεΓß∩ ó MOV AX,[BP-2]. éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα óßÑúñá ¿¡ΓÑα»αÑΓ¿απÑΓ »áαá¼ÑΓα-»ÑαÑ¼Ñ¡- ¡πε, ¬á¬ 32-αáºα∩ñ¡δ⌐ π¬áºáΓÑ½∞, á αáº¼Ñα »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ óßÑúñá αáóÑ¡ 4 (αáº¼Ñαπ 32-αáºα∩ñ¡«ú« π¬áºáΓÑ½∩). é Åáß¬á½Ñ ß¿¡- Γá¬ß¿ß ñ½∩ ñ«ßΓπ»á ¬ »áαá¼ÑΓαπ-»ÑαÑ¼Ñ¡¡«⌐ ¿ ¬ º¡áτÑ¡¿ε »áαá¼ÑΓαá «ñ¿¡á¬«ó. é ß½πτáÑ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá φΓ« ¡Ñ Γá¬. Å«φΓ«¼π ñ½∩ ñ«ßΓπ»á ¬ ß«ñÑαª¿¼«¼π »áαá¼ÑΓαá-»ÑαÑ¼Ñ¡¡«⌐ óá¼ ß¡áτá½á »α¿ñÑΓß∩ ºáúαπº¿Γ∞ 32-αáºα∩ñ¡δ⌐ π¬áºáΓÑ½∞, á ºáΓÑ¼ «íαáΓ¿Γ∞ß∩ ¬ ∩τÑ⌐¬Ñ, ¡á ¬«Γ«απε «¡ π¬áºδóáÑΓ. ìá»α¿¼Ñα, Ñß½¿ X ¿ Y - »áαá¼ÑΓαδ-»ÑαÑ¼Ñ¡¡δÑ »α¿óÑñÑ¡¡«⌐ óδΦÑ Σπ¡¬µ¿¿ Sum, Γ« «¡á ¼«ªÑΓ óδú½∩ñÑΓ∞ ß½ÑñπεΘ¿¼ «íαáº«¼: function Sum(var X, Y: Integer): Integer; B.Pascal 7 & Objects/LR - 425 - begin asm les bx,X mov ax,es:[bx] les bx,Y add ax,es:[bx] mov @Result,ax end; end; ìÑ¬«Γ«αδÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, Γá¬¿Ñ, ¬á¬ »ÑαÑ¼Ñ¡¡δÑ Γ¿»á ºá»¿ß∞, ¿¼ÑεΓ «í½áßΓ∞ ñÑ⌐ßΓó¿∩, »«ºó«½∩εΘπε «íαáΘáΓ∞ß∩ ¬ ¡¿¼ ß »«¼«Θ∞ε «»Ñαáµ¿¿ óδí«αá φ½Ñ¼Ñ¡Γδ ßΓαπ¬Γπαδ - Γ«τ¬¿ (.). ìá»α¿¼Ñα, ß πτÑ- Γ«¼ «»¿ßá¡¿⌐: type Point = record X, Y: Integer; end; Rect = record A, B: Point; end; var P: Point; R: Rect; ñ½∩ ñ«ßΓπ»á ¬ »«½∩¼ ó »ÑαÑ¼Ñ¡¡δσ P ¿ R ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ß½Ññπε- Θ¿Ñ ¬«¡ßΓαπ¬µ¿¿: asm mov ax,P.X mov dx,P.Y mov cx,R.A.X mov bx,R.B.Y end; ä½∩ ¡Ñ»«ßαÑñßΓóÑ¡¡«ú« »«ßΓα«Ñ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ ¼«ª¡« ¿ß»«½∞º«- óáΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«α Γ¿»á. èáªñá∩ ¿º »α¿óÑñÑ¡¡δσ ¡¿ªÑ ¿¡ßΓαπ¬µ¿⌐ úÑ¡Ñα¿απÑΓ «ñ¿¡ ¿ Γ«Γ ªÑ ¼áΦ¿¡¡δ⌐ ¬«ñ, ºáúαπªáεΘ¿⌐ ó AX ES:[DI+4]: asm mov ax,(Rect PTR es:[di]).B.X mov ax,Rect(es:[di].B.X mov ax,es:Rect[di].B.X mov ax,Rect[es:di].B.X mov ax,es:[di].Rect.B.X end; Äí½áßΓ∞ ñÑ⌐ßΓó¿∩ ºáñáÑΓß∩ Γ¿»«ó, »«½Ñ¼ ¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼ »Ñ- αÑ¼Ñ¡¡«⌐ Γ¿»á ºá»¿ß¿ ¿½¿ «íΩÑ¬Γ¡«ú« Γ¿»á. èα«¼Ñ Γ«ú«, ¿ñÑ¡Γ¿Σ¿¬á- Γ«α ¼«ñπ½∩ «Γ¬αδóáÑΓ «í½áßΓ∞ ñÑ⌐ßΓó¿∩ ¬«¡¬αÑΓ¡«ú« ¼«ñπ½∩ (¬á¬ »«½¡«ßΓ∞ε πΓ«τ¡Ñ¡¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ó Åáß¬á½Ñ). B.Pascal 7 & Objects/LR - 426 - è½áßßδ óδαáªÑ¡¿⌐ ───────────────────────────────────────────────────────────────── éδαáªÑ¡¿∩ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá »«ñαáºñÑ½∩εΓß∩ ¡á Γα¿ ¬½áß- ßá: αÑú¿ßΓα«óδÑ º¡áτÑ¡¿∩, ßßδ½¬¿ ¡á »á¼∩Γ∞ ¿ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ º¡áτÑ¡¿∩. éδαáªÑ¡¿Ñ, ß«ßΓ«∩ΘÑÑ Γ«½∞¬« ¿º ¿¼Ñ¡¿ αÑú¿ßΓαá, ∩ó½∩ÑΓß∩ αÑ- ú¿ßΓα«óδ¼ º¡áτÑ¡¿Ñ¼. Åα¿¼Ñαá¼¿ αÑú¿ßΓα«óδσ º¡áτÑ¡¿⌐ ∩ó½∩εΓß∩ AX, CL, DI ¿ ES. êß»«½∞ºπÑ¼δÑ ó ¬áτÑßΓóÑ «»Ñαá¡ñ«ó, αÑú¿ßΓα«óδÑ óδαá- ªÑ¡¿∩ π¬áºδóáεΓ áßßÑ¼í½Ñαπ ¡á ¡Ñ«íσ«ñ¿¼«ßΓ∞ úÑ¡Ñα¿α«óáΓ∞ ¿¡ßΓαπ¬- µ¿¿, ¬«Γ«αδÑ αáí«ΓáεΓ ß αÑú¿ßΓαá¼¿ ûÅ. éδαáªÑ¡¿∩, «í«º¡áτáεΘ¿Ñ áñαÑßá »á¼∩Γ¿, ∩ó½∩εΓß∩ ßßδ½¬á¼¿ ¡á »á¼∩Γ∞. è φΓ«⌐ ¬áΓÑú«α¿¿ «Γ¡«ß∩Γß∩ ¼ÑΓ¬¿ Åáß¬á½∩, »ÑαÑ¼Ñ¡¡δÑ, Γ¿- »¿º«óá¡¡δÑ ¬«¡ßΓá¡Γδ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿. éδαáªÑ¡¿∩, ¬«Γ«αδÑ ¡Ñ ∩ó½∩εΓß∩ αÑú¿ßΓα«óδ¼¿ ¿ ¡Ñ ßó∩ºá¡δ ß ∩τÑ⌐¬á¼¿ »á¼∩Γ¿, »αÑñßΓáó½∩εΓ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ º¡áτÑ¡¿∩. ¥Γá úαπ»»á ó¬½ετáÑΓ ó ßÑí∩ ¡ÑΓ¿»¿º¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ ¿ ¿ñÑ¡Γ¿Σ¿- ¬áΓ«αδ Γ¿»á. ìÑ»«ßαÑñßΓóÑ¡¡δÑ º¡áτÑ¡¿∩ ¿ ßßδ½¬¿ ¡á »á¼∩Γ∞ »α¿ ¿ß»«½∞º«óá- ¡¿¿ ¿σ ó ¬áτÑßΓóÑ «»Ñαá¡ñ«ó »α¿ó«ñ∩Γ ¬ úÑ¡Ñαáµ¿¿ αáº½¿τ¡«ú« ¬«ñá. ìá»α¿¼Ñα: const Start = 10; var Count: Integer; . . . asm mov ax,Start { MOV AX,xxxx } mov bx,Count { MOV BX,[xxxx] } mov cx,[Start] { MOV CX,[xxxx] } mov dx,OFFSET Count { MOV DX,xxxx } end; Å«ß¬«½∞¬π Start - φΓ« ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ º¡áτÑ¡¿Ñ, »Ñαóá∩ ¿¡ß- Γαπ¬µ¿∩ MOV áßßÑ¼í½¿απÑΓß∩ ó ¡Ñ»«ßαÑñßΓóÑ¡¡πε ¿¡ßΓαπ¬µ¿ε. Äñ¡á¬« óΓ«αá∩ ¿¡ßΓαπ¬µ¿∩ MOV Γαá¡ß½¿απÑΓß∩ ó ¿¡ßΓαπ¬µ¿ε, ßßδ½áεΘπεß∩ ¡á »á¼∩Γ∞, Γá¬ ¬á¬ Count - φΓ« ßßδ½¬á ¡á »á¼∩Γ∞. é ΓαÑΓ∞Ñ⌐ ¿¡ßΓαπ¬- µ¿¿ MOV ñ½∩ »αÑ«íαáº«óá¡¿∩ Start ó ßßδ½¬π ¡á »á¼∩Γ∞ (ó ñá¡¡«¼ ß½πτáÑ ß½«ó« ß« ß¼ÑΘÑ¡¿Ñ¼ 10 ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ) ¿ß»«½∞ºπÑΓß∩ «»Ñ- αáµ¿∩ ¬óáñαáΓ¡δσ ß¬«í«¬. é τÑΓóÑαΓ«⌐ ¿¡ßΓαπ¬µ¿¿ MOV ñ½∩ »αÑ«íαá- º«óá¡¿∩ Count ó ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ º¡áτÑ¡¿Ñ (ß¼ÑΘÑ¡¿Ñ Count ó ßÑú- ¼Ñ¡ΓÑ ñá¡¡δσ) ¿ß»«½∞ºπÑΓß∩ «»Ñαáµ¿∩ OFFSET. èá¬ óδ ¼«ªÑΓÑ ó¿ñÑΓ∞, ¬óáñαáΓ¡δÑ ß¬«í¬¿ ¿ «»Ñαáµ¿∩ OFFSET ñ«»«½¡∩εΓ ñαπú ñαπúá. é ΓÑα¼¿¡áσ αÑºπ½∞Γ¿απεΘÑú« ¼áΦ¿¡¡«ú« ¬«ñá B.Pascal 7 & Objects/LR - 427 - ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α asm ¿ñÑ¡Γ¿τÑ¡ »Ñαóδ¼ ñóπ¼ ßΓα«¬á¼ »αÑñδñπΘÑú« «»ÑαáΓ«αá asm: asm mov ax,OFFSET [Start] mov bx,[OFFSET Count] end; æßδ½¬¿ ¡á »á¼∩Γ∞ ¿ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ º¡áτÑ¡¿∩ ¬½áßß¿Σ¿µ¿απεΓ- ß∩, ó ßó«ε «τÑαÑñ∞, ¬á¬ »ÑαÑ¼ÑΘáÑ¼δÑ ¿ áíß«½εΓ¡δÑ óδαáªÑ¡¿∩. ÅÑ- αÑ¼ÑΘáÑ¼«Ñ óδαáªÑ¡¿Ñ «í«º¡áτáÑΓ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ΓαÑíπÑΓ ¡á φΓá- »Ñ ¬«¼»«¡«ó¬¿ »ÑαÑ¼ÑΘÑ¡¿∩, á áíß«½εΓ¡«Ñ óδαáªÑ¡¿Ñ «í«º¡áτáÑΓ º¡á- τÑ¡¿Ñ, ¬«Γ«α«Ñ Γá¬«ú« »ÑαÑ¼ÑΘÑ¡¿∩ ¡Ñ ΓαÑíπÑΓ. Äíδτ¡« óδαáªÑ¡¿Ñ ß« ßßδ½¬«⌐ ¡á ¼ÑΓ¬π, »ÑαÑ¼Ñ¡¡πε »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ∩ó½∩ÑΓß∩ »ÑαÑ- ¼ÑΘáÑ¼δ¼, á óδαáªÑ¡¿Ñ, úñÑ «»Ñαáµ¿¿ óδ»«½¡∩εΓß∩ ¿ß¬½ετ¿ΓÑ½∞¡« ß ¬«¡ßΓá¡Γá¼¿ - áíß«½εΓ¡δ¼. ÅÑαÑ¼ÑΘÑ¡¿Ñ ∩ó½∩ÑΓß∩ »α«µÑßß«¼, ß »«¼«Θ∞ε ¬«Γ«α«ú« ¬«¼»«¡«ó- Θ¿¬ »α¿ßóá¿óáÑΓ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá¼ áíß«½εΓ¡δÑ áñαÑßá. ìá φΓá»Ñ ¬«¼- »«¡«ó¬¿ ¬«¼»¿½∩Γ«απ ¡Ñ¿ºóÑßΓ¡δ ¬«¡Ñτ¡δÑ áñαÑßá ¼ÑΓ¬¿, »ÑαÑ¼Ñ¡¡«⌐, »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿. Ä¡¿ ¡Ñ íπñπΓ ¿ºóÑßΓ¡δ ñ« φΓá»á ¬«¼»«¡«ó¬¿, ¡á ¬«Γ«α«¼ ¬«¼»«¡«óΘ¿¬ »α¿ßóá¿óáÑΓ ¿ñÑ¡Γ¿Σ¿¬áΓ«απ ¬«¡¬αÑΓ¡δ⌐ áí- ß«½εΓ¡δ⌐ áñαÑß. éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα »«ºó«½∩ÑΓ óá¼ óδ»«½¡∩Γ∞ ½εíπε «»Ñαáµ¿ε ß áíß«½εΓ¡δ¼ º¡áτÑ¡¿Ñ¼, ¡« «»Ñαáµ¿¿ ß »ÑαÑ¼ÑΘáÑ¼δ¼¿ º¡áτÑ¡¿∩¼¿ «úαá¡¿τ¿óáεΓß∩ ß½«ªÑ¡¿Ñ¼ ¿ óδτ¿Γá¡¿Ñ¼ ¬«¡ßΓá¡Γ. Æ¿»δ óδαáªÑ¡¿⌐ ───────────────────────────────────────────────────────────────── èáªñ«Ñ óδαáªÑ¡¿Ñ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá ¿¼ÑÑΓ ß««ΓóÑΓßΓóπε- Θ¿⌐ Γ¿», ¿½¿, Ñß½¿ ú«ó«α¿Γ∞ Γ«τ¡ÑÑ, αáº¼Ñα, »«ß¬«½∞¬π óßΓα«Ñ¡¡δ⌐ ÇßßÑ¼í½Ñα αáßß¼áΓα¿óáÑΓ Γ¿» óδαáªÑ¡¿∩ »α«ßΓ« ¬á¬ Ñú« αáº¼Ñα ó »á- ¼∩Γ¿. ìá»α¿¼Ñα, Γ¿» (αáº¼Ñα) »ÑαÑ¼Ñ¡¡«⌐ Integer αáóÑ¡ 2, Γá¬ ¬á¬ «¡á ºá¡¿¼áÑΓ ñóá íá⌐Γá. Æá¼, úñÑ φΓ« ó«º¼«ª¡«, óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα óδ»«½¡∩ÑΓ »α«- óÑα¬π Γ¿»«ó, »«φΓ«¼π ó ¿¡ßΓαπ¬µ¿∩σ: var QuitFlag: Boolean; OutBufPtr: Word; . . . asm mov al,QuitFlag mov bx,OutBufPtr end; óßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα »α«óÑα∩ÑΓ, τΓ« αáº¼Ñα QuitFlag αáóÑ¡ 1 B.Pascal 7 & Objects/LR - 428 - (íá⌐Γ), á αáº¼Ñα OutBufPtr - ñóπ¼ (ß½«ó«). àß½¿ »α«óÑα¬á Γ¿»á «í- ¡áαπª¿óáÑΓ ¡Ñß««ΓóÑΓßΓó¿Ñ, ó«º¡¿¬áÑΓ «Φ¿í¬á. ìá»α¿¼Ñα, ß½ÑñπεΘÑÑ ¡Ññ«»πßΓ¿¼«: asm mov dl,OutBufPtr end; Γá¬ ¬á¬ DL - φΓ« íá⌐Γ«óδ⌐ αÑú¿ßΓα, á OutBufPtr - ß½«ó«. Æ¿» ßßδ½- ¬¿ ¡á »á¼∩Γ∞ ¼«ª¡« ¿º¼Ñ¡¿Γ∞ ß »«¼«Θ∞ε ¡áº¡áτÑ¡¿∩ Γ¿»á. è«ααÑ¬Γ¡δ¼ ß»«ß«í«¼ ºá»¿ß¿ »αÑñδñπΘ¿σ ¿¡ßΓαπ¬µ¿⌐ íπñÑΓ ß½ÑñπεΘ¿⌐: asm mov dl,BYTE PTR OutBufPtr mov dl,Byte(OutBufPtr) mov dl,OutBufPtr.Byte end; éßÑ φΓ¿ ¿¡ßΓαπ¬µ¿¿ ßßδ½áεΓß∩ ¡á »Ñαóδ⌐ (¼Ñ¡ÑÑ º¡áτáΘ¿⌐) íá⌐Γ »ÑαÑ¼Ñ¡¡«⌐ OutBufPtr. é ¡Ñ¬«Γ«αδσ ß½πτá∩σ ßßδ½¬á ¡á »á¼∩Γ∞ ∩ó½∩ÑΓß∩ ¡ÑΓ¿»¿º¿α«óá¡- ¡«⌐, Γ« ÑßΓ∞ ¡Ñ ¿¼ÑÑΓ ß««ΓóÑΓßΓóπεΘÑú« Γ¿»á. Åα¿óÑñÑ¼ »α¿¼Ñα ß ¡Ñ»«ßαÑñßΓóÑ¡¡δ¼ º¡áτÑ¡¿Ñ¼, ºá¬½ετÑ¡¡δ¼ ó ¬óáñαáΓ¡δÑ ß¬«í¬¿: asm mov al,[100H] mov bx,[100H] end; éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα ñ«»πß¬áÑΓ «íÑ φΓ¿σ Σπ¡¬µ¿¿, »«ß¬«½∞¬π óδαáªÑ¡¿Ñ [100H] ¡Ñ ¿¼ÑÑΓ ß««ΓóÑΓßΓóπεΘÑú« Γ¿»á, «¡« »α«ßΓ« «º¡á- τáÑΓ "ß«ñÑαª¿¼«Ñ »« áñαÑßπ 100H ó ßÑú¼Ñ¡ΓÑ ñá¡¡δσ", á Γ¿» ¼«ª¡« «»αÑñÑ½¿Γ∞ ¿º »Ñαó«ú« «»Ñαá¡ñá (íá⌐Γ ñ½∩ AL, ß½«ó« ñ½∩ BX). é Γ«¼ ß½πτáÑ, ¬«úñá Γ¿» ¡Ñ½∞º∩ «»αÑñÑ½¿Γ∞ ¿º ñαπú«ú« «»Ñαá¡ñá, óßΓα«Ñ¡- ¡δ⌐ áßßÑ¼í½Ñα ΓαÑíπÑΓ ∩ó¡«ú« ¡áº¡áτÑ¡¿∩ Γ¿»á: asm mov BYTE PTR [100H] mov WORD PTR [100H] end; B.Pascal 7 & Objects/LR - 429 - é Æáí½¿µÑ 24.4 »α¿óÑñÑ¡δ »αÑñ«»αÑñÑ½Ñ¡¡δÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ Γ¿- »á, ¬«Γ«αδÑ »αÑñπß¼«ΓαÑ¡δ ó« óßΓα«Ñ¡¡«¼ áßßÑ¼í½ÑαÑ ñ«»«½¡¿ΓÑ½∞¡« ¬ Γ¿»á¼, «»¿ßá¡¡δ¼ ó Åáß¬á½Ñ: ÅαÑñ«»αÑñÑ½Ñ¡¡δÑ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ Γ¿»á Æáí½¿µá 24.4 ┌────────────────────┬─────────────────────────────────┐ │ êñÑ¡Γ¿Σ¿¬áΓ«α │ Æ¿» │ ├────────────────────┼─────────────────────────────────┤ │ BYTE │ 1 │ │ WORD │ 2 │ │ DWORD │ 4 │ │ QWORD │ 8 │ │ TBYTE │ 10 │ │ NEAR │ 0FFFEH │ │ FAR │ 0FFFFH │ └────────────────────┴─────────────────────────────────┘ çá¼ÑΓ¿¼ ó τáßΓ¡«ßΓ¿, τΓ« NEAR ¿ FAR - φΓ« »ßÑóñ«Γ¿»δ, ¬«Γ«- αδÑ ¿ß»«½∞ºπεΓß∩ ß ¿ñÑ¡Γ¿Σ¿¬áΓ«αá¼¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ñ½∩ π¬áºá- ¡¿∩ ¿σ ¼«ñÑ½¿ óδº«óá. éδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ¡áº¡áτÑ¡¿∩ Γ¿»á NEAR ¿ FAR á¡á½«ú¿τ¡« ñαπú¿¼ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá¼. ìá»α¿¼Ñα, Ñß½¿ FarProc - »α«µÑñπαá ß ñá½∞¡¿¼ Γ¿»«¼ óδº«óá (FAR): procedure FarProc; far; ¿ Ñß½¿ óδ ºá»¿ßδóáÑΓÑ ¬«ñ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá ó Γ«¼ ªÑ ¼«ñπ½Ñ, úñÑ ¡áσ«ñ¿Γß∩ FarProc, Γ« óδ ¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ñ½∩ ÑÑ óδº«óá í«½ÑÑ φΣΣÑ¬Γ¿ó¡πε ¿¡ßΓαπ¬µ¿ε NEAR: asm push cs call NEAR PTR FarProc end B.Pascal 7 & Objects/LR - 430 - Ä»Ñαáµ¿¿ ó óδαáªÑ¡¿∩σ ───────────────────────────────────────────────────────────────── éßΓα«Ñ¡¡δ⌐ áßßÑ¼í½Ñα »αÑñπß¼áΓα¿óáÑΓ ¼¡«ªÑßΓó« «»Ñαáµ¿⌐, »«ñαáºñÑ½∩Ñ¼δσ »« ßΓáαΦ¿¡ßΓóπ ¡á 12 ¬½áßß«ó. é Æáí½¿µÑ 24.5 »ÑαÑ- τ¿ß½Ñ¡δ «»Ñαáµ¿¿, ¿ß»«½∞ºπεΘ¿Ñß∩ ó óδαáªÑ¡¿∩σ óßΓα«Ñ¡¡«ú« áßßÑ¼í- ½Ñαá ó »«α∩ñ¬Ñ πíδóá¡¿∩ ¿σ ßΓáαΦ¿¡ßΓóá: éßΓα«Ñ¡¡δÑ «»Ñαáµ¿¿ áßßÑ¼í½Ñαá Æáí½¿µá 24.5 ┌──────────────────────────────┬────────────────────────────────┐ │ Ä»Ñαáµ¿∩ │ è«¼¼Ñ¡Γáα¿⌐ │ ├──────────────────────────────┼────────────────────────────────┤ │ & │ Ä»Ñαáµ¿∩ »ÑαÑ«»αÑñÑ½Ñ¡¿∩ ¿ñÑ¡-│ │ │ Γ¿Σ¿¬áΓ«αá. │ ├──────────────────────────────┼────────────────────────────────┤ │ (), [], * │ éδí«α φ½Ñ¼Ñ¡Γá ßΓαπ¬Γπαδ. │ ├──────────────────────────────┼────────────────────────────────┤ │ HIGH, LOW │ ô¡áα¡δÑ «»Ñαáµ¿¿. │ │ +, - │ │ ├──────────────────────────────┼────────────────────────────────┤ │ : │ Ä»Ñαáµ¿∩ »ÑαÑ«»αÑñÑ½Ñ¡¿∩ ßÑú-│ │ │ ¼Ñ¡Γá. │ │ OFFSET, SEG, TYPE, PTR, │ │ │ *, /, MOD, SHL, SHR │ │ ├──────────────────────────────┼────────────────────────────────┤ │ +, - │ ü¿¡áα¡δÑ «»Ñαáµ¿¿ ß½«ªÑ¡¿∩/óδ- │ │ │ τ¿Γá¡¿∩. │ ├──────────────────────────────┼────────────────────────────────┤ │ NOT, AND, OR, XOR │ Å«αáºα∩ñ¡δÑ «»Ñαáµ¿¿. │ └──────────────────────────────┴────────────────────────────────┘ B.Pascal 7 & Objects/LR - 431 - Ä»αÑñÑ½Ñ¡¿∩ «»Ñαáµ¿⌐ óßΓα«Ñ¡¡«ú« áßßÑ¼í½Ñαá Æáí½¿µá 24.6 ┌──────┬────────────────────────────────────────────────────────┐ │Ä»Ñα. │ Ä»¿ßá¡¿Ñ │ ├──────┼────────────────────────────────────────────────────────┤ │ & │ ÅÑαÑ«»αÑñÑ½Ñ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá. êñÑ¡Γ¿Σ¿¬áΓ«α, ¡Ñ»«ß-│ │ │ αÑñßΓóÑ¡¡« ß½ÑñπεΘ¿⌐ ºá á¼»Ñαßá¡Γ«¼, ¿¡ΓÑα»αÑΓ¿απÑΓß∩,│ │ │ ¬á¬ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, «»αÑñÑ½∩Ñ¼δ⌐ »«½∞º«óáΓÑ½Ñ¼, ñáªÑ Ñß-│ │ │ ½¿ «¡ ß««ΓóÑΓßΓóπÑΓ ºáαÑºÑαó¿α«óá¡¡«¼π ß½«óπ óßΓα«Ñ¡¡«-│ │ │ ú« áßßÑ¼í½Ñαá. │ ├──────┼────────────────────────────────────────────────────────┤ │ (...)│ Å«ñóδαáªÑ¡¿Ñ. éδαáªÑ¡¿Ñ ó ß¬«í¬áσ »«½¡«ßΓ∞ε óδτ¿ß½∩ÑΓ-│ │ │ ß∩, »«ß½Ñ τÑú« ¿¡ΓÑα»αÑΓ¿απÑΓß∩, ¬á¬ «ñ¿¡ φ½Ñ¼Ñ¡Γ. éδ-│ │ │ αáªÑ¡¿ε ó ß¬«í¬áσ ¼«ªÑΓ »αÑñΦÑßΓó«óáΓ∞ ñαπú«Ñ óδαáªÑ-│ │ │ ¡¿Ñ. ÉÑºπ½∞ΓáΓ«¼ ó φΓ«¼ ß½πτáÑ íπñÑΓ ßπ¼¼á º¡áτÑ¡¿⌐│ │ │ ñóπσ óδαáªÑ¡¿⌐ ß Γ¿»«¼ »Ñαó«ú« óδαáªÑ¡¿∩. │ ├──────┼────────────────────────────────────────────────────────┤ │ [...]│ æßδ½¬á ¡á »á¼∩Γ∞. éδαáªÑ¡¿Ñ ó ¬óáñαáΓ¡δσ ß¬«í¬áσ »«½-│ │ │ ¡«ßΓ∞ε óδτ¿ß½∩ÑΓß∩, »«ß½Ñ τÑú« ¿¡ΓÑα»αÑΓ¿απÑΓß∩, ¬á¬│ │ │ «ñ¿¡ φ½Ñ¼Ñ¡Γ. éδαáªÑ¡¿Ñ ó ¬óáñαáΓ¡δσ ß¬«í¬áσ ¼«ªÑΓ ¬«¼-│ │ │ í¿¡¿α«óáΓ∞ß∩ ß αÑú¿ßΓαá¼¿ BX, BP, SI, DI ß »«¼«Θ∞ε «»Ñ-│ │ │ αáµ¿¿ +, τΓ« π¬áºδóáÑΓ ¡á ¿¡ñÑ¬ß¿α«óá¡¿Ñ αÑú¿ßΓαá ûÅ.│ │ │ éδαáªÑ¡¿ε ó ¬óáñαáΓ¡δσ ß¬«í¬áσ ¼«ªÑΓ »αÑñΦÑßΓó«óáΓ∞│ │ │ ñαπú«Ñ óδαáªÑ¡¿Ñ. ÉÑºπ½∞ΓáΓ«¼ ó φΓ«¼ ß½πτáÑ íπñÑΓ ßπ¼¼á│ │ │ º¡áτÑ¡¿⌐ ñóπσ óδαáªÑ¡¿⌐ ß Γ¿»«¼ »Ñαó«ú« óδαáªÑ¡¿∩. ÉÑ-│ │ │ ºπ½∞ΓáΓ«¼ óßÑúñá íπñÑΓ ßßδ½¬á ¡á »á¼∩Γ∞. │ ├──────┼────────────────────────────────────────────────────────┤ │ . │ éδí«α φ½Ñ¼Ñ¡Γá ßΓαπ¬Γπαδ. ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ ßπ¼¼á óδαá-│ │ │ ªÑ¡¿∩ »ÑαÑñ Γ«τ¬«⌐ ¿ óδαáªÑ¡¿∩ »«ß½Ñ Γ«τ¬¿ ß Γ¿»«¼ óδ-│ │ │ αáªÑ¡¿∩ »«ß½Ñ Γ«τ¬¿. êñÑ¡Γ¿Σ¿¬áΓ«αδ, «Γ¡«ß∩Θ¿Ñß∩ ¬ «í-│ │ │ ½áßΓ¿ ñÑ⌐ßΓó¿∩, ¿ π¬áºá¡¡δÑ ó óδαáªÑ¡¿¿ »ÑαÑñ Γ«τ¬«⌐│ │ │ ñ«ßΓπ»¡δ ó óδαáªÑ¡¿¿ »«ß½Ñ Γ«τ¬¿. │ ├──────┼────────────────────────────────────────────────────────┤ │ HIGH │ é«ºóαáΘáÑΓ ßΓáαΦ¿Ñ 8 í¿Γ óδαáªÑ¡¿∩ αáº¼Ñα«¼ ó ß½«ó«,│ │ │ ß½ÑñπεΘÑú« ºá «»Ñαáµ¿Ñ⌐. éδαáªÑ¡¿Ñ ñ«½ª¡« »αÑñßΓáó½∩Γ∞│ │ │ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ LOW │ é«ºóαáΘáÑΓ ¼½áñΦ¿Ñ 8 í¿Γ óδαáªÑ¡¿∩ αáº¼Ñα«¼ ó ß½«ó«,│ │ │ ß½ÑñπεΘÑú« ºá «»Ñαáµ¿Ñ⌐. éδαáªÑ¡¿Ñ ñ«½ª¡« »αÑñßΓáó½∩Γ∞│ │ │ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ + │ ô¡áα¡δ⌐ »½εß. é«ºóαáΘáÑΓ ß½ÑñπεΘÑÑ ºá »½εß«¼ óδαáªÑ¡¿Ñ│ │ │ íÑº ¿º¼Ñ¡Ñ¡¿⌐. éδαáªÑ¡¿Ñ ñ«½ª¡« »αÑñßΓáó½∩Γ∞ ß«í«⌐ ¡Ñ-│ │ │ »«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ - │ ô¡áα¡δ⌐ ¼¿¡πß. é«ºóαáΘáÑΓ ß½ÑñπεΘÑÑ ºá ¼¿¡πß«¼ óδαáªÑ-│ │ │ ¡¿Ñ ß «íαáΓ¡δ¼ º¡á¬«¼. éδαáªÑ¡¿Ñ ñ«½ª¡« »αÑñßΓáó½∩Γ∞│ │ │ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ : │ ÅÑαÑ«»αÑñÑ½Ñ¡¿Ñ ßÑú¼Ñ¡Γá. ô¬áºδóáÑΓ áßßÑ¼í½Ñαπ, τΓ« óδ-│ │ │ αáªÑ¡¿Ñ »«ß½Ñ ñó«ÑΓ«τ¿∩ «Γ¡«ß¿Γß∩ ¬ ßÑú¼Ñ¡Γπ, ºáñá¡¡«¼π│ │ │ ¿¼Ñ¡Ñ¼ ßÑú¼Ñ¡Γ¡«ú« αÑú¿ßΓαá (CS, DS, SS ¿½¿ ES) »ÑαÑñ│ │ │ ñó«ÑΓ«τ¿Ñ¼. ÉÑºπ½∞ΓáΓ«¼ ∩ó½∩ÑΓß∩ ßßδ½¬á ¡á »á¼∩Γ∞ ß«│ B.Pascal 7 & Objects/LR - 432 - │ │ º¡áτÑ¡¿Ñ¼ óδαáªÑ¡¿∩ »«ß½Ñ ñó«ÑΓ«τ¿∩. è«úñá »ÑαÑ«»αÑñÑ-│ │ │ ½Ñ¡¿Ñ ßÑú¼Ñ¡Γá ¿ß»«½∞ºπÑΓß∩ ó «»Ñαá¡ñÑ ¿¡ßΓαπ¬µ¿¿, ¿¡ß-│ │ │ Γαπ¬µ¿¿ »αÑñΦÑßΓóπÑΓ ß««ΓóÑΓßΓóπεΘ¿⌐ »αÑΣ¿¬ß »ÑαÑ«»αÑ-│ │ │ ñÑ½Ñ¡¿∩ ßÑú¼Ñ¡Γá, «íÑß»Ñτ¿óáεΘ¿⌐ óδí«α π¬áºá¡¡«ú«│ │ │ ßÑú¼Ñ¡Γá. │ ├──────┼────────────────────────────────────────────────────────┤ │OFFSET│ é«ºóαáΘáÑΓ ß¼ÑΘÑ¡¿Ñ ß½ÑñπεΘÑú« ºá «»Ñαáµ¿Ñ⌐ óδαáªÑ¡¿∩│ │ │ (¼½áñΦÑÑ ß½«ó«). ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ│ │ │ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ SEG │ é«ºóαáΘáÑΓ ßÑú¼Ñ¡Γ ß½ÑñπεΘÑú« ºá «»Ñαáµ¿Ñ⌐ óδαáªÑ¡¿∩│ │ │ (ßΓáαΦÑÑ ß½«ó«). ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ│ │ │ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ TYPE │ é«ºóαáΘáÑΓ Γ¿» (αáº¼Ñα ó íá⌐Γáσ) ß½ÑñπεΘÑú« ºá «»Ñαáµ¿-│ │ │ Ñ⌐ óδαáªÑ¡¿∩. Æ¿»«¼ ¡Ñ»«ßαÑñßΓóÑ¡¡«ú« º¡áτÑ¡¿∩ íπñÑΓ 0.│ ├──────┼────────────────────────────────────────────────────────┤ │ PTR │ Ä»Ñαáµ¿∩ ¡áº¡áτÑ¡¿∩ Γ¿»á. ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ ßßδ½¬á ¡á│ │ │ »á¼∩Γ∞ ß« º¡áτÑ¡¿Ñ¼ óδαáªÑ¡¿∩, ß½ÑñπεΘÑú« ºá «»Ñαáµ¿Ñ⌐│ │ │ ¿ Γ¿»«¼ óδαáªÑ¡¿∩ »ÑαÑñ «»Ñαáµ¿Ñ⌐. │ ├──────┼────────────────────────────────────────────────────────┤ │ * │ ô¼¡«ªÑ¡¿Ñ. Äíá óδαáªÑ¡¿∩ ñ«½ª¡δ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ¡Ñ-│ │ │ »«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ¡¿∩. ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ│ │ │ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ / │ ûÑ½«τ¿ß½Ñ¡¡«Ñ ñÑ½Ñ¡¿Ñ. Äíá óδαáªÑ¡¿∩ ñ«½ª¡δ »αÑñßΓáó-│ │ │ ½∩Γ∞ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ¡¿∩. ÉÑ-│ │ │ ºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ MOD │ ÄßΓáΓ«¬ µÑ½«τ¿ß½Ñ¡¡«ú« ñÑ½Ñ¡¿∩. Äíá óδαáªÑ¡¿∩ ñ«½ª¡δ│ │ │ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ-│ │ │ ¡¿∩. ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡á-│ │ │ τÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ SHL │ ï«ú¿τÑß¬¿⌐ ßñó¿ú ó½Ñó«. Äíá óδαáªÑ¡¿∩ ñ«½ª¡δ »αÑñßΓáó-│ │ │ ½∩Γ∞ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ¡¿∩. ÉÑ-│ │ │ ºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ SHR │ ï«ú¿τÑß¬¿⌐ ßñó¿ú ó»αáó«. Äíá óδαáªÑ¡¿∩ ñ«½ª¡δ »αÑñßΓáó-│ │ │ ½∩Γ∞ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ¡¿∩. ÉÑ-│ │ │ ºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ + │ æ½«ªÑ¡¿Ñ. éδαáªÑ¡¿∩ ¼«úπΓ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ¡Ñ»«ßαÑñß-│ │ │ ΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ¡¿∩ ¿½¿ ßßδ½¬¿ ¡á »á¼∩Γ∞, ¡«│ │ │ »ÑαÑ¼ÑΘáÑ¼δ¼ º¡áτÑ¡¿Ñ¼ ¼«ªÑΓ íδΓ∞ Γ«½∞¬« «ñ¡« óδαáªÑ-│ │ │ ¡¿Ñ. àß½¿ «ñ¡« ¿º óδαáªÑ¡¿⌐ - »ÑαÑ¼ÑΘáÑ¼«Ñ º¡áτÑ¡¿Ñ, Γ«│ │ │ αÑºπ½∞ΓáΓ«¼ Γá¬ªÑ íπñÑΓ »ÑαÑ¼ÑΘáÑ¼«Ñ º¡áτÑ¡¿Ñ. àß½¿ «ñ-│ │ │ ¡« ¿º óδαáªÑ¡¿⌐ - ßßδ½¬á ¡á »á¼∩Γ∞, Γ« αÑºπ½∞ΓáΓ«¼ Γá¬-│ │ │ ªÑ íπñÑΓ ßßδ½¬á ¡á »á¼∩Γ∞. │ ├──────┼────────────────────────────────────────────────────────┤ │ - │ éδτ¿Γá¡¿Ñ. ÅÑαó«Ñ óδαáªÑ¡¿Ñ ¼«ªÑΓ ¿¼ÑΓ∞ ½εí«⌐ ¬½áßß, á│ │ │ óΓ«α«Ñ óδαáªÑ¡¿Ñ ñ«½ª¡« íδΓ∞ ¡Ñ»«ßαÑñßΓóÑ¡¡δ¼ áíß«½εΓ-│ │ │ ¡δ¼ óδαáªÑ¡¿Ñ¼. ÉÑºπ½∞ΓáΓ ¿¼ÑÑΓ Γ«Γ ªÑ Γ¿», τΓ« ¿ »Ñα-│ B.Pascal 7 & Objects/LR - 433 - │ │ ó«Ñ óδαáªÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ NOT │ Å«αáºα∩ñ¡«Ñ «Γα¿µá¡¿Ñ. éδαáªÑ¡¿Ñ ñ«½ª¡« »αÑñßΓáó½∩Γ∞│ │ │ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ¡¿∩. ÉÑºπ½∞ΓáΓ«¼│ │ │ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ AND │ Å«αáºα∩ñ¡á∩ «»Ñαáµ¿∩ AND (ê). Äíá óδαáªÑ¡¿∩ ñ«½ª¡δ│ │ │ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ-│ │ │ ¡¿∩. ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡á-│ │ │ τÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ OR │ Å«αáºα∩ñ¡á∩ «»Ñαáµ¿∩ OR (êïê). Äíá óδαáªÑ¡¿∩ ñ«½ª¡δ│ │ │ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ¡δÑ º¡áτÑ-│ │ │ ¡¿∩. ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«½εΓ¡«Ñ º¡á-│ │ │ τÑ¡¿Ñ. │ ├──────┼────────────────────────────────────────────────────────┤ │ XOR │ Å«αáºα∩ñ¡á∩ «»Ñαáµ¿∩ XOR (¿ß¬½ετáεΘÑÑ êïê). Äíá óδαáªÑ-│ │ │ ¡¿∩ ñ«½ª¡δ »αÑñßΓáó½∩Γ∞ ß«í«⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡δÑ áíß«½εΓ-│ │ │ ¡δÑ º¡áτÑ¡¿∩. ÉÑºπ½∞ΓáΓ«¼ íπñÑΓ ¡Ñ»«ßαÑñßΓóÑ¡¡«Ñ áíß«-│ │ │ ½εΓ¡«Ñ º¡áτÑ¡¿Ñ. │ └──────┴────────────────────────────────────────────────────────┘ B.Pascal 7 & Objects/LR - 434 - Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── ä« ß¿σ »«α ¼δ αáßß¼áΓα¿óá½¿ ¬«¡ßΓαπ¬µ¿ε asm...end, ¬á¬ «»Ñ- αáΓ«α ß «íδτ¡«⌐ τáßΓ∞ε begin...end. ä¿αÑ¬Γ¿óá assembler ó Borland Pascal »«ºó«½∩ÑΓ óá¼ »¿ßáΓ∞ ¡á óßΓα«Ñ¡¡«¼ áßßÑ¼í½ÑαÑ µÑ½¿¬«¼ »α«- µÑñπαδ ¿ Σπ¡¬µ¿¿ íÑº ¡Ñ«íσ«ñ¿¼«ßΓ¿ begin...end. Åα¿óÑñÑ¼ »α¿¼Ñα Σπ¡¬µ¿¿ ¡á áßßÑ¼í½ÑαÑ: function LongMul(X, Y: Integer) : Longint; assembler; asm mov ax,X imul Y end; ä¿αÑ¬Γ¿óá assembler »α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« Borland Pascal óδ- »«½¡∩ÑΓ »α¿ úÑ¡Ñαáµ¿¿ ¬«ñá ß½ÑñπεΘπε «»Γ¿¼¿ºáµ¿ε: - è«¼»¿½∩Γ«α ¡Ñ úÑ¡Ñα¿απÑΓ ¬«ñ ñ½∩ ¬«»¿α«óá¡¿∩ »áαá¼ÑΓ- α«ó-º¡áτÑ¡¿⌐ ó ½«¬á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ. ¥Γ« ó½¿∩ÑΓ ¡á óßÑ »á- αá¼ÑΓαδ-º¡áτÑ¡¿∩ ßΓα«¬«ó«ú« Γ¿»á ¿ ñαπú¿Ñ º¡áτÑ¡¿∩-»áαá- ¼ÑΓαδ, αáº¼Ñα ¬«Γ«αδσ ¡Ñ αáóÑ¡ 1, 2 ¿½¿ 4 íá⌐Γá¼. é¡πΓα¿ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ Γá¬¿Ñ »áαá¼ÑΓαδ ñ«½ª¡δ ¿¡ΓÑα»αÑΓ¿α«- óáΓ∞ß∩, ¬á¬ Ñß½¿ íδ «¡¿ íδ½¿ »áαá¼ÑΓαá¼¿-»ÑαÑ¼Ñ¡¡δ¼¿. - è«¼»¿½∩Γ«α ¡Ñ óδñÑ½∩ÑΓ »á¼∩Γ∞ ñ½∩ αÑºπ½∞ΓáΓá Σπ¡¬µ¿¿, ¿ ßßδ½¬á ¡á ¿ñÑ¡Γ¿Σ¿¬áΓ«α @Result íπñÑΓ «Φ¿í¬«⌐. Äñ¡á¬« ßΓα«¬«óδÑ Σπ¡¬µ¿¿ ∩ó½∩εΓß∩ ¿ß¬½ετÑ¡¿Ñ¼ ¿º φΓ«ú« »αáó¿½á - «¡¿ óßÑúñá ¿¼ÑεΓ π¬áºáΓÑ½∞ @Result, ¬«Γ«αδ⌐ αáß»αÑñÑ½∩ÑΓß∩ »«½∞º«óáΓÑ½Ñ¼. - ä½∩ »α«µÑñπα ¿ Σπ¡¬µ¿⌐, ¡Ñ ¿¼ÑεΘ¿σ »áαá¼ÑΓα«ó ¿ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ, ¬«¼»¿½∩Γ«α ¡Ñ úÑ¡Ñα¿απÑΓ ¬áñα«ó ßΓÑ¬á. - ä½∩ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¡á áßßÑ¼í½ÑαÑ áóΓ«¼áΓ¿τÑß¬¿ úÑ¡Ñ- α¿απÑΓß∩ ¬«ñ óδσ«ñá: push bp ; »α¿ßπΓßΓóπÑΓ, Ñß½¿ Locals <> 0 ¿½¿ ; Params <> 0 mov bp,sp ; »α¿ßπΓßΓóπÑΓ, Ñß½¿ Locals <> 0 ¿½¿ ; Params <> 0 sub sp,Locals ; »α¿ßπΓßΓóπÑΓ, Ñß½¿ Locals <> 0 ... mov sp,bp ; »α¿ßπΓßΓóπÑΓ, Ñß½¿ Locals <> 0 pop bp ; »α¿ßπΓßΓóπÑΓ, Ñß½¿ Locals <> 0 ¿½¿ ; Params <> 0 ret Params ; óßÑúñá »α¿ßπΓßΓóπÑΓ úñÑ Locals - αáº¼Ñα ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ, á Params - αáº- ¼Ñα »áαá¼ÑΓα«ó. àß½¿ ¿ Locals ¿ Params = 0, Γ« ¬«ñá óσ«ñá ¡Ñ íπñÑΓ, ¿ ¬«ñ óδσ«ñá ß«ßΓ«¿Γ »α«ßΓ« ¿º ¿¡ßΓαπ¬µ¿¿ RET. öπ¡¬µ¿¿, ¿ß»«½∞ºπεΘ¿Ñ ñ¿αÑ¬Γ¿óπ assembler, ñ«½ª¡δ ó«ºóαáΘáΓ∞ B.Pascal 7 & Objects/LR - 435 - αÑºπ½∞ΓáΓ ß½ÑñπεΘ¿¼ «íαáº«¼: - αÑºπ½∞ΓáΓδ Σπ¡¬µ¿¿ »«α∩ñ¬«ó«ú« Γ¿»á (Integer, Char, Boolean, »ÑαÑτ¿ß½¿¼δÑ Γ¿»δ) ó«ºóαáΘáεΓß∩ ó AL (8-αáºα∩ñ¡«Ñ º¡áτÑ¡¿Ñ), AX (16-αáºα∩ñ¡«Ñ º¡áτÑ¡¿Ñ) ¿½¿ DX:AX (32-αáº- α∩ñ¡«Ñ º¡áτÑ¡¿Ñ); - αÑºπ½∞ΓáΓδ Σπ¡¬µ¿¿ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á (Real) ó«ºóαáΘáεΓß∩ ó DX:BX:AX; - αÑºπ½∞ΓáΓδ Σπ¡¬µ¿¿ Γ¿»«ó 8087 (Single, Double, Extended, Comp) ó«ºóαáΘáεΓß∩ ó ST(0) (αÑú¿ßΓα ßΓÑ¬á ß«»α«µÑßß«αá 8087); - αÑºπ½∞ΓáΓδ Σπ¡¬µ¿¿ Γ¿»á π¬áºáΓÑ½∞ ó«ºóαáΘáεΓß∩ ó DX:AX; - αÑºπ½∞ΓáΓδ Σπ¡¬µ¿¿ ßΓα«¬«ó«ú« Γ¿»á ó«ºóαáΘáεΓß∩ ó« óαÑ¼Ñ¡- ¡«⌐ ∩τÑ⌐¬Ñ, ¡á ¬«Γ«απε π¬áºδóáÑΓ @Result. ä¿αÑ¬Γ¿óá assembler ó« ¼¡«ú«¼ »«σ«ªá ¡á ñ¿αÑ¬Γ¿óπ external. Åα«µÑñπαδ ¿ Σπ¡¬µ¿¿ ¡á áßßÑ¼í½ÑαÑ ñ«½ª¡δ ñ«½ª¡δ »«ñτ¿¡∩Γ∞ß∩ ΓÑ¼ ªÑ »αáó¿½á¼, τΓ« ¿ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ Γ¿»á external. æ½ÑñπεΘ¿Ñ »α¿¼Ñαδ »«¬áºδóáεΓ ¡Ñ¬«Γ«αδÑ «Γ½¿τ¿∩ «»ÑαáΓ«α«ó asm ó «íδτ¡δσ »α«µÑñπαáσ ¿ Σπ¡¬µ¿∩σ «Γ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ áßßÑ¼í½Ñαá. é »Ñαó«¼ »α¿¼ÑαÑ «»ÑαáΓ«α asm ¿ß»«½∞ºπÑΓß∩ ó «íδτ¡«⌐ Σπ¡¬µ¿¿ ñ½∩ »αÑ«íαá- º«óá¡¿∩ ßΓα«¬¿ ó óÑασ¡¿⌐ αÑú¿ßΓα. çá¼ÑΓ¿¼, τΓ« º¡áτÑ¡¿Ñ »áαá¼ÑΓαá Str ó φΓ«¼ ß½πτáÑ ßßδ½áÑΓß∩ ¡á ½«¬á½∞¡πε »ÑαÑ¼Ñ¡¡πε, »«ß¬«½∞¬π ¬«¼»¿½∩Γ«α áóΓ«¼áΓ¿τÑß¬¿ úÑ¡Ñα¿απÑΓ ¬«ñ óσ«ñá, ¬«»¿απεΘ¿⌐ Σá¬Γ¿- τÑß¬¿⌐ »áαá¼ÑΓα ó ½«¬á½∞¡πε »á¼∩Γ∞. function UpperCase(Str: String): String; begin asm cld lea si,Str les di,@Result SEGSS lodsb stosb xor ah,ah xchg ax,cx jcxz @3 @1: SEGSS lodsb cmp al,'a' ja @2 cmp al,'a' ja @2 cmp al,'z' jb @2 sub al,20H @2: stosb loop @1 B.Pascal 7 & Objects/LR - 436 - @3: end; end; éΓ«α«⌐ »α¿¼Ñα ¡á áßßÑ¼í½ÑαÑ »αÑñßΓáó½∩ÑΓ ß«í«⌐ óÑαß¿ε Σπ¡¬- µ¿¿ UpperCase. é φΓ«¼ ß½πτáÑ Str ¡Ñ ¬«»¿απÑΓß∩ ó ½«¬á½∞¡πε »á- ¼∩Γ∞, ¿ Σπ¡¬µ¿∩ ñ«½ª¡á ¿¡ΓÑα»αÑΓ¿α«óáΓ∞ Str, ¬á¬ »áαá¼ÑΓα-»ÑαÑ- ¼Ñ¡¡πε. function UpperCase(S: String): String; assembler; asm push ds cld lds si,Str les di@Result lodsb stosb xor ah,ah xchg ax,cx jcxz @3 @1: lodsb cmp al,'a' ja @2 cmp al,'z' jb @2 sub al,20H @2: stosb loop @1 @3: pop ds end; B.Pascal 7 & Objects/LR - 437 - ─────────────────────────────────────────────────────────────────────── â½áóá 25. è«¼»«¡«ó¬á ß »α«úαá¼¼á¼¿ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── æ »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $L ¼«ª¡« óδ»«½¡¿Γ∞ ¬«¼»«¡«ó- ¬π »α«úαá¼¼ ¿½¿ ¼«ñπ½Ñ⌐ ¡á ∩ºδ¬Ñ Åáß¬á½∞ ¿ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá. êº ¿ßσ«ñ¡«ú« Σá⌐½á ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ¼«ª¡« ß »«¼«Θ∞ε áßßÑ¼í½Ñαá »«½πτ¿Γ∞ «íΩÑ¬Γ¡δ⌐ Σá⌐½ (ß αáßΦ¿αÑ¡¿Ñ¼ .OBJ). êß»«½∞ºπ∩ ¬«¼»«¡«óΘ¿¬, ¡Ñß¬«½∞¬« «íΩÑ¬Γ¡δσ Σá⌐½«ó ¼«ª¡« ß¬«¼»«¡«- óáΓ∞ ß »α«úαá¼¼«⌐ ¿½¿ ¼«ñπ½Ñ¼. Åα¿ φΓ«¼ ¿ß»«½∞ºπÑΓß∩ ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá $L. é »α«úαá¼¼Ñ ¿½¿ ¼«ñπ½Ñ ¡á ∩ºδ¬Ñ Åáß¬á½∞ »α«µÑñπαδ ¿½¿ Σπ¡¬- µ¿¿, ¡á»¿ßá¡¡δÑ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá, ñ«½ª¡δ íδΓ∞ «»¿ßá¡δ ¬á¬ ó¡ÑΦ¡¿Ñ. ìá»α¿¼Ñα: function LoCase(Ch : Char): Char; external; é ß««ΓóÑΓßΓóπεΘÑ¼ Σá⌐½Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá óßÑ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ñ«½ª¡δ ¡áσ«ñ¿Γ∞ß∩ ó ßÑú¼Ñ¡ΓÑ ß ¿¼Ñ¡Ñ¼ CÄDà ¿½¿ CSEG, ¿½¿ ó ßÑú¼Ñ¡ΓÑ, ¿¼∩ ¬«Γ«α«ú« ºá¬á¡τ¿óáÑΓß∩ ¡á _TEXT, á ¿¼Ñ¡á ó¡ÑΦ¡¿σ »α«µÑñπα ¿ Σπ¡¬µ¿⌐ ñ«½ª¡δ íδΓ∞ π¬áºá¡δ ó ñ¿αÑ¬Γ¿óáσ PUéLIC. éδ ñ«½ª¡δ «íÑß»Ñτ¿Γ∞ ß««ΓóÑΓßΓó¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ ÑÑ «»αÑñÑ½Ñ¡¿ε ó Åáß¬á½Ñ. ¥Γ« «Γ¡«ß¿Γß∩ ó Γ¿»π ÑÑ óδº«óá (í½¿ª¡¿⌐ ¿½¿ ñá½∞¡¿⌐), τ¿ß½π ¿ Γ¿»π »áαá¼ÑΓα«ó ¿ Γ¿»π αÑºπ½∞ΓáΓá. é ¿ßσ«ñ¡«¼ Σá⌐½Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ¼«úπΓ «»¿ßδóáΓ∞ß∩ ¿¡¿- µ¿á½¿º¿α«óá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ, ß«ñÑαªáΘ¿Ñß∩ ó ßÑú¼Ñ¡ΓÑ ß ¿¼Ñ¡Ñ¼ CONST ¿½¿ ó ßÑú¼Ñ¡ΓÑ, «¬á¡τ¿óáεΘÑ¼ß∩ ¡á _DAÆA, ¿ ¡Ñ¿¡¿µ¿á½¿º¿α«- óá¡¡δÑ »ÑαÑ¼Ñ¡¡δÑ ó ßÑú¼Ñ¡ΓÑ ß ¿¼Ñ¡Ñ¼ DATA ¿½¿ DSEG, ¿½¿ ó ßÑú- ¼Ñ¡ΓÑ, ¿¼∩ ¬«Γ«α«ú« «¬á¡τ¿óáÑΓß∩ ¡á _BSS. é ¿ßσ«ñ¡«¼ Σá⌐½Ñ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá φΓ¿ »ÑαÑ¼Ñ¡¡δÑ ∩ó½∩εΓß∩ τáßΓ¡δ¼¿, ¿ ¡á ¡¿σ ¡Ñ½∞- º∩ ßßδ½áΓ∞ß∩ ¿º ¼«ñπ½∩ ¿½¿ »α«úαá¼¼δ ¡á Åáß¬á½Ñ. Ä¡¿, «ñ¡á¬«, ¡á- σ«ñ∩Γß∩ ó Γ«¼ ªÑ ßÑú¼Ñ¡ΓÑ, τΓ« ¿ ú½«íá½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ Åáß¬á½∩, ¿ ñ«ßΓπ»¡δ τÑαÑº αÑú¿ßΓα ßÑú¼Ñ¡Γá DS. ìá óßÑ »α«µÑñπαδ, Σπ¡¬µ¿¿ ¿ »ÑαÑ¼Ñ¡¡δÑ, «»¿ßá¡¡δÑ ó ¼«ñπ½Ñ ¿½¿ »α«úαá¼¼Ñ ¡á Åáß¬á½Ñ ¿ ¡á ΓÑ ¿º ¡¿σ, ¬«Γ«αδÑ «»¿ßá¡δ ó ¿¡ΓÑα- ΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ ¿ß»«½∞ºπÑ¼δσ ¼«ñπ½Ñ⌐, ¼«ª¡« ßßδ½áΓ∞ß∩ ¿º ¿ßσ«ñ¡«ú« Σá⌐½á ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ EXTRN. Åα¿ φΓ«¼ «í∩ºá¡¡«ßΓ∞ «íÑß»Ñτ¿Γ∞ ¬«ααÑ¬Γ¡δ⌐ Γ¿» ó «»αÑñÑ½Ñ¡¿¿ EXTRN Γá¬ªÑ ó«º½áúáÑΓß∩ ¡á óáß. è«úñá «íΩÑ¬Γ¡δ⌐ Σá⌐½ π¬áºδóáÑΓß∩ ó ñ¿αÑ¬Γ¿óÑ $L, Borland Pascal »αÑ«íαáºπÑΓ Σá⌐½ ¿º Σ«α¼áΓá »ÑαÑ¼ÑΘáÑ¼δσ «íΩÑ¬Γ¡δσ ¼«ñπ½Ñ⌐ (.OBJ) Σ¿α¼δ Intel ó ßó«⌐ ß«íßΓóÑ¡¡δ⌐ ó¡πΓαÑ¡¡¿⌐ Σ«α¼áΓ »ÑαÑ¼ÑΘá- Ñ¼δσ ¼«ñπ½Ñ⌐. ¥Γ« »αÑ«íαáº«óá¡¿Ñ ó«º¼«ª¡« ½¿Φ∞ »α¿ ß«í½εñÑ¡¿¿ ¡Ñ- ¬«Γ«αδσ »αáó¿½: 1. éßÑ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ ñ«½ª¡δ íδΓ∞ »«¼ÑΘÑ¡δ ó ßÑú¼Ñ¡Γ ß ¿¼Ñ¡Ñ¼ CODà ¿½¿ CSEG, ¿½¿ ó ßÑú¼Ñ¡Γ, ¿¼∩ ¬«Γ«α«ú« «¬á¡- τ¿óáÑΓß∩ ¡á _TEXT. éßÑ ¿¡¿µ¿á½¿º¿α«óá¡¡δÑ τáßΓ¡δÑ »ÑαÑ- B.Pascal 7 & Objects/LR - 438 - ¼Ñ¡¡δÑ ñ«½ª¡δ »«¼ÑΘáΓ∞ß∩ ó ßÑú¼Ñ¡Γ ß ¿¼Ñ¡Ñ¼ Const ¿½¿ ó ßÑú¼Ñ¡Γ, ¿¼∩ ¬«Γ«α«ú« «¬á¡τ¿óáÑΓß∩ ¡á _DATA. éßÑ ¡Ñ¿¡¿- µ¿á½¿º¿α«óá¡¡δÑ τáßΓ¡δÑ »ÑαÑ¼Ñ¡¡δÑ ñ«½ª¡δ íδΓ∞ »«¼ÑΘÑ¡δ ó ßÑú¼Ñ¡Γ, ¿¼∩ ¬«Γ«α«ú« «¬á¡τ¿óáÑΓß∩ ¡á _DAÆA. ìÑ¿¡¿µ¿á- ½¿º¿α«óá¡¡δÑ ½«¬á½∞¡δÑ »ÑαÑ¼Ñ¡¡δÑ ñ«½ª¡δ »«¼ÑΘáΓ∞ß∩ ó ßÑú¼Ñ¡Γ ß ¿¼Ñ¡Ñ¼ DATA ¿½¿ DSEG, ¿½¿ ó ßÑú¼Ñ¡Γ, ¿¼∩ ¬«Γ«- α«ú« «¬á¡τ¿óáÑΓß∩ ¡á _BSS. éßÑ ñαπú¿Ñ ßÑú¼Ñ¡Γδ ¿ú¡«α¿απ- εΓß∩, »«φΓ«¼π ¿¼ÑÑΓß∩ ñ¿αÑ¬Γ¿óá GRÄUÉ. é «»αÑñÑ½Ñ¡¿∩σ ßÑú¼Ñ¡Γá ¼«ªÑΓ ºáñáóáΓ∞ß∩ óδαáó¡¿óá¡¿Ñ ¡á úαá¡¿µπ ß½«óá ¿½¿ íá⌐Γá (WORD ¿½¿ éYTE). Åα¿ ¬«¼»«¡«ó¬Ñ «¡¿ óßÑúñá óδ- αáó¡¿óáεΓß∩ ¡á úαá¡¿µπ ß½«óá. é «»αÑñÑ½Ñ¡¿∩σ ßÑú¼Ñ¡Γ«ó ¼«úπΓ π¬áºδóáΓ∞ß∩ ñ¿αÑ¬Γ¿óδ PUéLIæ ¿ ¿¼∩ ¬½áßßá («¡¿ ¿ú- ¡«α¿απεΓß∩). 2. Borland Pascal ¿ú¡«α¿απÑΓ óßÑ ñá¡¡δÑ ñ½∩ ßÑú¼Ñ¡Γ«ó, «Γ- ½¿τ¡δσ «Γ ßÑú¼Ñ¡Γá ¬«ñá (CODE, CSEG ¿½¿ xxxx_TEXT) ¿ ¿¡¿µ¿á½¿º¿α«óá¡¡«ú« ßÑú¼Ñ¡Γá ñá¡¡δσ (CONST ¿½¿ xxxx_DATA). Å«φΓ«¼π »α¿ «»¿ßá¡¿¿ »ÑαÑ¼Ñ¡¡δσ ó ßÑú¼Ñ¡ΓÑ ¡Ñ¿¡¿µ¿á½¿º¿α«óá¡¡δσ ñá¡¡δσ (DAÆA, DSEG ¿½¿ xxxx_BSS) ñ½∩ «»αÑñÑ½Ñ¡¿∩ º¡áτÑ¡¿∩ óßÑúñá ¿ß»«½∞ºπ⌐ΓÑ ó«»α«ß¿ΓÑ½∞- ¡δ⌐ º¡á¬ (?). ìá»α¿¼Ñα: Count DW ? Buffer DB 128 DUP(?) 3. üá⌐Γ«óδÑ ßßδ½¬¿ ¡á ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ Γ¿»á EXTRN ¡Ññ«»πßΓ¿- ¼δ. ¥Γ« «º¡áτáÑΓ, ¡á»α¿¼Ñα, τΓ« «»ÑαáΓ«αδ ìIGìÆ ¿ LÄW ¡Ñ½∞º∩ ¿ß»«½∞º«óáΓ∞ ß ¿ñÑ¡Γ¿Σ¿¬áΓ«αá¼¿ Γ¿»á EXTRN. Æπαí« ÇßßÑ¼í½Ñα ¿ Borland Pascal ───────────────────────────────────────────────────────────────── Æπαí« ÇßßÑ¼í½Ñα (TASM) º¡áτ¿ΓÑ½∞¡« «í½ÑúτáÑΓ αáºαáí«Γ¬π »α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ¿ «αúá¡¿ºáµ¿¿ ó ¡¿σ ¿¡ΓÑαΣÑ⌐ßá ß »α«úαá¼¼á¼¿ Borland Pascal. Æπαí« ÇßßÑ¼í½Ñα »«ññÑαª¿óáÑΓ ß»Ñµ¿Σ¿- τÑß¬«Ñ ¿ß»«½∞º«óá¡¿Ñ ßÑú¼Ñ¡Γ«ó, ßσÑ¼π »á¼∩Γ¿ ¿ ∩ºδ¬«óπε »«ññÑαª¬π ñ½∩ »α«úαá¼¼¿ßΓ«ó, αáí«ΓáεΘ¿σ ¡á Borland Pascal. êß»«½∞ºπ∩ ¬½ετÑó«Ñ ß½«ó« PASCAL ¿ ñ¿αÑ¬Γ¿óπ .MODEL, ¼«ª¡« «íÑß»Ñτ¿Γ∞ ß«í½εñÑ¡¿Ñ ß«ú½áΦÑ¡¿⌐ « óδº«óáσ ß Borland Pascal, «»- αÑñÑ½¿Γ∞ ¿¼Ñ¡á ßÑú¼Ñ¡Γ«ó, óδ»«½¡¿Γ∞ ¿¡ßΓαπ¬µ¿¿ PUSH BP ¿ MOV PB,SP, á Γá¬ªÑ «íÑß»Ñτ¿Γ∞ ó«ºóαáΓ π»αáó½Ñ¡¿∩ ß »«¼«Θ∞ε «»ÑαáΓ«α«ó POP BP ¿ RET N (úñÑ N - φΓ« τ¿ß½« íá⌐Γ »áαá¼ÑΓαá). ä¿αÑ¬Γ¿óá .MODEL ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: .MODEL xxxx, PASCAL úñÑ xxxx - φΓ« ¼«ñÑ½∞ »á¼∩Γ¿ («íδτ¡« LARGE). çáñá¡¿Ñ ó ñ¿αÑ¬Γ¿óÑ .MODEL ∩ºδ¬á PASCAL ß««íΘáÑΓ Æπαí« ÇßßÑ¼í½Ñαπ, τΓ« »áαá¼ÑΓαδ íδ½¿ ºá¡ÑßÑ¡δ ó ßΓÑ¬ ß½Ñóá-¡á»αáó« - ó Γ«¼ »«α∩ñ¬Ñ, ó ¬«Γ«α«¼ «¡¿ «í¡áαπªÑ¡δ ó ¿ßσ«ñ¡«¼ «»ÑαáΓ«αÑ, óδºδ- óáεΘÑ¼ »α«µÑñπαπ. B.Pascal 7 & Objects/LR - 439 - ä¿αÑ¬Γ¿óá PROC »«ºó«½∩ÑΓ óá¼ ºáñáΓ∞ »áαá¼ÑΓαδ ó Γ«¼ ªÑ »«- α∩ñ¬Ñ, ¬á¬ «¡¿ «»αÑñÑ½Ñ¡δ ó »α«úαá¼¼Ñ Borland Pascal. àß½¿ óδ «»- αÑñÑ½∩ÑΓÑ Σπ¡¬µ¿ε, ¬«Γ«αá∩ ó«ºóαáΘáÑΓ ßΓα«¬π, «íαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á Γ«, τΓ« ñ¿αÑ¬Γ¿óá PROC ¿¼ÑÑΓ «»µ¿ε RETURNS, »«ºó«½∩εΘπε óá¼ »«½πτ¿Γ∞ ñ«ßΓπ» ¬ óαÑ¼Ñ¡¡«¼π π¬áºáΓÑ½ε ßΓα«¬¿ ó ßΓÑ¬Ñ ¿ ¡Ñ «¬áºδ- óáεΘπε ó½¿∩¡¿∩ ¡á τ¿ß½« íá⌐Γ »áαá¼ÑΓαá, ñ«íáó½∩Ñ¼δσ ó «»ÑαáΓ«αÑ RET. Åα¿óÑñÑ¼ »α¿¼Ñαδ ¬«ñá, ó ¬«Γ«αδσ ¿ß»«½∞ºπεΓß∩ ñ¿αÑ¬Γ¿óδ .MODEL ¿ PROC: .MODEL LARGE, PASCAL .CODE MyProc PROC FAR 1:BYTE, j : BYTE RETURNS result : DWORD PUBLIC MyProc les di,result ; »«½πτ¿Γ∞ áñαÑß óαÑ¼Ñ¡¡«⌐ ßΓα«¬¿ mov al,i ; »«½πτ¿Γ∞ »Ñαóδ⌐ »áαá¼ÑΓα i mov bl,j ; »«½πτ¿Γ∞ óΓ«α«⌐ »áαá¼ÑΓα j . . . ret Ä»αÑñÑ½Ñ¡¿Ñ Σπ¡¬µ¿¿ ó Borland Pascal íπñÑΓ óδú½∩ñÑΓ∞ ß½Ññπε- Θ¿¼ «íαáº«¼: function MyProc(i,j : char) : string; external; B.Pascal 7 & Objects/LR - 440 - Åα¿¼Ñαδ »α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── æ½ÑñπεΘá∩ »α«úαá¼¼á ∩ó½∩ÑΓß∩ »α¿¼Ñα«¼ ¼«ñπ½∩ ¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐ ñóÑ »α«úαá¼¼δ ¡á áßßÑ¼í½ÑαÑ, »αÑñ¡áº¡áτÑ¡¡δÑ ñ½∩ «íαáí«Γ¬¿ ßΓα«¬. öπ¡¬µ¿∩ UppÑrCásÑ »αÑ«íαáºπÑΓ ß¿¼ó«½δ ßΓα«¬¿ ó »α«»¿ß¡δÑ íπ¬óδ, á Σπ¡¬µ¿∩ StringOf ó«ºóαáΘáÑΓ ßΓα«¬π ß¿¼ó«½«ó ºáñá¡¡«⌐ ñ½¿¡δ. unit Strings; interface function UpperCase(S: string): string; function StringOf(Ch: char; Count: byte): string; inplementation {$L STRS} function UpperCase; external; function StringOf; external; end. äá½ÑÑ »α¿óÑñÑ¡ Σá⌐½ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá, ó ¬«Γ«α«¼ αÑá½¿º«- óá¡δ »α«úαá¼¼δ StringOf ¿ UppÑrCásÑ. ÅÑαÑñ ¬«¼»¿½∩µ¿Ñ⌐ ¼«ñπ½∩ Strings φΓ«Γ Σá⌐½ ñ«½ªÑ¡ íδΓ∞ áßßÑ¼í½¿α«óá¡ ó Σá⌐½ ß ¿¼Ñ¡Ñ¼ STRS.OBJ. ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á Γ«, τΓ« ó »α«úαá¼¼áσ ¿ß»«½∞ºπÑΓß∩ ñá½∞¡¿⌐ Γ¿» óδº«óá, Γá¬ ¬á¬ «¡¿ «»¿ßá¡δ ó ¿¡ΓÑαΣÑ⌐ß¡«⌐ ßÑ¬µ¿¿ í½«¬á. CODE SEGMENT BYTE PUBLIC ASSUME CS:CODE PUBLIC UpperCase, StringOf ; «íΩ∩ó¿Γ∞ ¿¼Ñ¡á function Uppercase(S: String): String UpperRes EQU DWORD PTR [BP+10] UpperStr EQU DWORD PTR [BP+6] Uppercase PROC FAR PUSH BP ; ß«σαá¡¿Γ∞ αÑú¿ßΓα BP MOV BP,SP ; πßΓá¡«ó¿Γ∞ ßΓÑ¬ PUSH DS ; ß«σαá¡¿Γ∞ αÑú¿ßΓα DS LDS SI,UpperStr ; ºáúαπº¿Γ∞ áñαÑß ßΓα«¬¿ LES DI,UpperRes ; ºáúαπº¿Γ∞ áñαÑß αÑºπ½∞ΓáΓá CLD ; »ÑαÑ¼ÑßΓ¿Γ∞ ßΓα«¬π LODSB ; ºáúαπº¿Γ∞ ñ½¿¡π ßΓα«¬¿ STOSB ; ß¬«»¿α«óáΓ∞ αÑºπ½∞ΓáΓ MOV CL,AL ; »«¼ÑßΓ¿Γ∞ ñ½¿¡π ßΓα«¬¿ ó æò XOR CH,CH JCXZ U3 ; »α«»πßΓ¿Γ∞ ó ß½πτáÑ »πßΓ«⌐ ; ßΓα«¬¿ U1: LODSB ; »α«»πßΓ¿Γ∞, Ñß½¿ ß¿¼ó«½ «Γ½¿τÑ¡ ; «Γ 'á'...'z' CPM AL,'a' JB U2 CPM AL,'z' JA U2 ; »ÑαÑ¼ÑßΓ¿Γ∞ ßΓα«¬π SUB AL,'a'-'A' ; »αÑ«íαáº«óáΓ∞ ó »α«»¿ß¡δÑ íπ¬óδ U2: STOBS ; ß«σαá¡¿Γ∞ αÑºπ½∞ΓáΓ B.Pascal 7 & Objects/LR - 441 - LOOP U1 ; µ¿¬½ »« óßÑ¼ ß¿¼ó«½á¼ U3: POP DS ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓα DS POP BP ; ó«ßßΓá¡«ó¿Γ∞ αÑú¿ßΓα éÉ RET 4 ; πñá½¿Γ∞ »áαá¼ÑΓαδ ¿ ó«ºóαáΓ¿Γ∞ ; π»αáó½Ñ¡¿Ñ UpperCase ENDP ; function StringOf(Ch: Char; Count: Byte): String StrOfRes EQU DWORD PTR [BP + 10] StrOfChar EQU BYTE PTR [BP + 8] StrOfCOunt EQU BYTE PTR [BP + 6] StringOf PROC FAR PUSH BP ; ß«σαá¡¿Γ∞ αÑú¿ßΓα éÉ MOV BP,SP ; πßΓá¡«ó¿Γ∞ úαá¡¿µδ ßΓÑ¬á LES DI,StrOfRes ; ºáúαπº¿Γ∞ áñαÑß αÑºπ½∞ΓáΓá MOV AL,StrOfCount ; ºáúαπº¿Γ∞ ßτÑΓτ¿¬ CLD ; »α«ñó¿¡πΓ∞ß∩ ¡á ßΓα«¬π STOSB ; ß«σαá¡¿Γ∞ ñ½¿¡π MOV CL,AL ; »«¼ÑßΓ¿Γ∞ º¡áτÑ¡¿Ñ ßτÑΓτ¿¬á ó CX XOR CH,CH MOV AL,StrOfChar ; ºáúαπº¿Γ∞ ß¿¼ó«½ REP STOSB ; ß«σαá¡¿Γ∞ ßΓα«¬π ß¿¼ó«½«ó POP ; ó«ßßΓá¡«ó¿Γ∞ éÉ RET ; ¿ºó½Ñτ∞ »áαá¼ÑΓαδ ¿ óδ⌐Γ¿ SrtingOf ENDP CODE ENDS END ùΓ«íδ áßßÑ¼í½¿α«óáΓ∞ φΓ«Γ »α¿¼Ñα ¿ ß¬«¼»¿½¿α«óáΓ∞ ¼«ñπ½∞, ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ß½ÑñπεΘ¿Ñ ¬«¼á¡ñδ: TASM STR5 BPC stringer îÑΓ«ñδ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá ───────────────────────────────────────────────────────────────── îÑΓ«ñδ, αÑá½¿º«óá¡¡δÑ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá, ¼«ª¡« ß¬«¼»«¡«- óáΓ∞ ß »α«úαá¼¼á¼¿ Borland Pascal ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá $L ¿ ºáαÑºÑαó¿α«óá¡¡«ú« ¬½ετÑó«ú« ß½«óá external. Ä»¿ßá¡¿Ñ ó¡ÑΦ- ¡Ñú« ¼ÑΓ«ñá ó «íΩÑ¬Γ¡«¼ Γ¿»Ñ ¡Ñ «Γ½¿τáÑΓß∩ «Γ «íδτ¡«ú« ¼ÑΓ«ñá; «ñ¡á¬« ó αÑá½¿ºáµ¿¿ ¼ÑΓ«ñá »ÑαÑτ¿ß½∩ÑΓß∩ Γ«½∞¬« ºáú«½«ó«¬ ¼ÑΓ«ñá, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ºáαÑºÑαó¿α«óá¡¡«⌐ ß½«ó« external. é ¿ßσ«ñ¡«¼ ΓÑ¬ßΓÑ ¡á áßßÑ¼í½ÑαÑ ó¼ÑßΓ« Γ«τ¬¿ (.) ñ½∩ ºá»¿ß¿ πΓ«τ¡Ñ¡¡δσ ¿ñÑ¡- Γ¿Σ¿¬áΓ«α«ó ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ «»Ñαáµ¿ε @ (Γ«τ¬á ó áßßÑ¼í½ÑαÑ πªÑ ¿¼ÑÑΓ ñαπú«⌐ ß¼δß½ ¿ ¡Ñ ¼«ªÑΓ íδΓ∞ τáßΓ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá). ìá»α¿¼Ñα, ¿ñÑ¡Γ¿Σ¿¬áΓ«α Åáß¬á½∩ Rect.Init ºá»¿ßδóáÑΓß∩ ¡á áßßÑ¼í- ½ÑαÑ ¬á¬ Rest@Init. æ¿¡Γá¬ß¿ß @ ¼«ª¡« ¿ß»«½∞º«óáΓ∞ ¬á¬ ó ¿ñÑ¡Γ¿- Σ¿¬áΓ«αáσ PUBLIC, Γá¬ ¿ EXTRN. B.Pascal 7 & Objects/LR - 442 - é¬½ετáÑ¼δ⌐ ¼áΦ¿¡¡δ⌐ ¬«ñ ───────────────────────────────────────────────────────────────── ä½∩ ¡Ñí«½∞Φ¿σ »«ñ»α«úαá¼¼ ¡á ∩ºδ¬Ñ áßßÑ¼í½Ñαá «τÑ¡∞ πñ«í¡« ¿ß»«½∞º«óáΓ∞ ó¡πΓαÑ¡¡¿Ñ ñ¿αÑ¬Γ¿óδ ¿ «»ÑαáΓ«αδ Borland Pascal («»ÑαáΓ«αδ inline). Ä¡¿ »«ºó«½∩εΓ óßΓáó½∩Γ∞ ¿¡ßΓαπ¬µ¿¿ ¼áΦ¿¡¡«ú« ¬«ñá ¡Ñ»«ßαÑñßΓóÑ¡¡« ó »α«úαá¼¼π ¿½¿ ΓÑ¬ßΓ í½«¬á, ó¼ÑßΓ« Γ«ú«, τΓ«íδ ¿ß»«½∞º«óáΓ∞ «íΩÑ¬Γ¡δ⌐ Σá⌐½. Ä»ÑαáΓ«αδ Inline ───────────────────────────────────────────────────────────────── Ä»ÑαáΓ«α inline ß«ßΓ«¿Γ ¿º ºáαÑºÑαó¿α«óá¡¡«ú« ß½«óá Inline, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ «ñ¡á ¿½¿ í«½ÑÑ óßΓα«Ñ¡¡δσ ºá»¿ßÑ⌐ (ºá»¿ßÑ⌐ ¼á- Φ¿¡¡«ú« ¬«ñá), αáºñÑ½Ñ¡¡δσ ¬«ß«⌐ τÑαΓ«⌐ ¿ ºá¬½ετÑ¡¡δσ ó ¬απú½δÑ ß¬«í¬¿: inline(10/$2345/Count+1/Data-Offset); Ä»ÑαáΓ«α inline ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß: ┌────────┐ ┌───┐ ┌──────────┐ ┌───┐ »«ñßΓáó½∩Ñ¼δ⌐ ──>│ inline ├─>│ ( ├────>│ ºá»¿ß∞ ó ├─┬─>│ ) ├─> «»ÑαáΓ«α └────────┘ └───┘ ^ │ ¼áΦ¿¡¡«¼ │ │ └───┘ │ │ ¬«ñÑ │ │ │ └──────────┘ │ │ ┌───┐ │ └──────┤ / │<────┘ └───┘ èáªñδ⌐ «»ÑαáΓ«α inline ß«ßΓ«¿Γ ¿º ¡Ñ«í∩ºáΓÑ½∞¡«ú« ß»Ñµ¿Σ¿¬á- Γ«αá αáº¼Ñαá, < ¿½¿ >, ¿ ¬«¡ßΓá¡Γδ ¿½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »ÑαÑ¼Ñ¡«⌐, ºá ¬«Γ«α«⌐ ß½ÑñπεΓ ¡«½∞ ¿½¿ í«½ÑÑ ß»Ñµ¿Σ¿¬áΓ«α«ó ß¼ÑΘÑ¡¿∩ (ß¼. «»¿ßá¡¡δ⌐ ñá½ÑÑ ß¿¡Γá¬ß¿ß). æ»Ñµ¿Σ¿¬áΓ«α ß¼ÑΘÑ¡¿∩ ß«ßΓ«¿Γ ¿º + ¿½¿ -, ºá ¬«Γ«αδ¼ ß½ÑñπÑΓ ¬«¡ßΓá¡Γá. ┌───────────┐ ºá»¿ß∞ ó« ──┬────────────────────>│ ¬«¡ßΓá¡Γá ├───────────────> óßΓα«Ñ¡¡«¼ │ ┌───┐ ^ └───────────┘ ^ ¼áΦ¿¡¡«¼ ├──>│ < ├──────┤ │ ¬«ñÑ │ └───┘ │ │ │ ┌───┐ │ │ ├──>│ > ├──────┘ │ │ └───┘ │ │ ┌───────────────┐ │ └─>│ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├─┬────────────────────┘ │ »ÑαÑ¼Ñ¡¡«⌐ │ │ ^ └───────────────┘ │ │ ┌────┘ └─────────┐ │ ┌────┐ ┌─────────┐ │ └─────>│º¡á¬├──>│¬«¡ßΓá¡Γá│──┬────┘ ^ └────┘ └─────────┘ │ B.Pascal 7 & Objects/LR - 443 - └─────────────────────────┘ èáªñá∩ ºá»¿ß∞ inline »«α«ªñáÑΓ 1 íá⌐Γ ¿½¿ «ñ¡« ß½«ó« ¬«ñá. ç¡áτÑ¡¿∩ óδτ¿ß½∩ÑΓß∩, ¿ßσ«ñ∩ ¿º º¡áτÑ¡¿∩ »Ñαó«⌐ ¬«¡ßΓá¡Γδ ¿½¿ ß¼ÑΘÑ¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »ÑαÑ¼Ñ¡¡«⌐, ¬ ¬«Γ«α«¼π ñ«íáó½∩ÑΓß∩ ¿½¿ ¿º ¬«Γ«α«ú« óδτ¿ΓáÑΓß∩ º¡áτÑ¡¿Ñ ¬áªñ«⌐ ¿º »«ß½ÑñπεΘ¿σ ¬«¡ßΓá¡Γ. àß½¿ ºá»¿ß∞ ó ¼áΦ¿¡¡«¼ ¬«ñÑ ß«ßΓ«¿Γ Γ«½∞¬« ¿º ¬«¡ßΓá¡Γ ¿, Ñß½¿ ÑÑ º¡áτÑ¡¿Ñ ½Ñª¿Γ ó 8-í¿Γ«ó«¼ ñ¿á»áº«¡Ñ (0..255), Γ« «¡á »«- α«ªñáÑΓ «ñ¿¡ íá⌐Γ ¬«ñá. àß½¿ º¡áτÑ¡¿Ñ óδσ«ñ¿Γ ºá úαá¡¿µπ 8-í¿Γ«- ó«ú« ñ¿á»áº«¡á ¿½¿ Ñß½¿ ºá»¿ß∞ inline ßßδ½áÑΓß∩ ¡á »ÑαÑ¼Ñ¡¡πε, Γ« úÑ¡Ñα¿απÑΓß∩ «ñ¡« ß½«ó« ¬«ñá (¼½áñΦ¿⌐ íá⌐Γ ß½ÑñπÑΓ »Ñαóδ¼). Ä»Ñαáµ¿¿ < ¿ > ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ñ½∩ «Γ¼Ñ¡δ áóΓ«¼áΓ¿τÑß- ¬«ú« óδí«αá αáº¼Ñαá, ¬«Γ«αδ⌐ íδ½ «»¿ßá¡ αá¡ÑÑ. àß½¿ «»ÑαáΓ«α inline ¡áτ¿¡áÑΓß∩ ß «»Ñαáµ¿¿ <, Γ« ó ¬«ñ ó¬½ετáÑΓß∩ Γ«½∞¬« ¼½áñ- Φ¿⌐ º¡áτáΘ¿⌐ íá⌐Γ º¡áτÑ¡¿∩, ñáªÑ Ñß½¿ φΓ« 16-í¿Γ«ó«Ñ º¡áτÑ¡¿Ñ. àß½¿ «»ÑαáΓ«α inline ¡áτ¿¡áÑΓß∩ ß «»Ñαáµ¿¿ >, Γ« ó ¬«ñ ó¬½ετáÑΓß∩ óßÑúñá ß½«ó«, ñáªÑ Ñß½¿ ßΓáαΦ¿⌐ º¡áτáΘ¿⌐ íá⌐Γ αáóÑ¡ 0. ìá»α¿¼Ñα, «»ÑαáΓ«α: inline(<$1234/>$44); úÑ¡Ñ¡¿απÑΓ ¬«ñ ñ½¿¡«⌐ Γα¿ íá⌐Γá: $34,$44,$00. ç¡áτÑ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá »ÑαÑ¼Ñ¡¡«⌐ ó ºá»¿ß¿ inline »αÑñßΓáó- ½∩ÑΓ ß«í«⌐ áñαÑß ß¼ÑΘÑ¡¿∩ »ÑαÑ¼Ñ¡¡«⌐ ó¡πΓα¿ ÑÑ íáº«ó«ú« ßÑú¼Ñ¡Γá. üáº«óδ⌐ ßÑú¼Ñ¡Γ ú½«íá½∞¡δσ »ÑαÑ¼Ñ¡¡δσ (»ÑαÑ¼Ñ¡¡δσ, «»¿ßá¡¡δσ ¡á ßá¼«¼ ó¡ÑΦ¡Ñ¼ πα«ó¡Ñ ó ¼«ñπ½Ñ ¿½¿ »α«úαá¼¼Ñ) ¿ Γ¿»¿º«óá¡¡δÑ ¬«¡ß- Γá¡Γδ, ñ«ßΓπ» ¬ ¬«Γ«αδ¼ «αúá¡¿º«óá¡ τÑαÑº αÑú¿ßΓα DS, »αÑñßΓáó½∩- εΓ ß«í«⌐ ßÑú¼Ñ¡Γ ñá¡¡δσ. üáº«óδ⌐ ßÑú¼Ñ¡Γ ½«¬á½∞¡δσ »ÑαÑ¼Ñ¡¡δσ (»ÑαÑ¼Ñ¡¡δσ, «»¿ßá¡¡δσ ó¡πΓα¿ »«ñ»α«úαá¼¼δ) ∩ó½∩ÑΓß∩ ßÑú¼Ñ¡Γ«¼ ßΓÑ¬á. é φΓ«¼ ß½πτáÑ ß¼ÑΘÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ «Γ¡«ß¿Γß∩ ¬ αÑú¿ßΓαπ éÉ, τΓ« áóΓ«¼áΓ¿τÑß¬¿ ó½ÑτÑΓ ºá ß«í«⌐ óδí«α ßÑú¼Ñ¡Γá ßΓÑ¬á. Åα¿¼Ñτá¡¿Ñ: ÉÑú¿ßΓαδ BP, SP, SS ¿ DS ñ«½ª¡δ ß«σαá¡∩Γ∞- ß∩ ß »«¼«Θ∞ε «»ÑαáΓ«α«ó inline. ç¡áτÑ¡¿Ñ óßÑσ ñαπú¿σ αÑ- ú¿ßΓα«ó ¼«ª¡« ¿º¼Ñ¡∩Γ∞. é ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ «»ÑαáΓ«αá inline úÑ¡Ñα¿απÑΓß∩ ¼áΦ¿¡¡δ⌐ ¬«ñ ñ½∩ ºá»¿ß¿ ºáñá¡¡«ú« τ¿ß½á ß½«ó ¿½¿ ñá¡¡δσ ó π¬áºá¡¡πε »ÑαÑ- ¼Ñ¡¡πε. Åα¿ óδº«óÑ »α«µÑñπαδ FillWord Count ß½«ó ß« º¡áτÑ¡¿Ñ¼ Data ºá»¿ßδóáÑΓß∩ ó »á¼∩Γ¿, ¡áτ¿¡á∩ ß »Ñαó«ú« íá⌐Γá, «í«º¡áτÑ¡¡«- ú« ¬á¬ Dest. procedure FillWord(var Dest, Count, Data: word); begin inline( $C4/$BE/Dest/ { LES DI,Dest[BP] } $8B/$8e/Count/ { MOV CX,Xount[BP] } $8B/$86/Data/ { MOV AX,Data[BP] } $FC/ { CLD } $F3/$AB); { REP STOSW } B.Pascal 7 & Objects/LR - 444 - é «»ÑαáΓ«α¡«⌐ τáßΓ¿ í½«¬á «»ÑαáΓ«αδ inline ¼«úπΓ ßó«í«ñ¡« τÑαÑñ«óáΓ∞ß∩ ß ñαπú¿¼¿ «»ÑαáΓ«αá¼¿. ä¿αÑ¬Γ¿óδ inline ───────────────────────────────────────────────────────────────── ä¿αÑ¬Γ¿óδ inline »«ºó«½∩εΓ »¿ßáΓ∞ »α«µÑñπαδ ¿ Σπ¡¬µ¿¿, ¬«Γ«- αδÑ »αÑ«íαáºπεΓß∩ »α¿ ¬áªñ«¼ óδº«óÑ ó ºáñá¡¡πε »«ß½Ññ«óáΓÑ½∞¡«ßΓ∞ ¿¡ßΓαπ¬µ¿⌐, »αÑñßΓáó½∩εΘ¿σ ß«í«⌐ ¼áΦ¿¡¡δ⌐ ¬«ñ. æ¿¡Γá¬ß¿ß π ñ¿αÑ¬- Γ¿óδ inline Γá¬«⌐ ªÑ, ¬á¬ π «»ÑαáΓ«αá inline: ┌────────────┐ ñ¿αÑ¬Γ¿óá ──────────────────────>│ «»ÑαáΓ«α ├────────────> inline │ inline │ └────────────┘ Åα¿ óδº«óÑ «íδτ¡«⌐ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ (ó¬½ετá∩ ΓÑ, ¬«Γ«- αδÑ ß«ñÑαªáΓ ó ßÑíÑ «»ÑαáΓ«αδ inline) ¬«¼»¿½∩Γ«α«¼ úÑ¡Ñα¿απÑΓß∩ Γá¬«⌐ ¬«ñ, ó ¬«Γ«α«¼ »áαá¼ÑΓαδ (Ñß½¿ «¡¿ ¿¼ÑεΓß∩) »«¼ÑΘáεΓß∩ ó ßΓÑ¬, á ºáΓÑ¼ πªÑ ñ½∩ «íαáΘÑ¡¿∩ ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ úÑ¡Ñα¿απ- ÑΓß∩ ¿¡ßΓαπ¬µ¿∩ CALL. Äñ¡á¬«, ¬«úñá óδ «íαáΘáÑΓÑß∞ ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿ Γ¿»á inline, ¬«¼»¿½∩Γ«α ó¼ÑßΓ« ¿¡ßΓαπ¬µ¿¿ CALL úÑ¡Ñ- α¿απÑΓ ¬«ñ ¿º ñ¿αÑ¬Γ¿óδ inline. é«Γ ¬«α«Γ¬¿⌐ »α¿¼Ñα ñóπσ ñ¿αÑ¬Γ¿ó inline: procedure DisableInterrupts; inline($FA); { CLI } procedure EnableInterrupts; inline($FB); { STI } è«úñá óδºδóáÑΓß∩ »α«µÑñπαá DisableInterrupt Γ« úÑ¡Ñα¿απÑΓß∩ «ñ¿¡ íá⌐Γ ¬«ñá - ¿¡ßΓαπ¬µ¿∩ CLI. Åα«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, «»¿ßá¡¡δÑ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿ó inline, ¼«úπΓ ¿¼ÑΓ∞ »áαá¼ÑΓαδ, «ñ¡á¬« ¡á »áαá¼ÑΓαδ ¡Ñ½∞º∩ ßßδ½áΓ∞ß∩ ß¿¼- ó«½¿τÑß¬¿ (σ«Γ∩ ñ½∩ ñαπú¿σ »ÑαÑ¼Ñ¡¡δσ φΓ« ñ«»πß¬áÑΓß∩). è Γ«¼π ªÑ, »«ß¬«½∞¬π Γá¬¿Ñ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿ Σá¬Γ¿τÑß¬¿ ∩ó½∩εΓß∩ ¼á¬α«¬«¼á¡ñá¼¿, π ¡¿σ «ΓßπΓßΓóπεΓ áóΓ«¼áΓ¿τÑß¬¿⌐ ¬«ñ ß ¿¡ßΓαπ¬µ¿- ∩¼¿ óσ«ñá ¿½¿ óδσ«ñá ¿ ¡¿¬á¬¿σ ¿¡ßΓαπ¬µ¿⌐ ó«ºóαáΓá π»αáó½Ñ¡¿∩ ¡Ñ ΓαÑíπÑΓß∩. æ½ÑñπεΘá∩ Σπ¡¬µ¿∩ óδ»«½¡∩ÑΓ π¼¡«ªÑ¡¿Ñ ñóπσ µÑ½δσ º¡áτÑ¡¿⌐, ó αÑºπ½∞ΓáΓÑ τÑú« »«½πτáÑΓß∩ τ¿ß½« ñ½¿¡¡«ú« µÑ½«ú« Γ¿»á: function LongMul(X,Y : Integer): Longint; inline( $58/ { POP DS ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á Y } $5A/ { POP AX ; ¿ºó½Ñτ∞ ¿º ßΓÑ¬á X } $F7/$EA); { IMUL DX ; DX:AX = X*Y } ÄíαáΓ¿ΓÑ ó¡¿¼á¡¿Ñ ¡á «ΓßπΓßΓó¿Ñ ¿¡ßΓαπ¬µ¿⌐ óσ«ñá ¿ óδσ«ñá ¿ ¿¡ßΓαπ¬µ¿¿ ó«ºóαáΓá π»αáó½Ñ¡¿∩. êσ »α¿ßπΓßΓó¿∩ ¡Ñ ΓαÑíπÑΓß∩, »«ß- ¬«½∞¬π »α¿ óδº«óÑ φΓ«⌐ Σπ¡¬µ¿¿ ß«ñÑαªáΘ¿Ñß∩ ó ¡Ñ⌐ τÑΓδαÑ íá⌐Γá »α«ßΓ« ó¬½ετáεΓß∩ ó ΓÑ¬ßΓ »α«úαá¼¼δ. B.Pascal 7 & Objects/LR - 445 - ä¿αÑ¬Γ¿óδ inline »αÑñ¡áº¡áτÑ¡δ Γ«½∞¬« ñ½∩ «τÑ¡∞ ¬«α«Γ¬¿σ (¼Ñ¡ÑÑ 10 íá⌐Γ) »α«µÑñπα ¿ Σπ¡¬µ¿⌐. êº-ºá Γ«ú«, τΓ« »α«µÑñπαδ ¿ Σπ¡¬µ¿¿ Γ¿»á inline ¿¼ÑεΓ σáαá¬- ΓÑα ¼á¬α««»αÑñÑ½Ñ¡¿⌐, «¡¿ ¡Ñ ¼«úπΓ ¿ß»«½∞º«óáΓ∞ß∩ ó ¬áτÑßΓóÑ áα- úπ¼Ñ¡Γá «»Ñαáµ¿¿ @ ¿½¿ ó Σπ¡¬µ¿∩σ Addr, Offs ¿ Seg.