Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π·Π½Π°Π½ΠΈΠΉ Π΄Π»Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ ΠΊΠΎΠ΄ΠΎΠΌ Π½Π° ΡΠ·ΡΠΊΠ΅ Delphi
ΠΠ° ΠΏΠ΅ΡΠ²ΠΎΠΌ ΡΡΠ°ΠΏΠ΅ ΡΠ΅Π»Π΅ΡΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ Π² Π½Π°ΡΠ°Π»Π΅ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ°ΡΠΈΠΉΡΡ Π²Π²ΠΎΠ΄ΠΈΠ» ΡΠ²ΠΎΡ ΠΈΠΌΡ ΠΈ ΡΠ°ΠΌΠΈΠ»ΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ Π·Π°Π΄Π°Π²Π°Π» ΡΠΈΡΡ Π³ΡΡΠΏΠΏΡ. ΠΠ°ΡΠ΅ΠΌ ΡΡΠ°ΡΠΈΠΉΡΡ ΠΏΡΠΈΡΡΡΠΏΠ°Π΅Ρ ΠΊ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΈΡΠΎΠ³ΠΎΠ²Π°Ρ ΠΎΡΠ΅Π½ΠΊΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ°Π²Π½Π° ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ, Π΅ΡΠ»ΠΈ Π²ΡΠ΅ ΠΎΡΠ²Π΅ΡΡ Π±ΡΠ»ΠΈ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΌΠΈ. ΠΡΠ»ΠΈ ΠΈΠΌΠ΅ΡΡΡΡ ΠΎΡΠΈΠ±ΠΊΠΈ, ΡΠΎ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π±Π°Π»Π», ΠΏΡΠΎΠΏΠΎΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠΉ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π·Π½Π°Π½ΠΈΠΉ Π΄Π»Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ ΠΊΠΎΠ΄ΠΎΠΌ Π½Π° ΡΠ·ΡΠΊΠ΅ Delphi (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ
1. ΠΠ½Π°Π»ΠΈΠ· ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ ΠΈ ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
2. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌ ΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
3. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ
3.1 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²
3.2 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ BitBtn1Click
4. ΠΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΠ°Π½Π½ΡΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ Π±ΡΠ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ Π² ΡΡΠ΅Π΄Π΅ Delphi. Π‘ΡΠ΅Π΄ΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΡΠ·ΡΠΊΠΎΠ², ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½ΡΠΌ ΠΈ Π»Π΅Π³ΠΊΠΎ ΠΈΠ·ΡΡΠ°Π΅ΠΌΡΠΌ ΡΠ·ΡΠΊΠΎΠΌ. ΠΡΠΈ ΡΡΠΎΠΌ Π΅Π³ΠΎ ΡΠ΄ΠΎΠ±Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ»ΠΎΠΆΠ½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ, Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ , ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΌΠ°ΡΡΡΠ°Π±Π° ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ. Delphi ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²ΡΠ΅ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
Delphi — ΡΡΠΎ ΡΡΠ΅Π΄Π° Π±ΡΡΡΡΠΎΠΉ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ·ΡΠΊ Delphi. Π―Π·ΡΠΊ Delphi — ΡΡΡΠΎΠ³ΠΎ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ·ΡΠΊ.
Delphi ΠΏΡΠΎΡΡ ΠΈ Π»ΠΎΠ³ΠΈΡΠ΅Π½. ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ ΡΠ·ΡΠΊΠ° ΡΠ΅ΡΠΊΠΎ Π²ΡΠ΄Π΅Π»ΡΡΡΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅, ΡΡΠΎ ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΡΠ΅Ρ Ρ ΠΎΡΠΎΡΠ΅ΠΌΡ Π²ΠΎΡΠΏΡΠΈΡΡΠΈΡ Π½Π°ΠΏΠΈΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°. ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Delphi ΠΎΡΠ»ΠΈΡΠ½ΠΎ ΠΏΡΠΎΠ΄ΡΠΌΠ°Π½, ΡΡΠ΅Π΄Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ Π΄ΠΎΡΡΡΠΏ ΡΠΎΠ»ΡΠΊΠΎ ΠΊ ΡΠ΅ΠΌ ΡΡΠ°ΡΡΠΊΠ°ΠΌ ΠΊΠΎΠ΄Π°, Ρ ΠΊΠΎΡΠΎΡΡΠΌΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π±ΠΎΡΠ°ΡΡ, ΡΠΊΡΡΠ²Π°Ρ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΡΠ°ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠ·Π΄Π°Π΅ΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠ°ΠΌΠΎΠΉ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΎΠΉ.
ΠΠ»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ, ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΡΠΊΠ°Π·Π°Π² ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΠΊΠΎΠΌΠ°Π½Π΄ Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ².
Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΡΠΎΡΡΠ°Π²ΠΈΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΏΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΈ ΠΎΡΠ»Π°Π΄ΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ.
Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ: ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π·Π½Π°Π½ΠΈΠΉ Π΄Π»Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ ΠΊΠΎΠ΄ΠΎΠΌ Π½Π° ΡΠ·ΡΠΊΠ΅ Delphi, Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΠΈ Π²ΡΠ²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Delphi.
Π ΠΏΠ΅ΡΠ²ΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ Π°Π½Π°Π»ΠΈΠ· ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ, Π²ΡΠ΄Π΅Π»Π΅Π½Ρ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠΌΠΈ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΎΠ±Π»Π°Π΄Π°ΡΡ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²Π°Π½Ρ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ Π½Π΅ΠΌΡ, ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½Π° ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ Π½Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅. ΠΠΎ Π²ΡΠΎΡΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π°Π½Π°Π»ΠΈΠ· Π·Π°Π΄Π°ΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π°Π½Π°Π»ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π²ΠΈΠ΄ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ , Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠ΅Π³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΡΠ΅ΡΡΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΈ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠ»ΠΎΠ²Π΅ΡΠ½ΡΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π ΡΡΠ΅ΡΡΠ΅ΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΈΠ²ΠΎΠ΄ΡΡΡΡ ΠΈΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ. Π ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π° ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π° Π² ΡΠ΅ΡΠ²Π΅ΡΡΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅.
1. ΠΠ½Π°Π»ΠΈΠ· ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ ΠΈ ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
Π‘ΠΎΠ³Π»Π°ΡΠ½ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ Π·Π½Π°Π½ΠΈΠΉ Π΄Π»Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΏΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ ΠΎΡΠ΅Π½ΠΊΡ.
ΠΠ»Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° Π°Π½Π°Π»ΠΈΠ·Π° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΠΈ ΠΎΡΠ²Π΅ΡΠΎΠ² Π±ΡΠ΄Π΅Ρ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ ΠΎΡΡΠ»Π΅ΠΆΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· ΠΎΡΠ²Π΅ΡΠΎΠ² ΡΠ΅ΡΡΠΈΡΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΈ ΡΠΎΡ ΡΠ°Π½ΡΡΡ Π»ΠΎΠ³ ΠΎΡΠ²Π΅ΡΠΎΠ² Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» Π½Π° ΠΆΠ΅ΡΡΠΊΠΎΠΌ Π΄ΠΈΡΠΊΠ΅.
ΠΠ°Π΄ΠΈΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠ½ΡΡΠΈΡΠΌ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π² Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅. ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠΎΠ½ΡΡΠΈΡ: ΡΡΡΠΎΠΊΠ°, ΡΠ°ΠΉΠ», ΠΌΠ°ΡΡΠΈΠ², Π·Π°ΠΏΠΈΡΡ.
Π’ΠΈΠΏ STRING (ΡΡΡΠΎΠΊΠ°) Π² «Borland Delphi» ΡΠΈΡΠΎΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ΅ΠΊΡΡΠΎΠ². ΠΠ½ Π²ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΌ ΠΏΠΎΡ ΠΎΠΆ Π½Π° ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ARRAY [0.N] OF CHAR, ΠΎΠ΄Π½Π°ΠΊΠΎ, Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΡΡΡΠΎΠΊΠ΅-ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΌΠΎΠΆΠ΅Ρ ΠΌΠ΅Π½ΡΡΡΡΡ ΠΎΡ 0 Π΄ΠΎ N, Π³Π΄Π΅ N — ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΡΡΡΠΎΠΊΠ΅.
ΠΠΎΠ΄ ΡΠ°ΠΉΠ»ΠΎΠΌ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΡΡΡ Π»ΠΈΠ±ΠΎ ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½Π°Ρ ΠΎΠ±Π»Π°ΡΡΡ Π²Π½Π΅ΡΠ½Π΅ΠΉ ΠΏΠ°ΠΌΡΡΠΈ ΠΠ (ΠΆΠ΅ΡΡΠΊΠΎΠ³ΠΎ Π΄ΠΈΡΠΊΠ°, Π³ΠΈΠ±ΠΊΠΎΠΉ Π΄ΠΈΡΠΊΠ΅ΡΡ, ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΠΎΠ³ΠΎ «Π²ΠΈΡΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ» Π΄ΠΈΡΠΊΠ°), Π»ΠΈΠ±ΠΎ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎ — ΠΏΠΎΡΠ΅Π½ΡΠΈΠ°Π»ΡΠ½ΡΠΉ ΠΈΡΡΠΎΡΠ½ΠΈΠΊ ΠΈΠ»ΠΈ ΠΏΡΠΈΠ΅ΠΌΠ½ΠΈΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
ΠΠ°ΠΏΠΈΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠΈΠΏΠΎΠ².
«Borland Delphi» ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΎΠ΄Π½ΠΎΡΠΈΠΏΠ½ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°ΠΌΠΈ. ΠΠ°ΡΡΠΈΠ² — ΡΡΠΎ ΡΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΠΎΠ±Π»Π΅Π΄Π΅Π½Π΅Π½ΠΈΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΎΠ΄Π½ΠΎΡΠΈΠΏΠ½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (ΡΠΈΡΠ΅Π», ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ², ΡΡΡΠΎΠΊ ΠΈ Ρ. ΠΏ.), ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌΠΎΠ΅ ΠΊΠ°ΠΊ Π΅Π΄ΠΈΠ½ΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅. ΠΠ»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ³ΠΎ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ΄ΠΎΠ±Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ°ΡΡΠΈΠ²Ρ Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ ΡΠΈΠΏΠ° Π·Π°ΠΏΠΈΡΡ. Π£Π΄ΠΎΠ±ΡΡΠ²ΠΎ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡΡ ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΠΎ Π½ΠΎΠΌΠ΅ΡΡ. ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΠ΄ΠΎΠ±ΡΡΠ²ΠΎ ΠΏΡΠΈΠ²Π½ΠΎΡΡΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Ρ, ΠΎΡΠ»ΠΈΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΡΡ ΠΊΠΎΡΠΎΡΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ ΠΌΠ°ΡΡΠΈΠ²Π°, ΡΠΎ Π΅ΡΡΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠ΅ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΈΠ»ΠΈ ΠΎΡΠ²ΠΎΠ±ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ ΠΏΠ°ΠΌΡΡΠΈ ΠΏΠΎΠ΄ ΡΡΠ΅Π±ΡΠ΅ΠΌΠΎΠ΅ Π² Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π΄Π°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ Windows, ΡΠΎ Π΄Π»Ρ Π΅Π΅ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π±ΡΠ΄Π΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ ΠΏΡΠΈ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΏΠΎΠ΄ Windows Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°. Π’Π°ΠΊ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΡΠΎΡΠΌΡ Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΌΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌΠΈ, Π΄Π»Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΡΠΎΠΏΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ — ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ. ΠΠ°Π»Π΅Π΅, ΠΊΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠΎΠ±ΡΡΠΈΠ΅ Π½Π° ΠΊΠ°ΠΊΠΎΠΌ-ΡΠΎ ΠΈΠ· Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, (ΡΠ΅Π»ΡΠΎΠΊ ΠΌΡΡΠΈ, Π½Π°ΠΆΠ°ΡΠΈΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ ΠΈΠ»ΠΈ ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ), ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΏΠΎΡΡΠ»Π°Π΅Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅, ΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΠΈΠΌΠ΅Π½Π½ΠΎ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΡΠΎΠ±ΡΡΠΈΡ. Π’ΠΎΠ³Π΄Π° ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°Π·Π±ΠΈΡΡ Π½Π° 3 ΡΡΠ°ΠΏΠ°:
1) Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌ ΡΡΠ΅Π΄Ρ Delphi ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ , Π·Π°ΠΏΡΡΠΊΠ° Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΠΏΠΎ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ , Π²ΡΠ²ΠΎΠ΄Π° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ, Π²ΡΠ²ΠΎΠ΄Π° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π½Π° ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌΡ. ΠΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅ΡΡ Π²ΡΠ²ΠΎΠ΄ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ ΠΈ Π·Π°Π΄Π°Π½ΠΈΠΈ ΠΊΡΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ°.
2) Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΎΠ² ΡΠΎΠ±ΡΡΠΈΠΉ ΠΎΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌ, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΊΠΎΠ΄ΠΎΠ² Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ.
3) ΠΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠ° ΡΠ΅ΡΡΠΎΠ²ΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΎΡΠ»Π°Π΄ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΠ° ΠΏΠ΅ΡΠ²ΠΎΠΌ ΡΡΠ°ΠΏΠ΅ ΡΠ΅Π»Π΅ΡΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ Π² Π½Π°ΡΠ°Π»Π΅ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ°ΡΠΈΠΉΡΡ Π²Π²ΠΎΠ΄ΠΈΠ» ΡΠ²ΠΎΡ ΠΈΠΌΡ ΠΈ ΡΠ°ΠΌΠΈΠ»ΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ Π·Π°Π΄Π°Π²Π°Π» ΡΠΈΡΡ Π³ΡΡΠΏΠΏΡ. ΠΠ°ΡΠ΅ΠΌ ΡΡΠ°ΡΠΈΠΉΡΡ ΠΏΡΠΈΡΡΡΠΏΠ°Π΅Ρ ΠΊ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΈΡΠΎΠ³ΠΎΠ²Π°Ρ ΠΎΡΠ΅Π½ΠΊΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ°Π²Π½Π° ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ, Π΅ΡΠ»ΠΈ Π²ΡΠ΅ ΠΎΡΠ²Π΅ΡΡ Π±ΡΠ»ΠΈ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΌΠΈ. ΠΡΠ»ΠΈ ΠΈΠΌΠ΅ΡΡΡΡ ΠΎΡΠΈΠ±ΠΊΠΈ, ΡΠΎ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π±Π°Π»Π», ΠΏΡΠΎΠΏΠΎΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠΉ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ². Π’Π°ΠΊΠΆΠ΅ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π²Π΅ΡΡΠΈΡΡ ΠΏΡΠΎΡΠΎΠΊΠΎΠ» ΠΎΡΠ²Π΅ΡΠΎΠ², Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ ΡΠ΅ΡΡΠΈΡΡΠ΅ΠΌΡΠΌ ΠΈ ΠΏΠΎΡΠΎΠΌ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ Π½Π° ΠΆΠ΅ΡΡΠΊΠΈΠΉ Π΄ΠΈΡΠΊ.
ΠΠ»Ρ ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΠΎΡΡΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅Π»Π΅ΡΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅ΡΡ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ Π²ΠΎΠΏΡΠΎΡΠΎΠ², ΡΡΠΎΠ±Ρ ΠΏΡΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π·Π°ΠΏΡΡΠΊΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΡ Π²ΠΎΠΏΡΠΎΡΠΎΠ² ΠΈΠ·ΠΌΠ΅Π½ΡΠ»ΡΡ.
ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ Π²ΡΠΎΡΠΎΠ³ΠΎ ΡΡΠ°ΠΏΠ° ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΡΠΉ ΠΏΡΠΈΠ½ΡΠΈΠΏ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠΎ Π΅ΡΡΡ ΡΠ°Π·Π±ΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΡΠ°ΡΡΠΈ, ΠΊΠ°ΠΆΠ΄Π°Ρ ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΊΠ°ΠΊΡΡ-ΡΠΎ Π·Π°ΠΊΠΎΠ½ΡΠ΅Π½Π½ΡΡ Π·Π°Π΄Π°ΡΡ, Π»ΠΈΠ±ΠΎ Π΅Π΅ ΠΌΠ°Π»ΡΡ ΡΠ°ΡΡΡ. Π ΠΎΠ»Ρ ΡΠ°ΠΊΠΈΡ ΡΠ°ΡΡΠ΅ΠΉ Π±ΡΠ΄ΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠΎΡΡΠΎΡΡΠΈΠ΅ ΠΈΠ· ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ, Π½Π°Π·ΡΠ²Π°ΡΡΡΡ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΡΠΌΠΈ.
ΠΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ ΠΌΠΎΠ³ΡΡ Π²ΡΠ·ΡΠ²Π°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Π±ΠΎΠ»Π΅Π΅ Π½ΠΈΠ·ΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΊΠ°ΠΆΠ΄Π°Ρ ΠΌΠΎΠ΄ΡΠ»ΡΠ½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈΠΌΠ΅Π΅Ρ ΠΈΠ΅ΡΠ°ΡΡ ΠΈΡΠ΅ΡΠΊΡΡ ΡΡΡΡΠΊΡΡΡΡ. Π‘Π»Π΅Π΄ΡΠ΅Ρ Π·Π°ΠΌΠ΅ΡΠΈΡΡ, ΡΡΠΎ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ ΠΎΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌ ΡΠΎΠΆΠ΅ ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΡΡ ΠΊΠ°ΠΊ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ.
ΠΠ° ΡΡΠ΅ΡΡΠ΅ΠΌ ΡΡΠ°ΠΏΠ΅ ΠΏΡΠΈ ΠΎΡΠ»Π°Π΄ΠΊΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΎΠ»ΠΆΠ½Π° Π°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΡΡΡ ΡΠ°Π±ΠΎΡΡ Π½Π° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ ΡΠ΅ΡΡΠΎΠ²ΡΡ ΠΎΠ±ΡΠ°Π·ΡΠ°Ρ . ΠΠ° ΡΡΠΎΠΌ ΡΡΠ°ΠΏΠ΅ Π½ΡΠΆΠ½ΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌΡ Π·Π°Π΄Π°Π½ΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ Π΅Π΅ Π½Π° ΠΎΡΡΡΡΡΡΠ²ΠΈΠ΅ ΠΎΡΠΈΠ±ΠΎΠΊ.
ΠΠΎΠ΄ΡΡΠΎΠΆΠΈΠ² Π²ΡΠ΅ Π²ΡΡΠ΅ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅, ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²Π°ΡΡ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ ΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΡ Π·Π°Π΄Π°Π½ΠΈΡ Π½Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° Ρ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π² ΡΡΠ΅Π΄Π΅ Borland Delphi ΠΈ Π΄ΠΎΠ»ΠΆΠ½Π° Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ:
— Π·Π°ΠΏΡΠ°ΡΠΈΠ²Π°ΡΡ ΡΠ°ΠΌΠΈΠ»ΠΈΡ, ΠΈΠΌΡ ΠΈ Π³ΡΡΠΏΠΏΡ ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ;
— Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ ΠΏΠΎΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎ Π²ΠΎΠΏΡΠΎΡΡ ΠΈΠ· Π±Π°Π·Ρ;
— ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΠΎΡΠ²Π΅ΡΡ ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ;
— Π°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΡΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΈ ΡΠ°ΡΡΡΠΈΡΡΠ²Π°ΡΡ ΠΈΡΠΎΠ³ΠΎΠ²ΡΠΉ Π±Π°Π»Π» ΠΏΡΠΎΠΏΠΎΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ²;
— Π²Π΅ΡΡΠΈ ΠΏΡΠΎΡΠΎΠΊΠΎΠ»ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ ΠΈΡ Π² ΡΠ°ΠΉΠ»Π΅ Π½Π° ΠΆΠ΅ΡΡΠΊΠΎΠΌ Π΄ΠΈΡΠΊΠ΅;
— ΠΏΠΎ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ΅Π½ΠΊΡ;
— ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ Π²ΠΎΠΏΡΠΎΡΠΎΠ², ΡΡΠΎΠ±Ρ ΠΏΡΠΈ ΠΏΠΎΠ²ΡΠΎΡΠ½ΡΡ Π·Π°ΠΏΡΡΠΊΠ°Ρ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΡ Π²ΠΎΠΏΡΠΎΡΠΎΠ² Π±ΡΠ» ΡΠ°Π·Π»ΠΈΡΠ½ΡΠΌ.
ΠΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ°Π·Π΄Π΅Π»Ρ Π±ΡΠ΄ΡΡ ΠΏΠΎΡΠ²ΡΡΠ΅Π½Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°Ρ ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Ρ Π²ΡΡΠ΅ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΡΠΌΠΈ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ.
2. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌ ΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Π ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ Π±ΡΠ»ΠΎ ΡΠΊΠ°Π·Π°Π½ΠΎ, ΡΡΠΎ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΡΠ°Π·Π±ΠΈΠ²Π°Π΅ΡΡΡ Π½Π° 3 ΡΡΠ°ΠΏΠ°, ΠΏΠ΅ΡΠ²ΡΠΉ ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌ ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠΎ ΡΡΠΎΡΠΌΡΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ Π² ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΌ Π·Π°Π΄Π°Π½ΠΈΠΈ ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ΅ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΈΠΌΠ΅ΡΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ΅ΡΡΠΈΡΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ — Π²Π²ΠΎΠ΄Π° Π΅Π³ΠΎ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ ΠΈ Π³ΡΡΠΏΠΏΡ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ ΡΠΎΡΠΌΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ FormAvto. ΠΠ»Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ ΠΎΠ± ΡΡΠ°ΡΠ΅ΠΌΡΡ ΠΏΠΎΠΌΠ΅ΡΡΠΈΠΌ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΏΠΎΠ»Ρ Π²Π²ΠΎΠ΄Π° ΡΠΈΠΏΠ° TEdit ΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΌΠ΅ΡΠΊΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΊ Π½ΠΈΠΌ. Π‘ΠΏΠΈΡΠΎΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 2.1
Π’Π°Π±Π»ΠΈΡΠ° 2.1 — ΠΠ±ΡΠ΅ΠΊΡΡ ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ FormAvto
ΠΠΌΡ | Π’ΠΈΠΏ | ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ | |
Label1 | TLabel | Π½Π°Π΄ΠΏΠΈΡΡ «ΠΠ°Π΄Π°ΠΉΡΠ΅ ΡΠ°ΠΌΠΈΠ»ΠΈΡ, ΠΈΠ½ΠΈΡΠΈΠ°Π»Ρ ΠΈ Π³ΡΡΠΏΠΏΡ ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ» | |
Label2 | TLabel | Π½Π°Π΄ΠΏΠΈΡΡ «Π€Π°ΠΌΠΈΠ»ΠΈΡ» | |
Label3 | TLabel | Π½Π°Π΄ΠΏΠΈΡΡ «ΠΠΌΡ» | |
Efam | TEdit | ΠΏΠΎΠ»Π΅ Π΄Π»Ρ Π²ΠΎΠ΄Π° ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ | |
EGroup | TEdit | ΠΏΠΎΠ»Π΅ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° Π³ΡΡΠΏΠΏΡ ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ | |
BitBtnStart | TBitBtn | ΠΊΠ½ΠΎΠΏΠΊΠ° Π΄Π»Ρ Π½Π°ΡΠ°Π»Π° ΡΠ΅ΡΡΠ° Ρ Π½Π°Π΄ΠΏΠΈΡΡΡ «ΠΠΠ§ΠΠ’Π¬» | |
ΠΠ»Ρ Π½Π°ΡΠ°Π»Π° ΡΠ΅ΡΡΠ° ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ° ΡΠΈΠΏΠ° TBitBtn, ΠΊΠΎΡΠΎΡΡΠΉ Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΠΎΠ±ΡΡΠ½ΡΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ ΡΠΈΠΏΠ° TButton ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π·Π°Π΄Π°Π²Π°ΡΡ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΡ, Π½ΠΎ ΠΈ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅. Π ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ΅ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π° ΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π΄ΠΎΠ»ΠΆΠ½Π° Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ ΡΠΎΡΠΌΠ° Ρ Π²ΠΎΠΏΡΠΎΡΠ°ΠΌΠΈ. ΠΠ½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΡΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 2.1
Π ΠΈΡΡΠ½ΠΎΠΊ 2.1 — ΠΠ½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΡΠΎΡΠΌΡ FormAvto
ΠΠ»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π²ΠΎΠΏΡΠΎΡΠΎΠ², Π²Π²ΠΎΠ΄Π° ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ ΡΠΎΡΠΌΡ FormTest. Π‘ΠΏΠΈΡΠΎΠΊ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Π² ΡΠΎΡΠΌΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 2.2, Π° Π²Π½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 2.2.
Π’Π°Π±Π»ΠΈΡΠ° 2.2 — ΠΠ±ΡΠ΅ΠΊΡΡ ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ FormTest
ΠΠΌΡ | Π’ΠΈΠΏ | ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ | |
Label1 | TLabel | Π½Π°Π΄ΠΏΠΈΡΡ «Π’Π΅ΠΊΡΡΠΈΠΉ Π²ΠΎΠΏΡΠΎΡ» | |
LbNom | TLabel | Π½Π°Π΄ΠΏΠΈΡΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ° | |
StaticText1 | TStaticText | ΠΏΠΎΠ»Π΅, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π±ΡΠ΄Π΅Ρ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ Π²ΠΎΠΏΡΠΎΡ | |
RGroup1 | TRadioGroup | ΠΏΠΎΠ»Ρ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΈ ΠΈΡ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠΌ | |
BitBtn1 | TBitBtn | ΠΊΠ½ΠΎΠΏΠΊΠ° «ΠΡΠΈΠ½ΡΡΡ ΠΎΡΠ²Π΅Ρ» Π΄Π»Ρ Π°Π½Π°Π»ΠΈΠ·Π° ΠΎΡΠ²Π΅ΡΠ° ΠΈ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΊ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌΡ Π²ΠΎΠΏΡΠΎΡΡ | |
BNewTest | TButton | ΠΊΠ½ΠΎΠΏΠΊΠ° Π΄Π»Ρ Π·Π°ΠΊΡΡΡΠΈΡ ΡΠΎΡΠΌΡ ΡΠ΅ΡΡΠΎΠ² ΠΈ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° Π½Π° ΡΠΎΡΠΌΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ (Π΄Π»Ρ Π½ΠΎΠ²ΠΎΠΉ ΠΏΠΎΠΏΡΡΠΊΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ) | |
ΠΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΡΠΎΡΠΌΡ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π»ΠΎΡΡ, ΡΡΠΎ Π±Π°Π·Π° Π²ΠΎΠΏΡΠΎΡΠΎΠ² Π±ΡΠ΄Π΅Ρ ΠΏΠΎΡΡΡΠΎΡΠ½Π° ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΎΡΠ²Π΅Ρ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π» Π²ΡΠ±ΠΎΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ· ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΡΠ΅ΡΡΡΠ΅Ρ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² ΠΎΡΠ²Π΅ΡΠΎΠ². Π’ΠΎ Π΅ΡΡΡ, Π±Π°Π·Π° Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π²ΠΎΠΏΡΠΎΡΠΎΠ² Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌ Π²ΡΠ±ΠΎΡΠΎΠΌ, Π»ΠΈΠ±ΠΎ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² Π±Π΅Π· ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΎΡΠ²Π΅ΡΠ°. Π’Π°ΠΊΠΆΠ΅ Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ Π²ΠΎΠΏΡΠΎΡΠΎΠ², ΡΡΠ΅Π±ΡΡΡΠΈΡ Π²Π²ΠΎΠ΄Π° ΠΎΡΠ²Π΅ΡΠ° Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ Π²ΠΈΠ΄Π΅ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΡΠ²Π΅Ρ Π²ΡΡΠΈΡΠ»Π΅Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡΠ»Ρ ΠΈΠ»ΠΈ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ΅ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΊΠ»ΡΡΠ΅Π²ΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π°).
Π ΠΈΡΡΠ½ΠΎΠΊ 2.2 — ΠΠ½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΡΠΎΡΠΌΡ FormTest
ΠΠΎ ΠΈΠ·Π±Π΅ΠΆΠ°Π½ΠΈΠ΅ ΠΊΡΠ°ΡΠΊΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΡΠ΅ΡΡΠ° ΡΠΊΡΠΎΠ΅ΠΌ ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ΅ ΠΌΠ΅Π½Ρ ΠΎΠΊΠ½Π°, ΡΡΡΠ°Π½ΠΎΠ²ΠΈΠ² ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΎΡΠΌΡ FormTest. BorderIcons biSystemMenu ΡΠ°Π²Π½ΡΠΌ false. Π’Π°ΠΊΠΆΠ΅ Π² Π°Π»Π³ΠΎΡΠΈΡΠΌΠ΅ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅ΡΡ, ΡΡΠΎ Π² Π½Π°ΡΠ°Π»Π΅ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠ° Ρ Π½Π°Π΄ΠΏΠΈΡΡΡ «ΠΠ°ΡΠ°ΡΡ Π·Π°Π½ΠΎΠ²ΠΎ» Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π½Π΅Π²ΠΈΠ΄ΠΈΠΌΠΎΠΉ, ΠΈ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΠ»Π΅ ΠΎΡΠ²Π΅ΡΠ° Π½Π° Π²ΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ ΠΈ Π²ΡΠ²ΠΎΠ΄Π° ΠΈΡΠΎΠ³ΠΎΠ²ΠΎΠΉ ΠΎΡΠ΅Π½ΠΊΠΈ.
ΠΠ½Π°Π»ΠΈΠ·ΠΈΡΡΡ Π²ΡΠ΅ Π²ΡΡΠ΅ΠΈΠ·Π»ΠΎΠΆΠ΅Π½Π½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠ΅ ΡΠΎΡΠΌΡ, ΠΌΠΎΠΆΠ΅ΠΌ ΡΠΎΡΡΠ°Π²ΠΈΡΡ ΡΠ»ΠΎΠ²Π΅ΡΠ½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
1. ΠΠ°ΠΏΡΡΡΠΈΡΡ ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ FormAvto
2. ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΡΠ°ΡΡ» ΡΠ»Π΅Π΄ΡΠ΅Ρ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
2.1 Π‘Π³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°ΡΡ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ², ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ ΠΈΡ ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ;
2.2 Π‘ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° ΠΈΠ· ΠΈΠΌΠ΅Π½ΠΈ ΡΡΡΠ΄Π΅Π½ΡΠ° ΠΈ Π΅Π³ΠΎ Π³ΡΡΠΏΠΏΡ ΠΈ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ;
2.3 ΠΠ±Π½ΡΠ»ΠΈΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ²;
2.4 Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ° Π½Π° ΠΏΠ΅ΡΠ²ΡΠΉ Π²ΠΎΠΏΡΠΎΡ;
2.5 Π‘ΠΊΡΡΡΡ ΡΠΎΡΠΌΡ FormAvto ΠΈ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠΌΡ Ρ ΡΠ΅ΡΡΠ°ΠΌΠΈ FormTest;
2.6 ΠΠΎΠΊΠ°Π·Π°ΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ Π²ΠΎΠΏΡΠΎΡ ΠΈ Π²Π°ΡΠΈΠ°Π½ΡΡ Π΅Π³ΠΎ ΠΎΡΠ²Π΅ΡΠΎΠ² Π½Π° ΡΠΎΡΠΌΠ΅ FormTest;
2.7 ΠΠΆΠΈΠ΄Π°ΡΡ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΠΈΠ½ΡΡΡ ΠΎΡΠ²Π΅Ρ».
3. ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΠΈΠ½ΡΡΡ ΠΎΡΠ²Π΅Ρ» ΡΠ»Π΅Π΄ΡΠ΅Ρ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ:
3.1 ΠΡΠΎΠ°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΉ Π²Π°ΡΠΈΠ°Π½Ρ ΠΎΡΠ²Π΅ΡΠ° ΠΈ ΡΡΠ°Π²Π½ΠΈΡΡ Π΅Π³ΠΎ Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΌ, ΠΈ Π΅ΡΠ»ΠΈ ΠΎΡΠ²Π΅Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΉ, ΡΠΎ Π½Π°ΡΠ°ΡΡΠΈΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ² Π½Π° 1;
3.2 ΠΠ°ΠΏΠΈΡΠ°ΡΡ Π² ΡΠ°ΠΉΠ» ΠΏΡΠΎΡΠΎΠΊΠΎΠ»Π° ΡΠ΅ΠΊΡΡΠΈΠΉ Π²ΠΎΠΏΡΠΎΡ ΠΈ Π²Π°ΡΠΈΠ°Π½Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Π²ΡΠ±ΡΠ°Π» ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΎΡΠ²Π΅ΡΠ°;
3.3 ΠΡΠ»ΠΈ Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ° ΠΌΠ΅Π½ΡΡΠ΅ ΠΎΠ±ΡΠ΅Π³ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π²ΠΎΠΏΡΠΎΡΠΎΠ² Π² Π±Π°Π·Π΅, ΡΠΎ Π½Π°ΡΠ°ΡΡΠΈΡΡ Π½ΠΎΠΌΠ΅Ρ Π½Π° 1, Π²ΡΠ²Π΅ΡΡΠΈ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ Π²ΠΎΠΏΡΠΎΡ Π½Π° ΡΠΎΡΠΌΡ ΠΈ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ Π½Π°ΡΠ°Π»Ρ ΠΏΡΠ½ΠΊΡΠ° 3.
3.4 ΠΡΠ»ΠΈ Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ° ΡΠ°Π²Π΅Π½ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ² Π² Π±Π°Π·Π΅, ΡΠΎ:
3.4.1. ΠΏΠΎΠ΄ΡΡΠΈΡΠ°ΡΡ ΠΎΡΠ΅Π½ΠΊΡ ΠΏΡΠΎΠΏΠΎΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ²;
3.4.2. ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Ρ ΠΎΡΠ΅Π½ΠΊΠΎΠΉ;
3.4.3. ΡΠ΄Π΅Π»Π°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΡΠ°ΡΡ Π·Π°Π½ΠΎΠ²ΠΎ» Π²ΠΈΠ΄ΠΈΠΌΠΎΠΉ
4. ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ΠΠ°ΡΠ°ΡΡ Π·Π°Π½ΠΎΠ²ΠΎ» Π·Π°ΠΊΡΡΡΡ ΡΠΎΡΠΌΡ Ρ ΡΠ΅ΡΡΠ°ΠΌΠΈ FormTest ΠΈ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΡΠΎΡΠΌΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ FormAvto.
ΠΠ½Π°Π»ΠΈΠ·ΠΈΡΡΡ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΡΡΠ½ΠΊΡΠΈΡΠΌ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΏΠΎΠ΄ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠ΅ ΡΠΊΡΠ°Π½Π½ΡΠ΅ ΡΠΎΡΠΌΡ ΠΈ ΡΠ»ΠΎΠ²Π΅ΡΠ½ΡΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ, ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΠΌΠΎΠ΄ΡΠ»ΠΈ:
1) ΠΠ΅Π½Π΅ΡΠ°ΡΠΈΡ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ²;
2) ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ² ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ;
3) ΠΠ½Π°Π»ΠΈΠ· ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΠΎΡΠ²Π΅ΡΠ° ΠΈ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ Π½Π° ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΎΠΏΡΠΎΡ, Π΅ΡΠ»ΠΈ Π²ΠΎΠΏΡΠΎΡ Π½Π΅ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ Π»ΠΈΠ±ΠΎ Π²ΡΠ²ΠΎΠ΄ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΈ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ°;
4) ΠΠΎΠ΄ΡΠ»ΠΈ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΊΡΠ°Π½Π½ΡΠΌΠΈ ΡΠΎΡΠΌΠ°ΠΌΠΈ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ ΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· Π²ΡΡΠ΅ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΡΠ΅Π°Π»ΠΈΠ·ΡΠ΅ΠΌ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. ΠΠΎΠ΄ΡΠ»Ρ 1 ΡΠ΅Π»Π΅ΡΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ ΡΠ°Π· ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΡΠΎΡΠΌΡ Ρ ΡΠ΅ΡΡΠ°ΠΌΠΈ. ΠΠΎΠ΄ΡΠ»Ρ 2 ΡΠ»Π΅Π΄ΡΠ΅Ρ Π·Π°ΠΏΡΡΠΊΠ°ΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΏΡΠΈ Π½Π°ΡΠ°Π»Π΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ΅ΡΡΠ°, ΡΠΎ Π΅ΡΡΡ ΠΏΡΠΈ Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΠΈ ΡΠΎΡΠΌΡ Ρ ΡΠ΅ΡΡΠ°ΠΌΠΈ. ΠΠΎΠ΄Π΅Π»Ρ 3 Π΄ΠΎΠ»ΠΆΠ΅Π½ Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΠΈΠ½ΡΡΡ ΠΎΡΠ²Π΅Ρ». ΠΠΎΠ΄ΡΠ»ΠΈ 4 Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ°ΠΌΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΉ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΡΠ°ΡΡ» ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ ΠΈ ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°ΡΠ°ΡΡ Π·Π°Π½ΠΎΠ²ΠΎ» ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
Π‘ΠΎΡΡΠ°Π²ΠΈΠΌ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ A.1. ΠΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΠΎΠ±ΡΡΠΈΡ ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌ. Π ΡΡΠΎΠΌ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ΅:
ΠΠ»ΠΎΠΊ № 4 ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ FormAvto, BitBtnStartClick,
Π±Π»ΠΎΠΊ № 5 — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ FormTest. FormCreate,
Π±Π»ΠΎΠΊ № 6 — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ FormTest. FormActivate,
Π±Π»ΠΎΠΊ № 7 — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ FormTest BNewTestClick,
Π±Π»ΠΎΠΊ № 8 ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ FormTest. BitBtn1Click.
ΠΠ΅ΡΠ°Π»ΡΠ½ΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΉ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ΠΎ Π² ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΠ°Π·Π΄Π΅Π»Π°Ρ .
3. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ
3.1 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ FormAvto, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌΡ. ΠΠ±ΡΠ΅ΠΊΡΡ ΡΠΊΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ Π±ΡΠ»ΠΈ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 2.1. Π£ ΡΠΎΡΠΌΡ ΠΈΠΌΠ΅Π΅ΡΡΡ Π»ΠΈΡΡ ΠΎΠ΄ΠΈΠ½ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ BitBtnStart. Π’Π΅ΠΊΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΡΡΡΠΎΠΊΠ°Ρ 26−32 Π»ΠΈΡΡΠΈΠ½Π³Π° ΠΈΠ· ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π. Π ΡΠ΅Π»Π΅ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅ Π²Π²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠΌΠ΅Π½ΠΈ ΠΈ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ ΠΈ Π΅Π³ΠΎ Π³ΡΡΠΏΠΏΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΈΡΡ ΠΎΠ΄Π½Π°Ρ ΡΠΎΡΠΌΠ° ΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ ΡΠΎΡΠΌΠ° ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ FormTest, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌΡ, ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 2.2.
Π ΡΠ°Π·Π΄Π΅Π»Π΅ var ΠΎΠΏΠΈΡΠ΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 3.1
Π’Π°Π±Π»ΠΈΡΠ° 3.1 — ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ | Π’ΠΈΠΏ | ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ | |
SFam, SGr | String | Ρ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ ΠΈ Π³ΡΡΠΏΠΏΡ ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ | |
fName | String | ΠΈΠΌΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ ΠΏΡΠΎΡΠΎΠΊΠΎΠ»Π° | |
f | TextFile | ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΌ ΡΠ°ΠΉΠ»ΠΎΠΌ | |
BasaV | CVoprosi | ΠΊΠ»Π°ΡΡ, Ρ ΡΠ°Π½ΡΡΠΈΠΉ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ² ΠΈ ΠΎΡΠ²Π΅ΡΡ | |
CurN | byte | Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ° ΠΈΠ· Π±Π°Π·Ρ | |
Ratio | byte | ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ² | |
ΠΠ»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ² ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π΅ΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΉ ΠΊΠ»Π°ΡΡ CVoprosi. Π ΠΊΠ»Π°ΡΡΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ ΠΎΠ΄Π½ΠΎ ΠΏΠΎΠ»Π΅ ΠΈ Π΄Π²Π° ΠΌΠ΅ΡΠΎΠ΄Π°. ΠΠΎΠ»Π΅ test — ΡΡΠΎ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΌΠ°ΡΡΠΈΠ², Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Ρ ΡΠ°Π½ΡΡΡΡ Π²ΠΎΠΏΡΠΎΡΡ ΠΈ ΠΎΡΠ²Π΅ΡΡ. ΠΡΠΈ ΡΡΠΎ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ΅ΡΡ Ρ ΡΠ°Π½ΠΈΡΡΡΡ Π² Π²ΠΈΠ΄Π΅ Π·Π°ΠΏΠΈΡΠΈ ΡΠΈΠΏΠ° TTest ΡΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌΠΈ ΠΏΠΎΠ»ΡΠΌΠΈ:
— Vopr: string — ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²ΠΎΠΏΡΠΎΡ ΡΠ΅ΡΡΠ°;
— ans: array [0.3] of string — ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ 4 Π²Π°ΡΠΈΠ°Π½ΡΠ° ΠΎΡΠ²Π΅ΡΠΎΠ²;
— korans: byte — ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²Π°ΡΠΈΠ°Π½Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΎΡΠ²Π΅ΡΠ° (Π΅Π³ΠΎ Π½ΠΎΠΌΠ΅Ρ Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ ans).
ΠΠ»Ρ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π±Π°Π·Ρ ΠΎΡΠ²Π΅ΡΠΎΠ² ΡΠΎΠ·Π΄Π°Π½ ΠΌΠ΅ΡΠΎΠ΄ AddTest (_vopr, _ans0, _ans1, _ans2, _ans3:string; _korans:byte), ΠΊΠΎΡΠΎΡΠΎΠΌΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡΡΡ Π²ΠΎΠΏΡΠΎΡ, ΡΠ΅ΡΡΡΠ΅ Π²Π°ΡΠΈΠ°Π½ΡΠ° ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΈ Π½ΠΎΠΌΠ΅Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΎΡΠ²Π΅ΡΠ°, Π° Π² ΡΠ΅Π»Π΅ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅ Π΄Π»ΠΈΠ½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° Ρ ΡΠ΅ΡΡΠ°ΠΌΠΈ Π½Π° Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΈ ΡΠ΅ΠΊΡΡΠΈΠΉ ΡΠ΅ΡΡ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² ΠΊΠΎΠ½Π΅Ρ ΠΌΠ°ΡΡΠΈΠ²Π°.
ΠΡΠΎΡΠΎΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΠΊΠ»Π°ΡΡΠ° CVoprosi. Mix ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΡ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ². Π Π½ΡΠΌ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°Π½ ΡΠΈΠΊΠ», Π² ΡΠ΅Π»Π΅ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π³Π΅Π½Π΅ΡΠΈΡΡΡΡΡΡ Π΄Π²Π° ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΡΡ ΡΠΈΡΠ»Π° i1 ΠΈ i2 Π² ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π΅ ΠΎΡ 0 Π΄ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π²ΠΎΠΏΡΠΎΡΠΎΠ² Π² Π±Π°Π·Π΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ΅. ΠΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΡ Ρ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌΠΈ i1 ΠΈ i2 ΠΌΠ΅Π½ΡΡΡΡΡ ΠΌΠ΅ΡΡΠ°ΠΌΠΈ.
Π ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΎΠ² ΡΠΎΠ±ΡΡΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Ρ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 3.2.
Π’Π°Π±Π»ΠΈΡΠ° 3.2. ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ
ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ | ΠΠ±Ρ-ΠΊ | ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ | Π‘ΡΡΠΎΠΊΠΈ | |
BitBtnStartClick | ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ Π½Π° ΡΠΎΡΠΌΡ ΡΠ΅ΡΡΠΎΠ² ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ «ΠΠΠ§ΠΠ’Π¬» | 26−32 | ||
FormCreate | ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ² ΠΏΡΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΡΠΎΠΌΡΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ | 108−156 | ||
FormActivate | ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ (ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅, ΡΠ±ΡΠΎΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΈ Π½ΠΎΠΌΠ΅ΡΠ° ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ°, Π²ΡΠ²ΠΎΠ΄ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ°) ΠΏΡΠΈ Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΠΈ ΡΠΎΡΠΌΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ | 157−182 | ||
BitBtn1Click | Π°Π½Π°Π»ΠΈΠ· Π²Π²Π΅Π΄Π΅Π½Π½ΠΎΠ³ΠΎ ΠΎΡΠ²Π΅ΡΠ° ΠΈ Π²ΡΠ²ΠΎΠ΄ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ° ΠΈΠ»ΠΈ ΠΈΡΠΎΠ³ΠΎΠ²ΠΎΠΉ ΠΎΡΠ΅Π½ΠΊΠΈ | 183−228 | ||
BNewTestClick | Π·Π°ΠΊΡΡΡΠΈΠ΅ ΡΠΎΡΠΌΡ ΡΠ΅ΡΡΠΎΠ² ΠΈ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ Π½Π° ΡΠΎΡΠΌΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° «ΠΠ°ΡΠ°ΡΡ Π·Π°Π½ΠΎΠ²ΠΎ» | 229−235 | ||
AddTest | Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ΅ΡΡΠ° Π² Π±Π°Π·Ρ | 78−90 | ||
Mix | ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ ΡΠ΅ΡΡΠΎΠ² ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ | 91−107 | ||
3.2 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ BitBtn1Click
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° BitBtn1Click ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ Π°Π½Π°Π»ΠΈΠ·Π° ΠΎΡΠ²Π΅ΡΠ° ΠΈ Π²ΡΠ²ΠΎΠ΄Π° ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ° ΠΈΠ»ΠΈ ΠΈΡΠΎΠ³ΠΎΠ²ΠΎΠΉ ΠΎΡΠ΅Π½ΠΊΠΈ. ΠΠ»Π³ΠΎΡΠΈΡΠΌ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ Π.2 ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π.
Π ΡΠ΅Π»Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ: ΠΡΠ»ΠΈ ΡΠ΅ΠΊΡΡΠΈΠΉ Π½ΠΎΠΌΠ΅Ρ Π²ΠΎΠΏΡΠΎΡΠ° ΠΌΠ΅Π½ΡΡΠ΅ ΠΎΠ±ΡΠ΅Π³ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π²ΠΎΠΏΡΠΎΡΠΎΠ², ΡΠΎ ΡΠΎΡΠΌΠΈΡΡΠ΅ΡΡΡ ΡΡΡΠΎΠΊΠ° S c Π²ΠΎΠΏΡΠΎΡΠΎΠΌ ΠΈ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΌ ΠΎΡΠ²Π΅ΡΠΎΠΌ ΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² ΡΠ°ΠΉΠ» ΠΏΡΠΎΡΠΎΠΊΠΎΠ»ΠΎΠ² f. Π‘ΡΠ°Π²Π½ΠΈΠ²Π°Π΅ΡΡΡ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΉ Π½ΠΎΠΌΠ΅Ρ ΠΎΡΠ²Π΅ΡΠ° (RGroup1. ItemIndex) Ρ Π½ΠΎΠΌΠ΅ΡΠΎΠΌ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΎΡΠ²Π΅ΡΠ° (BasaV.test[curN]. Korans) ΠΈ, Π΅ΡΠ»ΠΈ ΠΎΠ½ ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ, ΡΠΎ Π½Π°ΡΠ°ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ² Ratio. ΠΠ°ΡΠ°ΡΠΈΠ²Π°Π΅ΡΡΡ Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ° curN. Π ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ Π²ΠΎΠΏΡΠΎΡ Ρ Π²Π°ΡΠΈΠ°Π½ΡΠ°ΠΌΠΈ ΠΎΡΠ²Π΅ΡΠΎΠ² Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π½Π° ΡΠΎΡΠΌΡ.
ΠΡΠ»ΠΈ Π²ΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ Π±ΡΠ»ΠΈ Π·Π°Π΄Π°Π½Ρ (curN ΡΠ°Π²Π½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ²), ΡΠΎ ΡΠ°ΡΡΡΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΈΡΠΎΠ³ΠΎΠ²Π°Ρ ΠΎΡΠ΅Π½ΠΊΠ° ΠΊΠ°ΠΊ (Ratio*12)/(ΠΎΠ±ΡΠ΅Π΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²ΠΎΠΏΡΠΎΡΠΎΠ²) ΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² ΡΠ°ΠΉΠ» ΠΏΡΠΎΡΠΎΠΊΠΎΠ»Π°, Π° ΡΠ°ΠΊΠΆΠ΅ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Π² Π²ΠΈΠ΄Π΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Ρ ΠΎΡΠ΅Π½ΠΊΠΎΠΉ. Π’Π°ΠΊΠΆΠ΅ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ Π²ΠΈΠ΄ΠΈΠΌΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠ° BNewtest c Π½Π°Π΄ΠΏΠΈΡΡΡ «ΠΠ°ΡΠ°ΡΡ Π·Π°Π½ΠΎΠ²ΠΎ», ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ°Ρ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π½Π° ΡΠΎΡΠΌΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ. ΠΠΎ ΠΈΠ·Π±Π΅ΠΆΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ΄Π±ΠΎΡΠ° ΠΎΡΠ²Π΅ΡΠΎΠ² Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΠΈΡΠΎΠ³ΠΎΠ²Π°Ρ ΠΎΡΠ΅Π½ΠΊΠ° Π±Π΅Π· ΡΠΊΠ°Π·Π°Π½ΠΈΡ Π² ΠΊΠ°ΠΊΠΈΡ Π²ΠΎΠΏΡΠΎΡΠ°Ρ Π±ΡΠ»ΠΈ ΡΠ΄Π΅Π»Π°Π½Ρ ΠΎΡΠΈΠ±ΠΊΠΈ.
4. ΠΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠΉ ΡΠ°ΠΉΠ» Tester. exe ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ 422 912 Π±Π°ΠΉΡ. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΡΠ½ΠΎΠ²Π°ΠΌ ΡΠ·ΡΠΊΠ° Pascal.
ΠΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠΊΠ½ΠΎ, ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½Π½ΠΎΠ΅ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 4.1.
Π ΠΈΡΡΠ½ΠΎΠΊ 4.1 — ΠΠΊΠ½ΠΎ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ Π ΡΡΠΎΠΌ ΠΎΠΊΠ½Π΅ ΡΡΠ°ΡΠΈΠΉΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π·Π°Π΄Π°ΡΡ ΡΠ²ΠΎΡ ΡΠ°ΠΌΠΈΠ»ΠΈΡ ΠΈ Π³ΡΡΠΏΠΏΡ, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Ρ Π½Π°Π΄ΠΏΠΈΡΡΡ «ΠΠΠ§ΠΠ’Π¬». ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π²ΡΠΎΡΠ°Ρ ΡΠΎΡΠΌΠ° Ρ ΡΠ΅ΡΡΠΎΠ²ΡΠΌΠΈ Π²ΠΎΠΏΡΠΎΡΠ°ΠΌΠΈ, ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½Π½Π°Ρ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 4.2. ΠΠ°ΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ ΠΏΠΎΡΡΠ΄ΠΎΠΊ Π²ΠΎΠΏΡΠΎΡΠΎΠ² ΠΏΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π½ΠΎΠ²ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΉ, ΠΏΠΎΡΡΠΎΠΌΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ»Ρ Π²ΠΎΠΏΡΠΎΡΠ° ΠΈ ΠΎΡΠ²Π΅ΡΠΎΠΌ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΠ½ΡΠΌ.
Π ΠΈΡΡΠ½ΠΎΠΊ 4.2 — ΠΠΊΠ½ΠΎ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π²ΡΠ±ΡΠ°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΠ΅ΡΡΡΠ΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½Π½ΡΡ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² ΠΎΡΠ²Π΅ΡΠ°, ΡΠ΅Π»ΠΊΠ½ΡΠ² ΠΏΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΌΠ΅ΡΠΊΠ΅ Ρ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠΌ ΠΎΡΠ²Π΅ΡΠ°, ΠΏΡΠΈ ΡΡΠΎΠΌ Π½Π°ΠΏΡΠΎΡΠΈΠ² Π²Π°ΡΠΈΠ°Π½ΡΠ° ΠΎΡΠ²Π΅ΡΠ° Π² ΠΊΡΡΠΆΠΎΡΠΊΠ΅ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΏΠΎΡΠ²ΠΈΡΡΡΡ ΠΎΡΠΌΠ΅ΡΠΊΠ° .
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ .
ΠΠΎΡΠ²ΠΈΡΡΡ Π½ΠΎΠ²ΡΠΉ Π²ΠΎΠΏΡΠΎΡ, ΠΎΡΠ²Π΅Ρ Π½Π° ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ΅Π°Π»ΠΈΠ·ΡΠ΅ΡΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ. ΠΡΠ»ΠΈ Π±ΡΠ»ΠΈ ΠΏΡΠΎΠΉΠ΄Π΅Π½Ρ Π²ΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ, Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Ρ ΠΎΡΠ΅Π½ΠΊΠΎΠΉ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠΎΠΏΠΎΡΡΠΈΠΎΠ½Π°Π»ΡΠ½Π° ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ². ΠΡΠ΅ ΠΎΡΠ²Π΅ΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠ΅ — ΠΎΡΠ΅Π½ΠΊΠ° ΡΠ°Π²Π½Π° 12. ΠΡΠ΅ ΠΎΡΠ²Π΅ΡΡ Π½Π΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠ΅ — ΠΎΡΠ΅Π½ΠΊΠ° ΡΠ°Π²Π½Π° 0. ΠΡΠΈΠΌΠ΅Ρ ΠΎΠΊΠ½Π° Ρ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΎΠ± ΠΎΡΠ΅Π½ΠΊΠ΅ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ΠΎ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 4.3.
Π ΠΈΡΡΠ½ΠΎΠΊ 4.3
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π²Π΅ΡΠ½ΡΡΡΡΡ Π½Π° ΠΎΠΊΠ½ΠΎ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ, ΡΡΠΎΠ±Ρ ΠΏΡΠΎΠΉΡΠΈ ΡΠ΅ΡΡ Π·Π°Π½ΠΎΠ²ΠΎ, Π½Π°ΠΆΠ°Π² Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ .
ΠΡΠΎΡΠΎΠΊΠΎΠ» Ρ Π²Π°ΡΠΈΠ°Π½ΡΠ°ΠΌΠΈ ΠΎΡΠ²Π΅ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π±ΡΠ»ΠΈ Π²Π²Π΅Π΄Π΅Π½Ρ ΡΡΠ°ΡΠΈΠΌΡΡ Π·Π°Π½ΠΎΡΡΡΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» Π½Π° ΠΆΠ΅ΡΡΠΊΠΎΠΌ Π΄ΠΈΡΠΊΠ΅ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ «<οΏ½ΡΠ°ΠΌΠΈΠ»ΠΈΡ>+<οΏ½Π³ΡΡΠΏΠΏΠ°>.txt» Π² ΡΠΎΠΌ ΠΆΠ΅ ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅, Π³Π΄Π΅ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠΉ ΡΠ°ΠΉΠ». ΠΡΠΈΠΌΠ΅Ρ ΠΏΡΠΎΡΠΎΠΊΠΎΠ»Π° Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΌΠΈ Π²Π°ΡΠΈΠ°Π½ΡΠ°ΠΌΠΈ ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΠ°Π½Π½ΡΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ Π±ΡΠ» Π²ΡΠΏΠΎΠ»Π½Π΅Π½ Π² ΠΏΠΎΠ»Π½ΠΎΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΌΡ Π·Π°Π΄Π°Π½ΠΈΡ ΠΈ ΠΎΡΠ»Π°ΠΆΠ΅Π½ Π² ΡΡΠ΅Π΄Π΅ DELPHI 7.0. Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄Π»Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠΌ. ΠΠ°Π·Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ 20 Π²ΠΎΠΏΡΠΎΡΠΎΠ². ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΌΠΎΠΆΠ΅Ρ Π±Π°ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π° Π² ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠ΅Π»ΡΡ .
Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π³ΠΎ ΡΠ°Π·Π²ΠΈΡΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π° Π΄ΠΎΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ ΡΠ΅Π»ΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² ΠΎΡΠ²Π΅ΡΠ°, ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΎΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄Π° Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΎΡΠ²Π΅ΡΠ° (Π±Π΅Π· ΡΠΊΠ°Π·Π°Π½ΠΈΡ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²), ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΠΈ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π° ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· Π²ΠΎΠΏΡΠΎΡΠΎΠ², Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΠΏΡΡΡΠΈΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ, ΡΡΠΎΠ±Ρ Π²Π΅ΡΠ½ΡΡΡΡΡ ΠΊ Π½ΠΈΠΌ ΠΈ ΠΎΡΠ²Π΅ΡΠΈΡΡ Π½Π° Π½ΠΈΡ Π² ΡΠ»ΡΡΠ°Π΅ Π½Π°Π»ΠΈΡΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈ Π΄Ρ.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ, Ρ ΡΠ±Π΅Π΄ΠΈΠ»ΡΡ Π² ΡΠΈΡΠΎΠΊΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi 7.
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. ΠΠ°Π»Π΅Π½ΡΠΈΠ½ ΠΠ·Π΅ΡΠΎΠ² «Π‘ΠΎΠ²Π΅ΡΡ ΠΏΠΎ Delphi», 1999
2. ΠΡΠ΅Π² Π. Π. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ Turbo Pascal 6. 0,7.0. — Π.: Π Π°Π΄ΠΈΠΎ ΠΈ ΡΠ²ΡΠ·Ρ, ΠΠ΅ΡΡΠ°, 1993.
3. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. Turbo Pascal 7.0. ΠΠ°ΡΠ°Π»ΡΠ½ΡΠΉ ΠΊΡΡΡ. — Π.: ΠΠΎΠ»ΠΈΠ΄ΠΆ, 2000.
4. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. «DELPHI. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ». — ΠΠΈΡΠ΅Ρ, 2005.
5. ΠΡΡΡΠ΅Π½ΠΊΠΎ Π. Π. ΠΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΊ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΠΏΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅ «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠ΅ ΡΠ·ΡΠΊΠΈ» — Π‘Π΅Π²Π΅ΡΠΎΠ΄ΠΎΠ½Π΅ΡΠΊ, 2005.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 1
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π ΠΈΡΡΠ½ΠΎΠΊ Π.1 — ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΠ±ΡΡΠΈΠΉ ΡΠΊΡΠ°Π½Π½ΡΡ ΡΠΎΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π ΠΈΡΡΠ½ΠΎΠΊ Π.2 — ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ BitBtn1Click
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° delphi Π°Π»Π³ΠΎΡΠΈΡΠΌ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 2
ΠΠΎΠ΄ΡΠ»Ρ ΡΠΎΡΠΌΡ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Buttons;
type
TFormAvto = class (TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
EFam: TEdit;
EGroup: TEdit;
BitBtnStart: TBitBtn;
procedure BitBtnStartClick (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
FormAvto: TFormAvto;
implementation
uses Unit1;
{$R *.dfm}
procedure TFormAvto. BitBtnStartClick (Sender: TObject);
begin
SFam:=EFam. Text+ ' ';
SGr:=EGroup. Text;
hide;
FormTest. Show;
end;
end.
ΠΠΎΠ΄ΡΠ»Ρ ΡΠΎΡΠΌΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TFormTest = class (TForm)
BitBtn1: TBitBtn;
Label1: TLabel;
LbNom: TLabel;
StaticText1: TStaticText;
RGroup1: TRadioGroup;
BNewTest: TButton;
procedure FormCreate (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure BNewTestClick (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormActivate (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
TTest = record
vopr:string; // Π²ΠΎΠΏΡΠΎΡ
ans:array [0.3] of string; // ΠΎΡΠ²Π΅ΡΡ
korans:byte; // Π½ΠΎΠΌΠ΅Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΎΡΠ²Π΅ΡΠ°
end;
CVoprosi = class
test: array of TTest;
procedure AddTest (_vopr,_ans0,_ans1,_ans2,_ans3:string;_korans:byte);
procedure Mix;
end;
var
SFam, Sgr: string; // ΡΠ°ΠΌΠΈΠ»ΠΈΡ ΠΈ Π³ΡΡΠΏΠΏΠ° ΡΡΠ°ΡΠ΅Π³ΠΎΡΡ
fName:string;
f: TEXTFILE;
FormTest: TFormTest;
BasaV:CVoprosi;
CurN:byte; // Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΠΎΠΏΡΠΎΡΠ°
Ratio:byte; // ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ²
implementation
uses Unit2;
{$R *.dfm}
// ΠΌΠ΅ΡΠΎΠ΄ Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ΅ΡΡΠ° Π² Π±Π°Π·Ρ
Procedure CVoprosi. AddTest (_vopr,_ans0,_ans1,_ans2,_ans3:string; _korans:byte);
var ln: integer;
begin
ln:=Length (test);
SetLength (test, ln+1);
test[ln]. vopr:= _vopr;
test[ln]. ans[0]:= _ans0;
test[ln]. ans[1]:= _ans1;
test[ln]. ans[2]:= _ans2;
test[ln]. ans[3]:= _ans3;
test[ln]. korans:= _korans;
end;
// ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ²
Procedure CVoprosi. Mix;
var
i, i1, i2, ln: byte;
TestTmp:TTest;
begin
ln:=Length (test);
for i:=1 to 20 do
begin
i1:=Random (ln); // ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΉ № 1
i2:=Random (ln); // ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΉ № 2
// ΠΌΠ΅Π½ΡΠ΅ΠΌ ΠΌΠ΅ΡΡΠ°ΠΌΠΈ Π²ΠΎΠΏΡΠΎΡΡ № 1 ΠΈ № 2
TestTmp:=test[i1];
test[i1]:=test[i2];
test[i2]:=TestTmp;
end;
end;
procedure TFormTest. FormCreate (Sender: TObject);
begin
// ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ²
BasaV:=CVoprosi. Create;
BasaV. AddTest ('Π§ΡΠΎ Π²ΡΠ²Π΅Π΄Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°?'+#10+#13+'var i, sum: sΡnglΠ΅;'+#10+#13+
'bΠ΅gin'+#10+'sum:=1;'+#10+
' for Ρ:=2 to 10 dΠΎ sum:=sum+i;'+#10+
' WrΡtΠ΅Ln (sum);'+#10+'Π΅nd.',
'10', '55', '9', 'ΠΏΡΠΎΠΈΠ·ΠΎΠΉΠ΄Π΅Ρ ΠΎΡΠΈΠ±ΠΊΠ° ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ', 3);
BasaV. AddTest ('ΠΠ°ΠΊΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π²Π΅ΡΠ½Π΅Ρ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅?'+#10+' chr (ord («A»)+3)',
'A3', '68', ' «D» ', ' «C» ', 2);
BasaV. AddTest ('Π‘ ΡΠ΅Π³ΠΎ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ?',
'Ρ ΠΌΠ°Π»ΠΎΠΉ Π»Π°ΡΠΈΠ½ΡΠΊΠΎΠΉ Π±ΡΠΊΠ²Ρ', 'Ρ Π±ΠΎΠ»ΡΡΠΎΠΉ Π»Π°ΡΠΈΠ½ΡΠΊΠΎΠΉ Π±ΡΠΊΠ²Ρ', 'Ρ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Π½ΠΈΡ', 'Ρ ΡΠΈΡΡΡ', 3);
BasaV. AddTest ('Π§ΡΠΎ ΠΈΠ· Π½ΠΈΠΆΠ΅ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΎ ΠΊΠ°ΠΊ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ?',
'ord', 'for1', 'cardinal', 'C#21', 1);
BasaV. AddTest ('ΠΠ°ΠΊΠΎΠΉ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ² ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠΉ?',
'real', 'byte', 'double', 'single', 1);
BasaV. AddTest ('ΠΠ°ΠΊΠΎΠΉ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄ΡΠΎΠ±Π½ΡΡ ΡΠΈΡΠ΅Π»?',
'byte', 'word', 'double', 'integer', 2);
BasaV. AddTest ('ΠΠ°ΠΊΠ°Ρ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΈΠΊΠ»ΠΎΠΌ Ρ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΡΠΈΡΠ»ΠΎΠΌ ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠΉ?',
'while <οΏ½…> do ', 'for <οΏ½…> do ', 'repeat until <οΏ½…>', 'if <> then ', 1);
BasaV. AddTest ('ΠΠ°ΠΊΠ°Ρ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΈΠΊΠ»ΠΎΠΌ Ρ ΠΏΡΠ΅Π΄ΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ?',
'for <οΏ½…> do ', 'while <οΏ½…> do ', 'repeat until <οΏ½…>', 'if <> then ', 1);
BasaV. AddTest ('ΠΠ°ΠΊΠ°Ρ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΈΠΊΠ»ΠΎΠΌ Ρ ΠΏΠΎΡΡΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ?',
'for <οΏ½…> do ', 'while <οΏ½…> do ', 'repeat until <οΏ½…>', 'if <> then ', 2);
BasaV. AddTest ('ΠΠ°ΠΊΠ°Ρ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠ΅ΠΉ Π²Π΅ΡΠ²Π»Π΅Π½ΠΈΡ?',
'for <οΏ½…> do ', 'while <οΏ½…> do ', 'repeat until <οΏ½…>', 'if <> then ', 3);
BasaV. AddTest ('ΠΠ°ΠΊΠ°Ρ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ Π΄Π΅Π»Π΅Π½ΠΈΡ?',
'MOD', 'DIV', '/', 'ODD', 1);
BasaV. AddTest ('ΠΠ°ΠΊΠ°Ρ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ — ΠΎΡΡΠ°ΡΠΎΠΊ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ?',
'MOD', 'DIV', '/', 'ODD', 0);
BasaV. AddTest ('ΠΠ°ΠΊΠ°Ρ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ Π΄Π΅Π»Π΅Π½ΠΈΡ?',
'MOD', 'DIV', '/', 'ODD', 2);
BasaV. AddTest ('ΠΠ°ΠΊΠ°Ρ ΠΈΠ· ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° ΡΠ΅ΡΠ½ΠΎΡΡΡ?',
'MOD', 'DIV', '/', 'ODD', 3);
BasaV. AddTest ('Π£ΠΊΠ°ΠΆΠΈΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠΊΡΡΠ³Π»Π΅Π½ΠΈΡ ΠΏΠΎ ΠΏΡΠ°Π²ΠΈΠ»Π°ΠΌ Π°ΡΠΈΡΠΌΠ΅ΡΠΈΠΊΠΈ:',
'TRUNC ()', 'FRAC ()', 'ROUND ()', 'INT ()', 2);
BasaV. AddTest ('Π£ΠΊΠ°ΠΆΠΈΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΡ Π΄ΡΠΎΠ±Π½ΠΎΠΉ ΡΠ°ΡΡΠΈ ΡΠΈΡΠ»Π°:',
'TRUNC ()', 'FRAC ()', 'ROUND ()', 'INT ()', 1);
BasaV. AddTest ('Π£ΠΊΠ°ΠΆΠΈΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠΊΡΡΠ³Π»Π΅Π½ΠΈΡ ΠΊ Π½ΡΠ»Ρ Ρ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ:',
'TRUNC ()', 'FRAC ()', 'ROUND ()', 'INT ()', 0);
BasaV. AddTest ('Π£ΠΊΠ°ΠΆΠΈΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΠΊΡΡΠ³Π»Π΅Π½ΠΈΡ ΠΊ Π½ΡΠ»Ρ Ρ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ:',
'TRUNC ()', 'FRAC ()', 'ROUND ()', 'INT ()', 3);
BasaV. AddTest ('Π£ΠΊΠ°ΠΆΠΈΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ΠΎΡΠΊΡΡΡΠΈΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π°:',
'ASSIGNFILE ()', 'REWRITE ()', 'RESET ()', 'CLOSEFILE ()', 2);
BasaV. AddTest ('Π£ΠΊΠ°ΠΆΠΈΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° ΠΈ ΠΎΡΠΊΡΡΡΠΈΡ Π΅Π³ΠΎ Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ:',
'ASSIGNFILE ()', 'REWRITE ()', 'RESET ()', 'CLOSEFILE ()', 1);
randomize;
end;
// ***************************
// Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΡΠΎΡΠΌΡ Ρ ΡΠ΅ΡΡΠ°ΠΌΠΈ
// ***************************
procedure TFormTest. FormActivate (Sender: TObject);
var ln: integer;
begin
fName:=SFam+' ('+SGr+')'+'.txt';
assignfile (f, fName);
rewrite (f);
BNewTest. Visible:=false;
// ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠΈΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π²ΠΎΠΏΡΠΎΡΠΎΠ²
BasaV. Mix;
// ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΡ ΠΎΡΠ²Π΅ΡΠΎΠ²
Ratio:=0;
// ΡΠ΅ΠΊΡΡΠΈΠΉ Π²ΠΎΠΏΡΠΎΡ 0
curN:=0;
// ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌ ΠΏΠ΅ΡΠ²ΡΠΉ Π²ΠΎΠΏΡΠΎΡ Π½Π° ΡΠΎΡΠΌΠ΅
StaticText1. Caption:=BasaV.test[curN]. vopr;
RGroup1. Items[0]: =BasaV.test[curN].ans[0];
RGroup1. Items[1]: =BasaV.test[curN].ans[1];
RGroup1. Items[2]: =BasaV.test[curN].ans[2];
RGroup1. Items[3]: =BasaV.test[curN].ans[3];
RGroup1. ItemIndex:=0;
Ln:=Length (BasaV.test);
LbNom. Caption:= IntToStr (curN+1) + ' ΠΈΠ· ' + IntToStr (Ln);
end;
// ***************************
// ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΠΈΠ½ΡΡΡ ΠΎΡΠ²Π΅Ρ»
// ***************************
procedure TFormTest. BitBtn1Click (Sender: TObject);
var
sRes, S: string;
ln:byte;
begin
// ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΠΎΡΠ²Π΅ΡΠ°
Ln:=Length (BasaV.test);
if (CurN
begin
// Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΠΌ Π»ΠΎΠ³ ΠΎΡΠ²Π΅ΡΠΎΠ² Π² ΡΠ°ΠΉΠ»
S:= BasaV. test[curN]. vopr + ' (ΠΎΡΠ²Π΅ΡΠΈΠ»: — '+
BasaV.test[curN]. ans [RGroup1. ItemIndex]+')';
writeln (f, S);
// ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ, ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ Π»ΠΈ Π±ΡΠ» ΡΠ΄Π΅Π»Π°Π½ ΠΎΡΠ²Π΅Ρ
if (RGroup1. ItemIndex = BasaV. test[curN]. Korans) then
Ratio:= Ratio +1;
CurN:=CurN+1;
if CurN=ln then // Π±ΡΠ»Π° ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ Π·Π°ΠΏΠΈΡΡ
begin
// ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ
sRes:= 'ΠΡΠΎΠ³ΠΎΠ²Π°Ρ ΠΎΡΠ΅Π½ΠΊΠ°: '+FloatToStr (Ratio*12/ln);
// Π·Π°ΠΏΠΈΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ° Π² ΡΠ°ΠΉΠ»
writeln (f, Sfam+Sgr);
writeln (f, sRes);
CloseFile (f);
end;
end;
if CurN>=ln then
begin
sRes:= 'ΠΡΠΎΠ³ΠΎΠ²Π°Ρ ΠΎΡΠ΅Π½ΠΊΠ°: '+FloatToStr (Ratio*12/ln);
Application. MessageBox (PAnsiChar (sRes), PAnsiChar (SFam+Sgr));
BNewtest. Visible:=true;
exit;
end;
// ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΎΠΏΡΠΎΡ Π½Π° ΡΠΎΡΠΌΠ΅
StaticText1. Caption:=BasaV.test[curN]. vopr;
RGroup1. Items[0]: =BasaV.test[curN].ans[0];
RGroup1. Items[1]: =BasaV.test[curN].ans[1];
RGroup1. Items[2]: =BasaV.test[curN].ans[2];
RGroup1. Items[3]: =BasaV.test[curN].ans[3];
RGroup1. ItemIndex:=0;
LbNom. Caption:= IntToStr (curN+1) + ' ΠΈΠ· ' + IntToStr (Ln);
end;
// ***************************
// Π·Π°ΠΊΡΡΡΠ΅ ΡΠΎΡΠΌΡ Ρ ΡΠ΅ΡΡΠ°ΠΌΠΈ
// ***************************
procedure TFormTest. BNewTestClick (Sender: TObject);
begin
Close;
end;
// ***************************
// Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΡΠΎΡΠΌΡ Ρ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ
// ***************************
procedure TFormTest. FormClose (Sender: TObject; var Action: TCloseAction);
begin
FormAvto. Show;
end;
end.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 3
ΠΠΎΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠΊΠ½ΠΎ (ΡΠΈΡ Π.1), ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π½ΡΠΆΠ½ΠΎ Π²Π΅ΡΡΠΈ Π€Π°ΠΌΠΈΠ»ΠΈΡ ΠΠΌΡ ΠΈ ΠΡΡΠΏΠΏΡ. Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· 20 Π²ΠΎΠΏΡΠΎΡΠΎΠ², Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ Π²ΠΎΠΏΡΠΎΡΠ΅ ΡΠ΅ΡΡΡΠ΅ Π²Π°ΡΠΈΠ°Π½ΡΠ° ΠΎΡΠ²Π΅ΡΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΠΎΠ΄ΠΈΠ½ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΉ (ΡΠΈΡ Π.2). Π ΠΊΠΎΠ½ΡΠ΅ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠΊΠ½ΠΎ Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π±Π°Π» Π·Π° ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΏΠΎ 12 Π±Π°Π»ΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠ΅ (ΡΠΈΡ Π.3).
Π ΠΈΡΡΠ½ΠΎΠΊ Π.1 — ΠΠΊΠ½ΠΎ Π°Π²ΡΠΎΡΠΈΠ·Π°ΡΠΈΠΈ Π ΠΈΡΡΠ½ΠΎΠΊ Π.2 — ΠΠ½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΡΠΎΡΠΌΡ FormTest
Π ΠΈΡΡΠ½ΠΎΠΊ Π.3 — ΠΡΠΎΠ³