Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Β«ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»Β»
Delphi ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΠΎΠ»Π½ΠΎΡΠ΅Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΡΠΈΠΏΠ° Brief, Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ ΠΏΡΠΈΠ½ΡΡΡΠΌ Π² Windows ΡΡΠ°Π½Π΄Π°ΡΡΠ°ΠΌ, Π° Π³Π»ΡΠ±ΠΈΠ½Π° ΠΈΠ΅ΡΠ°ΡΡ ΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Undo Π½Π΅ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½Π°. ΠΠ°ΠΊ ΡΡΠΎ ΡΡΠ°Π»ΠΎ ΡΠΆΠ΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΌ, ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ΠΎ ΡΠ²Π΅ΡΠΎΠ²ΠΎΠ΅ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π»Π΅ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΡΠΎΡΠ΅ΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΡΠΎΡΡ. ΠΡΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΡΠΎΡΠΌΡ (Π² ΠΏΠΎΠ½ΡΡΠΈΠ΅ ΡΠΎΡΠΌΡ Π²Ρ ΠΎΠ΄ΡΡ ΠΎΠ±ΡΡΠ½ΡΠ΅, Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΠ΅… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Β«ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»Β» (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ£Π Π‘ΠΠΠΠ― Π ΠΠΠΠ’Π ΠΠ° ΡΠ΅ΠΌΡ: Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»»
- ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
- 1. ΠΠ½Π°Π»ΠΈΠ· ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠΎΠ² Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ
- 1.1 Π‘ΡΠ΅Π΄Π° Π΄Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Borland Delphi 2007
- 1.2 Microsoft Visual Basic
- 2. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»» Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi
- 2.1 ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
- 2.2 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° Π·Π°Π΄Π°ΡΠΈ
- 2.3 ΠΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ°ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi
- 2.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
- ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
- Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡΠΈΡΠΎΠΊΠΎΠ΅ Π²Π½Π΅Π΄ΡΠ΅Π½ΠΈΠ΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎ-Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΌΠ°ΡΠΈΠ½, ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² ΠΏΠ΅ΡΠ΅ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΠΎΡΠ»ΡΠΆΠΈΠ»ΠΎ Π½Π°ΡΠ°Π»ΠΎΠΌ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ°, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠ΅ΠΉ ΠΎΠ±ΡΠ΅ΡΡΠ²Π°. ΠΡ ΠΎΡΠ»ΠΈΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠ΅Ρ ΡΡΠ΅Ρ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΠΊΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ.
Π‘Π΅ΠΉΡΠ°Ρ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π΅ΠΎΡΡΠ΅ΠΌΠ»Π΅ΠΌΠΎΠΉ ΡΠ°ΡΡΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π»ΡΠ±ΠΎΠΉ ΡΡΠ΅ΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊΠ°. ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π½Π° ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡΡ , ΡΠΈΡΠΌΠ°Ρ , Π² ΠΌΠ°Π³Π°Π·ΠΈΠ½Π°Ρ , ΡΡΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΡΡ , ΡΡΠ΅Π±Π½ΡΡ Π·Π°Π²Π΅Π΄Π΅Π½ΠΈΡΡ ΠΈ Ρ. ΠΏ. ΠΠ½ΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΡΠΈΡΡΠ΅ΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ, Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠΈ Π΄Π°Π½Π½ΠΎΠΉ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ, ΠΈ Π² Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ.
ΠΠ»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΠΈ ΠΎΡ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π²Π½Π΅Π΄ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ.
Π¦Π΅Π»Ρ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ: ΡΠΎΠ·Π΄Π°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Windows, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅Π΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΡΠΎΡΠ΅ΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΠΏΠ°ΡΠΏΠΎΡΡΠ½ΠΎΠΌ ΡΡΠΎΠ»Π΅.
ΠΠ°Π΄Π°ΡΠΈ:
1. ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ ΡΡΡΡΠΊΡΡΡΡ Π΄Π°Π½Π½ΡΡ , ΡΠΎΡΠΌΠ°ΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ , ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΡΠ½ΡΡ ΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠΈΡΡΡΡΠΈΡ Π΄Π°Π½Π½ΡΡ Π΄Π»Ρ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»», Π° ΡΠ°ΠΊΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΈ ΠΈΡ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ.
2. ΠΡΠΎΠ°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΡΡΠ΅Π΄Ρ Delphi Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Windows Π΄Π»Ρ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»» .
3. Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Windows, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΠ΅Π΅ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π΄Π»Ρ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»» .
4. ΠΠΏΠΈΡΠ°ΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΡΠΌΡ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌ ΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ (ΡΠ΅Π°Π½Ρ ΡΠ°Π±ΠΎΡΡ).
1. ΠΠ½Π°Π»ΠΈΠ· ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠΎΠ² Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΡΠ±ΠΎΠΌΡ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊΡ ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΡΡΠ°Π»ΠΊΠΈΠ²Π°ΡΡΡΡ Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ Π·Π°Π΄Π°ΡΠ°ΠΌΠΈ ΠΈ ΡΠ΅ΡΠ°ΡΡ ΠΈΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌΠΈ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ. ΠΠ΄Π½ΠΈ Π·Π°Π΄Π°ΡΠΈ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ Π΄ΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΠ°ΡΡΠΎ, Π΄ΡΡΠ³ΠΈΠ΅ — Π΄ΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΠ΅Π΄ΠΊΠΎ, Π° Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΠΎΠΎΠ±ΡΠ΅ ΡΠ²Π»ΡΡΡΡΡ ΡΠ΅Π΄ΠΊΠΈΠΌ ΡΠ»ΡΡΠ°Π΅ΠΌ. ΠΠ°Π΄Π°ΡΠ° Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΠ΅ΡΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΈ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡΠΌΠΈ ΠΌΠ΅ΠΆΠ΄Ρ Π½ΠΈΠΌΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ Π²Π΅Π»ΠΈΡΠΈΠ½Π°ΠΌΠΈ ΠΈΠ»ΠΈ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡΠΌΠΈ, Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΡ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½Ρ ΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Ρ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ. ΠΠΌΠ΅Π½Π½ΠΎ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΡΠΎΠ·Π΄Π°Π½Π½ΡΠ΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠΎΠ² ΠΈ ΡΡΠ΅Π΄ΡΡΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠΈΠΆΠ΅ Π±ΡΠ΄ΡΡ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½Ρ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ.
ΠΡΠΎΠ³ΡΠ΅ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠ» ΠΏΡΠΎΡΠ΅ΡΡ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΡ Π·Π½Π°ΠΊΠΎΠ²ΡΡ ΡΠΈΡΡΠ΅ΠΌ Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² — ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π‘ΠΌΡΡΠ» ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° — ΠΎΡΠ½Π°ΡΠ΅Π½Π½ΡΠΉ Π½Π°Π±ΠΎΡ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΠΎΡΠΌΡΠ» Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΏΡΠ΅Π²ΡΠ°ΡΠ°Π΅Ρ Π΄Π°Π½Π½ΡΠΉ Π½Π°Π±ΠΎΡ Π² Π°Π»Π³ΠΎΡΠΈΡΠΌ.
Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ»ΡΠΆΠΈΡ Π΄Π²ΡΠΌ ΡΠ²ΡΠ·Π°Π½Π½ΡΠΌ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠ΅Π»ΡΠΌ: ΠΎΠ½ Π΄Π°Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ Π°ΠΏΠΏΠ°ΡΠ°Ρ Π΄Π»Ρ Π·Π°Π΄Π°Π½ΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½Ρ, ΠΈ ΡΠΎΡΠΌΠΈΡΡΠ΅Ρ ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠΌΠΈ ΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡ, ΡΠ°Π·ΠΌΡΡΠ»ΡΡ ΠΎ ΡΠΎΠΌ, ΡΡΠΎ Π΄Π΅Π»Π°ΡΡ. ΠΠ΅ΡΠ²ΠΎΠΉ ΡΠ΅Π»ΠΈ ΠΈΠ΄Π΅Π°Π»ΡΠ½ΠΎ ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ ΡΠ·ΡΠΊ, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π°ΡΡΠΎΠ»ΡΠΊΠΎ «Π±Π»ΠΈΠ·ΠΎΠΊ ΠΊ ΠΌΠ°ΡΠΈΠ½Π΅», ΡΡΠΎ Π²ΡΠ΅ΠΌΠΈ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌΠΈ ΠΌΠ°ΡΠΈΠ½Π½ΡΠΌΠΈ Π°ΡΠΏΠ΅ΠΊΡΠ°ΠΌΠΈ ΠΌΠΎΠΆΠ½ΠΎ Π»Π΅Π³ΠΊΠΎ ΠΈ ΠΏΡΠΎΡΡΠΎ ΠΎΠΏΠ΅ΡΠΈΡΠΎΠ²Π°ΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΎΡΠ΅Π²ΠΈΠ΄Π½ΡΠΌ Π΄Π»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ° ΠΎΠ±ΡΠ°Π·ΠΎΠΌ. ΠΡΠΎΡΠΎΠΉ ΡΠ΅Π»ΠΈ ΠΈΠ΄Π΅Π°Π»ΡΠ½ΠΎ ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ ΡΠ·ΡΠΊ, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π°ΡΡΠΎΠ»ΡΠΊΠΎ «Π±Π»ΠΈΠ·ΠΎΠΊ ΠΊ ΡΠ΅ΡΠ°Π΅ΠΌΠΎΠΉ Π·Π°Π΄Π°ΡΠ΅», ΡΡΠΎΠ±Ρ ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ Π΅Π΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ Π²ΡΡΠ°ΠΆΠ°ΡΡ ΠΏΡΡΠΌΠΎ ΠΈ ΠΊΠΎΡΠΎΡΠΊΠΎ.
1.1 Π‘ΡΠ΅Π΄Π° Π΄Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Borland Delphi 2007
Π‘ΡΠ΅Π΄ΠΈ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·ΠΈΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² Π΄Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Delphi Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ ΠΎΠ΄Π½ΠΎ ΠΈΠ· Π²Π΅Π΄ΡΡΠΈΡ ΠΌΠ΅ΡΡ. Delphi ΠΎΡΠ΄Π°ΡΡ ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ Ρ ΡΠ°Π·Π½ΡΠΌ ΡΡΠ°ΠΆΠ΅ΠΌ, ΠΏΡΠΈΠ²ΡΡΠΊΠ°ΠΌΠΈ, ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠΌΠΈ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ°ΠΌΠΈ. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ Delphi Π½Π°ΠΏΠΈΡΠ°Π½ΠΎ ΠΊΠΎΠ»ΠΎΡΡΠ°Π»ΡΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ, Π΄Π΅ΡΡΡΠΊΠΈ ΡΠΈΡΠΌ ΠΈ ΡΡΡΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ²-ΠΎΠ΄ΠΈΠ½ΠΎΡΠ΅ΠΊ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡ Π΄Π»Ρ Delphi Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ.
ΠΠ°ΠΊΠ΅Ρ Delphi — ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ Π»ΠΈΠ½ΠΈΠΈ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ² ΡΠ·ΡΠΊΠ° Pascal ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠΈ Borland. Pascal ΠΊΠ°ΠΊ ΡΠ·ΡΠΊ ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡ, Π° ΡΡΡΠΎΠ³ΠΈΠΉ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΡΠ΅Ρ ΡΠ°Π½Π½Π΅ΠΌΡ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½ΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ ΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π±ΡΡΡΡΠΎ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ Π½Π°Π΄Π΅ΠΆΠ½ΡΠ΅ ΠΈ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠΎΡΠΏΠΎΡΠ°ΡΠΈΡ Borland ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎ ΠΎΠ±ΠΎΠ³Π°ΡΠ°Π»Π° ΡΠ·ΡΠΊ. ΠΠΎΠ³Π΄Π°-ΡΠΎ Π² Π²Π΅ΡΡΠΈΡ 4.0 Π±ΡΠ»ΠΈ Π²ΠΊΠ»ΡΡΠ΅Π½Ρ ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ°Π·Π΄Π΅Π»ΡΠ½ΠΎΠΉ ΡΡΠ°Π½ΡΠ»ΡΡΠΈΠΈ, ΠΏΠΎΠ·ΠΆΠ΅, Π½Π°ΡΠΈΠ½Π°Ρ Ρ Π²Π΅ΡΡΠΈΠΈ 5.5, ΠΏΠΎΡΠ²ΠΈΠ»ΠΈΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ, Π° Π² ΡΠΎΡΡΠ°Π² ΡΠ΅ΡΡΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ ΠΏΠ°ΠΊΠ΅ΡΠ° Π²ΠΎΡΠ»Π° ΠΏΠΎΠ»Π½ΠΎΡΠ΅Π½Π½Π°Ρ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° ΠΊΠ»Π°ΡΡΠΎΠ² Turbo Vision, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΠ°Ρ ΠΎΠΊΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅ ΡΠ°Π±ΠΎΡΡ Π²ΠΈΠ΄Π΅ΠΎΠ°Π΄Π°ΠΏΡΠ΅ΡΠ°. ΠΡΠΎ Π±ΡΠ» ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΠΏΠ΅ΡΠ²ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ², ΡΠΎΠ΄Π΅ΡΠΆΠ°Π²ΡΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ.
Π ΠΊΠ»Π°ΡΡΠ΅ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ² ΠΏΡΠΎΠ΄ΡΠΊΡΠ°ΠΌ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ Borland ΠΏΡΠΈΡΠ»ΠΎΡΡ ΠΊΠΎΠ½ΠΊΡΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎ ΡΡΠ΅Π΄ΠΎΠΉ Visual Basic ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠΈ Microsoft, Π³Π΄Π΅ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΈΠΈ ΠΈ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»ΠΈ ΡΠ΅ΡΠ΅Π½Ρ Π»ΡΡΡΠ΅. ΠΠΎΠ³Π΄Π° Π² Π½Π°ΡΠ°Π»Π΅ 70-Ρ Π³ΠΎΠ΄ΠΎΠ² Π. ΠΠΈΡΡ ΠΎΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°Π» ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎ Pascal, ΡΡΠΎ Π±ΡΠ» ΠΊΠΎΠΌΠΏΠ°ΠΊΡΠ½ΡΠΉ, Ρ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎΠΌ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΏΠΎΠ½ΡΡΠΈΠΉ ΠΈ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ»ΠΎΠ² ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π½Π°ΡΠ΅Π»Π΅Π½Π½ΡΠΉ Π½Π° ΠΎΠ±ΡΡΠ΅Π½ΠΈΠ΅ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ². Π―Π·ΡΠΊ, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΏΡΠ΅Π΄ΡΡΠΎΠΈΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Delphi, ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°Π»ΠΈΡΠΈΠ΅ΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π½ΠΎΠ²ΡΡ ΠΏΠΎΠ½ΡΡΠΈΠΉ ΠΈ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΉ, Π½ΠΎ ΠΈ ΠΈΠ΄Π΅ΠΉΠ½ΠΎ: Π² Π½Π΅ΠΌ Π²ΠΌΠ΅ΡΡΠΎ ΠΌΠΈΠ½ΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ ΡΠΈΡΠ»Π° ΠΏΠΎΠ½ΡΡΠΈΠΉ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠ°ΠΌΡΡ ΠΏΡΠΎΡΡΡΡ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΉ (ΡΡΠΎ, Π±Π΅Π·ΡΡΠ»ΠΎΠ²Π½ΠΎ, Ρ ΠΎΡΠΎΡΠΎ Π΄Π»Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ, Π½ΠΎ Π½Π΅ Π²ΡΠ΅Π³Π΄Π° ΠΎΠΏΡΠ°Π²Π΄Π°Π½ΠΎ Π² ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅), ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠ΅Π½ΠΈΠ΅ ΠΎΡΠ΄Π°Π΅ΡΡΡ ΡΠ΄ΠΎΠ±ΡΡΠ²Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. ΠΠ°ΠΊ ΡΠ·ΡΠΊ Turbo Pascal Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ ΡΡΠ°Π²Π½ΠΈΠ²Π°ΡΡ Ρ Π΅Π³ΠΎ Π±Π»ΠΈΠΆΠ°ΠΉΡΠΈΠΌΠΈ ΠΊΠΎΠ½ΠΊΡΡΠ΅Π½ΡΠ°ΠΌΠΈ — ΠΌΠ½ΠΎΠ³ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠΌΠΈ Π²Π°ΡΠΈΠ°ΡΠΈΡΠΌΠΈ Π½Π° ΡΠ΅ΠΌΡ ΡΠ·ΡΠΊΠ° Basic (Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Ρ Visual Basic ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠΈ Microsoft) ΠΈ Ρ C++. Turbo Pascal ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ ΠΏΡΠ΅Π²ΠΎΡΡ ΠΎΠ΄ΠΈΡ Basic Π·Π° ΡΡΠ΅Ρ ΠΏΠΎΠ»Π½ΠΎΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ΄Ρ ΠΎΠ΄Π°, Π²ΠΊΠ»ΡΡΠ°ΡΡΠ΅Π³ΠΎ Π² ΡΠ΅Π±Ρ ΡΠ°Π·Π²ΠΈΡΡΠ΅ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌΡ ΠΈΠ½ΠΊΠ°ΠΏΡΡΠ»ΡΡΠΈΠΈ, Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΏΠΎΠ»ΠΈΠΌΠΎΡΡΠΈΠ·ΠΌ. ΠΠΎΡΠ»Π΅Π΄Π½ΡΡ Π²Π΅ΡΡΠΈΡ ΡΠ·ΡΠΊΠ°, ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΠΌΠ°Ρ Π² Delphi, ΠΏΠΎ ΡΠ²ΠΎΠΈΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌ ΠΏΡΠΈΠ±Π»ΠΈΠΆΠ°Π΅ΡΡΡ ΠΊ C++. ΠΠ· ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌΠΎΠ², ΠΏΡΠΈΡΡΡΠΈΡ C++, ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ΅ Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅. (ΠΠΏΡΠΎΡΠ΅ΠΌ, ΡΡΠΈΠΌ ΠΊΡΠ°ΡΠΈΠ²ΡΠΌ ΠΈ ΠΌΠΎΡΠ½ΡΠΌ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌΠΎΠΌ ΠΏΠΎΡΠΎΠΆΠ΄Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ ΠΊΠ»Π°ΡΡΠΎΠ² ΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π»ΠΈΡΡ Π½Π΅Π±ΠΎΠ»ΡΡΠ°Ρ ΡΠ°ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ², ΠΏΠΈΡΡΡΠΈΡ Π½Π° Π‘++.) ΠΠ»ΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ·ΡΠΊΠ° Pascal ΠΎΡΠ΅Π²ΠΈΠ΄Π½Ρ: Ρ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ, Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ Visual Basic, ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ Π½Π° ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΈΠΈ ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°, Π΄Π»Ρ Π½Π΅Π³ΠΎ ΠΈΠΌΠ΅Π΅ΡΡΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ, Π³Π΅Π½Π΅ΡΠΈΡΡΡΡΠΈΠΉ ΠΌΠ°ΡΠΈΠ½Π½ΡΠΉ ΠΊΠΎΠ΄, ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π±ΠΎΠ»Π΅Π΅ Π±ΡΡΡΡΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π‘ Π΄ΡΡΠ³ΠΎΠΉ — Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ C++ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΠ·ΡΠΊΠ° Pascal ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΡΠ΅Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΎΡΠ΅Π½Ρ Π±ΡΡΡΡΡΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ².
Delphi ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΠΎΠ»Π½ΠΎΡΠ΅Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΡΠΈΠΏΠ° Brief, Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠ»Π°Π²ΠΈΡ Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ ΠΏΡΠΈΠ½ΡΡΡΠΌ Π² Windows ΡΡΠ°Π½Π΄Π°ΡΡΠ°ΠΌ, Π° Π³Π»ΡΠ±ΠΈΠ½Π° ΠΈΠ΅ΡΠ°ΡΡ ΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Undo Π½Π΅ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½Π°. ΠΠ°ΠΊ ΡΡΠΎ ΡΡΠ°Π»ΠΎ ΡΠΆΠ΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΡΠΌ, ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ΠΎ ΡΠ²Π΅ΡΠΎΠ²ΠΎΠ΅ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π»Π΅ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΡΠΎΡΠ΅ΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΡΠΎΡΡ. ΠΡΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΡΠΎΡΠΌΡ (Π² ΠΏΠΎΠ½ΡΡΠΈΠ΅ ΡΠΎΡΠΌΡ Π²Ρ ΠΎΠ΄ΡΡ ΠΎΠ±ΡΡΠ½ΡΠ΅, Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΠ΅, ΡΠΎΠ΄ΠΈΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΠΈ Π΄ΠΎΡΠ΅ΡΠ½ΠΈΠ΅ ΠΎΠΊΠ½Π° MDI), Π·Π°Π΄Π°ΡΡ Π΅Π΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΈ Π²ΠΊΠ»ΡΡΠΈΡΡ Π² Π½Π΅Π΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ (Π²ΠΈΠ΄ΠΈΠΌΡΠ΅ ΠΈ, Π΅ΡΠ»ΠΈ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΡΡΡ, Π½Π΅ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΡΠ΅): ΠΌΠ΅Π½Ρ, ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°Π½Π΅Π»ΠΈ, ΡΡΡΠΎΠΊΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΈ Ρ. ΠΏ., Π·Π°Π΄Π°ΡΡ ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΈ Π΄Π°Π»Π΅Π΅ Π½Π°ΠΏΠΈΡΠ°ΡΡ (Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°) ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ. Object Browser ΠΠΊΠ½Π° ΡΠΈΠΏΠ° Object Browser ΡΡΠ°Π»ΠΈ Π½Π΅ΠΎΡΡΠ΅ΠΌΠ»Π΅ΠΌΠΎΠΉ ΡΠ°ΡΡΡΡ ΡΠΈΡΡΠ΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ·ΡΠΊΠ°Ρ . Π Π°Π±ΠΎΡΠ° Ρ Π½ΠΈΠΌΠΈ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΠΉ ΡΡΠ°Π·Ρ ΠΏΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ ΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π»ΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅.
ProjeΡt Manager — ΡΡΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ, Π³Π΄Π΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΡΡΡΡ ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΈ ΡΠΎΡΠΌΡ, ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠΈΠ΅ ΠΏΡΠΎΠ΅ΠΊΡ. ΠΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΡΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ°ΡΡΡΡΡ ΠΊ ΠΊΠ°ΡΠ°Π»ΠΎΠ³Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ΅ΠΊΡΡ. ΠΠΈΡΠ½ΡΠΌ ΡΡΠΈΡΡΠΎΠΌ Π²ΡΠ΄Π΅Π»ΡΡΡΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½ΡΠ΅, Π½ΠΎ Π΅ΡΠ΅ Π½Π΅ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΠ΅ ΡΠ°ΡΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ°. Π Π²Π΅ΡΡ Π½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π° ΠΈΠΌΠ΅Π΅ΡΡΡ Π½Π°Π±ΠΎΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ: Π΄ΠΎΠ±Π°Π²ΠΈΡΡ, ΡΠ΄Π°Π»ΠΈΡΡ, ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΡΠ΅ΠΊΡΡ, ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠΌΡ, Π·Π°Π΄Π°ΡΡ ΠΎΠΏΡΠΈΠΈ ΠΈ ΡΠΈΠ½Ρ ΡΠΎΠ½ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΠΎΠΊΠ½Π° Ρ ΡΠ΅ΠΊΡΡΠΎΠΌ ΡΠ°ΠΉΠ»Π° ΠΏΡΠΎΠ΅ΠΊΡΠ°, Ρ. Π΅. Ρ Π³ΠΎΠ»ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ Π½Π° ΡΠ·ΡΠΊΠ΅ Pascal.
1.2 Microsoft Visual Basic
ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ delphi basic
Microsoft Visual Basic — ΡΡΠ΅Π΄ΡΡΠ²ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ, ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠ΅ ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠ΅ΠΉ Microsoft ΠΈ Π²ΠΊΠ»ΡΡΠ°ΡΡΠ΅Π΅ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ. Π―Π·ΡΠΊ Visual Basic ΡΠ½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π» Π΄ΡΡ , ΡΡΠΈΠ»Ρ ΠΈ ΠΎΡΡΠ°ΡΡΠΈ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΠ²ΠΎΠ΅Π³ΠΎ ΠΏΡΠ΅Π΄ΠΊΠ° — ΡΠ·ΡΠΊΠ° ΠΠ΅ΠΉΡΠΈΠΊ, Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π΅ΡΡΡ Π½Π΅ΠΌΠ°Π»ΠΎ Π΄ΠΈΠ°Π»Π΅ΠΊΡΠΎΠ². Π ΡΠΎ ΠΆΠ΅ Π²ΡΠ΅ΠΌΡ Visual Basic ΡΠΎΡΠ΅ΡΠ°Π΅Ρ Π² ΡΠ΅Π±Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π‘ΡΠ΅Π΄Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ VB Π²ΠΊΠ»ΡΡΠ°Π΅Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΡ Π΄Π»Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°.
Visual Basic ΡΡΠΈΡΠ°Π΅ΡΡΡ Ρ ΠΎΡΠΎΡΠΈΠΌ ΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ Π±ΡΡΡΡΠΎΠΉ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΡΠΎΡΠΈΠΏΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π΄Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π±Π°Π· Π΄Π°Π½Π½ΡΡ ΠΈ Π²ΠΎΠΎΠ±ΡΠ΅ Π΄Π»Ρ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ½ΠΎΠ³ΠΎ ΡΠΏΠΎΡΠΎΠ±Π° ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΡΠ°Π±ΠΎΡΠ°ΡΡΠΈΡ ΠΏΠΎΠ΄ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΡΠ΅ΠΌΠ΅ΠΉΡΡΠ²Π° Microsoft Windows.
Π Visual Basic Π²ΡΡΠΎΠΊΠ°Ρ ΡΠΊΠΎΡΠΎΡΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Ρ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ Π΄Π»Ρ MS Windows, ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΎΡΡΠΎΠΉ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠΉ ΠΎΡΠ΅Π½Ρ Π±ΡΡΡΡΠΎ ΠΎΡΠ²ΠΎΠΈΡΡ ΡΠ·ΡΠΊ.
ΠΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ ΠΊΠ°ΠΊ Π² ΠΌΠ°ΡΠΈΠ½Π½ΡΠΉ ΠΊΠΎΠ΄, ΡΠ°ΠΊ ΠΈ Π² P-ΠΊΠΎΠ΄ (ΠΏΠΎ Π²ΡΠ±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°). Π ΡΠ΅ΠΆΠΈΠΌΠ΅ ΠΎΡΠ»Π°Π΄ΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΠ΅Π³Π΄Π° (Π²Π½Π΅ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π²ΡΠ±ΠΎΡΠ°) ΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΡΠ΅ΡΡΡ Π² P-ΠΊΠΎΠ΄, ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΈΠΎΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π²Π½ΠΎΡΠΈΡΡ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΊΠΎΠ΄, Π° Π·Π°ΡΠ΅ΠΌ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ°ΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅: ΠΏΠΎΠ»Π½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΡ ΠΈ ΠΏΠ΅ΡΠ΅Π·Π°ΠΏΡΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΈ ΡΡΠΎΠΌ Π½Π΅ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ.
ΠΠ°ΡΠΈΡΠ° ΠΎΡ ΠΎΡΠΈΠ±ΠΎΠΊ, ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Π΅ΠΉ ΠΈ Π΄ΠΎΡΡΡΠΏΠΎΠΌ ΠΊ ΠΏΠ°ΠΌΡΡΠΈ. ΠΡΠΎΡ Π°ΡΠΏΠ΅ΠΊΡ Π΄Π΅Π»Π°Π΅Ρ Visual Basic ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π±ΠΎΠ»Π΅Π΅ ΡΡΠ°Π±ΠΈΠ»ΡΠ½ΡΠΌΠΈ, Π½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ ΠΊΡΠΈΡΠΈΠΊΠΈ.
ΠΠ΅Π΄ΠΎΡΡΠ°ΡΠΊΠΈ Visual Basic Π·Π°ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ:
ΠΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΌΠ΅ΠΉΡΡΠ²Π° Windows ΠΈ Mac OS X (ΠΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ — VB1 for DOS). ΠΡΡΡΡΡΡΠ²ΠΈΠ΅ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌΠ° Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ². Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π΅ Π² ΡΠ·ΡΠΊΠ΅ Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΡ, Π½ΠΎ Π½Π΅ ΠΈΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ.
Π’ΡΠ΅Π±ΡΠ΅Ρ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΡ msvbvmXX. dll Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΠ΅Π΄Π»Π΅Π½Π½Π°Ρ ΡΠΊΠΎΡΠΎΡΡΡ ΡΠ°Π±ΠΎΡΡ, ΠΎΠ±ΡΡΠ»ΠΎΠ²Π»Π΅Π½Π½Π°Ρ ΡΠ΅ΠΌ, ΡΡΠΎ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠ΅ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ·ΡΠΊΠ° ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Ρ ΡΠ΅ΡΠ΅Π· Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ (runtime library), ΠΊΠΎΡΠΎΡΠ°Ρ, Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ, ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ ΠΌΠ½ΠΎΠ³ΠΎ «Π»ΠΈΡΠ½Π΅ΠΉ» ΡΠ°Π±ΠΎΡΡ ΠΏΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ΅ ΠΈ/ΠΈΠ»ΠΈ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΡΠΈΠΏΠΎΠ².
ΠΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΠΎ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»» Π²ΠΏΠΎΠ»Π½Π΅ ΠΎΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΠΎ ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ Borland Delphi.
2. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»» Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi
2.1 ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»» Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi.
ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠ΅ΡΠΈΠΈ ΠΈ Π½ΠΎΠΌΠ΅ΡΠ΅ ΠΏΠ°ΡΠΏΠΎΡΡΠ°, ΠΊΠ΅ΠΌ Π±ΡΠ» Π²ΡΠ΄Π°Π½ ΠΈ Ρ. Π΄., Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΠ΄ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π½Π°Π΄ ΡΡΠΈΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ.
Π€ΡΠ½ΠΊΡΠΈΠΈ, Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»» Π·Π°ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ:
— Π²Π²ΠΎΠ΄ Π½ΠΎΠ²ΡΡ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΡ. ΠΠ°Π½Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠ΄ΡΠ°Π·ΡΠΌΠ΅Π²Π°Π΅Ρ Π·Π°Π³ΡΡΠ·ΠΊΡ Π½ΠΎΠ²ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ;
— ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ . ΠΠ°Π½Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ΄Π°Π»ΠΈΡΡ Π½Π΅ Π½ΡΠΆΠ½ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ;
— ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° Π΄Π°Π½Π½ΡΡ . Π’Π°ΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ Π΄Π°Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ;
— ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ Π·Π°ΠΏΡΠΎΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. ΠΠ°Π½Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠ΄ΡΠ°Π·ΡΠΌΠ΅Π²Π°Π΅Ρ ΠΏΠΎΠΈΡΠΊ Π΄Π°Π½Π½ΡΡ , ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΠ΅;
ΠΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Ρ ΡΠ°ΠΉΠ»ΠΎΠΌ ΠΎΡΠΎΡΠΌΠ»ΡΡΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΌΠ΅Π½Ρ.
2.2 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° Π·Π°Π΄Π°ΡΠΈ
ΠΡΠΎΡΠ΅Π΄ΡΡΡ ΠΌΡ Π²ΡΠ·ΡΠ²Π°Π΅ΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅Π½Ρ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π²ΡΠ±ΠΈΡΠ°Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΏΡΠ½ΠΊΡΡ.
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ.
a) procedure speedButton1Click — ΠΎΡΠΊΡΡΡΠΈΠ΅ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΡΠΎΡΠΌΡ;
b) procedure speedButton2Click — Π·Π°ΠΊΡΡΡΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ;
c) procedure FormCreate — ΠΠ»Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ Π²Π½Π΅ΡΠ½Π΅Π³ΠΎ Π²ΠΈΠ΄Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΡΠΎΡΠΌΡ (Π ΠΈΡ. 1);
d) procedure SpeedButton1Click — Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΡ. ΠΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² ΡΠ°Π±Π»ΠΈΡΡ;
e) procedure N3Click — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°Π±Π»ΠΈΡΡ. ΠΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΄Π°Π½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ;
f) procedure Showlist — Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈΠ· ΡΠ°ΠΉΠ»Π° Π² ΡΠ°Π±Π»ΠΈΡΡ. ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΄Π²Π°ΠΆΠ΄Ρ: ΠΏΡΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ΅ ΡΠ°Π±Π»ΠΈΡΡ ΠΈ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π²ΡΠ²ΠΎΠ΄Π° ΠΏΠΎΠ»Π½ΠΎΠ³ΠΎ ΡΠΏΠΈΡΠΊΠ° (Π ΠΈΡ. 2);
g) procedure N4Click — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΡΠ°Π±Π»ΠΈΡΡ. ΠΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ.
h) procedure SpeedButton2Click — ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ Π²ΡΠ±ΡΠ°Π½Π½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ;
i) procedure Sort — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ. ΠΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΡΡΠΎΡΡΠΈΡΠΎΠ²Π°ΡΡ Π½ΡΠΆΠ½ΠΎΠ΅ ΠΏΠΎΠ»Π΅ ΠΏΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ;
j) procedure Button1Click — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΄Π°Π»Π΅Π½ΠΈΡ. ΠΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΠΉ Π½Π°ΠΌ ΡΡΡΠΎΠΊΠΈ;
k) procedure poisk — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠΈΡΠΊΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½Π°Ρ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° Π½ΡΠΆΠ½ΡΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² Π½ΡΠΆΠ½ΠΎΠΌ ΠΏΠΎΠ»Π΅ ΡΠ°Π±Π»ΠΈΡΡ;
l) procedure filter — ΡΠΈΠ»ΡΡΡΠ°ΡΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡ ΠΊΡΠΈΡΠ΅ΡΠΈΡ.
ΠΠ»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» «Project4.exe» .
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅
n, ip: integer; //N-ΡΡΡΠΎΠΊ Π² ΡΠ°Π±Π»ΠΈΡΠ΅, ipΠΈΠ½Π΄Π΅ΠΊΡ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ°
s:string; //ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π·Π°Π³ΡΡΠΆΠ΅Π½Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π ΠΈΡ. 1 ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 1
Π ΠΈΡ 2. ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 2
2.3 ΠΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ°ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi
ΠΠΈΠΆΠ΅ ΡΡΠΎΡΠ½ΡΠ΅ΡΡΡ ΡΠΎΡΡΠ°Π² ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΡΡΡ Π²ΡΠ΅Π³ΠΎ ΠΊΠ»ΠΈΠ΅Π½ΡΡΠΊΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ (Π’Π°Π±Π»ΠΈΡΠ° 1).
Π’Π°Π±Π»ΠΈΡΠ° 1 ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠΎΡΠΌΡ
β | Π‘ΡΡΠ°Π½ΠΈΡΠ° | ΠΠΌΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° | Π‘Π²ΠΎΠΉΡΡΠ²ΠΎ | |
Standard | Panel1 (ΡΠ°Π±ΠΎΡΠ°Ρ ΠΏΠ°Π½Π΅Π»Ρ) | Align = alRight BorderWidth =12 | ||
Standard | Panel2 (ΠΏΠ°Π½Π΅Π»Ρ ΡΠ°Π±Π»ΠΈΡΡ) | Align = alClient BorderWidth = 3 | ||
Additional | StringGrid1 (ΠΎΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠ°Π±Π»ΠΈΡΠ°) | ColCount = 6 DefaultColWidth? 1/6 ΡΠΈΡΠΈΠ½Ρ ΡΠ°Π±Π»ΠΈΡΡ ScrollBars = ssVertical | ||
Standard | MainMenu1 (Π³Π»Π°Π²Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ) | Items ΠΠΎΠΌΠ°Π½Π΄Ρ ΠΌΠ΅Π½Ρ: Π€Π°ΠΉΠ» ΠΠ°Π³ΡΡΠ·ΠΈΡΡ ΡΠ°Π±Π»ΠΈΡΡ Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ°Π±Π»ΠΈΡΡ ΠΡΡ ΠΎΠ΄ Π‘ΠΏΡΠ°Π²ΠΊΠ° Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΠ± Π°Π²ΡΠΎΡΠ΅ | ||
Dialogs | OpenDialog1 (Π΄ΠΈΠ°Π»ΠΎΠ³ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»Π°) | Filter ΠΠ°Π΄Π°ΡΡ ΡΠ°Π±Π»ΠΎΠ½: Filter name | Filter Π’Π°Π±Π»ΠΈΡΡ | *.tab ΠΡΠ΅ ΡΠ°ΠΉΠ»Ρ | *.* | ||
Dialogs | SaveDialog1 (Π΄ΠΈΠ°Π»ΠΎΠ³ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°) | Filter ΠΠ°Π΄Π°ΡΡ ΡΠ°Π±Π»ΠΎΠ½: Filter name | Filter Π’Π°Π±Π»ΠΈΡΡ | *.tab ΠΡΠ΅ ΡΠ°ΠΉΠ»Ρ | *.* | ||
Standard | GroupBox1 (ΠΏΠ°Π½Π΅Π»Ρ Π²ΡΠ±ΠΎΡΠ° Π΄Π΅ΠΉΡΡΠ²ΠΈΡ) | Caption = ΠΠ΅ΠΉΡΡΠ²ΠΈΡ Align = alBottom | ||
Standard | GroupBox2 (ΠΏΠ°Π½Π΅Π»Ρ Π΄Π°Π½Π½ΡΡ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠ°) | Caption = ΠΠ±ΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ Align = alClient | ||
Standard | Label1 (ΠΠ΅ΡΠΊΠ°) | Π‘aption = Π€ΠΠ | ||
Standard | Edit1 (ΡΡΡΠΎΠΊΠ° Π²Π²ΠΎΠ΄Π°) | Π’ext — ΡΡΠ΅ΡΠ΅ΡΡ Π½Π°Π΄ΠΏΠΈΡΡ Edit1 | ||
Standard | Label2 (ΠΠ΅ΡΠΊΠ°) | Π‘aption = ΠΠΎΠΌΠ΅Ρ ΠΈ ΡΠ΅ΡΠΈΡ ΠΏΠ°ΡΠΏΠΎΡΡΠ° | ||
Standard | Edit2 (ΡΡΡΠΎΠΊΠ° Π²Π²ΠΎΠ΄Π°) | Π’ext — ΡΡΠ΅ΡΠ΅ΡΡ Π½Π°Π΄ΠΏΠΈΡΡ Edit2 | ||
Standard | Label3 (ΠΠ΅ΡΠΊΠ°) | Π‘aption = ΠΠ°ΡΠ° Π²ΡΠ΄Π°ΡΠΈ | ||
Additional | MaskEdit1 (ΠΎΠΊΠ½ΠΎ ΠΌΠ°ΡΠΊΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ) | Π’ext — ΡΡΠ΅ΡΠ΅ΡΡ Π½Π°Π΄ΠΏΠΈΡΡ MaskEdit1 EditMask — ΡΠ΅Π»ΠΊΠ½ΡΡΡ … ΠΈ Π²ΡΠ±ΡΠ°ΡΡ Data | ||
Standard | Label4 (ΠΠ΅ΡΠΊΠ°) | Π‘aption = ΠΠ΄ΡΠ΅ΡΡ | ||
Standard | Edit3 (ΡΡΡΠΎΠΊΠ° Π²Π²ΠΎΠ΄Π°) | Π’ext — ΡΡΠ΅ΡΠ΅ΡΡ Π½Π°Π΄ΠΏΠΈΡΡ Edit3 | ||
Standard | Label5 (ΠΠ΅ΡΠΊΠ°) | Π‘aption = ΠΠ΅ΠΌ Π²ΡΠ΄Π°Π½ | ||
Standard | ComboBox1 (ΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠ΅ΠΌΡΠΉ ΡΠΏΠΈΡΠΎΠΊ) | Π’ext — ΡΡΠ΅ΡΠ΅ΡΡ Π½Π°Π΄ΠΏΠΈΡΡ ComboBox1 Items — Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΎ ΠΈΠ· ΡΠ°ΠΉΠ»Π° Π½Π΅ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊΠ° Π² ΡΠΎΠ±ΡΡΠΈΠΈ FormCreate | ||
Additional | SpeedButton1 (ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠΎΠΉ) | Kind = bkOK Π‘aption = ΠΠΎΠ±Π°Π²ΠΈΡΡ Π² ΡΠ°Π±Π»ΠΈΡΡ | ||
Standard | RadioButton1 (ΡΠ°Π΄ΠΈΠΎΠΊΠ½ΠΎΠΏΠΊΠ°) | Π‘aption = Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° | ||
Standard | RadioButton2 | Π‘aption = ΠΠΎΠΈΡΠΊ ΠΏΠΎ Π€ΠΠ | ||
Standard | RadioButton3 | Π‘aption = ΠΠ°ΡΠ° Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° | ||
Standard | RadioButton4 | Π‘aption = ΠΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ | ||
Standard | Label6 (ΠΠ΅ΡΠΊΠ°) | Π‘aption = Π€ΠΠ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° | ||
Standard | Edit4 (ΡΡΡΠΎΠΊΠ° Π²Π²ΠΎΠ΄Π°) | Π’ext — ΡΡΠ΅ΡΠ΅ΡΡ Π½Π°Π΄ΠΏΠΈΡΡ Edit4 | ||
Standard | Label7 (ΠΠ΅ΡΠΊΠ°) | Π‘aption = ΠΠ°ΡΠ° Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° | ||
Standard | Edit5 (ΡΡΡΠΎΠΊΠ° Π²Π²ΠΎΠ΄Π°) | Π’ext — ΡΡΠ΅ΡΠ΅ΡΡ Π½Π°Π΄ΠΏΠΈΡΡ Edit5 | ||
Additional | SpeedButton2 (ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠΎΠΉ) | Kind = bkOK Π‘aption = ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ | ||
ΠΠΎΠ΄ΡΠ»ΡΠ½Π°Ρ ΡΡΡΡΠΊΡΡΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»» ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Π½Π° ΡΠΈΡ. 3.
Π ΠΈΡ. 3 ΠΠΎΠ΄ΡΠ»ΡΠ½Π°Ρ ΡΡΡΡΠΊΡΡΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»»
unit Unit4; {ΡΠΎΡΠΌΠ°-Π·Π°ΡΡΠ°Π²ΠΊΠ°}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm4 = class (TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure speedButton1Click (Sender: TObject);
procedure speedButton2Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormShow (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2;
{$R *.dfm}
procedure TForm4. speedButton1Click (Sender: TObject); {ΠΎΡΠΊΡΡΡΠΈΠ΅ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ}
begin
form2.show;
end;
procedure TForm4. speedButton2Click (Sender: TObject); {ΠΠ°ΠΊΡΡΡΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΠΎΡΠΌΡ}
begin
close;
end;
//ΡΡΡΠ΅ΠΊΡ ΡΠΎΡΠΌΡ
procedure TForm4. FormShow (Sender: TObject);
begin
AnimateWindow (Handle, 1000, AW_SLIDE or AW_BLEND);
end;
//ΠΡΡΠ΅ΠΊΡ ΡΠΎΡΠΌΡ
procedure TForm4. FormClose (Sender: TObject; var Action: TCloseAction);
var val: byte;
begin
Form4.AlphaBlend:=true;
Form4.TransparentColor:=true;
Form4.TransparentColorValue:=clWhite;
For val:=255 downto 0 do
begin
Form4.AlphaBlendValue:=val;
end;
end;
end.
unit Unit2; {Π Π°Π±ΠΎΡΠ°Ρ ΡΠΎΡΠΌΠ°}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, Menus, ExtCtrls, Grids;
type
TForm2 = class (TForm)
StringGrid1: TStringGrid;
Panel1: TPanel;
Panel2: TPanel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
MaskEdit1: TMaskEdit;
SpeedButton1: TSpeedButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label6: TLabel;
Edit3: TEdit;
RadioButton3: TRadioButton;
SpeedButton2: TSpeedButton;
ComboBox1: TComboBox;
RadioButton4: TRadioButton;
Edit5: TEdit;
Label7: TLabel;
Button1: TButton;
procedure SpeedButton1Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure N3Click (Sender: TObject);
procedure N5Click (Sender: TObject);
procedure SpeedButton2Click (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure Showlist;
procedure N6Click (Sender: TObject);
procedure N7Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
n, ip: integer;
s:string;
implementation
uses Unit3, Unit1;
{$R *.dfm}
procedure TForm2. Showlist; {ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠ²ΠΎΠ΄Π° ΡΠΏΠΈΡΠΊΠ° ΠΈΠ· ΡΠ°ΠΉΠ»Π°}
var t: textfile;
d:string; // ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ-Π±ΡΡΠ΅Ρ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π°
begin
n:=1; // ΡΠ±ΡΠ°ΡΡΠ²Π°Π΅ΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΡΠΎΠΊ Π² StringGrid
reset (t, s); // ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ» Π½Π° ΡΡΠ΅Π½ΠΈΠ΅
while not eof (t) do // ΠΏΠΎΠΊΠ° Π½Π΅ ΠΊΠΎΠ½Π΅Ρ ΡΠ°ΠΉΠ»Π° Π΄Π΅Π»Π°ΡΡ
begin
n:=n+1; // ΡΠ²Π΅Π»ΠΈΡΠΈΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΡΠΎΠΊ Π² ΡΠ°Π±Π»ΠΈΡΠ΅
StringGrid1.RowCount:=n;
StringGrid1.cells[0,n-1]: =inttostr (n-1); // Π²ΡΠ²ΠΎΠ΄ Π½ΠΎΠΌΠ΅ΡΠ° Π² ΡΠ°Π±Π»ΠΈΡΡ
readln (t, d); StringGrid1. Cells[1,n-1]: =d; // ΡΠΈΡΠ°Π΅ΠΌ ΠΈΠ· ΡΠ°ΠΉΠ»Π°
readln (t, d); StringGrid1. Cells[2,n-1]: =d;
readln (t, d); StringGrid1. Cells[3,n-1]: =d;
readln (t, d); StringGrid1. Cells[4,n-1]: =d;
readln (t, d); StringGrid1. Cells[5,n-1]: =d;
end;
closefile (t); // Π·Π°ΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ»
n:=n+1; // Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΏΡΡΡΡΡ ΡΡΡΠΎΠΊΡ Π² ΡΠ°Π±Π»ΠΈΡΡ
StringGrid1.RowCount:=n;
StringGrid1.FixedRows:=1;
end;
procedure TForm2. FormCreate (Sender: TObject); { ΠΠ»Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ Π²Π½Π΅ΡΠ½Π΅Π³ΠΎ Π²ΠΈΠ΄Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΡΠΎΡΠΌΡ }
var t: textfile; // ΠΎΠ±ΡΡΠ²Π»ΡΠ΅ΠΌ ΡΠ°ΠΉΠ»ΠΎΠ²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
d:string; //ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ-Π±ΡΡΠ΅Ρ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π°
begin
reset (t,'otdel.ini'); // ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ» Otdel. ini
while not eof (t) do // ΠΏΠΎΠΊΠ° Π½Π΅ ΠΊΠΎΠ½Π΅Ρ ΡΠ°ΠΉΠ»Π°
begin
readln (t, d); // ΡΠΈΡΠ°Π΅ΠΌ ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΡΡΡΠΎΠΊΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ d
combobox1.Items.Add (d); // Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ d ΠΊ ΡΠΏΠΈΡΠΊΡ
end;
combobox1.ItemIndex:=0;
closefile (t); // Π·Π°ΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ»
n:=2;
StringGrid1.RowCount:=n; // Π½Π°ΡΡΡΠΎΠΉΠΊΠ° ΡΠ°Π±Π»ΠΈΡΡ
StringGrid1.cells[0,0]: ='β';
StringGrid1.cells[1,0]:='Π€ΠΠ';
StringGrid1.cells[2,0]:='β ΠΈ ΡΠ΅ΡΠΈΡ ΠΏΠ°ΡΠΏΠΎΡΡΠ°';
StringGrid1.cells[3,0]: ='ΠΠ°ΡΠ° Π²ΡΠ΄Π°ΡΠΈ';
StringGrid1.cells[4,0]: ='ΠΠ΄ΡΠ΅ΡΡ';
StringGrid1.cells[5,0]:='ΠΠ΅ΠΌ Π²ΡΠ΄Π°Π½';
ip:=0; // Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ°
s:=''; // Π·Π°Π³ΡΡΠΆΠ΅Π½Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π½Π΅Ρ
end;
procedure TForm2. N3Click (Sender: TObject); {ΠΠ°Π³ΡΡΠ·ΠΈΡΡ ΡΠ°Π±Π»ΠΈΡΡ}
begin
if OpenDialog1. Execute then // Π΅ΡΠ»ΠΈ Π΄ΠΈΠ°Π»ΠΎΠ³ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ» Π²ΡΠΏΠΎΠ»Π½Π΅Π½
begin
s:=OpenDialog1.FileName; // ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° ΠΎΡ Π΄ΠΈΠ°Π»ΠΎΠ³Π°
ShowList; // Π²ΡΠ²ΠΎΠ΄ΠΈΠΌ ΡΠΏΠΈΡΠΎΠΊ ΠΈΠ· ΡΠ°ΠΉΠ»Π°
end;
end;
procedure TForm2. N4Click (Sender: TObject); {Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°Π±Π»ΠΈΡΡ}
var t: textfile;
i:integer;
begin
if savedialog1. Execute then // Π΅ΡΠ»ΠΈ Π΄ΠΈΠ°Π»ΠΎΠ³ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° Π²ΡΠΏΠΎΠ»Π½Π΅Π½
begin
s:=savedialog1.FileName; // ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° ΠΎΡ Π΄ΠΈΠ°Π»ΠΎΠ³Π°
rewrite (t, s); // ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ» Π½Π° Π·Π°ΠΏΠΈΡΡ
for i:=1 to n-2 do // ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°Π΅ΠΌ ΡΡΡΠΎΠΊΠΈ ΡΠ°Π±Π»ΠΈΡΡ
begin
writeln (t, StringGrid1. cells[1,i]); // Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ
writeln (t, StringGrid1. cells[2,i]);
writeln (t, StringGrid1. cells[3,i]);
writeln (t, StringGrid1. cells[4,i]);
writeln (t, StringGrid1. cells[5,i]);
end;
closefile (t); // Π·Π°ΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ»
end;
end;
procedure TForm2. N5Click (Sender: TObject); {ΠΡΡ ΠΎΠ΄}
begin
application.Terminate;
end;
procedure TForm2. N6Click (Sender: TObject); {ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄}
begin
form1.show;
end;
procedure TForm2. N7Click (Sender: TObject);
begin
form3.show;
end;
procedure TForm2. SpeedButton1Click (Sender: TObject); {ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΡ}
begin
StringGrid1.cells[0,n-1]: =IntToSTR (n-1);
StringGrid1.cells[1,n-1]:=Edit1.Text;
StringGrid1.cells[2,n-1]:=Edit2.Text;
StringGrid1.cells[3,n-1]:=MaskEdit1.Text;
StringGrid1.cells[4,n-1]:=Edit4.Text;
StringGrid1.cells[5,n-1]:=combobox1.Text;
n:=n+1;
StringGrid1.RowCount:=n;
end;
procedure TForm2. SpeedButton2Click (Sender: TObject);
procedure Sort; { Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° Π΄Π°Π½Π½ΡΡ } // ΠΏΡΠ·ΡΡΡΠΊΠΎΠ²Π°Ρ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΠΎ Π€ΠΠ
var i, k: integer;
s1:string;
begin
for k:=n-2 downto 2 do
for i:=1 to k-1 do
begin
if StringGrid1. Cells[1,i]>StringGrid1.Cells[1,i+1] then
begin
s1:=StringGrid1.Cells[1,i];
StringGrid1.Cells[1,i]:=StringGrid1.Cells[1,i+1];
StringGrid1.Cells[1,i+1]:=s1;
s1:=StringGrid1.Cells[2,i];
StringGrid1.Cells[2,i]:=StringGrid1.Cells[2,i+1];
StringGrid1.Cells[2,i+1]:=s1;
s1:=StringGrid1.Cells[3,i];
StringGrid1.Cells[3,i]:=StringGrid1.Cells[3,i+1];
StringGrid1.Cells[3,i+1]:=s1;
s1:=StringGrid1.Cells[4,i];
StringGrid1.Cells[4,i]:=StringGrid1.Cells[4,i+1];
StringGrid1.Cells[4,i+1]:=s1;
s1:=StringGrid1.Cells[5,i];
StringGrid1.Cells[5,i]:=StringGrid1.Cells[5,i+1];
StringGrid1.Cells[5,i+1]:=s1;
end;
end;
end;
procedure filter; { ΠΡΠ²ΠΎΠ΄ ΠΏΠΎ Π΄Π°ΡΠ΅}
var i, j: integer;
begin
i:=1;
while i<=n-2 do
if StringGrid1. Cells[3,i]<>Edit5.Text then
begin for j:=i+1 to n do // ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ Π½Π΅ Π½ΡΠΆΠ½ΠΎΠΉ Π΄Π°ΡΡ
begin
StringGrid1.Cells[1,j-1]: =StringGrid1.Cells[1,j];
StringGrid1.Cells[2,j-1]:=StringGrid1.Cells[2,j];
StringGrid1.Cells[3,j-1]:=StringGrid1.Cells[3,j];
StringGrid1.Cells[4,j-1]:=StringGrid1.Cells[4,j];
StringGrid1.Cells[5,j-1]:=StringGrid1.Cells[5,j];
end;
n:=n-1;
end else i:=i+1;
StringGrid1.rowCount:=n;
StringGrid1.cells[0,n-1]: ='';
end;
procedure poisk; {ΠΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ}
var i: integer;
sel:TGridRect; // ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π΄Π»Ρ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΡ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ Π½Π°ΠΉΠ΄Π΅Π½Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ
begin
i:=ip+1;
while (StringGrid1.Cells[1,i]<>Edit3.text)and (i
i:=i+1;
if i>n-2 then
begin
ip:=0;
sel.Left:=1;
sel.Right:=1;
sel.Top:=1;
sel.Bottom:=1;
StringGrid1.Selection:=sel;
ShowMessage ('ΠΠ°ΠΏΠΈΡΡ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½Π°');
end
else
begin
ip:=i;
sel.Left:=1;
sel.Right:=5;
sel.Top:=i;
sel.Bottom:=ip;
StringGrid1.Selection:=sel;
end;
end;
begin
if RadioButton1. Checked then
Sort
else if RadioButton2. Checked then
poisk
else if radiobutton4. checked then
filter
else if RadioButton3. Checked then
if s<>'' then Showlist
else ShowMessage ('Π‘ΠΏΠΈΡΠΎΠΊ Π½Π΅ ΡΠ²ΡΠ·Π°Π½ Ρ ΡΠ°ΠΉΠ»ΠΎΠΌ! ΠΡΠ²ΠΎΠ΄ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ΅Π½!')
else ShowMessage ('Π£ΠΊΠ°ΠΆΠΈΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅') ;
end;
procedure TForm2. Button1Click (Sender: TObject); {ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ}
var i, j: Integer;
begin
for I := StringGrid1. Row to StringGrid1. RowCount — 1 do
begin
for j := 1 to StringGrid1. ColCount — 1 do
begin
StringGrid1.Cells[j, i]: =StringGrid1.Cells[j, i+1];
end;
end;
end;
end.
2.4 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ»Ρ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» «Project4.exe» ΠΈ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ»Π°Π²ΠΈΡΡ «F9» (Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ «Delphi»). ΠΠΎΡΠ²ΠΈΡΡΡ ΡΠΎΡΠΌΠ°-Π·Π°ΡΡΠ°Π²ΠΊΠ° Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ Π²ΡΠ±ΡΠ°ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Π½Π°Π΄ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ (ΡΠΈΡ. 4).
Π ΠΈΡ. 4 ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ «ΠΠ°ΡΠΏΠΎΡΡΠ½ΡΠΉ ΡΡΠΎΠ»»
Π§ΡΠΎΠ±Ρ Π½Π°ΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡ Π² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΏΠΎΠΈΡΠΊΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ΅Π»ΠΊΠ½ΡΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡ». ΠΠ΅ΡΠ΅Π΄ Π²Π°ΠΌΠΈ ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ ΠΎΠΊΠ½ΠΎ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΡΠΎΡΠΌΡ (ΡΠΈΡ. 5).
Π ΠΈΡ. 5 Π Π°Π±ΠΎΡΠ°Ρ ΡΠΎΡΠΌΠ° Π§ΡΠΎΠ±Ρ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²Π²Π΅ΡΡΠΈ Π΄Π°Π½Π½ΡΠ΅ (ΡΠΈΡ. 6).
Π ΠΈΡ. 6 ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ Π² ΡΠ°Π±Π»ΠΈΡΡ Π§ΡΠΎΠ±Ρ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π½Π°Π΄ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΊΠ°ΠΊΠΈΠ΅-Π»ΠΈΠ±ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ ΠΈΠ»ΠΈ Π²Π²Π΅ΡΡΠΈ Π΄Π°Π½Π½ΡΠ΅ Π΄Π»Ρ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΈ ΡΠ΅Π»ΠΊΠ½ΡΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ» (ΡΠΈΡ. 7).
Π ΠΈΡ. 7 ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΠ»Ρ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΡΡΡΠΎΠΊΠΈ Π²Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΡΡΡΠΎΠΊΡ, ΠΊΠΎΡΠΎΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ΄Π°Π»ΠΈΡΡ ΠΈ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ «Π£Π΄Π°Π»ΠΈΡΡ ΡΡΡΠΎΠΊΡ» .
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΎ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅:
ΠΠ·ΡΡΠ΅Π½Ρ ΡΡΠ΅Π΄ΡΡΠ²Π° IDE Delphi, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠ΅ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°ΡΡ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΌΠΈ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈΠ΅ΠΌΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΡΡΠ΅ΠΉΡΠΈΡ ΠΌΠ½ΠΎΠ³ΠΎΠΎΠΊΠΎΠ½Π½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ IDE Delphi ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΡΡΠ΅Π΄ΡΡΠ²ΠΎ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅Π΅ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°ΡΡ Π²Π²ΠΎΠ΄, ΠΏΡΠΎΡΠΌΠΎΡΡ ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ , Ρ ΡΠ°Π½ΡΡΠΈΡ ΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅. ΠΡΠ΅Π΄ΠΌΠ΅ΡΠ½Π°Ρ ΠΎΠ±Π»Π°ΡΡΡ: Π΄Π°Π½Π½ΡΠ΅ ΠΎ Π²ΡΠ΄Π°ΡΠ΅ ΠΏΠ°ΡΠΏΠΎΡΡΠ°. Π‘ΡΡΡΠΊΡΡΡΠ° Π·Π°ΠΏΠΈΡΠΈ: Π€ΠΠ, β ΠΈ ΡΠ΅ΡΠΈΡ ΠΏΠ°ΡΠΏΠΎΡΡΠ°, Π΄Π°ΡΠ° Π²ΡΠ΄Π°ΡΠΈ, Π°Π΄ΡΠ΅Ρ, ΠΊΠ΅ΠΌ Π²ΡΠ΄Π°Π½. Π’Π°ΠΊΠΆΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
1. Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠΏΠΈΡΠΎΠΊ Π² ΡΠ°ΠΉΠ»;
2. ΠΠ°Π³ΡΡΠ·ΠΈΡΡ ΡΠ°Π½Π΅Π΅ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΠΉ ΡΠΏΠΈΡΠΎΠΊ ΠΈΠ· ΡΠ°ΠΉΠ»Π°;
3. ΠΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ — ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π·Π°ΠΏΠΈΡΠ΅ΠΉ, ΡΠ΄ΠΎΠ²Π»Π΅ΡΠ²ΠΎΡΡΡΡΠΈΡ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ»Ρ;
4. Π€ΠΈΠ»ΡΡΡΠ°ΡΠΈΡ Π΄Π°Π½Π½ΡΡ — ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΏΠΈΡΠΊΠ°, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠΌΠ΅ΡΡ Π·Π°Π΄Π°Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² ΠΏΠΎΠ»Π΅
5. Π‘ΠΎΡΡΠΈΡΠΎΠ²ΠΊΡ ΡΠΏΠΈΡΠΊΠ° ΠΏΠΎ ΠΏΠΎΠ»Ρ Π€ΠΠ Π² Π°Π»ΡΠ°Π²ΠΈΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅;
6. Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ.
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π. Π―. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Delphi 6. — Π.: ΠΠΠ «ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ ΠΠΠΠΠ», 2010 Π³. — 1120 Ρ.
2. ΠΠΎΠ±ΡΠΎΠ²ΡΠΊΠΈΠΉ Π‘. Π. «Delphi 7. Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ» — Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2009 Π³.
3. ΠΡΠ»ΡΡΠΈΠ½ Π. Π. Delphi 6. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° Object Pascal.
4. Π‘ΡΡΠΊΠΎΠ² Π., Π‘ΡΡΠΊΠΎΠ² Π., ΠΠ°Π»ΡΠ²Π°ΡΠ΅Π² Π. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ Delphi 2.0 — ΠΠ½.: ΠΠΠ «ΠΠΎΠΏΡΡΡΠΈ», 2007. — 640 Ρ.
5. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. «Delphi 6. Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ». ΠΠΎΡΠΊΠ²Π°, 2011 Π³.
6. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. «Delphi 6. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ: Π£ΡΠ΅Π±Π½ΠΈΠΊ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²» — Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2011 Π³.
7. ΠΠΈΡΠ°ΡΠ΅Π² Π’. Π. «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi6»: ΠΠΠ ΠΡΠ΅ΡΡ 2012 Π³.