ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi
ΠΡΠΈ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ², Π±ΡΠ» ΡΠ΄Π΅Π»Π°Π½ Π²ΡΠ²ΠΎΠ΄, ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ Microsoft, Π½Π° Π±Π°Π·Π΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ Excel ΠΈΠ»ΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Access ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠ°ΠΊΠΎΠ΅ ΠΆΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²ΡΠΏΠΎΠ»Π½ΡΡΡΠ΅Π΅ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°ΡΡ. ΠΡΠΈ ΡΡΠΎΠΌ Π·Π°ΡΡΠ°ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ ΡΡΠΈΠ»ΠΈΠΉ Π½Π° ΠΏΡΠΎΡΠ°Π±ΠΎΡΠΊΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ. ΠΠ΄Π½Π°ΠΊΠΎ, Π±ΠΎΠ»ΡΡΠΈΠΌ ΠΌΠΈΠ½ΡΡΠΎΠΌ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΠΠΠ‘Π’ΠΠ Π‘Π’ΠΠ Π‘ΠΠΠ¬Π‘ΠΠΠΠ Π₯ΠΠΠ―ΠΠ‘Π’ΠΠ Π ΠΠ ΠΠΠΠΠΠΠ¬Π‘Π’ΠΠΠ― Π ΠΠ‘ΠΠ£ΠΠΠΠΠ ΠΠΠΠΠ Π£Π‘Π¬ Π£ΡΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ «ΠΠ΅Π»ΠΎΡΡΡΡΠΊΠΈΠΉ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΡΠΉ Π°Π³ΡΠ°ΡΠ½ΡΠΉ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ»
Π€Π°ΠΊΡΠ»ΡΡΠ΅Ρ: ΠΡΠ΅Π΄ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΠ΅Π»ΡΡΡΠ²Π° ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ
ΠΠ°ΡΠ΅Π΄ΡΠ°: ΠΠΊΠΎΠ½ΠΎΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ
ΠΡΡΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ
Π’Π΅ΠΌΠ°: «ΠΠ ΠΠΠ ΠΠΠΠ ΠΠΠΠΠΠ Π DELPHI»
ΠΡΠΏΠΎΠ»Π½ΠΈΠ» ΡΡΡΠ΄Π΅Π½Ρ II ΠΊΡΡΡΠ°
Π³ΡΡΠΏΠΏΡ 52-ΠΠΠ
ΠΠ°ΡΠ΅ΡΠ½Π°Ρ ΠΊΠ½ΠΈΠΆΠΊΠ° № 506 020
ΠΡΠ°ΡΡΠ»ΠΈΠ½ ΠΠ²Π³Π΅Π½ΠΈΠΉ ΠΠ΅ΡΡΠΎΠ²ΠΈΡ
ΠΡΠΎΠ²Π΅ΡΠΈΠ»:_______________
ΠΠΈΠ½ΡΠΊ 2007
CΠΠΠΠ ΠΠΠΠΠ
- 1. ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ 3
- 2. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ 4
- 3. ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ ΠΈ Π²ΡΠ±ΠΎΡ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ 7
- 4. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΡΡ Π΅ΠΌΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΈ Π΅Π³ΠΎ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ 9
- 5. Π€ΠΎΡΠΌΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ 21
- 6. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° 22
- 7. ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ 25
- 8. Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ² ΠΈ ΠΈΡ Π°Π½Π°Π»ΠΈΠ· 32
- ΠΡΠ²ΠΎΠ΄Ρ 35
- Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠ². 36
- ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. 37
- 1.
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
.
- Π Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ Windows-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π° Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅ Object Pascal Π² ΡΡΠ΅Π΄Π΅ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΊΠ°ΠΊ ΠΏΠ»Π°Π½ΠΈΡΡΠ΅ΡΡΡ, Π±ΡΠ΄Π΅Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ Π·Π°Π΄Π°Ρ ΠΏΠΎ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ΅ Π½Π° ΠΠΠ ΠΈ Π²ΡΠ²ΠΎΠ΄Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
- Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΡ ΡΡΠ°Π²ΠΈΡΡΡΡ Π²ΠΏΠΎΠ»Π½Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½Π°Ρ Π·Π°Π΄Π°ΡΠ°, ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π½Π°Π²ΡΠΊΠΈ ΡΠ°Π±ΠΎΡΡ Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΠΌΠΈ ΡΠΈΡΡΠ΅ΠΌΠ°ΠΌΠΈ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌΠΈ ΠΎΠ±ΠΎΠ»ΠΎΡΠΊΠ°ΠΌΠΈ, ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠ»ΡΠΆΠ΅Π±Π½ΡΠΌΠΈ ΠΈ ΡΠ΅ΡΠ²ΠΈΡΠ½ΡΠΌΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ. Π ΡΠ°ΠΊΠΆΠ΅ Π½Π°Π²ΡΠΊΠΈ ΠΏΠΎ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΠ·Π°ΡΠΈΠΈ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π² ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅Π΄Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi Π·Π°Π΄Π°Ρ ΠΏΠΎ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ΅ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π½Π° ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠΈ.
- 2. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ.
- Π Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΡΠΎΠ·Π΄Π°ΡΡ Windows-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π° Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅ Object Pascal Π² ΡΡΠ΅Π΄Π΅ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΡ Π½Π° ΠΠΠ ΠΈ Π²ΡΠ²ΠΎΠ΄ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅ΡΡ Ρ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ°ΠΉΠ»Π°Ρ , ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅ 10 Π·Π°ΠΏΠΈΡΠ΅ΠΉ. ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΠΉ ΠΎ Π²ΡΡΡΡΠΊΠ΅ ΠΎΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π·Π° ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠ΅ΡΠΈΠΎΠ΄, Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΏΠΎ ΡΠ°ΡΡΠ΅ΡΡ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΈ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π²ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ. Π’Π°ΠΊΠΆΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΡΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π² Π°Π»ΡΠ°Π²ΠΈΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΠΏΠΎ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ ΠΈ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°ΡΡ Π²ΡΠ²ΠΎΠ΄ Π² MEMO-ΠΏΠΎΠ»Π΅ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΠΈΠΌΠ΅ΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅ΠΉ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ.
- Π‘ΡΠ΅ΠΏΠ΅Π½Ρ ΡΠ°ΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΡΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΡΠ΅Π½ΠΈΠ²Π°Π΅ΡΡΡ ΠΊΠ°ΠΊ Π½ΠΈΠ·ΠΊΠ°Ρ. ΠΡΡ ΠΎΠ΄Ρ ΠΈΠ· Π½Π°ΡΠ°Π»ΡΠ½ΡΡ ΡΡΠ»ΠΎΠ²ΠΈΠΉ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΡΠΈΠ²ΠΈΠ°Π»ΡΠ½ΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ:
- — Ρ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΌΠ°Π»ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° Π΄Π°Π½Π½ΡΡ
- — ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ
- — ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Ρ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
- ΠΡΠΈ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ², Π±ΡΠ» ΡΠ΄Π΅Π»Π°Π½ Π²ΡΠ²ΠΎΠ΄, ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ Microsoft, Π½Π° Π±Π°Π·Π΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡ Excel ΠΈΠ»ΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Access ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠ°ΠΊΠΎΠ΅ ΠΆΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π²ΡΠΏΠΎΠ»Π½ΡΡΡΠ΅Π΅ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°ΡΡ. ΠΡΠΈ ΡΡΠΎΠΌ Π·Π°ΡΡΠ°ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ ΡΡΠΈΠ»ΠΈΠΉ Π½Π° ΠΏΡΠΎΡΠ°Π±ΠΎΡΠΊΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ. ΠΠ΄Π½Π°ΠΊΠΎ, Π±ΠΎΠ»ΡΡΠΈΠΌ ΠΌΠΈΠ½ΡΡΠΎΠΌ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π±ΡΠ΄Π΅Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎΠΉ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠΈ Microsoft Office, Π»ΠΈΡΠ΅Π½Π·ΠΈΠΎΠ½Π½ΡΠ΅ Π²Π΅ΡΡΠΈΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π½Π΅ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈ ΡΠΈΡΠΎΠΊΠΎΠ³ΠΎ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½ΠΈΡ Π½Π° ΡΠ΅ΡΡΠΈΡΠΎΡΠΈΠΈ Π Π΅ΡΠΏΡΠ±Π»ΠΈΠΊΠΈ ΠΠ΅Π»Π°ΡΡΡΡ.
- ΠΠΎΡΡΠΎΠΌΡ ΠΏΡΠΈΠ½ΡΡΠΎ ΡΡΠΈΡΠ°ΡΡ, ΡΡΠΎ ΡΠΆΠ΅ ΠΈΡΡ ΠΎΠ΄Ρ ΠΈΠ· ΡΡΠΎΠ³ΠΎ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠ΅ WindowsΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ «Π±Π΅ΡΠΏΠΎΠ»Π΅Π·Π½ΡΠΌ», ΠΏΠΎΡΠΎΠΌΡ ΠΊΠ°ΠΊ ΠΈΠΌΠ΅Π΅Ρ ΠΎΠ΄Π½Ρ ΡΠ΅ΡΠΊΠΎ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π²ΡΡΡΡΡ ΡΠ΅Π»Ρ ΠΈ ΠΌΠ΅ΡΡΠΎ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ. ΠΠ΅ΡΠΎΡΡΠ½ΠΎΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠ° — ΡΠΈΠ½Π°Π½ΡΠΎΠ²ΡΠ΅ ΡΠ΅ΡΠΌΠΈΠ½Π°Π»Ρ Π½Π° Π±Π°Π·Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΡΠ΅ΠΌΠ΅ΠΉΡΡΠ²Π° Windows Π»ΡΠ±ΠΎΠ³ΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ. ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ, Ρ ΡΡΠΏΠ΅Ρ ΠΎΠΌ Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π² ΠΠ‘-Π°Ρ Windows'95, 98, 2000, Π₯Π Π½Π΅ ΡΡΠ΅Π±ΡΡ ΠΏΡΠΈ ΡΡΠΎΠΌ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΈΠ½ΡΡΠ°Π»Π»ΡΡΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ.
- ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π±ΡΠ΄Π΅Ρ ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΡΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°ΡΡ, ΠΈ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΎΠ½ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π°ΠΏΠΏΠ°ΡΠ°ΡΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΊΠ°ΠΊ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ:
- 1) ΠΠ΄ΠΈΠ½ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π΄Π»Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΠ΅,
- 2) MEMO-ΠΏΠΎΠ»Π΅ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ , ΡΠΊΠ°Π·Π°Π½Π½ΡΡ Π² Π·Π°Π΄Π°Π½ΠΈΠΈ
- 3) ΠΠ°Π±ΠΎΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ / ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ / ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
- 4) ΠΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΠ΅ ΠΎΠΊΠ½Π°, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠ΅ Π²ΡΠ±ΠΎΡ ΡΠ°ΠΉΠ»ΠΎΠ² Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ / ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌΠΈ ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌΠΈ Π΄Π»Ρ ΠΈΡ Π²ΡΠ·ΠΎΠ²Π°.
- Π’Π°ΠΊΠΆΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠ΅ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π°ΠΏΠΏΠ°ΡΠ°Ρ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ ΡΠΎΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
- Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΈΡΡΠ²Π°Ρ Π²ΡΡΠ΅ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅, ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΎΠΌ Π±ΡΠ»ΠΈ ΠΏΡΠΈΠ½ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ, ΠΊΠ°ΡΠ°ΡΡΠΈΠ΅ΡΡ Π±ΡΠ΄ΡΡΠ΅ΠΉ ΡΡΡΡΠΊΡΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ:
- 1) Π΄Π»Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ Π²ΡΠ±ΡΠ°ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ StringGrid, ΠΊΠΎΡΠΎΡΡΠΉ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π²Π²ΠΎΠ΄, ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅, ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΠΈ ΠΏΡΠΎΡΠΌΠΎΡΡ Π΄Π°Π½Π½ΡΡ . Π¨Π°ΠΏΠΊΠ° ΡΠ°Π±Π»ΠΈΡΡ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠ²ΡΠΎΡΡΡΡ ΡΠ°Π±Π»ΠΈΡΡ, ΡΠΊΠ°Π·Π°Π½Π½ΡΡ Π² Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΌ ΡΡΠ»ΠΎΠ²ΠΈΠΈ. ΠΡΠ΅Π΄ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠ΅ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π΄Π°Π½Π½ΡΡ — 100 Π·Π°ΠΏΠΈΡΠ΅ΠΉ, ΡΡΠΎ ΡΠ°ΠΊΠΆΠ΅ ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΠ΅Ρ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΌΡ ΡΡΠ»ΠΎΠ²ΠΈΡ
- 2) MEMO-ΠΏΠΎΠ»Π΅ ΠΏΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΠΎΠ΅ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ , ΡΠΊΠ°Π·Π°Π½Π½ΡΡ Π² ΡΡΠ»ΠΎΠ²ΠΈΠΈ, Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ.
- 3) Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ / ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ / ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ 5 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² edit (Π΄Π»Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΡΡΠΎΠ»Π±ΡΠΎΠ²), ΠΈ 2 button-Π° (Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ). Π’Π°ΠΊ ΠΊΠ°ΠΊ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² StringGrid ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ°, ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅ΡΡ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π²ΠΎΠ΄Π° ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ Π΄Π°Π½Π½ΡΡ Π² ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»Ρ Ρ Π²ΡΠ²ΠΎΠ΄ΠΎΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π½Π΅ΡΠ΅Π½ΠΈΡ «ΠΏΡΡΡΠΎΠ³ΠΎ» ΠΏΠΎΠ»Ρ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π²ΡΠ΅ ΠΏΠΎΠ»Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ°ΡΡΠ΅ΡΠ° ΠΏΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌ Π·Π°Π΄Π°ΡΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Ρ.
- 4) ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΈ OpenDialog ΠΈ SaveDialog Π΄Π»Ρ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π²ΡΠ±ΠΎΡΠ° ΠΈΠΌΠ΅Π½ΠΈ ΠΈ ΠΏΡΡΠΈ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ Π»ΠΈΠ±ΠΎ Π΄Π»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΠ»Ρ Π²ΡΠ·ΠΎΠ²Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ² ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ 2 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° button Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌΠΈ Π½Π°Π·Π²Π°Π½ΠΈΡΠΌΠΈ
- 5) Π΄Π»Ρ «ΠΎΠ±Π½ΡΠ»Π΅Π½ΠΈΡ» Π΄Π°Π½Π½ΡΡ , Ρ. Π΅. ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ Π±Π°Π·Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ button Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΡΡ «ΡΠΎΠ·Π΄Π°ΡΡ Π±Π°Π·Ρ».
- 6) Π΄Π»Ρ Π΄ΡΠ±Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ menu Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌΠΈ ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ ΠΈ ΠΏΠΎΠ΄ΠΏΠΈΡΡΠΌΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ.
- 7) ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π°ΠΏΠΏΠ°ΡΠ°Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΡΠΎΡΡΠΎΡΡΠ΅ΠΉ ΠΈΠ· Π΄Π²ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ, ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΡΡΠΈΡ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΌΡ ΡΡΠ»ΠΎΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²Π»ΡΡΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΠΉ ΡΠ°ΡΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. Π Π°ΡΡΠ΅Ρ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΡΡ Π² Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅, Π±Π΅Π· ΡΡΠ°ΡΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
- 8) Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠΎΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π² Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅. Π§ΡΠΎ ΠΈΡΠΊΠ»ΡΡΠΈΡ Π»ΠΈΡΠ½ΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠΎ ΠΏΠ΅ΡΠΈΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠΌΡ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ°». ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΡΠΌ, ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
- 3. ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ ΠΈ Π²ΡΠ±ΠΎΡ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ
- Π ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΏΡΠΎΡΡΠ΅ΠΉΡΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ. ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π°ΠΏΠΏΠ°ΡΠ°Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π² Π²ΠΈΠ΄Π΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π΄Π²ΡΡ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΡ ΠΏΠΎ Π·Π°ΡΠ°Π½Π΅Π΅ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΡΠΎΡΠΌΡΠ»Π°ΠΌ.
- 1) ΠΈΠ· Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ Π½Π° ΠΊΠ°ΠΆΠ΄ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΎΠ± ΠΎΡΡΠ°ΡΠΊΠ΅ Π½Π° Π½Π°ΡΠ°Π»ΠΎ Π³ΠΎΠ΄Π°, ΠΎΠ± ΠΎΡΡΠ°ΡΠΊΠ΅ Π½Π° ΠΊΠΎΠ½Π΅Ρ Π³ΠΎΠ΄Π°, ΠΎ ΠΏΠ»Π°Π½Π΅ Π²ΡΠΏΡΡΠΊΠ°, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ.
- 2) Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅, ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ Π² Π·Π°Π΄Π°Π½ΠΈΠΈ.
- 3) Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π²ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅, ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠΉ Π² Π·Π°Π΄Π°Π½ΠΈΠΈ.
- ΠΠΎΠΈΡΠΊ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΠΎΠ±Π»Π°Π΄Π°ΡΡΠ΅ΠΉ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΡΡ ΡΡΠΎΠΈΠΌΠΎΡΡΡ Π²ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΏΡΡΠΌΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , ΡΡΠ°Π²Π½ΠΈΠ²Π°Ρ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Ρ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΠΌ. ΠΡΠΈ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½ΠΈΠΈ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π±ΠΎΠ»ΡΡΠΈΠΌ, ΡΠ΅ΠΌ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΠΉ, Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² ΠΎΠ΄Π½Ρ Π±ΡΡΠ΅ΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ, Π° ΠΈΠ½Π΄Π΅ΠΊΡ ΡΡΡΠΎΠΊΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π²ΠΎ Π²ΡΠΎΡΡΡ. ΠΡΠΈ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ ΠΏΠ΅ΡΠ΅Π±ΠΎΡΠ° Π² ΠΏΠΎΠ»Π΅ MEMO Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ ΠΈΠ· Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ Π·Π°ΠΏΠΈΡΠ°Π½Π½ΠΎΠΌΡ ΡΠ°Π½Π΅Π΅ ΠΈΠ½Π΄Π΅ΠΊΡΡ, Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΈΠ· Π±ΡΡΠ΅ΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
- ΠΠ»Π΅ΠΌΠ΅Π½Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ Π²ΡΡΡΠΎΠ΅Π½ Π² ΡΠΈΡΡΠ΅ΠΌΡ Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΡΠ΅ΡΠ΅Π· ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ StringGrid. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² Π½Π°Π±ΠΎΡΠ° Π΄Π°Π½Π½ΡΡ . ΠΡΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΠ΅ΡΠ΅Π½ΠΎΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ· StringGrid-Π° Π² ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΠΈ Π·Π°ΡΠ΅ΠΌ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΡΡΠΌΠΎΠΉ ΠΏΠ΅ΡΠ΅Π±ΠΎΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Ρ ΠΏΠΎΠΈΡΠΊΠΎΠΌ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π±ΠΎΠ»ΡΡΠ΅Π³ΠΎ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠΌΡΡΠ»Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΡΠ½ΠΊΡΠΈΠΈ CompareText. ΠΡΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠΈ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ Π±ΠΎΠ»ΡΡΠ΅Π³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌΠ°Ρ Π·Π°ΠΏΠΈΡΡ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΡΡΡΠΎΠΊ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°, Π° Π·Π°ΡΠ΅ΠΌ Π²ΡΠ΅ «Π½Π΅ ΠΏΡΡΡΡΠ΅» Π·Π°ΠΏΠΈΡΠΈ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΠ΅ΡΠ΅Π½ΠΎΡΡΡΡΡ Π² ΡΠΆΠ΅ ΠΎΡΠΈΡΠ΅Π½Π½ΡΠΉ StringGrid. ΠΠ°ΡΠ΅ΠΌ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΠΎΡΠΈΡΠ°Π΅ΡΡΡ.
- Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΠΈΡΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ ΡΡΠ°ΡΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ Π΄Π°Π½Π½ΡΡ . Π₯ΠΎΠ΄ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΏΠ΅ΡΠ΅ΡΡΡΠΎΠ΅Π½ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΊΠ°ΠΊ Π±Ρ Π²ΠΌΠΎΠ½ΡΠΈΡΠΎΠ²Π°Π½ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΠΏΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ . Π’ΠΎ Π΅ΡΡΡ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠΉ ΡΠ΅Π»ΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΡΠ²Π»ΡΠ»Π°ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠ½ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΏΠΎ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π΄Π°Π½Π½ΡΡ . ΠΠ΄Π½Π°ΠΊΠΎ, Π΄Π°Π½Π½ΡΠΉ ΠΌΠ΅ΡΠΎΠ΄ (ΡΠΎΠ²Π½ΠΎ ΠΊΠ°ΠΊ ΠΈ ΠΌΠ΅ΡΠΎΠ΄ «ΠΏΡΠ·ΡΡΡΠΊΠ°») ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΠΌΠ°Π»ΡΡ ΠΎΠ±ΡΠ΅ΠΌΠΎΠ² Π±Π°Π· Π΄Π°Π½Π½ΡΡ , ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅Ρ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ΅ΡΡΡΡΡ. ΠΠΎΡΡΠΎΠΌΡ Π½Π°Π±ΠΎΡ Π΄Π°Π½Π½ΡΡ Π½Π°ΠΌΠ΅ΡΠ΅Π½Π½ΠΎ Π±ΡΠ» ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ 100 Π·Π°ΠΏΠΈΡΡΠΌΠΈ, ΡΡΠΎ Π² ΠΏΠΎΠ»Π½ΠΎΠΉ ΠΌΠ΅ΡΠ΅ ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΠ΅Ρ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΌΡ ΡΡΠ»ΠΎΠ²ΠΈΡ (ΠΎΠΏΠ΅ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Ρ Π±ΠΎΠ»Π΅Π΅ ΡΠ΅ΠΌ Π΄Π΅ΡΡΡΡΡ Π·Π°ΠΏΠΈΡΡΠΌΠΈ).
- ΠΠ°Π»ΡΠ½Π΅ΠΉΡΠΈΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠΌ ΡΠ°Π·Π²ΠΈΡΠΈΠ΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ² Π±Π°Π· Π΄Π°Π½Π½ΡΡ ΡΠΎ Π²ΡΡΡΠΎΠ΅Π½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ ΠΈΠ½Π΄Π΅ΠΊΡΠ°ΡΠΈΠΈ ΠΈ ΠΏΠΎΠΈΡΠΊΠ°, ΡΠΎ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ. Π’Π°ΠΊΠΆΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ² Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ Microsoft Office Excel ΠΈΠ»ΠΈ Access. Π’Π°ΠΊΠΆΠ΅, ΠΏΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄ΠΎ ΠΊΠ»ΠΈΠ΅Π½Ρ/ΡΠ΅ΡΠ²Π΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π±ΡΠ΄Π΅Ρ ΠΈΠΌΠ΅ΡΡ ΠΎΠ±ΡΡΡ ΡΠΈΡΡΠ΅ΠΌΡ Π·Π°ΡΠΈΡΠ΅Π½Π½ΡΡ Π±Π°Π· Π΄Π°Π½Π½ΡΡ , ΡΠ΄ΠΎΠ±Π½ΠΎΠ΅ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠ»Π½ΠΎΠΌΠΎΡΠΈΠΉ ΠΏΠΎ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ/ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ/ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ.
- 4. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°, ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΈ Π΅Π³ΠΎ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅.
- ΠΠ° ΠΎΡΠ½ΠΎΠ²Π΅ Π²ΡΡΠ΅ΠΈΠ·Π»ΠΎΠΆΠ΅Π½Π½ΠΎΠΉ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²ΠΊΠΈ Π·Π°Π΄Π°ΡΠΈ, ΡΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
- 1. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ΡΠΎΡΠΌΡ: FormShow.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 1:
ΠΠ»ΠΎΠΊ 2 — Π·Π°Π΄Π°Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π½ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌ ΡΡΠΎΠ»Π±ΡΠ°ΠΌ Π² StringGrid.
ΠΠ»ΠΎΠΊ 3 — Π²ΡΠ²ΠΎΠ΄ Π² ΠΏΠΎΠ»Π΅ memo ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΎ Π·Π°ΠΏΡΡΠΊΠ΅.
2. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΈΡΡΠΊΠΈ StringGrid: CleanSG.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 2:
ΠΠ»ΠΎΠΊ 2 — ΡΠΈΠΊΠ» ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎ ΡΡΡΠΎΠΊΠ°ΠΌ StringGrid.
ΠΠ»ΠΎΠΊ 3 — ΠΎΡΠΈΡΡΠΊΠ° ΡΡΡΠΎΠΊΠΈ StringGrid.
3. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΈΡΡΠΊΠΈ edit-ΠΎΠ²: clearedit.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 3:
ΠΠ»ΠΎΠΊΠΈ 2-6 — ΠΎΡΠΈΡΡΠΊΠ° edit-ΠΎΠ².
4. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ Π±Π°Π·Ρ: button4click.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 4:
ΠΠ»ΠΎΠΊ 2 — Π·Π°ΠΏΡΠΎΡ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π½Π΅ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΡ Π΄Π°Π½Π½ΡΡ .
ΠΠ»ΠΎΠΊ 3 — Π²ΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ.
ΠΠ»ΠΎΠΊ 4 — Π²ΡΠ²ΠΎΠ΄ Π² ΠΏΠΎΠ»Π΅ memo ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π±Π°Π·Ρ.
5. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ: button1click.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 5:
ΠΠ»ΠΎΠΊ 2 — ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° edit-ΠΎΠ² Π½Π° Π½Π΅ ΠΏΡΡΡΡΠ΅ ΡΡΡΠΎΠΊΠΈ.
ΠΠ»ΠΎΠΊ 3 — ΠΏΠΎΠΏΡΡΠΊΠ° ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΡΡΡΠΎΠΊΠ΅ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅.
ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΏΠΎΠ»Π΅ΠΉ 2…5 Π±ΡΡΡ ΡΠΈΡΠ»ΠΎΠΌ.
ΠΠ»ΠΎΠΊ 4 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 5,6 — ΡΠΈΠΊΠ» ΠΎΡΠΈΡΡΠΊΠΈ ΡΠΈΠΏΠΎΠ²ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΠ»ΠΎΠΊ 7 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 8,9,10 — ΡΠΈΠΊΠ» ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π° ΡΡΡΠΎΠΊΠΈ StringGrid Π² ΠΌΠ°ΡΡΠΈΠ² Π·Π°ΠΏΠΈΡΠ΅ΠΉ.
ΠΠ»ΠΎΠΊ 11 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 12,13,14 — ΡΠΈΠΊΠ» Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π±ΠΎΠ»ΡΡΠΈΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
ΠΠ»ΠΎΠΊ 13 — Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ .
ΠΠ»ΠΎΠΊΠΈ 15,16 — ΠΌΠ΅ΠΆΠ΄ΡΡΡΡΠΎΡΠ½ΠΎΠ΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ Π² ΠΌΠ°ΡΡΠΈΠ².
ΠΠ»ΠΎΠΊ 17 — Π²ΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ.
ΠΠ»ΠΎΠΊ 18 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 19,20,21,22,23 — ΡΠΈΠΊΠ» ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π° ΠΌΠ°ΡΡΠΈΠ²Π° Π² StrinΠΏGrid.
ΠΠ»ΠΎΠΊ 24 — Π²ΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΡΠΈΡΡΠΊΠΈ edit-ΠΎΠ².
ΠΠ»ΠΎΠΊ 25 — Π²ΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π°Π²ΡΠΎΡΠ°ΡΡΠ΅ΡΠ°.
ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ Π²ΡΠ΅Ρ ΠΏΠΎΠ»Π΅ΠΉ ΠΊ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎΠΌΡ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ.
6. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ°ΡΡΠ΅ΡΠ°: autorachet.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 6:
ΠΠ»ΠΎΠΊ 2 — ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊ 3 — ΡΡΠ»ΠΎΠ²ΠΈΠ΅ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ°ΡΡΠ΅ΡΠ° (ΠΏΡΠΈ Π½Π΅ ΠΏΡΡΡΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ — Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ).
ΠΠ»ΠΎΠΊ 4 — Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ².
ΠΠ»ΠΎΠΊΠΈ 5,6,7 — ΠΏΠΎΠΈΡΠΊ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°.
ΠΠ»ΠΎΠΊ 8 — Π²ΡΠ²ΠΎΠ΄ Π² ΠΏΠΎΠ»Π΅ memo Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΠ°ΡΡΠΈ Ρ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠΈΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ.
7. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π±Π°Π·Ρ: button6click.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 7:
ΠΠ»ΠΎΠΊΠΈ 2,3 — ΠΎΡΠΊΡΡΡΠΈΠ΅ Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ Π΄Π°Π½Π½ΡΡ .
ΠΠ»ΠΎΠΊ 4 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 5,6 — ΠΏΠΎΠ²ΡΠΎΡΠ½ΡΠΉ ΡΠΈΠΊΠ» ΠΎΡΠΈΡΡΠΊΠΈ ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΠ»ΠΎΠΊ 7 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 8,9,10 — ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠ΅ ΡΠΈΠΊΠ»Π° ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π° ΡΡΡΠΎΠΊΠΈ StringGrid Π² ΠΌΠ°ΡΡΠΈΠ² Π·Π°ΠΏΠΈΡΠ΅ΠΉ.
ΠΠ»ΠΎΠΊΠΈ 11,12 — Π·Π°ΠΏΠΈΡΡ Π² ΡΠ°ΠΉΠ».
ΠΠ»ΠΎΠΊ 13 — Π·Π°ΠΊΡΡΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π°.
ΠΠ»ΠΎΠΊ 14 — Π²ΡΠ²ΠΎΠ΄ Π² ΠΏΠΎΠ»Π΅ memo ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ.
8. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΊΡΡΡΠΈΡ Π±Π°Π·Ρ: button5click.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 8:
ΠΠ»ΠΎΠΊΠΈ 2,3 — ΠΎΡΠΊΡΡΡΠΈΠ΅ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ .
ΠΠ»ΠΎΠΊ 4 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 5,6 — ΠΏΠΎΠ²ΡΠΎΡΠ½ΡΠΉ ΡΠΈΠΊΠ» ΠΎΡΠΈΡΡΠΊΠΈ ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΠ»ΠΎΠΊΠΈ 7, 8, 9 — ΡΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π² ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ².
ΠΠ»ΠΎΠΊ 10 — Π²ΡΠ·ΠΎΠ² ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ ΠΎΡΠΈΡΡΠΊΠΈ StringGrid.
ΠΠ»ΠΎΠΊ 11 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 12,13,14, 15,16 — ΠΏΠΎΠ²ΡΠΎΡ ΡΠΈΠΊΠ»Π° ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π° ΠΌΠ°ΡΡΠΈΠ²Π° Π² StringGrid.
ΠΠ»ΠΎΠΊ 17 — Π²ΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ°ΡΡΠ΅ΡΠ°.
ΠΠ»ΠΎΠΊ 18 — Π²ΡΠ²ΠΎΠ΄ Π² ΠΏΠΎΠ»Π΅ memo ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ.
9. ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π±Π°Π·Ρ: button3click.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 9:
ΠΠ»ΠΎΠΊ 2 — ΠΎΡΠΈΡΡΠΊΠ° Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ.
ΠΠ»ΠΎΠΊ 3 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 4,5 — ΠΏΠΎΠ²ΡΠΎΡΠ½ΡΠΉ ΡΠΈΠΊΠ» ΠΎΡΠΈΡΡΠΊΠΈ ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΠ»ΠΎΠΊ 6 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 7,8,9 — ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠ΅ ΡΠΈΠΊΠ»Π° ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π° ΡΡΡΠΎΠΊΠΈ StrinGrid Π² ΠΌΠ°ΡΡΠΈΠ² Π·Π°ΠΏΠΈΡΠ΅ΠΉ.
ΠΠ»ΠΎΠΊ 10 — Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΡΠΈΠΊΠ»Π°.
ΠΠ»ΠΎΠΊΠΈ 11,12,13, 14,15 — ΠΏΠΎΠ²ΡΠΎΡ ΡΠΈΠΊΠ»Π° ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π° ΠΌΠ°ΡΡΠΈΠ²Π° Π² StrinGrid.
ΠΠ»ΠΎΠΊ 16 — ΡΠ°ΡΡΠ΅Ρ.
10. ΠΊΠ»ΠΈΠΊ StringGrid-Π°.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 10:
ΠΠ»ΠΎΠΊ 2 — ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ Π²ΡΠ±ΠΎΡΠ°.
11. Π²ΡΠ·ΠΎΠ² ΠΏΠ΅ΡΠ°ΡΠΈ.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 11:
ΠΠ»ΠΎΠΊ 2 — Π²ΡΠ·ΠΎΠ² ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°.
12. Π²ΡΡ ΠΎΠ΄.
ΠΠΎΡΡΠ½Π΅Π½ΠΈΡ ΠΊ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ 12:
ΠΠ»ΠΎΠΊ 2 — Π²ΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
5. Π€ΠΎΡΠΌΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ
ΠΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅ΡΡ Ρ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ°ΠΉΠ»Π°Ρ . ΠΠ»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠ³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ°, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ — ΡΡΡΠΎΠΊΡ Π½Π°Π±ΠΎΡΠ° Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , ΡΠΎΠ»Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ Π² Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ «zap», ΠΈΠΌΠ΅ΡΡΠ°Ρ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΡΡΡΠΊΡΡΡΡ.
type zap=record
prod:string[80];
onng:longint;
plan:longint;
onkg:longint;
svocep:extended;
end;
Π’.Π΅. Π΄Π°Π½Π½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΠ³ΠΎ Π½Π°ΠΌ ΡΠΈΠΏΠ°. ΠΠ»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΎΠΏΠΈΡΠ΅ΠΌ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ² «Mzap»:
var
Mzap:array[1.200] of zap; //ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠΈΠΏΠ° ΠΌΠ°ΡΡΠΈΠ²Π° Π·Π°ΠΏΠΈΡΠ΅ΠΉ
Π’ΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ°ΠΉΠ» ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ Π½Π°Π±ΠΎΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΡΡΡΡΠΊΡΡΡΠ° ΠΈ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΎΠΏΠΈΡΠ°Π½Ρ Π² Π²ΡΡΠ΅Π½Π°Π·Π²Π°Π½Π½ΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ :
filezap: file of zap;
filenamezap:string;
6. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°
ΠΡΠΈΠ½ΠΈΠΌΠ°Ρ Π²ΠΎ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ ΡΠ°Π½Π΅Π΅ Π·Π°Π΄Π°ΡΡ, ΡΠΎΠ·Π΄Π°Π΅ΠΌ Π½Π° ΡΠΎΡΠΌΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ:
— StringGrid — Π΄Π»Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΠ΅. Π¨Π°ΠΏΠΊΠ° ΡΠ°Π±Π»ΠΈΡΡ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠ²ΡΠΎΡΡΡΡ ΡΠ°Π±Π»ΠΈΡΡ, ΡΠΊΠ°Π·Π°Π½Π½ΡΡ Π² Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΌ ΡΡΠ»ΠΎΠ²ΠΈΠΈ, ΠΈ Π·Π°ΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠΎΡΠΌΡ. ΠΡΠ΅Π΄ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠ΅ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΡΠΎΠΊ — 100, ΡΡΠΎΠ»Π±ΡΠΎΠ² — 7. Π¨ΠΈΡΠΈΠ½Ρ ΡΡΠΎΠ»Π±ΡΠΎΠ² Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ Π΄Π°Π½Π½ΡΡ .
— MEMO-ΠΏΠΎΠ»Π΅ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ , ΡΠΊΠ°Π·Π°Π½Π½ΡΡ Π² ΡΡΠ»ΠΎΠ²ΠΈΠΈ.
— 5 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² edit Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ / ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ / ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ (ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΈΠΌΠ΅ΡΡ ΡΠΈΡΠΈΠ½Ρ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ ΡΠΈΡΠΈΠ½Π°ΠΌ ΡΡΠΎΠ±ΡΠΎΠ², ΠΈ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ Π½Π°ΠΏΡΠΎΡΠΈΠ² ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° ΡΠ½ΠΈΠ·Ρ) (ΡΠΌ. ΡΠΈΡ. 1).
Π ΠΈΡ. 1. ΠΠ±ΡΠΈΠΉ Π²ΠΈΠ΄ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
2 button-Π° Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ, Π½Π°Π·Π²Π°Π½Π½ΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ. Π’Π°ΠΊ ΠΊΠ°ΠΊ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² StringGrid ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ°, ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅Π½ΠΎ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π²ΠΎΠ΄Π° ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ Π΄Π°Π½Π½ΡΡ Π² ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΏΠΎΠ»Ρ Ρ Π²ΡΠ²ΠΎΠ΄ΠΎΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π½Π΅ΡΠ΅Π½ΠΈΡ «ΠΏΡΡΡΠΎΠ³ΠΎ» ΠΏΠΎΠ»Ρ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π²ΡΠ΅ ΠΏΠΎΠ»Ρ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ°ΡΡΠ΅ΡΠ° ΠΏΠΎ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌ Π·Π°Π΄Π°ΡΠΈ, Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΌΠΈ Π΄Π»Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ. ΠΡΠΈ ΡΠΎΠ±ΡΡΠΈΡ ΡΠ΅Π³ΠΈΡΡΡΠΈΡΡΡΡΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠΌΠΈ ΠΏΡΠ΅Π΄Π²Π°ΡΡΠ΅Π»ΡΠ½ΡΠΌΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡΠΌΠΈ ΠΈ ΠΏΡΠΈ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½ΠΈΡ Π½Π΅ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΠ΅Π΅ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ (ΡΠΌ. ΡΠΈΡ. 2 ΠΈ ΡΠΈΡ.3).
Π ΠΈΡ. 2. ΠΡΠΈΠ±ΠΊΠ° ΠΏΡΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ ΠΏΡΡΡΠΎΠ³ΠΎ (ΠΏΡΡΡΡΡ ) ΠΏΠΎΠ»Π΅ΠΉ.
Π ΠΈΡ. 3. ΠΡΠΈΠ±ΠΊΠ° ΠΏΡΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ Π½Π΅ ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
— ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΈ OpenDialog ΠΈ SaveDialog Π΄Π»Ρ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π²ΡΠ±ΠΎΡΠ° ΠΈΠΌΠ΅Π½ΠΈ ΠΈ ΠΏΡΡΠΈ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ Π»ΠΈΠ±ΠΎ Π΄Π»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ (Π‘ΠΌ. ΡΠΈΡ.4).
Π ΠΈΡ. 4. Π‘ΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ .
ΠΠ»Ρ Π²ΡΠ·ΠΎΠ²Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ² ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ 2 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° button Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌΠΈ Π½Π°Π·Π²Π°Π½ΠΈΡΠΌΠΈ. Π Π΄Π»Ρ «ΠΎΠ±Π½ΡΠ»Π΅Π½ΠΈΡ» Π΄Π°Π½Π½ΡΡ , Ρ. Π΅. ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠΉ Π±Π°Π·Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ button Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΡΡ «ΡΠΎΠ·Π΄Π°ΡΡ Π±Π°Π·Ρ».
ΠΠ»Ρ Π΄ΡΠ±Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ menu Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌΠΈ ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ ΠΈ ΠΏΠΎΠ΄ΠΏΠΈΡΡΠΌΠΈ ΠΊΠ½ΠΎΠΏΠΎΠΊ.
Π Π°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΈ Π΄ΡΡΠ³ΠΈΡ ΠΏΠΎΠ»Π΅ΠΉ Π²ΡΠ±ΡΠ°Π½ΠΎ Π΄Π»Ρ Π³Π°ΡΠ°Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ.
7. ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
unit EconomInfo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, Menus, StdCtrls, shellapi;
type
TForm1 = class (TForm)
sg1: TStringGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N8: TMenuItem;
procedure FormShow (Sender: TObject);
procedure cleansg (Sender: TObject);
procedure cleanedit (Sender:TObject);
procedure Button4Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure autorachet (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure sg1Click (Sender: TObject);
procedure N8Click (Sender: TObject);
procedure N5Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type zap=record // ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠΈΠΏΠ° Π·Π°ΠΏΠΈΡΠΈ
prod:string[80];
onng:longint;
plan:longint;
onkg:longint;
svocep:extended;
end;
var
Mzap:array[1.200] of zap; //ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠΈΠΏΠ° ΠΌΠ°ΡΡΠΈΠ²Π° Π·Π°ΠΏΠΈΡΠ΅ΠΉ
filezap: file of zap;
filenamezap:string;
//ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ΡΠΎΡΠΌΡ
procedure TForm1. FormShow (Sender: TObject);
begin
with sg1 do begin
Cells[0,0]: ='ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ';
Cells[1,0]: ='ΠΠ½ΠΠ';
Cells[2,0]:='ΠΠ';
Cells[3,0]:='ΠΠ½ΠΠ';
Cells[4,0]:='ΠΠ , ΡΡ';
Cells[5,0]: ='Π‘Π²ΠΠ¦ΠΠ, ΡΡΠ±';
Cells[6,0]: ='Π‘Π²ΠΠ¦ΠΠΠ , Ρ. ΡΡΠ±';
end;
memo1.Lines.Insert (0,DateTimeToStr (Now)+' - ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°ΠΏΡΡΠ΅Π½Π°!');
end;
//ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΈΡΡΠΊΠΈ ΡΡΡΠΈΠ½Π³Π³ΡΠΈΠ΄Π°
procedure Tform1. cleansg (Sender: TObject);
var n2: integer;
begin
with sg1 do begin
for n2:=1 to RowCount do begin
Rows[n2]. Clear;
end;
end;
end;
//ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΈΡΡΠΊΠΈ ΡΠ΄ΠΈΡΠΎΠ²
procedure Tform1. cleanedit (Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
end;
//Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ Π±Π°Π·Ρ
procedure TForm1. Button4Click (Sender: TObject);
begin
if messagedlg ('ΠΡΠ΅ Π½Π΅ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π±Π°Π·Ρ Π±ΡΠ΄ΡΡ ΡΡΠ΅ΡΡΡ!', mtconfirmation, mbYesNoCancel, 0)=mrYes then begin
cleansg (Sender);
memo1.Lines.Insert (0,DateTimeToStr (Now)+' - ΠΠΎΠ²Π°Ρ Π±Π°Π·Π° ΡΠΎΠ·Π΄Π°Π½Π°. ΠΠΎΠΆΠ°Π»ΡΠΉΡΡΠ° ΡΠΎΡ ΡΠ°Π½ΠΈΡΠ΅, Π·Π°Π΄Π°Π² Π½ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ.');
end;
end;
//Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ
procedure TForm1. Button1Click (Sender: TObject);
var n, k, l:integer;o:extended;
begin
//ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° ΠΏΡΡΡΡΠ΅ ΠΏΠΎΠ»Ρ edit-ΠΎΠ²
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text<>'') and (edit5.Text<>'') then
begin
try
n:=strtoint (edit2.text);
n:=strtoint (edit3.text);
n:=strtoint (edit4.text);
o:=strtofloat (edit5.text);
except
on EConvertError do messagedlg ('ΠΠΎΠ»Ρ 2.5 Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΡΠΈΡΠ»ΠΎΠΌ!', mterror, mbOKCancel, 1);
end;
//ΡΠΈΠΊΠ» ΠΎΡΠΈΡΡΠΊΠΈ ΠΌΠ°ΡΡΠΈΠ²Π° Π·Π°ΠΏΠΈΡΠ΅ΠΉ
n:=0;
repeat
Mzap[n]. prod:='';
Mzap[n].onng:=0;
Mzap[n].plan:=0;
Mzap[n].onkg:=0;
Mzap[n].svocep:=0;
n:=n+1;
until n>=200;
//ΡΠΈΠΊΠ» ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π° ΡΡΡΠΎΠΊ stringgrid-a Π² ΠΌΠ°ΡΡΠΈΠ² Π·Π°ΠΏΠΈΡΠ΅ΠΉ
n:=1;
repeat
if sg1. Cells[0,n]<>'' then begin
Mzap[2*n]. prod:=sg1.Cells[0,n];
Mzap[2*n].onng:=strtoint (sg1.cells[1,n]);
Mzap[2*n].plan:=strtoint (sg1.cells[2,n]);
Mzap[2*n].onkg:=strtoint (sg1.cells[3,n]);
Mzap[2*n].svocep:=strtofloat (sg1.cells[5,n]);
end;
n:=n+1;
until n>=sg1.RowCount;
//ΡΠΈΠΊΠ» Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π±ΠΎΠ»ΡΡΠΈΡ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ
n:=1;l:=0;
repeat
if (Mzap[2*n]. prod<>'') and (CompareText (edit1.Text, Mzap[2*n]. prod)>0) then l:=l+1;
n:=n+1;
until n>=200;
//ΠΌΠ΅ΠΆΠ΄ΡΡΡΡΠΎΡΠ½Π°Ρ Π·Π°ΠΏΠΈΡΡ Π² ΠΌΠ°ΡΡΠΈΠ²
k:=2*l+1;
Mzap[k]. prod:=edit1.Text;
Mzap[k].onng:=strtoint (edit2.text);
Mzap[k].plan:=strtoint (edit3.text);
Mzap[k].onkg:=strtoint (edit4.text);
Mzap[k].svocep:=strtofloat (edit5.text);
cleansg (sender); //Π²ΡΠ·ΠΎΠ² ΠΎΡΠΈΡΡΠΊΠΈ ΡΡΡΠΈΠ½Π³ΡΠΈΠ΄Π°
//ΡΠΈΠΊΠ» ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄Π° ΠΌΠ°ΡΡΠΈΠ²Π° Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² ΡΡΡΠΈΠ½Π³Π³ΡΠΈΠ΄
n:=1;k:=1;
repeat
if Mzap[n]. prod<>'' then begin
sg1.Cells[0,k]: =Mzap[n].prod;
sg1.Cells[1,k]:=inttostr (Mzap[n].onng);
sg1.Cells[2,k]:=inttostr (Mzap[n].plan);
sg1.Cells[3,k]:=inttostr (Mzap[n].onkg);
sg1.Cells[5,k]:=floattostr (Mzap[n].svocep);
k:=k+1;
end;
n:=n+1;
until n>=200;
cleanedit (Sender); //Π²ΡΠ·ΠΎΠ² ΠΎΡΠΈΡΡΠΊΠΈ ΡΠ΄ΠΈΡΠΎΠ²
autorachet (sender);
end
else messagedlg ('ΠΡΠ΅ ΠΏΠΎΠ»Ρ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½Π° Π΄Π»Ρ Π·Π°ΠΏΠΎΠ»Π΅Π½Π΅Π½ΠΈΡ!', mterror, mbOKCancel, 1); //Π²ΡΠ·ΠΎΠ² ΠΏΡΠ΅Π΄ΡΠΏΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΡ
end;
//ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ°ΡΡΠ΅ΡΠ°
procedure Tform1. autorachet (Sender: TObject);
var n, l: longint; max: extended;
begin
n:=1;
max:=0;
repeat
with sg1 do begin
if cells[0,n]<>'' then begin
cells[4,n]: =inttostr (strtoint (cells[1,n])+strtoint (cells[2,n])-strtoint (cells[3,n]));
cells[6,n]:=floattostr (strtoint (cells[4,n])*strtofloat (cells[5,n])/1000);
if strtofloat (cells[6,n])>max then begin l:=n; max:=strtofloat (cells[6,n]);end;
end;
end;
n:=n+1;
until n>=sg1.rowCount;
memo1.Lines.Insert (0,DateTimeToStr (Now)+' - Π Π°ΡΡΠ΅Ρ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½. ΠΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ Π‘Π²ΠΠ¦ΠΠΠ '+floattostr (max)+' ΡΡΠ±. Ρ '+sg1.cells[0,l]);
end;
procedure TForm1. Button6Click (Sender: TObject);
var n: longint;
begin
with savedialog1 do begin
title:='Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π±Π°Π·Ρ';
if execute then
begin
filenamezap:=filename;
assignfile (filezap, filenamezap);
rewrite (filezap);
n:=0;
repeat
Mzap[n]. prod:='';
Mzap[n].onng:=0;
Mzap[n].plan:=0;
Mzap[n].onkg:=0;
Mzap[n].svocep:=0;
n:=n+1;
until n>=200;
n:=1;
repeat
if sg1. Cells[0,n]<>'' then begin
Mzap[n]. prod:=sg1.Cells[0,n];
Mzap[n].onng:=strtoint (sg1.cells[1,n]);
Mzap[n].plan:=strtoint (sg1.cells[2,n]);
Mzap[n].onkg:=strtoint (sg1.cells[3,n]);
Mzap[n].svocep:=strtofloat (sg1.cells[5,n]);
end;
n:=n+1;
until n>=sg1.RowCount;
for n:=1 to 100 do write (filezap, mzap[n]);
closefile (filezap);
end;
end;
memo1.Lines.Insert (0,DateTimeToStr (Now)+' - ΠΠ°Π·Π° ΡΠΎΡ ΡΠ°Π½Π΅Π½Π° ΠΏΠΎΠ΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ '+filenamezap);
end;
rocedure TForm1. Button5Click (Sender: TObject);
var n, k: longint;
begin
with opendialog1 do begin
title:= 'ΠΡΠΊΡΡΡΠΈΠ΅ Π±Π°Π·Ρ';
if execute then
begin
filenamezap:=filename;
assignfile (filezap, filenamezap);
reset (filezap);
n:=0;
repeat
Mzap[n]. prod:='';
Mzap[n].onng:=0;
Mzap[n].plan:=0;
Mzap[n].onkg:=0;
Mzap[n].svocep:=0;
n:=n+1;
until n>=200;
n:=1;
while not eof (filezap) do
begin
read (filezap, mzap[n]);
n:=n+1;
end;
cleansg (sender);
n:=0;k:=1;
repeat
if Mzap[n]. prod<>'' then begin
sg1.Cells[0,k]: =Mzap[n].prod;
sg1.Cells[1,k]:=inttostr (Mzap[n].onng);
sg1.Cells[2,k]:=inttostr (Mzap[n].plan);
sg1.Cells[3,k]:=inttostr (Mzap[n].onkg);
sg1.Cells[5,k]:=floattostr (Mzap[n].svocep);
k:=k+1;
end;
n:=n+1;
until n>=200;
autorachet (sender);
end;
end;
memo1.Lines.Insert (0,DateTimeToStr (Now)+' - ΠΠ°Π·Π° '+filenamezap+ ' ΠΎΡΠΊΡΡΡΠ°');
end;
//ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠΈ
procedure TForm1. Button3Click (Sender: TObject);
var n, k: longint;
begin
sg1.Rows[sg1.Row]. Clear;
n:=0;
repeat
Mzap[n].prod:='';
Mzap[n].onng:=0;
Mzap[n].plan:=0;
Mzap[n].onkg:=0;
Mzap[n].svocep:=0;
n:=n+1;
until n>=200;
n:=1;
repeat
if sg1. Cells[0,n]<>'' then begin
Mzap[n]. prod:=sg1.Cells[0,n];
Mzap[n].onng:=strtoint (sg1.cells[1,n]);
Mzap[n].plan:=strtoint (sg1.cells[2,n]);
Mzap[n].onkg:=strtoint (sg1.cells[3,n]);
Mzap[n].svocep:=strtofloat (sg1.cells[5,n]);
end;
n:=n+1;
until n>=sg1.RowCount;
cleansg (sender);
n:=0;k:=1;
repeat
if Mzap[n]. prod<>'' then begin
sg1.Cells[0,k]: =Mzap[n].prod;
sg1.Cells[1,k]:=inttostr (Mzap[n].onng);
sg1.Cells[2,k]:=inttostr (Mzap[n].plan);
sg1.Cells[3,k]:=inttostr (Mzap[n].onkg);
sg1.Cells[5,k]:=floattostr (Mzap[n].svocep);
k:=k+1;
cleanedit (Sender); //Π²ΡΠ·ΠΎΠ² ΠΎΡΠΈΡΡΠΊΠΈ ΡΠ΄ΠΈΡΠΎΠ²
end;
n:=n+1;
until n>=200;
autorachet (sender);
end;
procedure TForm1. sg1Click (Sender: TObject);
begin
edit1.Text:=sg1.Cells[0,sg1.Row];
edit2.Text:=sg1.Cells[1,sg1.Row];
edit3.Text:=sg1.Cells[2,sg1.Row];
edit4.Text:=sg1.Cells[3,sg1.Row];
edit5.Text:=sg1.Cells[5,sg1.Row];
memo1.Lines.Insert (0,DateTimeToStr (Now)+' - ΠΠ°ΠΏΠΈΡΡ β '+inttostr (sg1.Row)+ ' Π²ΡΠ±ΡΠ°Π½Π°');
end;
procedure TForm1. N8Click (Sender: TObject);
begin
ShellExecute (form1.Handle, nil, PChar ('mailto:ultrix@tut.by?Subject=EcoInfo'),'','', 0);
end;
procedure TForm1. N5Click (Sender: TObject);
begin
halt;
end;
end.
8. Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ² ΠΈ ΠΈΡ Π°Π½Π°Π»ΠΈΠ·.
Π Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ Π½Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π±ΡΠ»ΠΎ ΡΠ°ΡΡΡΠΈΡΠ°ΡΡ ΠΎΠ±ΡΠ΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΈ ΡΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π²ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π·Π° ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠ΅ΡΠΈΠΎΠ΄. ΠΠ»Ρ ΡΠ°ΡΡΠ΅ΡΠΎΠ² Π½Π°ΠΌ Π±ΡΠ»ΠΈ Π΄Π°Π½Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΎ Π²ΡΡΡΡΠΊΠ΅ ΠΎΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π·Π° ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠ΅ΡΠΈΠΎΠ΄ (Π’Π°Π±Π». 1).
Π’Π°Π±Π»ΠΈΡΠ°1. Π‘Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ Π²ΡΡΡΡΠΊΠ΅ ΠΎΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π·Π° ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠ΅ΡΠΈΠΎΠ΄.
ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΡΡΠ°ΡΠΊΠΈ Π½Π° Π½Π°ΡΠ°Π»ΠΎ Π³ΠΎΠ΄Π° | ΠΠ»Π°Π½ Π²ΡΠΏΡΡΠΊΠ° | ΠΡΡΠ°ΡΠΊΠΈ Π½Π° ΠΊΠΎΠ½Π΅Ρ Π³ΠΎΠ΄Π° | ΠΠ±ΡΠ΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΡΡ. | Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΡΡΠ±. | Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π²ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΡΡΡ. ΡΡΠ±. | |
Π―Π±Π»ΠΎΠΊΠΎ | |||||||
ΠΠΏΠ΅Π»ΡΡΠΈΠ½ | |||||||
ΠΠ½Π°Π½Π°Ρ | |||||||
ΠΠ°Π½Π΄Π°ΡΠΈΠ½ | |||||||
ΠΡΠ΅ΠΉΠΏΡΡΡΡ | |||||||
ΠΠ°Π½Π°Π½ | |||||||
ΠΠ±ΡΠΈΠΊΠΎΡ | |||||||
ΠΠ΅ΡΡΠΈΠΊ | |||||||
ΠΠΈΠ½ΠΎΠ³ΡΠ°Π΄ | |||||||
ΠΡΡΡΠ° | |||||||
Π Π°ΡΡΠ΅ΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΠ»ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
Β· Π Π°ΡΡΡΠΈΡΠ°Π΅ΠΌ ΠΎΠ±ΡΠ΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π·Π° ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠ΅ΡΠΈΠΎΠ΄. ΠΠ±ΡΠ΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, Π² Π½Π°ΡΠ΅ΠΌ, ΡΠ»ΡΡΠ°Π΅ ΡΠ°Π²Π΅Π½ ΡΡΠΌΠΌΠ΅ ΠΎΡΡΠ°ΡΠΊΠΎΠ² Π½Π° Π½Π°ΡΠ°Π»ΠΎ Π³ΠΎΠ΄Π° Ρ ΠΏΠ»Π°Π½ΠΎΠΌ Π²ΡΠΏΡΡΠΊΠ° Π·Π° Π²ΡΡΠ΅ΡΠΎΠΌ ΠΎΡΡΠ°ΡΠΊΠΎΠ² Π½Π° ΠΊΠΎΠ½Π΅Ρ Π³ΠΎΠ΄Π° ΠΏΠΎ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ Π²ΠΈΠ΄Ρ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ (Π’Π°Π±Π». 2).
Π’Π°Π±Π»ΠΈΡΠ°2. Π‘Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ Π²ΡΡΡΡΠΊΠ΅ ΠΎΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π·Π° ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠ΅ΡΠΈΠΎΠ΄.
ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΡΡΠ°ΡΠΊΠΈ Π½Π° Π½Π°ΡΠ°Π»ΠΎ Π³ΠΎΠ΄Π° | ΠΠ»Π°Π½ Π²ΡΠΏΡΡΠΊΠ° | ΠΡΡΠ°ΡΠΊΠΈ Π½Π° ΠΊΠΎΠ½Π΅Ρ Π³ΠΎΠ΄Π° | ΠΠ±ΡΠ΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΡΡ. | Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΡΡΠ±. | Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π²ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΡΡΡ. ΡΡΠ±. | |
Π―Π±Π»ΠΎΠΊΠΎ | |||||||
ΠΠΏΠ΅Π»ΡΡΠΈΠ½ | |||||||
ΠΠ½Π°Π½Π°Ρ | |||||||
ΠΠ°Π½Π΄Π°ΡΠΈΠ½ | |||||||
ΠΡΠ΅ΠΉΠΏΡΡΡΡ | |||||||
ΠΠ°Π½Π°Π½ | |||||||
ΠΠ±ΡΠΈΠΊΠΎΡ | |||||||
ΠΠ΅ΡΡΠΈΠΊ | |||||||
ΠΠΈΠ½ΠΎΠ³ΡΠ°Π΄ | |||||||
ΠΡΡΡΠ° | |||||||
Β· ΠΠ½Π°Ρ ΡΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΡΠ°ΡΡΡΠΈΡΠ°ΡΡ ΡΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π²ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ΠΌ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΈ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ (Π’Π°Π±Π». 3).
Π’Π°Π±Π»ΠΈΡΠ°3. Π‘Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ Π²ΡΡΡΡΠΊΠ΅ ΠΎΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ Π·Π° ΠΏΠ»Π°Π½ΠΎΠ²ΡΠΉ ΠΏΠ΅ΡΠΈΠΎΠ΄.
ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ | ΠΡΡΠ°ΡΠΊΠΈ Π½Π° Π½Π°ΡΠ°Π»ΠΎ Π³ΠΎΠ΄Π° | ΠΠ»Π°Π½ Π²ΡΠΏΡΡΠΊΠ° | ΠΡΡΠ°ΡΠΊΠΈ Π½Π° ΠΊΠΎΠ½Π΅Ρ Π³ΠΎΠ΄Π° | ΠΠ±ΡΠ΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΡΡ. | Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΈ, ΡΡΠ±. | Π‘ΡΠΎΠΈΠΌΠΎΡΡΡ Π² ΠΎΠΏΡΠΎΠ²ΡΡ ΡΠ΅Π½Π°Ρ Π²ΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΡΡΡ. ΡΡΠ±. | |
Π―Π±Π»ΠΎΠΊΠΎ | |||||||
ΠΠΏΠ΅Π»ΡΡΠΈΠ½ | 40 080 020,4 | ||||||
ΠΠ½Π°Π½Π°Ρ | |||||||
ΠΠ°Π½Π΄Π°ΡΠΈΠ½ | |||||||
ΠΡΠ΅ΠΉΠΏΡΡΡΡ | |||||||
ΠΠ°Π½Π°Π½ | |||||||
ΠΠ±ΡΠΈΠΊΠΎΡ | |||||||
ΠΠ΅ΡΡΠΈΠΊ | |||||||
ΠΠΈΠ½ΠΎΠ³ΡΠ°Π΄ | |||||||
ΠΡΡΡΠ° | |||||||
ΠΠ½Π°Π»ΠΈΠ·ΠΈΡΡΡ Π΄Π°Π½Π½ΡΠ΅ ΡΠ°ΡΡΠ΅ΡΠ° ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΡΠΊΠ°Π·Π°ΡΡ, ΡΡΠΎ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²ΡΠ³ΠΎΠ΄Π½ΠΎ Π΄Π»Ρ ΠΏΡΠΎΠ΄Π°Π²ΡΠ° ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²ΡΠ²Π°ΡΡ ΠΏΠΎ ΡΠ΅Π½Π΅ 600 000 ΡΡΠ±. Π²ΠΈΠ½ΠΎΠ³ΡΠ°Π΄ Ρ.ΠΊ. ΡΡΠΎΡ ΠΏΡΠΎΠ΄ΡΠΊΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²ΠΎΡΡΡΠ΅Π±ΠΎΠ²Π°Π½ ΠΏΠΎΠΊΡΠΏΠ°ΡΠ΅Π»Π΅ΠΌ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΠΏΠΎΠ»ΡΡΠΈΡ Π·Π° Π½Π΅Π³ΠΎ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΡΡ ΠΏΡΠΈΠ±ΡΠ»Ρ (51 109 200 ΡΡΡ. ΡΡΠ±.). Π’Π°ΠΊΠΆΠ΅ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³ΠΎΠ΄Π½ΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²ΡΠ²Π°ΡΡ ΠΏΠΎ ΡΠ΅Π½Π΅ 500 150 ΠΈ 550 000 ΡΡΠ±. Π°ΠΏΠ΅Π»ΡΡΠΈΠ½Ρ ΠΈ ΠΌΠ°Π½Π΄Π°ΡΠΈΠ½Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ Ρ.ΠΊ. Π·Π° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΡΡΠΈΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΠΏΠΎΠ»ΡΡΠΈΡ Π²ΡΡΠΎΠΊΡΡ ΠΏΡΠΈΠ±ΡΠ»Ρ (40 080 020,4 ΠΈ 49 536 850 ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ). ΠΡΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅ ΡΠ°ΠΊΠΈΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² ΠΊΠ°ΠΊ Π°Π½Π°Π½Π°ΡΡ (400 000 ΡΡΠ±.), Π³ΡΠ΅ΠΉΠΏΡΡΡΡ (22 560 300 ΡΡΠ±.), Π±Π°Π½Π°Π½ (24 455 550 ΡΡΠ±.), Π°Π±ΡΠΈΠΊΠΎΡ (28 518 900 ΡΡΠ±.), ΠΏΠ΅ΡΡΠΈΠΊ (16 171 500 ΡΡΠ±.), Π³ΡΡΡΠ° (25 990 900 ΡΡΠ±.), ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Ρ ΠΎΡΠΎΡΡΡ ΠΏΡΠΈΠ±ΡΠ»Ρ, Π½ΠΎ ΠΏΡΠΈ ΡΠ°Π·Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΌΠ°Ρ ΠΈ ΡΠ΅Π½Π΅ ΠΎΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΠΏΠΎΠ΄ΡΡΡΠ°ΠΈΠ²Π°ΡΡΡ ΠΏΠΎΠ΄ ΠΏΠΎΡΡΠ΅Π±Π½ΠΎΡΡΠΈ ΠΏΠΎΠΊΡΠΏΠ°ΡΠ΅Π»Ρ. ΠΡΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΠΏΠΎΠ΄ Π·Π°ΠΊΠ°Π· Π΄Π»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΡΠΎΡΠΎΠ½Π½ΠΈΠΌ ΠΏΠΎΠΊΡΠΏΠ°ΡΠ΅Π»Π΅ΠΌ Π² Π½Π΅ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ. ΠΠ΅ Π²ΡΠ³ΠΎΠ΄Π½ΡΠΌ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠΌ Π΄Π»Ρ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π° ΠΈ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΠΎ ΡΠ΅Π½Π΅ 200 000 ΡΡΠ±. ΠΈ ΠΎΠ±ΡΠ΅ΠΌΠ΅ 40 000 ΡΡ. ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ±Π»ΠΎΠΊΠΎ Ρ.ΠΊ. ΡΡΠΎΡ ΠΏΡΠΎΠ΄ΡΠΊΡ Π½Π΅ ΠΏΡΠΈΠ½ΠΎΡΠΈΡ Ρ ΠΎΡΠΎΡΠ΅ΠΉ ΠΏΡΠΈΠ±ΡΠ»ΠΈ.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π°Π½Π°Π»ΠΈΠ·Π° ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΡΠ΄Π΅Π»Π°ΡΡ Π²ΡΠ²ΠΎΠ΄, ΡΡΠΎ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²ΡΠ³ΠΎΠ΄Π½ΠΎ Π΄Π»Ρ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²ΡΠ²Π°ΡΡ Π²ΠΈΠ½ΠΎΠ³ΡΠ°Π΄, Π°ΠΏΠ΅Π»ΡΡΠΈΠ½Ρ ΠΈ ΠΌΠ°Π½Π΄Π°ΡΠΈΠ½Ρ Ρ.ΠΊ. ΡΡΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²ΠΎΡΡΡΠ΅Π±ΠΎΠ²Π°Π½Ρ ΠΏΠΎΡΡΠ΅Π±ΠΈΡΠ΅Π»Π΅ΠΌ ΠΈ Π²Π»Π΅ΡΠ΅Ρ Π±ΠΎΠ»ΡΡΠΈΠ΅ ΠΏΡΠΈΠ±ΡΠ»ΠΈ Π΄Π»Ρ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ.
ΠΡΠ΅ ΡΠ°ΡΡΠ΅ΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΠ»ΠΈΡΡ Π² ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ Π½Π°ΠΌΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π½Π° Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅ ObjectPascal Π² Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅Π΄Π΅ Delphi. ΠΠ»Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° ΡΠ°ΡΡΠ΅ΡΠ° ΠΈ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π½ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π²ΡΠ΅ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠ²Π°ΡΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π² Π°Π»ΡΠ°Π²ΠΈΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅. ΠΠ°ΠΈΠ±ΠΎΠ»ΡΡΡΡ ΠΏΡΠΈΠ±ΡΠ»Ρ ΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°ΡΡΠ΅ΡΠ° ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ Π²ΠΈΠ΄Π΅ΡΡ Π² ΠΏΠΎΠ»Π΅ memo ΠΊΡΠ΄Π° ΡΡΠΈ Π΄Π°Π½Π½ΡΠ΅ ΡΠ°ΠΊΠΆΠ΅ Π·Π°Π½ΠΎΡΡΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ (ΡΠΈΡ. 5).
Π ΠΈΡ. 5. ΠΠ±ΡΠΈΠΉ Π²ΠΈΠ΄ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Ρ ΡΠ°ΡΡΠ΅ΡΠΎΠΌ ΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌΠΈ.
ΠΡΠ²ΠΎΠ΄Ρ
Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΠΏΠΎΠ»ΡΡΠ΅Π½Ρ Π½ΠΎΠ²ΡΠ΅ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΌ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠΌ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΎΡΠΈΡΠ½ΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ; ΠΏΡΠΈΠ²ΠΈΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π½Π°Π²ΡΠΊΠΈ ΡΠ°Π±ΠΎΡΡ Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΠΌΠΈ ΡΠΈΡΡΠ΅ΠΌΠ°ΠΌΠΈ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌΠΈ ΠΎΠ±ΠΎΠ»ΠΎΡΠΊΠ°ΠΌΠΈ, ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠ»ΡΠΆΠ΅Π±Π½ΡΠΌΠΈ ΠΈ ΡΠ΅ΡΠ²ΠΈΡΠ½ΡΠΌΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ; ΠΎΡΠ²ΠΎΠ΅Π½ΠΎ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΎΡΠΈΡΠ½ΠΎΠ³ΠΎ ΠΏΠ°ΠΊΠ΅ΡΠ° Microsoft Office Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ±ΠΎΡΠ°, Ρ ΡΠ°Π½Π΅Π½ΠΈΡ, ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
Π’Π°ΠΊΠΆΠ΅ Π±ΡΠ»ΠΈ ΡΠ³Π»ΡΠ±Π»Π΅Π½Ρ ΠΈ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½Ρ Π·Π½Π°Π½ΠΈΡ ΠΏΠΎ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΠ·Π°ΡΠΈΠΈ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π² ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅Π΄Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi Π·Π°Π΄Π°Ρ ΠΏΠΎ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ΅ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π½Π° ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΠΈ.
1. ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π. Π―. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi 6 —Π.: ΠΠΠ «ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ ΠΠΠΠΠ», 2002 Π³. — 1200 Ρ.
2. ΠΠ°Π½Π΄Π·ΡΠ±Π° Π‘. Π., ΠΡΠΎΠΌΠΎΠ² Π. Π. Delphi 6. ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. ΠΠ΅ΠΊΡΠΈΠΈ ΠΈ ΡΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΡ. — Π.: ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ «ΠΠΈΠ½Π‘ΠΎΡΡ», 2001. — 576 Ρ.
3. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. Delphi 6. Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ. ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ ΠΠΎΠ»Π³Π°ΡΠ΅Π² Π‘. Π., 2001. — 672Ρ.
4. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Delphi: ΠΠ°Π±ΠΎΡΠ°ΡΠΎΡΠ½ΡΠΉ ΠΏΡΠ°ΠΊΡΠΈΠΊΡΠΌ Π΄Π»Ρ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² Π²ΡΠ΅Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠ΅ΠΉ. ΠΠΎΠ΄ ΠΎΠ±ΡΠ΅ΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΈΠ΅ΠΉ Π‘ΠΈΠ½ΠΈΡΡΠ½Π° Π. Π. — ΠΠ½.; ΠΠΠ£ΠΠ , 1998. — 94 Ρ.
5. ΠΡΠ½ΠΎΠ²Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ ΠΈ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ. ΠΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΊ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π΄Π»Ρ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΠ° ΠΏΡΠ΅Π΄ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΠ΅Π»ΡΡΡΠ²Π° ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ Π 03. 02. 00 «ΠΠΊΠΎΠ½ΠΎΠΌΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°». Π€ΡΡΡΠ½ΠΆΠΈΠ΅Π² Π . Π. — Π ΠΎΡΠ°ΠΏΡΠΈΠ½Ρ ΠΠΠ’Π£, ΠΠ½.: 2000. — 25 Ρ.
6. ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π. Π―. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi 6 —Π.: ΠΠΠ «ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ ΠΠΠΠΠ», 2002 Π³. — 1200 Ρ.
7. ΠΠ°Π½Π΄Π·ΡΠ±Π° Π‘. Π., ΠΡΠΎΠΌΠΎΠ² Π. Π. Delphi 6. ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. ΠΠ΅ΠΊΡΠΈΠΈ ΠΈ ΡΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΡ. — Π.: ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ «ΠΠΈΠ½Π‘ΠΎΡΡ», 2001. — 576 Ρ.
8. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. Delphi 6. Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ. ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ ΠΠΎΠ»Π³Π°ΡΠ΅Π² Π‘. Π., 2001. — 672Ρ.
9. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Delphi: ΠΠ°Π±ΠΎΡΠ°ΡΠΎΡΠ½ΡΠΉ ΠΏΡΠ°ΠΊΡΠΈΠΊΡΠΌ Π΄Π»Ρ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² Π²ΡΠ΅Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠ΅ΠΉ. ΠΠΎΠ΄ ΠΎΠ±ΡΠ΅ΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΈΠ΅ΠΉ Π‘ΠΈΠ½ΠΈΡΡΠ½Π° Π. Π. — ΠΠ½.; ΠΠΠ£ΠΠ , 1998. — 94 Ρ.
10. ΠΡΠ½ΠΎΠ²Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ ΠΈ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ. ΠΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΊ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π΄Π»Ρ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΠ° ΠΏΡΠ΅Π΄ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΠ΅Π»ΡΡΡΠ²Π° ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ Π 03. 02. 00 «ΠΠΊΠΎΠ½ΠΎΠΌΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°». Π€ΡΡΡΠ½ΠΆΠΈΠ΅Π² Π . Π. — Π ΠΎΡΠ°ΠΏΡΠΈΠ½Ρ ΠΠΠ’Π£, ΠΠ½.: 2000. — 25 Ρ.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
Π Π΄Π°Π½Π½ΠΎΠΌΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΏΡΠΈΠ»Π°Π³Π°Π΅ΡΡΡ ΠΌΠ°Π³Π½ΠΈΡΠ½ΡΠΉ Π½ΠΎΡΠΈΡΠ΅Π»Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ (Π΄ΠΈΡΠΊΠ΅ΡΠ° 3,5'', 1,44Mb) Ρ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠΉ Π²Π΅ΡΡΠΈΠ΅ΠΉ ΠΏΠΎΡΡΠ½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΊΠΈ, ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠΌ Windows-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ (ΡΠ°ΠΉΠ» EcoInfo. exe), ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ ΡΠ΅ΠΊΡΡΠ°ΠΌΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΡΠ°ΠΉΠ» EconomInfo. pas), Π° ΡΠ°ΠΊΠΆΠ΅ Π΄ΡΡΠ³ΠΈΠΌΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠΌΠΈ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ Π΄Π»Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.