Igromania 2003 December

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

/ Igromania 2003 December / Mania_12_CD1.iso / InfoBlock / Igromania / Delphi / DELF_3.TXT < prev

Wrap

Text File | 2003-11-13 | 25KB | 2 lines

#<bq><h1><h1>╩δαΣεΓα ∩≡επ≡α∞∞Φ±≥α: ▀∙ΦΩ ╧αφΣε≡√. ╚π≡α "╙παΣαΘ ≈Φ±δε"</h1></h1>##<bq><h2>╤≥α≥ⁿ ε∩≤ßδΦΩεΓαφα Γ Γε±ⁿ∞ε∞ φε∞σ≡σ "╚π≡ε∞αφΦΦ" τα 2003 πεΣ.</h2>##<bq><ar>└Γ≥ε≡ ∞α≥σ≡Φαδα:#<bq>╩εφ±≥αφ≥Φφ └≡≥σ∞ⁿσΓ#<bq>(MasterK@igromania.ru)</ar>##<bq>╒ε≈σ≥± ±Σσδα≥ⁿ ≈≥ε-φΦß≤Σⁿ ²ΣαΩεσ, φε Γε≥ ≈≥ε? ═σ ∩Φ±α≥ⁿ µσ ±≡ατ≤ Doom IV? ▌≥ε φα∞ ∩εΩα φσ ∩ε ±Φδα∞, φε ∞εµφε ±Σσδα≥ⁿ ≈≥ε-≥ε ßεδσσ ∩≡ε±≥εσ. ╤σπεΣφ ∞√ ± Γα∞Φ φα∩Φ°σ∞ φα±≥ε ∙≤■ Φπ≡≤. ╚π≡≤ "╙παΣαΘ ≈Φ±δε". ╨ατε≈α≡εΓαφφ√σ Γετπδα±√? ╩εφσ≈φε, Φπ≡α ε≈σφⁿ ∩≡ε±≥α Φ ±≥α≡α ΩαΩ ∞Φ≡, φε φα σσ ∩≡Φ∞σ≡σ Γ√ ∩εΘ∞σ≥σ, ΩαΩ Γεεß∙σ Σσδα■≥± Φπ≡√. ╠√ ΓσΣⁿ ß≤Σσ∞ ∩Φ±α≥ⁿ φσ ∩≡ε±≥≤■ ≤παΣαΘΩ≤, ΩαΩ≤■ εß√≈φε Γ±≥≡αΦΓα■≥ Γ ±ε≥εΓ√σ ≥σδσ⌠εφ√, α ≤παΣαΘΩ≤ ∩≡εΣΓΦφ≤≥≤■. ╚π≡≤ ß≤Σσ≥ Γσ±≥Φ ΓΦ≡≥≤αδⁿφ√Θ ΓσΣ≤∙ΦΘ. ╚ ∩≤±≥ⁿ ∞√ ∩εΩα φσ Γ ±Φδα⌡ Σα≥ⁿ σ∞≤ πεδε±, τα≥ε εßα φΦσ ù ∩≡ε∙σ ∩≡ε±≥επε. ═α°α ≤παΣαΘΩα ß≤Σσ≥ Γσ±≥Φ ≡σΘ≥ΦφπΦ Φπ≡εΩεΓ Φ ±ε⌡≡αφ ≥ⁿ Φ⌡ Γ ε≥Σσδⁿφε∞ ⌠αΘδσ.##<bq><h2>╧δαφεΓ π≡ε∞αΣⁿσ</h2> <IMG r 15 15 0 15 1 InfoBlock\Igromania\Delphi\1-3.jpg * 150 "╧≡εσΩ≥Φ≡≤σ∞ Φφ≥σ≡⌠σΘ± Φπ≡√.">##<bq>╨≤Ωα ∩ε≥ φ≤δα±ⁿ Ω ταΓσ≥φε∞≤ τφα≈Ω≤ "─σδⁿ⌠Φ" Φ ≤µσ πε≥εΓα ±εΓσ≡°Φ≥ⁿ εß≡ Σ ΣΓεΘφεπε ΩδΦΩα... ╧ε±≥εΘ≥σ! ╦■ßεΘ ∩≡ε⌠σ±±Φεφαδⁿφ√Θ Φπ≡ε≡ατ≡αßε≥≈ΦΩ ∩≡σµΣσ Γ±σπε ∩Φ°σ≥ ΣΦταΘφ-ΣεΩ≤∞σφ≥. ▌≥ε ΓαµφσΘ°ΦΘ ²≥α∩ ≡ατ≡αßε≥ΩΦ, Φ σ±δΦ Φ∞ ∩≡σφσß≡σ≈ⁿ, ∩≡εσΩ≥ Γ≡ Σ δΦ ΣεµΦΓσ≥ Σε ≡σδΦτα. ╠√ φσ ß≤Σσ∞ ∩Φ±α≥ⁿ ∩εδφε÷σφφ√Θ ΣΦτ-ΣεΩ Σδ "╙παΣαΘΩΦ", φε Γ εß∙Φ⌡ ≈σ≡≥α⌡ φα∞σ≥Φ≥ⁿ Γετ∞εµφε±≥Φ ±≥εΦ≥.#<bq>╬±φεΓφεσ εΩφε ß≤Σσ≥ ±ε±≥ε ≥ⁿ Φτ ΣΓ≤⌡ δεπΦ≈σ±ΩΦ⌡ τεφ. ┬Γσ≡⌡≤ ∞√ ∩ε∞σ±≥Φ∞ Ωα≡≥ΦφΩ≤ ΓσΣ≤∙σπε. ┬√ ΓΦΣσδΦ, ΩαΩ "πεΓε≡ ≥" πσ≡εΦ Γ Ωε∞ΦΩ±α⌡? ┬ε≥ ≥αΩ µσ ß≤Σσ≥ πεΓε≡Φ≥ⁿ Φ φα° ∩σ≡±εφαµ. ╠√ ±Σσδασ∞ ∩ ≥ⁿ ±≥αφΣα≡≥φ√⌡ ⌠≡ατ, Ωε≥ε≡√σ ∩εδφε±≥ⁿ■ ε∩Φ±√Γα■≥ πσΘ∞∩δσΘ. ╧≡Φ ±≥α≡≥σ φεΓεΘ Φπ≡√ ΓσΣ≤∙ΦΘ πεΓε≡Φ≥: "▀ ταπαΣαδ ≈Φ±δε. ╬≥παΣαΘ-Ωα σπε!". ╧ε±δσ ²≥επε Φπ≡εΩ ΓΓεΣΦ≥ ±ΓεΘ Γα≡Φαφ≥ Γ ≥σΩ±≥εΓεσ ∩εδσ ΓΓεΣα ∩εΣ ∩σ≡±εφαµσ∞ Φ φαµΦ∞ασ≥ Ωφε∩Ω≤, Ωε≥ε≡≤■ ∞√ ∩ε∞σ±≥Φ∞ ≡ Σε∞. ╪≤≥ΩΦ ≡αΣΦ ∩≤±≥ⁿ φατΓαφΦσ ²≥εΘ Ωφε∩ΩΦ ß≤Σσ≥ Γ±σπΣα ≡ατφ√∞, φα∩≡Φ∞σ≡:#<bq>"╒∞... ∞εµσ≥ ß√≥ⁿ, ²≥ε?"#<bq>"▀ τφα■, ≥Γεσ ≈Φ±δε ù Γε≥ ²≥ε!"#<bq>"▀ ≡ατπαΣαδ ≥σß "#<bq>"╥√ ⌡Φ≥≡√Θ, φε ⌡Φ≥≡σσ"#<bq>"╧ε∩≡εß≤σ∞ Γε≥ ≥αΩ..."#<bq>┼±δΦ Φπ≡εΩ ε≥παΣαδ, ΓσΣ≤∙ΦΘ πεΓε≡Φ≥: "╥√ ≤παΣαδ! ╠εδεΣσ÷! ╤√π≡ασ∞ σ∙σ ≡ατ?". ┼±δΦ Φπ≡εΩ φσ ≤παΣαδ, ΓσΣ≤∙ΦΘ ∩εΣ±Ωατ√Γασ≥: "╠εσ ≈Φ±δε ßεδⁿ°σ" ΦδΦ "╠εσ ≈Φ±δε ∞σφⁿ°σ". ┬ε Γ≡σ∞ Φπ≡√ ∩εΣ±≈Φ≥√Γασ≥± ≈Φ±δε ∩ε∩√≥εΩ, Ωε≥ε≡√σ ∩εφαΣεßΦδΦ±ⁿ Φπ≡εΩ≤, ≈≥εß√ ε≥παΣα≥ⁿ ≈Φ±δε. ┼±δΦ Φπ≡εΩ ∩εßΦδ ≡σΩε≡Σ Φ ε≥παΣαδ τα ∞ΦφΦ∞αδⁿφεσ ≈Φ±δε ∩ε∩√≥εΩ, ∩ε Γδ σ≥± ≥αßδΦ÷α ≡σΩε≡ΣεΓ Φ ∩≡σΣδεµσφΦσ ΓΓσ±≥Φ ±Γεσ Φ∞ . ╥αßδΦ÷≤ ≡σΩε≡ΣεΓ ∞εµφε ≥αΩµσ Γ√τΓα≥ⁿ Γ δ■ßεσ Γ≡σ∞ ± ∩ε∞ε∙ⁿ■ ±∩σ÷ΦαδⁿφεΘ Ωφε∩ΩΦ. ├σΘ∞∩δσΘ ∞√ ≡α±∩Φ±αδΦ, φα πδαΓφεΘ ⌠ε≡∞σ φσ ⌡Γα≥ασ≥ ≥εδⁿΩε Ωφε∩εΩ ═εΓα Φπ≡α, ╨σΩε≡Σ√ Φ ┬√⌡εΣ.#<bq>╧≡Φ∞σ≡φ√Θ ∩δαφ Φπ≡√ πε≥εΓ. ╧ε≡α ∩≡Φ±≥≤∩α≥ⁿ Ω ≡σαδΦτα÷ΦΦ.##<bq><h2>╤ ∩√δ≤, ± µα≡≤</h2>##<bq>╩δΦΩφΦ≥σ ΣΓαµΣ√ ∩ε ΦΩεφΩσ ─σδⁿ⌠Φ. ╙≥ΦδΦ≥α τα∩≤±≥Φ≥± Φ ε≥Ω≡εσ≥ φεΓ√Θ ∩≡εσΩ≥. ╤ε⌡≡αφΦ≥σ σπε. ├δαΓφα ⌠ε≡∞α ≤ φα± ß≤Σσ≥ Γ√±εΩεΘ Φ ≤τΩεΘ, ∩ε²≥ε∞≤ Φτ∞σφΦ≥σ σσ ≡ατ∞σ≡√ ±εε≥Γσ≥±≥Γ≤■∙Φ∞ εß≡ατε∞. ╫σ≡στ Object Inspector ≤±≥αφεΓΦ≥σ ±ΓεΘ±≥Γε Caption ⌠ε≡∞√ Γ "╙παΣαΘΩσ". ╠εµφε φα≈Φφα≥ⁿ ∩≡εσΩ≥Φ≡εΓα≥ⁿ ±α∞≤ ⌠ε≡∞≤. ═ε Σε ²≥επε σσ φσεß⌡εΣΦ∞ε φα±≥≡εΦ≥ⁿ. ╫≥ε ß≤Σσ≥, σ±δΦ Φπ≡εΩ ΓτΣ≤∞ασ≥ ≡ατΓσ≡φ≤≥ⁿ εΩφε φα Γσ±ⁿ ²Ω≡αφ? ┬±σ ²δσ∞σφ≥√ ≤∩≡αΓδσφΦ (Ωφε∩ΩΦ, ≡Φ±≤φεΩ φα°σπε ΓσΣ≤∙σπε, ∩εδσ ΓΓεΣα) εΩαµ≤≥± Γ Γσ≡⌡φσ∞ δσΓε∞ ≤πδ≤ ⌠ε≡∞√, α ε±≥αδⁿφεσ ∩≡ε±≥≡αφ±≥Γε ß≤Σσ≥ ∩≤±≥√∞. ╟≡σδΦ∙σ φσ Σδ ±δαßεφσ≡Γφ√⌡. ╥αΩΦσ επ≡σ⌡Φ Γ√Σα■≥ φεΓΦ≈ΩεΓ Φ φσ≡ °δΦΓ√⌡ ∩≡επ≡α∞∞Φ±≥εΓ. ╚±∩≡αΓΦ∞ ²≥≤ ε∩δε°φε±≥ⁿ. ╩≡ε∞σ ≥επε, Φπ≡εΩ≤ φαΣε τα∩≡σ≥Φ≥ⁿ ∞√°ΩεΘ Φτ∞σφ ≥ⁿ ≡ατ∞σ≡√ εΩφα (∩ε ≤∞εδ≈αφΦ■ ²≥α Γετ∞εµφε±≥ⁿ ΓΩδ■≈σφα).#<bq>╚τ∞σφΦ∞ ≥Φ∩ π≡αφΦ÷√ εΩφα. ╬≥Ω≡εΘ≥σ ±ΓεΘ±≥Γε ⌠ε≡∞√ BorderStyle: Γ∞σ±≥ε bsSizeable ∩ε±≥αΓⁿ≥σ bsSingle. ╨ατΓσ≡φΦ≥σ ±∩Φ±εΩ ∩εΣ±ΓεΘ±≥Γ BorderIcons Φ ±ΓεΘ±≥Γε biMaximize ≤±≥αφεΓΦ≥σ Γ False. ┬ ∩≡ε°δ√Θ ≡ατ (Γ ∩≡σΣ√Σ≤∙σΘ ±≥α≥ⁿσ ÷ΦΩδα) Γ√ φαΓσ≡φ Ωα τα∞σ≥ΦδΦ, ≈≥ε ∩ε±δσ τα∩≤±Ωα ∩≡επ≡α∞∞√ εΩφε εΩατ√Γασ≥± Γ ≥ε∞ ∞σ±≥σ, πΣσ Γ√ ε±≥αΓΦδΦ ⌠ε≡∞≤ ∩≡Φ ∩≡εσΩ≥Φ≡εΓαφΦΦ. ▌≥ε φσ ε≈σφⁿ ≤Σεßφε. ─αΓαΘ≥σ ±Σσδασ∞ ≥αΩ, ≈≥εß√ ΩαµΣ√Θ ≡ατ ∩≡Φ τα∩≤±Ωσ Φπ≡√ ⌠ε≡∞α εΩατ√Γαδα±ⁿ ±≥≡επε Γ ÷σφ≥≡σ ²Ω≡αφα. ─δ ²≥επε Σε±≥α≥ε≈φε ≤±≥αφεΓΦ≥ⁿ ±ΓεΘ±≥Γε Position ⌠ε≡∞√ Γ poDesktopCenter.#<bq>╧≡Φ±≥≤∩Φ∞ Ω φα∩εδφσφΦ■ ⌠ε≡∞√. ═α≈φσ∞ ± φΦµφσΘ ≈α±≥Φ. ┬φΦτ≤ ⌠ε≡∞√ ∩ε±≥αΓⁿ≥σ ≥≡Φ Ωφε∩ΩΦ εΣΦφαΩεΓεπε ≡ατ∞σ≡α ≥αΩ, ≈≥εß√ εφΦ ≥σ±φε ∩≡ΦδσπαδΦ Σ≡≤π Ω Σ≡≤π≤ Φ Ω φΦµφσΘ π≡αφΦ÷σ εΩφα. ┬ Φ⌡ ±ΓεΘ±≥Γα Caption τα∩Φ°Φ≥σ ±εε≥Γσ≥±≥Γσφφε ═εΓα Φπ≡α, ╨σΩε≡Σ√... Φ ┬√⌡εΣ. ╬ß≡α≥Φ≥σ ΓφΦ∞αφΦσ, ≈≥ε ╨σΩε≡Σ√ ∞√ φα∩Φ±αδΦ ± ≥≡σ∞ ≥ε≈Ωα∞Φ. ╧ε ∩≡αΓΦδα∞ Windows ²≥ε τφα≈Φ≥, ≈≥ε ∩ε±δσ ΩδΦΩα ∩ε Ωφε∩Ωσ ∩σ≡σΣ ∩εδⁿτεΓα≥σδσ∞ ε≥Ω≡εσ≥± φεΓεσ εΩφε. ╫≤≥ⁿ Γ√°σ ∩ε∞σ±≥Φ≥σ ∩εδσ ΓΓεΣα (TEdit), α ≡ Σε∞ ù Ωφε∩Ω≤ ßστ φαΣ∩Φ±Φ (∞√ ß≤Σσ∞ Γ√ßΦ≡α≥ⁿ σσ ±δ≤≈αΘφ√∞ εß≡ατε∞). ═σ ταß≤Σⁿ≥σ ε≈Φ±≥Φ≥ⁿ ∩εδσ ΓΓεΣα Γ ±ΓεΘ±≥Γσ Text.#<bq>╟αΘ∞σ∞± π≡α⌠ΦΩεΘ. ═α°Φ∞ ΓσΣ≤∙Φ∞ ±≥αφσ≥ ±Φ∞∩α≥Φ≈φ√Θ Γα∞∩Φ≡ τα αΓ≥ε≡±≥Γε∞ └δσΩ±σ ╠αΩα≡σφΩεΓα. ┬√ ∞εµσ≥σ φα≡Φ±εΓα≥ⁿ ΩαΩεπε-φΦß≤Σⁿ ∩σ≡±εφαµα ±α∞Φ, φ≤ α σ±δΦ ≡Φ±≤σ≥σ Γ√ ∩δε⌡ε, ≥ε ∞εµφε Γε±∩εδⁿτεΓα≥ⁿ± ε≥±ΩαφΦ≡εΓαφφεΘ ⌠ε≥εΩα≡≥ε≈ΩεΘ ΦδΦ ∩εταΦ∞±≥ΓεΓα≥ⁿ ≡Φ±≤φεΩ Γα∞∩Φ≡α ± φα°σπε Ωε∞∩αΩ≥α.#<bq>╧ε∞σ±≥Φ≥σ φα ±α∞εσ ΓΦΣφεσ ∞σ±≥ε φα°σΘ ⌠ε≡∞√ Ωα≡≥ΦφΩ≤ (Ωε∞∩εφσφ≥ TImage φα ΓΩδαΣΩσ Additional) Φ ± ∩ε∞ε∙ⁿ■ ∞αδσφⁿΩεΘ Ωφε∩ε≈ΩΦ ± ≥≡σ∞ ≥ε≈Ωα∞Φ φα∩≡ε≥ΦΓ ±ΓεΘ±≥Γα Picture ταπ≡≤τΦ≥σ pic.jpg ± Γα∞∩Φ≡ε∞-ΓσΣ≤∙Φ∞. ═ε Γε≥ ßσΣα: φσ ∩εφΦ∞ασ≥ "─σδⁿ⌠Φ" ⌠ε≡∞α≥ jpg. ▌≥ε φαΣε Φ±∩≡αΓΦ≥ⁿ. ─εßαΓⁿ≥σ Γ ±≥≡ε≈Ω≤ uses ∞εΣ≤δⁿ jpeg. ╥σ∩σ≡ⁿ ±≥≡ε≈Ωα uses Γ√πδ ΣΦ≥ ∩≡Φ∞σ≡φε ≥αΩ:##<bq>uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg;╧ε≡α ταπ≡≤µα≥ⁿ Ωα≡≥ΦφΩ≤. ═ε Γα∞∩Φ≡ ≤ φα± ±≥α≥Φ≈φ√Θ. ╩αΩ µσ εφ ß≤Σσ≥ ≡ατπεΓα≡ΦΓα≥ⁿ ± Φπ≡εΩε∞? ╨ατπεΓα≡ΦΓα≥ⁿ εφ ß≤Σσ≥ ≥αΩ µσ, ΩαΩ ∩σ≡±εφαµΦ "≡ατπεΓα≡ΦΓα■≥" Γ Ωε∞ΦΩ±α⌡, ± ∩ε∞ε∙ⁿ■ ΓετΣ≤°φ√⌡ °α≡ΦΩεΓ-⌠≡ατ. ═α≡Φ±≤Θ≥σ Ωα≡≥ΦφΩΦ Γ±σ⌡ Γετ∞εµφ√⌡ ⌠≡ατ, ΦδΦ Γετⁿ∞Φ≥σ Φ⌡ ± φα°σπε ΣΦ±Ωα. ╚Σσ ≥αΩεΓα: ∞√ ∩ε∞σ∙ασ∞ ∩εΓσ≡⌡ Ωα≡≥ΦφΩΦ ΓσΣ≤∙σπε Ωα≡≥ΦφΩΦ Γ±σ⌡ σπε ⌠≡ατ Φ Σσδασ∞ Φ⌡ φσΓΦΣΦ∞√∞Φ; ΩαΩ ≥εδⁿΩε ΓσΣ≤∙ΦΘ ≈≥ε-≥ε πεΓε≡Φ≥, ±εε≥Γσ≥±≥Γ≤■∙α ⌠≡ατα ±≥αφεΓΦ≥± ΓΦΣΦ∞εΘ. ┼±δΦ Σε ²≥επε ß√δα ΓΦΣΦ∞εΘ Σ≡≤πα ⌠≡ατα, εφα ±≥αφεΓΦ≥± φσΓΦΣΦ∞εΘ.#<bq>╧ε∞σ±≥Φ≥σ φα ⌠ε≡∞≤ Ωα≡≥ΦφΩΦ Γ±σ⌡ ⌠≡ατ. ═σ ταß≤Σⁿ≥σ ∩ε±≥αΓΦ≥ⁿ ±ΓεΘ±≥Γε Transparent ²≥Φ⌡ Ωα≡≥ΦφεΩ Γ true, α ±ΓεΘ±≥Γε Visible Γ τφα≈σφΦσ False, ΓσΣⁿ ± ±α∞επε φα≈αδα Γ±σ Ωα≡≥ΦφΩΦ Σεδµφ√ ß√≥ⁿ φσ ΓΦΣφ√. ╘≡ατ√ "▀ ταπαΣαδ ≈Φ±δε..." Φ "╥√ ≤παΣαδ..." ≡ατ∞σ∙ασ∞ ±Γσ≡⌡≤ ∩ε ÷σφ≥≡≤, ⌠≡ατ≤ "╠εσ ≈Φ±δε ßεδⁿ°σ" ù ±δσΓα, α ⌠≡ατ≤ "╠εσ ≈Φ±δε ∞σφⁿ°σ" ù ±∩≡αΓα.#<bq>┬α∞ φσ φαΣεσδ ±σ≡ε-πεδ≤ßεΘ εΣφεεß≡ατφ√Θ Φφ≥σ≡⌠σΘ± Windows? ─αΓαΘ≥σ ⌡ε≥ⁿ φα°≤ Φπ≡≤ ±Σσδασ∞ ≡ατφε÷Γσ≥φεΘ. ═σ∩δε⌡ε ß√ ∩εΩ≡α±Φ≥ⁿ ⌠ε≡∞≤ Γ ΩαΩεΘ-φΦß≤Σⁿ ÷Γσ≥, φα∩≡Φ∞σ≡, Γ µσδ≥√Θ. ╧≡ε±≥ε ≤±≥αφεΓΦ≥σ ±ΓεΘ±≥Γε Color ⌠ε≡∞√ Γ clYellow. ╧εδσ ΓΓεΣα ∞εµφε ∩εΩ≡α±Φ≥ⁿ Γ φσßσ±φ√Θ ÷Γσ≥. ─δ ²≥επε ≤±≥αφεΓΦ≥σ σπε ±ΓεΘ±≥Γε Γ clAqua. ╫≥εß√ ∩≡ΦΣα≥ⁿ φσΩε≥ε≡√Θ ±≥Φδⁿ Φ φσεß√≈φε±≥ⁿ ∩εδ■ ΓΓεΣα, σπε ±≥εΦ≥ ±≡εΓφ ≥ⁿ ± ⌠ε≡∞εΘ; Σδ ²≥επε ≤±≥αφεΓΦ≥σ ±ΓεΘ±≥Γε BorderStyle (∩εδ ΓΓεΣα, α φσ ⌠ε≡∞√) Γ bsNone.#<bq>─αΓαΘ≥σ ±Σσδασ∞ ∩εδσ ΓΓεΣα αΩ≥ΦΓφ√∞ ∩ε ≤∞εδ≈αφΦ■. ╧ε±≥αΓⁿ≥σ ≤ ⌠ε≡∞√ ±ΓεΘ±≥Γε ActiveControl Γ Edit1, Φ ∩≡Φ ΩαµΣε∞ τα∩≤±Ωσ Ω≤≡±ε≡ ß≤Σσ≥ ±≡ατ≤ ∩ε Γδ ≥ⁿ± Γ ∩εδσ ΓΓεΣα.#<bq>═σεß⌡εΣΦ∞ε Φτ∞σφΦ≥ⁿ °≡Φ⌠≥ Γ±σ⌡ ≈σ≥√≡σ⌡ Ωφε∩εΩ Φ ∩εδ ΓΓεΣα φα ≈≥ε-≥ε ßεδσσ ∩εΣ⌡εΣ ∙σσ. ╟α °≡Φ⌠≥√ δ■ß√⌡ ²δσ∞σφ≥εΓ ε≥Γσ≈ασ≥ ±ΓεΘ±≥Γε Font. ╠εµφε Φτ∞σφ ≥ⁿ °≡Φ⌠≥, ≡σπ≤δΦ≡≤ ∩εΣ±ΓεΘ±≥Γα ²≥επε Ωε∞∩δσΩ±φεπε ∩α≡α∞σ≥≡α, φε δ≤≈°σ Φ ∩≡ε∙σ ∙σδΩφ≤≥ⁿ φα ∞αδσφⁿΩ≤■ Ωφε∩ε≈Ω≤ ± ≥≡σ∞ ≥ε≈Ωα∞Φ φα∩≡ε≥ΦΓ φαΣ∩Φ±Φ Font Γ εß·σΩ≥φε∞ Φφ±∩σΩ≥ε≡σ. ╧σ≡σΣ Γα∞Φ ∩ε ΓΦ≥± ßεδⁿ°εσ εΩφε, Γ Ωε≥ε≡ε∞ σ±≥ⁿ Γετ∞εµφε±≥ⁿ Φτ∞σφΦ≥ⁿ πα≡φΦ≥≤≡≤, φα≈σ≡≥αφΦσ, Ωσπδⁿ Φ ÷Γσ≥ φαΣ∩Φ±Φ.#<bq>─επεΓε≡Φ∞± ε δεπΦ≈σ±ΩΦ⌡ Φ∞σφα⌡ εß·σΩ≥εΓ, ≈≥εß√ Σαδⁿ°σ ∩ε ≥σΩ±≥≤ φσ φατ√Γα≥ⁿ Γ±σ Γ≡σ∞ Ωφε∩ΩΦ ≡≤±±ΩΦ∞Φ Φ∞σφα∞Φ. ╩φε∩Ωα ═εΓα Φπ≡α ß≤Σσ≥ ù Button1, ╨σΩε≡Σ√... ù Button2, ┬√⌡εΣ ù Button3, ∩εδσ ΓΓεΣα ù Edit1, Ωα≡≥ΦφΩα ΓσΣ≤∙σπε ù Image1, Ωα≡≥ΦφΩα "▀ ταπαΣαδ ≈Φ±δε..." ù Image2, Ωα≡≥ΦφΩα "╥√ ≤παΣαδ..." ù Image3, Ωα≡≥ΦφΩα "╠εσ ≈Φ±δε ßεδⁿ°σ" ù Image4, Ωα≡≥ΦφΩα "╠εσ ≈Φ±δε ∞σφⁿ°σ" ù Image5.##<bq><h2>10240 ∩ε ╘α≡σφπσΘ≥≤</h2>##<bq>╚φ≥σ≡⌠σΘ± πε≥εΓ. ╧ε≡α ∩≡επ≡α∞∞Φ≡εΓα≥ⁿ Φπ≡εΓ≤■ ∞εΣσδⁿ. ╬±∞ε≥≡Φ∞ ⌠ε≡∞≤. ╧σ≡Γεσ, ≈≥ε ß≡ε±ασ≥± Γ πδατα, ù ßστ√∞ φφα Ωφε∩Ωα. ═α ²≥εΘ Ωφε∩Ωσ ΩαµΣ√Θ ≡ατ Σεδµφ√ ∞σφ ≥ⁿ± φαΣ∩Φ±Φ. ╠√ ∞εµσ∞ ∩≡ε∩Φ±α≥ⁿ Φτ∞σφσφΦσ φαΣ∩Φ±Φ Γε Γ±σ⌡ ∞σ±≥α⌡, πΣσ ²≥ε ≥≡σß≤σ≥± , φε τα≈σ∞ ≤±δεµφ ≥ⁿ ±σßσ µΦτφⁿ? ─αΓαΘ≥σ ±ετΣαΣΦ∞ ε≥Σσδⁿφ≤■ ∩≡ε÷σΣ≤≡≤, Ωε≥ε≡α ≥εδⁿΩε ≥σ∞ Φ ß≤Σσ≥ ταφΦ∞α≥ⁿ± , ≈≥ε ∞σφ ≥ⁿ φαΣ∩Φ±Φ φα Ωφε∩Ωσ. ╧σ≡σΩδ■≈αΘ≥σ±ⁿ φα εΩφε ≡σΣαΩ≥ε≡α ΩεΣα Φ ∩ε±δσ ±δεΓα implementation ∩Φ°Φ≥σ:#<bq>procedure ChangeCaption;#<bq>begin#<bq>case random(5) of#<bq>0:Form1.Button4.Caption:='╒∞... ∞εµσ≥ ß√≥ⁿ, ²≥ε?';#<bq>1:Form1.Button4.Caption:='▀ τφα■, ≥Γεσ ≈Φ±δε ù Γε≥ ²≥ε!';#<bq>2:Form1.Button4.Caption:='▀ ≡ατπαΣαδ ≥σß ';#<bq>3:Form1.Button4.Caption:='╥√ ⌡Φ≥≡√Θ, φε ⌡Φ≥≡σσ';#<bq>4:Form1.Button4.Caption:='╧ε∩≡εß≤σ∞ Γε≥ ≥αΩ...';#<bq>end;#<bq>end;#<bq>╨ατßσ≡σ∞ ∩≡ε÷σΣ≤≡≤. ╟απεδεΓεΩ Φ εß· ΓδσφΦσ ∩≡ε÷σΣ≤≡√ ù ∩εφ ≥φ√. ─αδⁿ°σ ΦΣσ≥ Ωεφ±≥≡≤Ω÷Φ case A of B [C,D...]. ▌≥ε Ωεφ±≥≡≤Ω÷Φ Γ√ßε≡α ΩαΩεΘ-≥ε Ωε∞αφΣ√ Γ ταΓΦ±Φ∞ε±≥Φ ε≥ ±ε±≥ε φΦ ∩σ≡σ∞σφφεΘ A. ┼±δΦ Ωεφ±≥≡≤Ω÷Φ random(5) ß≤Σσ≥ ≡αΓφα, ±Ωαµσ∞, σΣΦφΦ÷σ, Γ√∩εδφΦ≥± Ωε∞αφΣα Form1.Button4.Caption:='▀ τφα■, ≥Γεσ ≈Φ±δε ù Γε≥ ²≥ε!'. Random(N) ù ⌠≤φΩ÷Φ , Ωε≥ε≡α ΓετΓ≡α∙ασ≥ ±δ≤≈αΘφεσ ≈Φ±δε Φτ ∩≡ε∞σµ≤≥Ωα ε≥ φ≤δ Σε N-1. ─αδⁿ°σ ∞√ ±ΓεΘ±≥Γ≤ Caption εß·σΩ≥α Button4 (φα°α Ωφε∩Ωα) ΩαµΣ√Θ ≡ατ ∩≡Φ±ΓαΦΓασ∞ φεΓεσ τφα≈σφΦσ. ═ε Γε≥ ∩ε≈σ∞≤ ∩σ≡σΣ Button 4 ±≥εΦ≥ ΩαΩεΘ-≥ε εß·σΩ≥ Form1? ▌≥ε ù ⌠ε≡∞α. ┬σΣⁿ Ωφε∩Ωα ∩≡ΦφαΣδσµΦ≥ ⌠ε≡∞σ, α τφα≈Φ≥, εß·σΩ≥ Button4 ∞εµφε ≡α±±∞α≥≡ΦΓα≥ⁿ ΩαΩ ±ΓεΘ±≥Γε εß·σΩ≥α Form1. <IMG r 15 15 0 15 1 InfoBlock\Igromania\Delphi\2-3.jpg * 150 "╧≡ε÷σΣ≤≡α εß≡αßε≥ΩΦ ΩδΦΩα ∩ε Button4 Γ ≡σΣαΩ≥ε≡σ ΩεΣα."> #<bq>┬φΦ∞α≥σδⁿφ√Θ ≈Φ≥α≥σδⁿ ±∩≡ε±Φ≥: "└ ∩ε≈σ∞≤ ∞√ ≡αφⁿ°σ φΦΩεπΣα Form1 ∩σ≡σΣ εß·σΩ≥α∞Φ ⌠ε≡∞√ φσ ≤Ωατ√ΓαδΦ, α ±σΘ≈α± ≤ΩαταδΦ?". ─σδε Γ ≥ε∞, ≈≥ε σ±≥ⁿ ∩≡ε÷σΣ≤≡√ Φ ⌠≤φΩ÷ΦΦ Ωδα±±εΓ (εφΦ, σ±δΦ Γ√ σ∙σ φσ ταß√δΦ, φατ√Γα■≥± ∞σ≥εΣα∞Φ), α σ±≥ⁿ ∩≡ε±≥ε ∩≡ε÷σΣ≤≡√ Φ ⌠≤φΩ÷ΦΦ. ╤σΘ≈α± ∩σ≡σΣ Γα∞Φ ∩≡ε±≥ε ∩≡ε÷σΣ≤≡α. └ Γ ≥σ±≥εΓε∞ ≡σΣαΩ≥ε≡σ ∞√ ∩Φ±αδΦ ΩεΣ ≥εδⁿΩε Γ εß≡αßε≥≈ΦΩα⌡ ±εß√≥ΦΘ ⌠ε≡∞√. ╬ß≡αßε≥≈ΦΩ ±εß√≥Φ ù ∩≡ε÷σΣ≤≡α Ωδα±±α. ╠√ ΓστΣσ Σεδµφ√ ß√δΦ ß√ ∩Φ±α≥ⁿ ∩σ≡σΣ εß·σΩ≥ε∞ Φ∞ ßεδσσ πδεßαδⁿφεπε εß·σΩ≥α, Ω Ωε≥ε≡ε∞≤ εφ ∩≡ΦφαΣδσµΦ≥. ╬ΣφαΩε, σ±δΦ ∞√ ∩Φ°σ∞ ΩεΣ Γ ∞σ≥εΣσ πδεßαδⁿφεπε εß·σΩ≥α, σπε ΦΣσφ≥Φ⌠ΦΩα≥ε≡ φ≤µφε ε∩≤±≥Φ≥ⁿ, ≈≥ε ∞√ ± ≤±∩σ⌡ε∞ Φ ΣσδαδΦ. ╧≡ε÷σΣ≤≡α ChangeCaption φσ Γ⌡εΣΦ≥ φΦ Γ ΩαΩεΘ Ωδα±±, εφα ±α∞α ∩ε ±σßσ. ╧ε²≥ε∞≤ Γ φσΘ φαΣε ≤Ωατ√Γα≥ⁿ ∩εδφ√Θ ∩≤≥ⁿ Σε φσεß⌡εΣΦ∞επε ±ΓεΘ±≥Γα ΦδΦ εß·σΩ≥α. ═σ∞φεπε ±δεµφε, φε, ∩ε∩≡αΩ≥ΦΩεΓαΓ°Φ±ⁿ, Γ√ Γ±σ ∩εΘ∞σ≥σ.#<bq>╧ε±δσ ∩σ≡Γεπε τα∩≤±Ωα φατΓαφΦσ Ωφε∩ΩΦ Σεδµφε ±∞σφΦ≥ⁿ± ±δ≤≈αΘφ√∞ εß≡ατε∞. ╟α∩Φ°σ∞ Ωε∞αφΣ≤ τα∩≤±Ωα ²≥εΘ ∩≡ε÷σΣ≤≡√ Γ εß≡αßε≥≈ΦΩ ±εß√≥Φ ⌠ε≡∞√ OnCreate. ╤ετΣα≥ⁿ εß≡αßε≥≈ΦΩ ∞εµφε ΦδΦ ≈σ≡στ Γ≥ε≡≤■ ΓΩδαΣΩ≤ εß·σΩ≥φεπε Φφ±∩σΩ≥ε≡α, ΦδΦ ∩≡ε±≥ε ∙σδΩφ≤Γ ΣΓα ≡ατα φα ∩≤±≥ε∞ ∩≡ε±≥≡αφ±≥Γσ ⌠ε≡∞√. ╧Φ°Φ≥σ ∞σµΣ≤ begin Φ end Γ±σπε εΣφ≤ ±≥≡ε≈Ω≤:#<bq>ChangeCaption;#<bq>α∩≤±≥Φ≥σ Φπ≡≤. ╧ε±δσ τα∩≤±Ωα φατΓαφΦσ Ωφε∩ΩΦ ∞σφ σ≥± . ╫≥ε Φ ≥≡σßεΓαδε±ⁿ ±Σσδα≥ⁿ. ╧ε∩≡εß≤Θ≥σ τα∩≤±≥Φ≥ⁿ Φπ≡≤ φσ±ΩεδⁿΩε ≡ατ. ╤≥≡αφφε, φατΓαφΦσ Ωφε∩ΩΦ Γ±σπΣα εΣφε Φ ≥ε µσ. ─σδε Γ±σ Γ ∩≡Φφ÷Φ∩σ ΣσΘ±≥ΓΦ πσφσ≡α≥ε≡α ±δ≤≈αΘφ√⌡ ≈Φ±σδ. ═α ±α∞ε∞ Σσδσ, ≈Φ±δα εφ Γ√Σασ≥ φσ ±δ≤≈αΘφ√σ, α ∩±σΓΣε±δ≤≈αΘφ√σ, ε±φεΓαφφ√σ φα ±∩σ÷ΦαδⁿφεΘ ≥αßδΦ÷σ ±δ≤≈αΘφ√⌡ ≈Φ±σδ. ╩αµΣ√Θ ≡ατ ∩≡Φ Γ√τεΓσ ßσ≡≤≥± ≈Φ±δα Φτ ≥αßδΦ÷√ Γ εΣφε∞ Φ ≥ε∞ µσ ∩ε≡ ΣΩσ, ∩ε²≥ε∞≤ Γ± ±δ≤≈αΘφε±≥ⁿ ≥σ≡ σ≥± . ╫≥εß√ ²≥ε εßεΘ≥Φ, ∩σ≡σΣ τα∩≤±Ωε∞ ∩≡επ≡α∞∞√ φαΣε εΣΦφ ≡ατ ±ß≡ε±Φ≥ⁿ ≤Ωατα≥σδⁿ ≥αßδΦ÷√ ±δ≤≈αΘφ√⌡ ≈Φ±σδ ± ∩ε∞ε∙ⁿ■ Ωε∞αφΣ√ Randomize. ╧ε∞σ±≥Φ≥ⁿ σσ δ≤≈°σ Γ±σπε Γ εß≡αßε≥≈ΦΩ OnCreate, ΓσΣⁿ εφ τα∩≤±Ωασ≥± ±α∞√∞ ∩σ≡Γ√∞. ┬ Φ≥επσ εß≡αßε≥≈ΦΩ OnCreate ≤ Γα± ß≤Σσ≥ Γ√πδ Σσ≥ⁿ ≥αΩ:#<bq>procedure TForm1.FormCreate(Sender: Tobject);#<bq>begin#<bq>Randomize;#<bq>ChangeCaption;#<bq>end;#<bq>╧ε∩≡εß≤Θ≥σ τα∩≤±≥Φ≥ⁿ Φπ≡≤ φσ±ΩεδⁿΩε ≡ατ. ╥σ∩σ≡ⁿ φαΣ∩Φ±Φ ß≤Σ≤≥ ≡ατφ√∞Φ.#<bq>═α∩Φ°σ∞ ∩≡ε÷σΣ≤≡≤, Ωε≥ε≡α τα±≥αΓΦ≥ ΓσΣ≤∙σπε πεΓε≡Φ≥ⁿ. ┬ Ωα≈σ±≥Γσ ∩α≡α∞σ≥≡α ∞√ ß≤Σσ∞ ∩σ≡σΣαΓα≥ⁿ ∩≡ε÷σΣ≤≡σ ÷σδεσ ≈Φ±δε, Ωε≥ε≡εσ εßετφα≈ασ≥ φ≤µφ≤■ ⌠≡ατ≤. ┬ε≥ ∩εδφ√Θ ≥σΩ±≥ ²≥εΘ ∩≡ε÷σΣ≤≡√:#<bq>procedure Say(text:integer);#<bq>begin#<bq>Form1.Image2.Visible:=false;#<bq>Form1.Image3.Visible:=false;#<bq>Form1.Image4.Visible:=false;#<bq>Form1.Image5.Visible:=false;#<bq>case text of#<bq>0:Form1.Image2.Visible:=true;#<bq>1:Form1.Image3.Visible:=true;#<bq>2:Form1.Image4.Visible:=true;#<bq>3:Form1.Image5.Visible:=true;#<bq>end;#<bq>end;#<bq>╩ε≡ε≥Ωε ∩≡εßσµΦ∞± ∩ε ≥σΩ±≥≤. ╤φα≈αδα ∞√ Σσδασ∞ φσΓΦΣΦ∞√∞Φ Γ±σ Ωα≡≥ΦφΩΦ ⌠≡ατ. ╧ε≥ε∞ ± ∩ε∞ε∙ⁿ■ ≤µσ τφαΩε∞εΘ Γα∞ Ωεφ±≥≡≤Ω÷ΦΦ case Γ ±εε≥Γσ≥±≥ΓΦΦ ±ε τφα≈σφΦσ∞ ∩σ≡σ∞σφφεΘ-∩α≡α∞σ≥≡α text Σσδασ∞ ΓΦΣΦ∞εΘ φ≤µφ≤■ Ωα≡≥ΦφΩ≤-⌠≡ατ≤.##<bq><h2>╥εφΩε±≥Φ πσΘ∞∩δσ </h2>##<bq>╩επΣα Γ±σ ∩εΣπε≥εΓΦ≥σδⁿφ√σ ΣσΘ±≥ΓΦ Γ√∩εδφσφ√, φ≤µφε ∩≡Φ±≥≤∩α≥ⁿ Ω ∩≡ε≡αßε≥Ωσ πσΘ∞∩δσ . ═αµΦ∞ασ∞ φα Ωφε∩Ω≤ ═εΓα Φπ≡α; ΓσΣ≤∙ΦΘ Σεδµσφ ∩ε∩≡ΦΓσ≥±≥ΓεΓα≥ⁿ Φπ≡εΩα. ─δ ²≥επε ±ετΣαΘ≥σ εß≡αßε≥≈ΦΩ ±εß√≥Φ φαµα≥Φ φα Ωφε∩Ω≤. ┬ φσ∞ ∩Φ°Φ≥σ:#<bq>say(0);#<bq>n:=random(100);#<bq>c:=0;#<bq>┬ ∩σ≡σ∞σφφ≤■ n ∞√ ταφε±Φ∞ ±δ≤≈αΘφεσ ≈Φ±δε, Ωε≥ε≡εσ Σεδµσφ ε≥παΣα≥ⁿ Φπ≡εΩ. ╧σ≡σ∞σφφα ± ù ±≈σ≥≈ΦΩ ∩ε∩√≥εΩ. ▌≥Φ ∩σ≡σ∞σφφ√σ Σεδµφ√ ß√≥ⁿ πδεßαδⁿφ√∞Φ, ∩ε≥ε∞≤ ≈≥ε ∞√ Φ⌡ ß≤Σσ∞ Φ±∩εδⁿτεΓα≥ⁿ Γ φσ±ΩεδⁿΩΦ⌡ ∩≡ε÷σΣ≤≡α⌡ Φ εß≡αßε≥≈ΦΩα⌡. ╬ß· ΓΦ≥σ ∩≡ε÷σΣ≤≡≤ πδεßαδⁿφεΘ Γ ≡ατΣσδσ var:#<bq>n:integer;#<bq>c:integer;#<bq>╥σ∩σ≡ⁿ Φπ≡εΩ ΓΓεΣΦ≥ ±ΓεΘ Γα≡Φαφ≥ ε≥Γσ≥α Γ ∩εδσ Edit1 Φ φαµΦ∞ασ≥ Ωφε∩Ω≤ Button4. ┬ σσ εß≡αßε≥≈ΦΩσ ∞√ Σεδµφ√ ±≡αΓφΦ≥ⁿ Γα≡Φαφ≥ Φπ≡εΩα ±ε τφα≈σφΦσ∞ Γ ∩σ≡σ∞σφφεΘ n Φ Γ√Γσ±≥Φ φα ²Ω≡αφ ±εε≥Γσ≥±≥Γ≤■∙≤■ ⌠≡ατ≤. ╬ß≡αßε≥≈ΦΩ Ωφε∩ΩΦ Button4 ß≤Σσ≥ Γ√πδ Σσ≥ⁿ ≥αΩ:#<bq>ChangeCaption;#<bq>if strtoint(edit1.text)>n then begin#<bq>say(3);#<bq>c:=c+1;#<bq>end;#<bq>if strtoint(edit1.text)<n then begin#<bq>say(2);#<bq>c:=c+1;#<bq>end;#<bq>if strtoint(edit1.text)=n then begin#<bq>say(1);#<bq>if c<maxc then form2.showmodal;#<bq>end;#<bq>Edit1.Text:='';#<bq>▌≥ε≥ εß≡αßε≥≈ΦΩ Σε±≥α≥ε≈φε ±δεµφ√Θ, ∩ε²≥ε∞≤ σπε ≡ατßσ≡σ∞ Σσ≥αδⁿφε. ╧σ≡Γα Ωε∞αφΣα ù ±∞σφα φαΣ∩Φ±Φ φα Ωφε∩Ωσ Button4. ╧ε≥ε∞ φα≈Φφα■≥± ∩≡εΓσ≡ΩΦ. ┬τπδ φΦ≥σ φα ∩σ≡Γεσ ≤±δεΓΦσ. ╧σ≡σ∞σφφα n ±≡αΓφΦΓασ≥± ± Ωεφ±≥≡≤Ω÷ΦσΘ strtoint ù ²≥ε ⌠≤φΩ÷Φ , Ωε≥ε≡α ∩≡σεß≡ατ≤σ≥ ±≥≡εΩεΓ≤■ ∩σ≡σ∞σφφ≤■ Γ ÷σδε≈Φ±δσφφ≤■ Φ ΓετΓ≡α∙ασ≥ ²≥≤ ∩σ≡σ∞σφφ≤■. ─αφφεΘ ⌠≤φΩ÷ΦσΘ ∞√ ΩεφΓσ≡≥Φ≡≤σ∞ τφα≈σφΦσ edit1.text. ┬ φσ∞ ±εΣσ≡µΦ≥± ±≥≡ε≈Ωα, Ωε≥ε≡≤■ ΓΓσδ Φπ≡εΩ. ╟α≈σ∞ φ≤µφε ≈≥ε-≥ε ΩεφΓσ≡≥Φ≡εΓα≥ⁿ? ┬ "─σδⁿ⌠Φ" σ±≥ⁿ φσ±ΩεδⁿΩε ≥Φ∩εΓ ∩σ≡σ∞σφφ√⌡, Γ ≈α±≥φε±≥Φ, ÷σδ√σ ≈Φ±δα Φ ±≥≡εΩΦ. ╧σ≡σ∞σφφ√σ ≡ατφ√⌡ ≥Φ∩εΓ ⌡≡αφ ≥ Σαφφ√σ Γ ≡ατφ√⌡ ⌠ε≡∞α≥α⌡ Φ ∩ε²≥ε∞≤ φσ±εΓ∞σ±≥Φ∞√ ∞σµΣ≤ ±εßεΘ. ╫≥εß√ ±≡αΓφΦΓα≥ⁿ ΣΓσ ∩σ≡σ∞σφφ√σ ≡ατφ√⌡ ≥Φ∩εΓ, φαΣε εΣφ≤ Φτ φΦ⌡ ∩≡ΦΓσ±≥Φ Ω ≥Φ∩≤ Σ≡≤πεΘ ± ∩ε∞ε∙ⁿ■ ±∩σ÷Φαδⁿφ√⌡ ⌠≤φΩ÷ΦΘ, ≥αΩΦ⌡, ΩαΩ strtoint.#<bq>┼±δΦ ≥ε, ≈≥ε ΓΓσδ Φπ≡εΩ, ßεδⁿ°σ τφα≈σφΦ ∩σ≡σ∞σφφεΘ n, ≥ε φα ²Ω≡αφ ± ∩ε∞ε∙ⁿ■ ∩≡ε÷σΣ≤≡√ say Γ√ΓεΣΦ≥± Φφ⌠ε≡∞α÷Φ . ╧ε±δσ ²≥επε ≤ΓσδΦ≈ΦΓασ≥± φα σΣΦφΦ÷≤ ±≈σ≥≈ΦΩ ∩ε∩√≥εΩ. ╤δσΣ≤■∙α ∩≡εΓσ≡Ωα ∩ε≈≥Φ ≥αΩα µσ, ± ≥εΘ δΦ°ⁿ ≡ατφΦ÷σΘ, ≈≥ε ≥σ∩σ≡ⁿ ∩≡σΣ∩εδεµσφΦσ Φπ≡εΩα εΩατ√Γασ≥± ∞σφⁿ°σ ταπαΣαφφεπε ≈Φ±δα.#<bq>╤α∞εσ Φφ≥σ≡σ±φεσ ≤±δεΓΦσ ù ≥≡σ≥ⁿσ. ╬φε Γ√∩εδφ σ≥± , σ±δΦ Φπ≡εΩ ≤παΣαδ ≈Φ±δε. ┬σΣ≤∙ΦΘ ±εεß∙ασ≥ εß ²≥ε∞ (Ωε∞αφΣα say(1)). ╧ε≥ε∞ ∞√ ∩≡εΓσ≡ σ∞, ΓΣ≡≤π Φπ≡εΩ ε≥παΣαδ ≈Φ±δε τα ≡σΩε≡Σφεσ ΩεδΦ≈σ±≥Γε ∩ε∩√≥εΩ (φσ ταß√ΓαΘ≥σ, ≈≥ε ≈σ∞ ∞σφⁿ°σ, ≥σ∞ δ≤≈°σ, α φσ φαεßε≡ε≥). ╨σΩε≡Σ Σεδµσφ ß√≥ⁿ τα∩Φ±αφ Γ πδεßαδⁿφ≤■ ∩σ≡σ∞σφφ≤■ maxc (φσ ταß≤Σⁿ≥σ σσ εß· ΓΦ≥ⁿ). ╧≡ε÷σΣ≤≡≤ Σδ ταπ≡≤τΩΦ τφα≈σφΦ Γ maxc ∞√ φα∩Φ°σ∞ ∩ε≥ε∞. └ ∩εΩα ∩≡ε±≥ε ±≈Φ≥αΘ≥σ, ≈≥ε Γ ²≥εΘ ∩σ≡σ∞σφφεΘ ±εΣσ≡µΦ≥± ∩≡σΣ√Σ≤∙ΦΘ ≡σΩε≡Σ. ┼±δΦ ≡σΩε≡Σ ∩εßΦ≥, ∞√ Σεδµφ√ τα∩≡ε±Φ≥ⁿ Φ∞ Φπ≡εΩα, Σαß√ τα∩Φ±α≥ⁿ σπε Γ ≥αßδΦ÷σ ≡σΩε≡ΣεΓ, Φ ε≥εß≡ατΦ≥ⁿ Σαφφ≤■ ≥αßδΦ÷≤. ═αΩεφσ÷, ∞√ ε≈Φ∙ασ∞ ∩εδσ ΓΓεΣα (∩≡Φ±ΓαΦΓασ∞ σπε ±ΓεΘ±≥Γ≤ text φ≤δσΓ≤■ ±≥≡εΩ≤).#<bq>╤Σσδασ∞ φεΓ≤■ ⌠ε≡∞≤, Ωε≥ε≡α ß≤Σσ≥ τα∩≡α°ΦΓα≥ⁿ ≤ Φπ≡εΩα σπε Φ∞ . ┘σδΩφΦ≥σ φα Ωφε∩Ω≤ New Form, Ωε≥ε≡α φα⌡εΣΦ≥± φα ∩αφσδΦ Φφ±≥≡≤∞σφ≥εΓ. ╧ε ΓΦ≥± φεΓα ⌠ε≡∞α. ═αΣε σσ "∩≡Φ≈σ±α≥ⁿ". ┬ Γσ≡⌡φσ∞ δσΓε∞ ≤πδ≤ ≡ατ∞σ±≥Φ≥σ ∩εδσ ΓΓεΣα, α ∩εΣ φΦ∞ ù Ωφε∩Ω≤ ± φαΣ∩Φ±ⁿ■ ╬╩. ┬ ±ΓεΘ±≥Γε Caption ⌠ε≡∞√ ∩Φ°Φ≥σ ≈≥ε-≥ε Γ≡εΣσ "┬√ ∩εßΦδΦ ≡σΩε≡Σ! ┬ΓσΣΦ≥σ ±Γεσ Φ∞ :". ╙∞σφⁿ°Φ≥σ ⌠ε≡∞≤ ≥αΩ, ≈≥εß√ Γ±σ Γ√πδ Σσδε Ω≡α±ΦΓε. ╤ ∩ε∞ε∙ⁿ■ ±ΓεΘ±≥Γ τα∩≡σ≥Φ≥σ Φτ∞σφσφΦσ ≡ατ∞σ≡εΓ ⌠ε≡∞√, ε≈Φ±≥Φ≥σ ±εΣσ≡µΦ∞εσ ∩εδ ΓΓεΣα.#<bq>┬σ≡φσ∞± φσφαΣεδπε Ω ∩σ≡ΓεΘ ⌠ε≡∞σ Φ εß≡αßε≥≈ΦΩ≤ ±εß√≥Φ Ωφε∩ΩΦ Button4. ╠σ≥εΣ ⌠ε≡∞√ showmodal Γ√ΓεΣΦ≥ ±Ω≡√≥≤■ ⌠ε≡∞≤ φα ²Ω≡αφ (≤ δ■ßεπε ∩≡ΦδεµσφΦ ∩ε ≤∞εδ≈αφΦ■ Γ±σ ⌠ε≡∞√, Ω≡ε∞σ πδαΓφεΘ, ±Ω≡√≥√). ┼±≥ⁿ εΣφα ≥εφΩε±≥ⁿ: ²≥ε≥ ∞σ≥εΣ Γ√ΓεΣΦ≥ ⌠ε≡∞≤ ±ε ±≥α≥≤±ε∞ ∞εΣαδⁿφεΘ, ≥ε σ±≥ⁿ ΩαΩ ΣΦαδεπ. ─ε ≥σ⌡ ∩ε≡, ∩εΩα ⌠ε≡∞α φσ ταΩ≡εσ≥± , ∩εδⁿτεΓα≥σδⁿ φσ ∩εδ≤≈Φ≥ Σε±≥≤∩α Ω ∩≡επ≡α∞∞σ. ═α∩≡Φ∞σ≡, εφ φσ ±∞εµσ≥ ∩σ≡σΩδ■≈Φ≥ⁿ± φα πδαΓφεσ εΩφε ∩≡επ≡α∞∞√. ╠εµφε Φ±∩εδⁿτεΓα≥ⁿ ±≥εδⁿ ∩εδστφ≤■ ε±εßσφφε±≥ⁿ.#<bq>╤≥εΦ≥ ταΣ≤∞α≥ⁿ± ε ≥ε∞, πΣσ Φ ΩαΩ ∞√ ß≤Σσ∞ ⌡≡αφΦ≥ⁿ Σαφφ√σ ε δ≤≈°σ∞ Φπ≡εΩσ. ╤ετΣαΣΦ∞ ⌠αΘδ Γ ∩α∩Ωσ Φπ≡√ Φ φατεΓσ∞ σπε record.rcd. ▌≥ε ß≤Σσ≥ εß√ΩφεΓσφφ√Θ ≥σΩ±≥εΓ√Θ ΣεΩ≤∞σφ≥, Γ ∩σ≡ΓεΘ ±≥≡ε≈Ωσ Ωε≥ε≡επε ß≤Σσ≥ ⌡≡αφΦ≥ⁿ± Φ∞ ≡σΩε≡Σ±∞σφα, α Γε Γ≥ε≡εΘ ù ≈Φ±δε σπε ∩ε∩√≥εΩ. ─δ φα≈αδα Φ±Ω≤±±≥Γσφφε φα∩εδφΦ≥σ ⌠αΘδ ±εΣσ≡µΦ∞√∞, φα∩≡Φ∞σ≡:#<bq>╩ε±≥ #<bq>12#<bq>╤ετΣαΘ≥σ ⌠ε≡∞≤, Ωε≥ε≡α ß≤Σσ≥ ≥αßδΦ÷σΘ ≡σΩε≡ΣεΓ. ═ε ≥α∞ ß≤Σσ≥ ⌡≡αφΦ≥ⁿ± Γ±σπε εΣΦφ ≡σΩε≡Σ. ╨α±°Φ≡Φ≥ⁿ ±∩Φ±εΩ ≡σΩε≡ΣεΓ Σε Σσ± ≥Φ ù ²≥ε Γα°σ Σε∞α°φσσ ταΣαφΦσ. ═α∩Φ°Φ≥σ Γ ταπεδεΓΩσ ⌠ε≡∞√ "╨σΩε≡Σ", ±ΣσδαΘ≥σ ⌠ε≡∞≤ ∞αδσφⁿΩεΘ Φ "∩≡Φ≈σ°Φ≥σ", ΩαΩ ∞√ ≤µσ ∩ε±≥≤∩αδΦ ± Σ≡≤πΦ∞Φ ⌠ε≡∞α∞Φ. ╧ε∞σ±≥Φ≥σ φα ⌠ε≡∞≤ Ωε∞∩εφσφ≥ TLabel ± ∩αδΦ≥≡√ Standart, Ωε≥ε≡√Θ Γδ σ≥± ∩≡ε±≥εΘ φαΣ∩Φ±ⁿ■. ┬ σπε ±ΓεΘ±≥Γσ Caption ∩Φ°Φ≥σ "╨σΩε≡Σ±∞σφ". ╨ Σε∞ ±≥αΓⁿ≥σ σ∙σ εΣφ≤ ∞σ≥Ω≤ (Label2), φε ε±≥αΓⁿ≥σ σσ ∩≤±≥εΘ. ╤■Σα ∞√ τα∩Φ°σ∞ Φ∞ ≡σΩε≡Σ±∞σφα. ═Φµσ ±≥αΓⁿ≥σ σ∙σ εΣφ≤ ∞σ≥Ω≤ Φ ∩Φ°Φ≥σ Γ φσΘ "┼πε ≡σΩε≡Σ:", ≡ Σε∞ ù ∩≤±≥≤■ ∞σ≥Ω≤ Label4. ═Φµσ ∩ε∞σ∙αΘ≥σ Ωφε∩Ω≤ ± φαΣ∩Φ±ⁿ■ OK. ╧≡Φ±ΓεΘ≥σ φαΣ∩Φ± ∞ Φ Ωφε∩Ωσ °≡Φ⌠≥ ∩εΩ≡α±ΦΓσσ. ┬ εß≡αßε≥≈ΦΩσ Ωφε∩ΩΦ ∩Φ°Φ≥σ:#<bq>modalresult:=1;#<bq>ide;#<bq>Modalresult φ≤µφε ∩≡Φ±ΓεΦ≥ⁿ δ■ßεσ ≈Φ±δε, Ω≡ε∞σ φ≤δ , ≈≥εß√ ≤ß≡α≥ⁿ ∞εΣαδⁿφε±≥ⁿ.#<bq>├Σσ ∞√ ß≤Σσ∞ ταπ≡≤µα≥ⁿ Σαφφ√σ ε ≡σΩε≡Σ±∞σφσ, α πΣσ ∞√ Φ⌡ ß≤Σσ∞ ±ε⌡≡αφ ≥ⁿ? ╥αßδΦ÷α ≡σΩε≡ΣεΓ ß≤Σσ≥ ∩ε Γδ ≥ⁿ± ΣΓα ≡ατα: ∩≡Φ φαµα≥ΦΦ φα ±εε≥Γσ≥±≥Γ≤■∙≤■ Ωφε∩Ω≤ Φ ∩ε±δσ ∩ε ΓδσφΦ φεΓεπε ≡σΩε≡Σ±∞σφα. ═σ ß≤Σσ∞ Φτεß≡σ≥α≥ⁿ Γσδε±Φ∩σΣ, Φ ±ετΣαΣΦ∞ ≥εδⁿΩε εΣφ≤ ∩≡ε÷σΣ≤≡≤ (α ≥ε≈φσσ, εß≡αßε≥≈ΦΩ), Ωε≥ε≡√Θ ß≤Σσ∞ Γ√τ√Γα≥ⁿ Φτ ΣΓ≤⌡ ≡ατφ√⌡ ≤≈α±≥ΩεΓ ΩεΣα. ╧σ≡σΩδ■≈αΘ≥σ±ⁿ φα ∩σ≡Γ≤■ ⌠ε≡∞≤ Φ ΣΓαµΣ√ ΩδΦΩαΘ≥σ φα Ωφε∩Ωσ ╨σΩε≡Σ√. ╬≥Ω≡εσ≥± εß≡αßε≥≈ΦΩ ±εß√≥Φ . ┬ε≥ σπε ∩εδφ√Θ ≥σΩ±≥:#<bq>procedure TForm1.Button2Click(Sender: Tobject);#<bq>var#<bq>f:textfile;#<bq>nm:string;#<bq>begin#<bq>assignfile(f,extractfilepath(application.exename)+'record.rcd');#<bq>reset(f);#<bq>readln(f,nm);#<bq>readln(f,maxc);#<bq>closefile(f);#<bq>form3.showmodal;#<bq>end;#<bq>┬ε-∩σ≡Γ√⌡, ∞√ Γ√ΓεΣΦ∞ ⌠ε≡∞≤ ± <IMG r 15 15 0 15 1 InfoBlock\Igromania\Delphi\3-3.jpg * 150 "╚π≡α Γ ΣσΘ±≥ΓΦΦ."> ≡σΩε≡Σα∞Φ φα ²Ω≡αφ. ┬ε-Γ≥ε≡√⌡, ε≥Ω≡√Γασ∞ ⌠αΘδ record.rcd Σδ ≈≥σφΦ ΩαΩ ≥σΩ±≥εΓ√Θ. ╧ε≥ε∞ ≈Φ≥ασ∞ Φτ ⌠αΘδα ∩σ≡Γ≤■ ±≥≡ε≈Ω≤ Φ τα∩Φ±√Γασ∞ σσ τφα≈σφΦσ Γ ≥σΩ±≥ ∞σ≥ΩΦ 2 φα ⌠ε≡∞σ ≡σΩε≡ΣεΓ. ▌≥ε Φ∞ ≡σΩε≡Σ±∞σφα. ═σ∩ε±≡σΣ±≥Γσφφε ±Σσδα≥ⁿ ²≥ε φσ ∩εδ≤≈Φ≥± , ∩ε²≥ε∞≤ ∩≡Φ⌡εΣΦ≥± Φ±∩εδⁿτεΓα≥ⁿ Γ±∩ε∞επα≥σδⁿφ≤■ ∩σ≡σ∞σφφ≤■ nm. ┬ ∩σ≡σ∞σφφ≤■ maxc ∞√ τα∩Φ±√Γασ∞ τφα≈σφΦσ Γ≥ε≡εΘ ±≥≡ε≈ΩΦ ⌠αΘδα. ╧ε≥ε∞ ²≥ε µσ τφα≈σφΦσ τα∩Φ±√Γασ∞ Γ ≥αßδΦ÷≤ ≡σΩε≡ΣεΓ. ╚, φαΩεφσ÷, ταΩ≡√Γασ∞ ⌠αΘδ.#<bq>╬ß≡α≥Φ≥σ ΓφΦ∞αφΦσ, ≈≥ε Ωε∞αφΣεΘ assignfile ∞√ ΩαΩ ß√ ∩≡Φ±ΓαΦΓασ∞ ⌠αΘδ τφα≈σφΦ■ ∩σ≡σ∞σφφεΘ f. ═α ±α∞ε∞ Σσδσ f ù ±±√δΩα φα ⌠αΘδ. ╥σ∩σ≡ⁿ ∞√ ±∞εµσ∞ εß≡α∙α≥ⁿ± Ω ²≥ε∞≤ ⌠αΘδ≤ ± ∩ε∞ε∙ⁿ■ Ωε∞αφΣ, ∩εΣεßφ√⌡ readln. ╩ε∞αφΣα reset ε≥Ω≡√Γασ≥ ⌠αΘδ ≥εδⁿΩε Σδ ≈≥σφΦ . ┼±δΦ ß√ Γ√ ∩ε∩√≥αδΦ±ⁿ τα∩Φ±α≥ⁿ ≈≥ε-≥ε Γ ⌠αΘδ, ΓετφΦΩδα ß√ ε°ΦßΩα. ╧ε≈σ∞≤ Γ Ωε∞αφΣσ assignfile ∞√ φσ φα∩Φ±αδΦ ∩≡ε±≥ε Φ∞ ε≥Ω≡√Γασ∞επε ⌠αΘδα, α ΣεßαΓΦδΦ ±∩σ≡σΣΦ ΩαΩ≤■-≥ε ±≥≡αφφ≤■ Ωεφ±≥≡≤Ω÷Φ■? ╠√ ∞επδΦ ±Σσδα≥ⁿ Φ ≥αΩ, φε ±≡αßα≥√Γαδα ß√ Ωε∞αφΣα φσ Γ±σπΣα. ─σδε Γ ≥ε∞, ≈≥ε ∩≡Φ ±≥α≡≥σ ∩≡επ≡α∞∞√ ≥σΩ≤∙α ∩α∩Ωα φατφα≈ασ≥± σσ ≡αßε≈σΘ ∩α∩ΩεΘ, Φ φα φσσ ∩σ≡σ∞σ∙ασ≥± ±∩σ÷Φαδⁿφ√Θ ≤Ωατα≥σδⁿ ⌠αΘδεΓεΘ ±Φ±≥σ∞√ Windows. ┼±δΦ ∩≡επ≡α∞∞α ß≤Σσ≥ εß≡α∙α≥ⁿ± Ω ΩαΩε∞≤-≥ε ⌠αΘδ≤ ∩ε ε≥φε±Φ≥σδⁿφε∞≤ ∩≤≥Φ, εφ ß≤Σσ≥ ≥≡αΩ≥εΓα≥ⁿ± ε≥φε±Φ≥σδⁿφε ²≥επε ≤Ωατα≥σδ .#<bq>┬±σ Γ≡εΣσ ß√ ≡αßε≥ασ≥. ═ε Γ ∩≡ε÷σ±±σ ≡αßε≥√ ∩≡επ≡α∞∞√ ≤Ωατα≥σδⁿ ∞εµσ≥ ∩σ≡σ∞σ±≥Φ≥ⁿ± Γ Σ≡≤πεσ ∞σ±≥ε. ═α∩≡Φ∞σ≡, Windows ∩ε≥≡σß≤σ≥± εß≡α≥Φ≥ⁿ± Ω ΩαΩε∞≤-≥ε ±Γεσ∞≤ Σ≡αΘΓσ≡≤ ΦδΦ τα∩Φ±α≥ⁿ ≈≥ε-φΦß≤Σⁿ Γ ⌠αΘδ ∩εΣΩα≈ΩΦ. ╥σΩ≤∙σΘ ±≥αφεΓΦ≥± Σ≡≤πα ∩α∩Ωα, Φ ε≥φε±Φ≥σδⁿφ√Θ ∩≤≥ⁿ ≤µσ φσ ±≡αßε≥ασ≥. ╧ε²≥ε∞≤ µσδα≥σδⁿφε ≤Ωατ√Γα≥ⁿ Φ∞σφφε αß±εδ■≥φ√Θ ∩≤≥ⁿ Ω ⌠αΘδ≤. Application.exename ΓετΓ≡α∙ασ≥ ∩εδφ√Θ ∩≤≥ⁿ Σε Φ±∩εδφ σ∞επε ⌠αΘδα ∩≡επ≡α∞∞√, α Ωε∞αφΣα extractfilepath "Γ√Ω≤±√Γασ≥" Φτ ²≥επε ∩≤≥Φ Φ∞ ⌠αΘδα ∩≡επ≡α∞∞√, Φ ε±≥ασ≥± ≥εδⁿΩε ∩≤≥ⁿ Σε ∩α∩ΩΦ. ╩ ²≥ε∞≤ ∩≤≥Φ ∞√ ∩≡ΦßαΓδ σ∞ Φ∞ φ≤µφεπε ⌠αΘδα, Φ ∩εδ≤≈ασ∞ αß±εδ■≥φ√Θ ∩≤≥ⁿ, Ωε≥ε≡√Θ ≡αßε≥ασ≥ Γ±σπΣα.#<bq>╧σ≡σ∞σφφα maxc φα∞ φ≤µφα σ∙σ Σε ∩ε ΓδσφΦ εΩφα ≡σΩε≡ΣεΓ. ╤ φσΘ ∞√ ±≡αΓφΦΓασ∞ ΩεδΦ≈σ±≥Γε ∩ε∩√≥εΩ Φπ≡εΩα, σ±δΦ εφ ε≥παΣαδ ≈Φ±δε. ╠√ Σεδµφ√ ταπ≡≤τΦ≥ⁿ τφα≈σφΦσ ²≥εΘ ∩σ≡σ∞σφφεΘ ∩≡Φ τα∩≤±Ωσ Φπ≡√. ─εßαΓΦ∞ ±εε≥Γσ≥±≥Γ≤■∙Φσ ±≥≡εΩΦ Γ ±εß√≥Φσ OnCreate:#<bq>procedure TForm1.FormCreate(Sender: Tobject);#<bq>var#<bq>f:textfile;#<bq>nm:string;#<bq>begin#<bq>Randomize;#<bq>ChangeCaption;#<bq>assignfile(f,extractfilepath(application.exename)+'record.rcd');#<bq>reset(f);#<bq>readln(f,nm);#<bq>Form3.Label2.Caption:=nm;#<bq>readln(f,maxc);#<bq>Form3.label4.caption:=inttostr(maxc);#<bq>closefile(f);#<bq>end;#<bq>╥σ∩σ≡ⁿ ∞εµφε Γσ≡φ≤≥ⁿ± Ω Ωφε∩Ωσ OK Γ≥ε≡εΘ ⌠ε≡∞√. ╟Σσ±ⁿ ∞√ Σεδµφ√ ±ε⌡≡αφΦ≥ⁿ Γ ⌠αΘδ Σαφφ√σ φεΓεπε ≡σΩε≡Σ±∞σφα, ταΩ≡√≥ⁿ ≥σΩ≤∙≤■ ⌠ε≡∞≤ Φ Γ√Γσ±≥Φ ⌠ε≡∞≤ ≡σΩε≡ΣεΓ. ┬ε≥ ≥σΩ±≥ εß≡αßε≥≈ΦΩα ²≥εΘ Ωφε∩ΩΦ:#<bq>procedure TForm2.Button1Click(Sender: TObject);#<bq>var#<bq>f:textfile;#<bq>begin#<bq>hide;#<bq>modalresult:=1;#<bq>assignfile(f,extractfilepath(application.exename)+'record.rcd');#<bq>rewrite(f);#<bq>writeln(f,Edit1.text);#<bq>maxc:=c;#<bq>writeln(f,maxc);#<bq>closefile(f);#<bq>form1.Button2Click(nil);#<bq>end;#<bq>╤φα≈αδα ∞√ ±Ω≡√Γασ∞ ⌠ε≡∞≤ Φ ≤ßΦ≡ασ∞ σσ ∞εΣαδⁿφε±≥ⁿ. ╧ε≥ε∞ ±Γ τ√Γασ∞ ⌠αΘδεΓ≤■ ∩σ≡σ∞σφφ≤■ f ± ⌠αΘδε∞ ≡σΩε≡ΣεΓ. ╤ ∩ε∞ε∙ⁿ■ Ωε∞αφΣ√ rewrite ∞√ ε≥Ω≡√Γασ∞ ⌠αΘδ Σδ τα∩Φ±Φ, ∩≡Φ≈σ∞, σ±δΦ Γ ⌠αΘδσ ≈≥ε-≥ε Σε ²≥επε ß√δε, Γ±σ ±ε≥≡σ≥± . ╫≥εß√ φσ ±≥Φ≡α≥ⁿ ±εΣσ≡µΦ∞εσ, α ΣεßαΓδ ≥ⁿ φεΓ√σ ±≥≡εΩΦ Γ Ωεφσ÷ ⌠αΘδα, φαΣε ∩≡Φ∞σφ ≥ⁿ Ωε∞αφΣ≤ append. ┬ ∩σ≡Γ≤■ ±≥≡ε≈Ω≤ ⌠αΘδα ∞√ ∩Φ°σ∞ ≥εδⁿΩε ≈≥ε ΓΓσΣσφφεσ Φπ≡εΩε∞ Φ∞ , α τα≥σ∞ ∩≡Φ±ΓαΦΓασ∞ ∩σ≡σ∞σφφεΘ maxc φεΓ√Θ ≡σΩε≡Σ, Φ ≥≤≥ µσ ∩Φ°σ∞ σπε Γε Γ≥ε≡≤■ ±≥≡ε≈Ω≤ ⌠αΘδα. ╧ε≥ε∞ ⌠αΘδ ταΩ≡√Γασ∞ Φ... ╚ ²∞≤δΦ≡≤σ∞ φαµα≥Φσ φα Ωφε∩Ω≤ ╨σΩε≡Σ√... φα πδαΓφεΘ ⌠ε≡∞σ. ═σ ≤ΣΦΓδ Θ≥σ±ⁿ, ≥αΩα τα∩Φ±ⁿ Γ∩εδφσ Γετ∞εµφα. ┬σΣⁿ εß≡αßε≥≈ΦΩ ±εß√≥Φ ù ²≥ε ∩≡ε÷σΣ≤≡α, α τφα≈Φ≥, σσ φσ±δεµφε Γ√τΓα≥ⁿ. ╫≥ε ∞√ Φ ±ΣσδαδΦ. ╧α≡α∞σ≥≡ Sender Γ ≥σδσ εß≡αßε≥≈ΦΩα ∞√ φσ Φ±∩εδⁿτεΓαδΦ, ∩ε²≥ε∞≤ σπε ∞εµφε ταßΦ≥ⁿ ≤φΦΓσ≡±αδⁿφ√∞ εß·σΩ≥φ√∞ φ≤δσ∞ ù nil. ┼πε σ∙σ φατ√Γα■≥ ≤Ωατα≥σδσ∞ φα ∩≤±≥ε≥≤.#<bq>╤ε⌡≡αφΦ≥σ ∩≡εσΩ≥ Φ ΣΓσ ≥εδⁿΩε ≈≥ε ±ετΣαφφ√σ ⌠ε≡∞√, Φ τα∩≤±≥Φ≥σ Ωε∞∩Φδ ÷Φ■. "─σδⁿ⌠Φ" φσ±ΩεδⁿΩε ≡ατ ±∩≡ε±Φ≥ ≡ατ≡σ°σφΦ ΣεßαΓΦ≥ⁿ εΣΦφ ∞εΣ≤δⁿ Γ ≡ατΣσδ uses Σ≡≤πεπε ∞εΣ≤δ . ┬±σ Γ≡σ∞ ∩εΣ≥Γσ≡µΣαΘ≥σ. ╚π≡α τα∩≤±≥Φ≥± . ╠εµσ≥σ Φπ≡α≥ⁿ.#<bq>╩επΣα ²Θ⌠ε≡Φ ≤±∩σ⌡α ∩≡εΘΣσ≥, Γ√ τα∞σ≥Φ≥σ, ≈≥ε Ωεσ-≈≥ε ταß√δΦ. ╩φε∩Ωα ┬√⌡εΣ φσ ≡αßε≥ασ≥. ╫≥εß√ Φ±∩≡αΓΦ≥ⁿ ε∩δε°φε±≥ⁿ, Σε±≥α≥ε≈φε Γ εß≡αßε≥≈ΦΩσ OnClick ΣαφφεΘ Ωφε∩ΩΦ φα∩Φ±α≥ⁿ:##<bq>Application.Terminate;Application ù ²≥ε πδεßαδⁿφ√Θ εß·σΩ≥, Ωε≥ε≡√Θ ≤Ωατ√Γασ≥ φα Γα°≤ ∩≡επ≡α∞∞≤. ╙ φσπε σ±≥ⁿ φσ±ΩεδⁿΩε ∩εδστφ√⌡ ±ΓεΘ±≥Γ Φ ∞σ≥εΣεΓ, Ωε≥ε≡√∞Φ ∞√ ≤µσ φσ ≡ατ ∩εδⁿτεΓαδΦ±ⁿ. ═α∩≡Φ∞σ≡, ExeName Φ Terminate. ┼∙σ Application εß≡αßα≥√Γασ≥ ±εεß∙σφΦ , ε≡παφΦτ≤σ≥ ≡αßε≥≤ εΩεφ, ≡α±∩≡σΣσδ σ≥ ∩ε≥εΩΦ.##<bq><h2><h2>╧ε±δσΣφΦσ °≥≡Φ⌡Φ</h2></h2>##<bq>╫≥ε σ∙σ ∞εµφε ΣεßαΓΦ≥ⁿ Ω Φπ≡σ? ╬Ωε°Ωε About, πΣσ Γ√ πε≡Σε φα∩Φ°σ≥σ ±Γεσ Φ∞ Φ φα≡Φ±≤σ≥σ δεπε≥Φ∩. ┬ Φπ≡σ ∩≡αΩ≥Φ≈σ±ΩΦ φσ ∩≡εΓσ≡ ■≥± ΣσΘ±≥ΓΦ ∩εδⁿτεΓα≥σδ , φσ≥ "τα∙Φ≥√ ε≥ Σ≤≡αΩα". ═α∩≡Φ∞σ≡, σ±δΦ ΓΓσ±≥Φ Γ Edit1 φσ ≈Φ±δε, α ΩαΩεσ-φΦß≤Σⁿ ±δεΓε, ΓετφΦΩφσ≥ ε°ΦßΩα Φ Φπ≡α Γ√δσ≥Φ≥. ╧ε²≥ε∞≤ ΓΓεΣΦ∞√σ Φπ≡εΩε∞ ≈Φ±δα φαΣε ∩≡εΓσ≡ ≥ⁿ. ═σ≥ ≤∩≡αΓδσφΦ ∩ε±δσΣεΓα≥σδⁿφε±≥ⁿ■ ΣσΘ±≥ΓΦΘ. ┬∞σ±≥ε ≥επε, ≈≥εß√ φαµα≥ⁿ φα Ωφε∩Ω≤ ═εΓα Φπ≡α, Φπ≡εΩ ∞εµσ≥ ±≡ατ≤ µσ φαµα≥ⁿ φα Ωφε∩Ω≤ Button4. ┼±≥σ±≥Γσφφε, Φπ≡α ∩εΓσΣσ≥ ±σß φσ∩≡αΓΦδⁿφε. ╠εµσ≥ ∩εΓ≡σΣΦ≥ⁿ± ⌠αΘδ ≡σΩε≡ΣεΓ, ε∩ ≥ⁿ ΓετφΦΩφσ≥ ε°ΦßΩα. ┬±σ ²≥ε, Ωεφσ≈φε, ∞σδε≈Φ, φε Φ∞σφφε Φτ ≥αΩΦ⌡ ∞σδε≈σΘ ±ΩδαΣ√Γασ≥± ⌡ε≡ε°σσ ε≥φε°σφΦσ ∩εδⁿτεΓα≥σδσΘ Ω ∩≡επ≡α∞∞Φ±≥α∞ Φ Ωε∞∩αφΦΦ, Γ√∩≤±≥ΦΓ°σΘ Φπ≡≤.#<bq>