ΠΠ»Π³ΠΎΡΠΈΡΠΌΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΈ ΠΏΠΎΠΈΡΠΊΠ°
ΠΠΎΠΈΡΠΊ Ρ Π·Π°ΠΌΠ΅Π½ΠΎΠΉ. ΠΡΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΈ ΡΡΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° Π½Π° ΡΠΎΡΠΌΠ΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π΅ΡΠ΅ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΏΠΎΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΡΠ»ΠΎΠ²Π° Π΄Π»Ρ Π·Π°ΠΌΠ΅Π½Ρ Π ΠΈΡ. 7. ΠΠΎΠΈΡΠΊ ΡΠ»ΠΎΠ²Π° ΠΡΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ° ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ Π²ΡΠ΅ Π²Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΡΠ»ΠΎΠ²Π° Π² ΡΠ΅ΠΊΡΡΠ΅, ΠΏΡΠΈ ΡΡΠΎΠΌ Π½Π° ΡΠΎΡΠΌΠ΅ Π±ΡΠ΄Π΅Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° «ΠΠ°ΠΉΡΠΈ Π΄Π°Π»Π΅Π΅». ΠΠ±ΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΡΡ ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΠ°Π½Π½ΡΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ «Π’Π΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ». ΠΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π° Π»ΡΠ±ΡΠΌ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠ»Π³ΠΎΡΠΈΡΠΌΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΈ ΠΏΠΎΠΈΡΠΊΠ° (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π½Π°ΡΠΊΠΈ Π Π€ Π€Π΅Π΄Π΅ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π°Π³Π΅Π½ΡΡΡΠ²ΠΎ ΠΏΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΠΠ£ ΠΠΠ Π§Π΅ΡΠ΅ΠΏΠΎΠ²Π΅ΡΠΊΠΈΠΉ ΠΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΡΠΉ Π£Π½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΠΠ½ΡΡΠΈΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΠ ΠΠΠ ΠΠ»Π³ΠΎΡΠΈΡΠΌΡ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΈ ΠΏΠΎΠΈΡΠΊΠ° Π Π°ΡΡΠ΅ΡΠ½ΠΎ-ΠΏΠΎΡΡΠ½ΠΈΡΠ΅Π»ΡΠ½Π°Ρ Π·Π°ΠΏΠΈΡΠΊΠ° ΠΊ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΡΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»Ρ: ΡΡΡΠ΄Π΅Π½ΡΠΊΠ° Π³Ρ.1ΠΠ-31
Π‘Π°ΡΡΠΊΠΎΠ²Π° Π.Π.
Π ΡΠΊΠΎΠ²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ: Π‘Π΅Π»ΠΈΠ²Π°Π½ΠΎΠ²ΡΠΊΠΈΡ Π.Π.
2009 Π³.
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
ΠΠ°Π½Π½ΡΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ «Π’Π΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ». ΠΠ½Π° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ ΡΠΈΡΠΎΠΊΠΎΠ³ΠΎ ΠΊΡΡΠ³Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΈ Π½Π΅ ΡΡΠ΅Π±ΡΠ΅Ρ ΠΎΡΠΎΠ±ΡΡ Π·Π½Π°Π½ΠΈΠΉ, ΠΊΡΠΎΠΌΠ΅ Π±Π°Π·ΠΎΠ²ΡΡ Π½Π°Π²ΡΠΊΠΎΠ² ΡΠ°Π±ΠΎΡΡ Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅. ΠΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΡΠ΅ΠΊΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΠΈ ΡΠΎΡ ΡΠ°Π½ΡΡΡ ΡΠ΅ΠΊΡΡ Π² ΡΠ°ΠΉΠ», Π° ΡΠ°ΠΊΠΆΠ΅ ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠ΅ΠΉ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ»ΠΎΠ²Π° Π² ΡΠ΅ΠΊΡΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΠ½ΡΡΠ°-ΠΠΎΡΡΠΈΡΠ°-ΠΡΠ°ΡΡΠ°.
1. ΠΠ±ΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ
Delphi — ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½Π°Ρ ΡΡΠ΅Π΄Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ°Ρ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°:
— ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Π΄ΠΎΠΌΠ° (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΌΡΠ»ΡΡΠΈΠΌΠ΅Π΄ΠΈΠΉΠ½ΡΠ΅ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π³ΡΠ°ΡΠΈΠΊΠΈ, Π°Π½ΠΈΠΌΠ°ΡΠΈΠΈ);
— ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ ΠΎΡΠΈΡΠΎΠ² (Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ΠΊΠ»ΠΈΠ΅Π½Ρ-ΡΠ΅ΡΠ²Π΅ΡΠ½ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ);
— ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Π² ΠΠ½ΡΠ΅ΡΠ½Π΅ΡΠ΅ ΠΈ Ρ. Π΄.
ΠΠ»Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ Π½Π°ΡΠ΅ΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΠΊΠ°ΠΊ ΡΠ°Π· ΠΈ Π±ΡΠ»Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π° ΡΡΠ΅Π΄Π° Delphi7, ΠΊΠ°ΠΊ ΡΠ°ΠΌΠ°Ρ ΠΏΡΠΎΡΡΠ°Ρ ΠΈ ΡΠ΄ΠΎΠ±Π½Π°Ρ ΡΡΠ΅Π΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π° Delphi — ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π²Π°ΠΆΠ½Π΅ΠΉΡΠΈΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ:
Β· Π²ΡΡΠΎΠΊΠΎΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ Π² ΠΌΠ°ΡΠΈΠ½Π½ΡΠΉ ΠΊΠΎΠ΄;
Β· ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ;
Β· Delphi — ΠΎΠ΄Π½Π° ΠΈΠ· Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΌΠΎΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ;
Β· Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½ΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ Π½Π° ΡΡΠ°ΠΏΠ΅ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ;
Β· ΠΏΡΠΎΡΡΠΎΠΉ ΠΈ ΡΡΠ½ΡΠΉ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΠΏΠΎΠ΄ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΡΠ΅ΠΌΠ΅ΠΉΡΡΠ²Π° Windows ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠΈ Microsoft.
2. Π€ΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ΅ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ Π·Π°Π΄Π°Ρ:
1) ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΡΠ΅ΠΊΡΡΠ° ΠΈΠ· ΡΠ°ΠΉΠ»Π° (Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ .txt);
2) Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π² ΡΠ°ΠΉΠ»;
3) ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ° (ΠΡΡΠ΅Π·Π°ΡΡ/ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ/ΠΡΡΠ°Π²ΠΈΡΡ/ΠΡΠΈΡΡΠΈΡΡ/ΠΡΠ΄Π΅Π»ΠΈΡΡ Π²ΡΡ/Π¨ΡΠΈΡΡ/ΠΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅);
4) ΠΠΎΠΈΡΠΊ ΠΈ Π·Π°ΠΌΠ΅Π½Π° ΡΠ»ΠΎΠ² Π² ΡΠ΅ΠΊΡΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΠ½ΡΡΠ°-ΠΠΎΡΡΠΈΡΠ°-ΠΡΠ°ΡΡΠ°.
ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ Π²Ρ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΡΠ°ΠΉΠ»Ρ (Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ .txt), ΠΈ Π΅ΡΠ»ΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌ ΠΏΠΎΠΈΡΠΊ, ΡΠΎ ΡΠ»ΠΎΠ²ΠΎ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΈ Π·Π°ΠΌΠ΅Π½Ρ.
ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ Π²ΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΡΠ°ΠΊΠΆΠ΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΡΠ°ΠΉΠ»Ρ Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ .txt. ΠΡΠΈ ΠΏΠΎΠΈΡΠΊΠ΅ Π±Π΅Π· Π·Π°ΠΌΠ΅Π½Ρ, Π΅ΡΠ»ΠΈ ΡΠ»ΠΎΠ²ΠΎ Π½Π°ΠΉΠ΄Π΅Π½ΠΎ, ΠΎΠ½ΠΎ Π²ΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ Π² ΡΠ΅ΠΊΡΡΠ΅; ΠΏΡΠΈ ΠΏΠΎΠΈΡΠΊΠ΅ Ρ Π·Π°ΠΌΠ΅Π½ΠΎΠΉ Π½Π°ΠΉΠ΄Π΅Π½Π½ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ Π·Π°ΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π½Π° Π½ΠΎΠ²ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ, Π²Π²Π΅Π΄Π΅Π½Π½ΠΎΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ.
3. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΡΡΡΠΊΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΠ½ΡΡΠ° — ΠΠΎΡΡΠΈΡΠ° — ΠΡΠ°ΡΡΠ° (ΠΠΠ-Π°Π»Π³ΠΎΡΠΈΡΠΌ) — Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΏΠΎΠΈΡΠΊΠ° ΠΎΠ±ΡΠ°Π·ΡΠ° (ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠΈ) Π² ΡΡΡΠΎΠΊΠ΅. ΠΠ»Π³ΠΎΡΠΈΡΠΌ Π±ΡΠ» ΠΎΡΠΊΡΡΡ Π. ΠΠ½ΡΡΠΎΠΌ ΠΈ Π. ΠΡΠ°ΡΡΠΎΠΌ ΠΈ, Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ Π½ΠΈΡ , Π. ΠΠΎΡΡΠΈΡΠΎΠΌ. Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΠ²ΠΎΠ΅ΠΉ ΡΠ°Π±ΠΎΡΡ ΠΎΠ½ΠΈ ΠΎΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°Π»ΠΈ ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎ Π² 1977 Π³ΠΎΠ΄Ρ. ΠΡΠΎΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΎΡΠ½ΠΎΠ²ΡΠ²Π°Π΅ΡΡΡ Π½Π° ΡΠΎΠΌ ΡΠΎΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΈ, ΡΡΠΎ ΠΏΠΎΡΠ»Π΅ ΡΠ°ΡΡΠΈΡΠ½ΠΎΠ³ΠΎ ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΡ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ°ΡΡΠΈ ΡΠ»ΠΎΠ²Π° Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌΠΈ ΡΠΈΠΌΠ²ΠΎΠ»Π°ΠΌΠΈ ΡΠ΅ΠΊΡΡΠ° ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ ΠΈΠ·Π²Π΅ΡΡΠ½Π° ΠΏΡΠΎΠΉΠ΄Π΅Π½Π½Π°Ρ ΡΠ°ΡΡΡ ΡΠ΅ΠΊΡΡΠ° ΠΈ ΠΌΠΎΠΆΠ½ΠΎ «Π²ΡΡΠΈΡΠ»ΠΈΡΡ» Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ (Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠ°ΠΌΠΎΠ³ΠΎ ΡΠ»ΠΎΠ²Π°), Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΡΠΎΡΡΡ Π·Π°ΡΠ΅ΠΌ Π±ΡΡΡΡΠΎ ΠΏΡΠΎΠ΄Π²ΠΈΠ½ΡΡΡΡΡ ΠΏΠΎ ΡΠ΅ΠΊΡΡΡ. ΠΡΠ½ΠΎΠ²Π½ΡΠΌ ΠΎΡΠ»ΠΈΡΠΈΠ΅ΠΌ ΠΠΠ-Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΎΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΡΠΌΠΎΠ³ΠΎ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΠ΄Π²ΠΈΠ³Π° ΡΠ»ΠΎΠ²Π° Π½Π΅ Π½Π° ΠΎΠ΄ΠΈΠ½ ΡΠΈΠΌΠ²ΠΎΠ» Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΡΠ°Π³Π΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°, Π° Π½Π° Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΠ΅ΡΠ΅Π΄ ΡΠ΅ΠΌ ΠΊΠ°ΠΊ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ ΡΠ΄Π²ΠΈΠ³, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ Π²Π΅Π»ΠΈΡΠΈΠ½Ρ ΡΠ΄Π²ΠΈΠ³Π°. ΠΠ»Ρ ΠΏΠΎΠ²ΡΡΠ΅Π½ΠΈΡ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ, ΡΡΠΎΠ±Ρ ΡΠ΄Π²ΠΈΠ³ Π½Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΡΠ°Π³Π΅ Π±ΡΠ» Π±Ρ ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π±ΠΎΠ»ΡΡΠΈΠΌ.
ΠΠ΅ΡΠ΅Π΄ Π½Π°ΡΠ°Π»ΠΎΠΌ ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΏΠΎΠΈΡΠΊΠ° ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΡΠΈΡΠ»ΠΈΡΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠ°Π±Π»ΠΈΡΡ Shift; ΡΡΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΠ²ΠΎΠ΄ΡΡΡΡ ΠΊ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π½ΡΠ»ΡΡΠΈΠΈ ΡΠ»ΠΎΠ²Π°. ΠΡΠ»ΠΈ j ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΏΠΎΠ·ΠΈΡΠΈΡ Π² ΡΠ»ΠΎΠ²Π΅, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ ΠΏΠ΅ΡΠ²ΡΠΉ Π½Π΅ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡΠΈΠΉ ΡΠΈΠΌΠ²ΠΎΠ» (ΠΊΠ°ΠΊ Π² Π°Π»Π³ΠΎΡΠΈΡΠΌΠ΅ ΠΏΡΡΠΌΠΎΠ³ΠΎ ΠΏΠΎΠΈΡΠΊΠ°), ΡΠΎ Π²Π΅Π»ΠΈΡΠΈΠ½Π° ΡΠ΄Π²ΠΈΠ³Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ:
Shift[j] = j — LenSuff — 1. ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ LenSuff ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΊΠ°ΠΊ ΡΠ°Π·ΠΌΠ΅Ρ ΡΠ°ΠΌΠΎΠΉ Π΄Π»ΠΈΠ½Π½ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΡΠ»ΠΎΠ²Π°, Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΏΡΠ΅Π΄ΡΠ΅ΡΡΠ²ΡΡΡΠΈΡ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ j (ΡΡΡΡΠΈΠΊΡ), ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ Ρ Π½Π°ΡΠ°Π»ΠΎΠΌ ΡΠ»ΠΎΠ²Π°. LenSuff Π·Π°Π²ΠΈΡΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΡ ΡΠ»ΠΎΠ²Π° ΠΈ Π½Π΅ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΡΠ΅ΠΊΡΡΠ°.
Π ΠΈΡ. 1. ΠΡΠΈΠΌΠ΅Ρ ΡΠ°Π±ΠΎΡΡ ΠΠΠ-Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π½Π° ΡΠΈΡ. 1 ΠΏΡΠΈΠΌΠ΅Ρ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ»ΠΎΠ²Π° ABCABD ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΏΡΠΈΠ½ΡΠΈΠΏ ΡΠ°Π±ΠΎΡΡ ΡΠ°ΠΊΠΎΠ³ΠΎ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°. Π‘ΠΈΠΌΠ²ΠΎΠ»Ρ, ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠ³ΡΠΈΠ΅ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ, Π·Π΄Π΅ΡΡ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠ½ΡΡΡ.
Π ΠΈΡ. 2. ΠΠ±ΠΎΠ±ΡΠ΅Π½Π½ΡΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
4. Π‘ΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ Π’Π°Π±Π»ΠΈΡΠ° 1
ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΠ»ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ | ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ | ΠΠ΅ΠΉΡΡΠ²ΠΈΠ΅ | |
UNIT1 | |||
procedure OPEN1; | Π½Π΅Ρ | ΠΡΠΊΡΡΡΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ² | |
procedure Create1; | Π½Π΅Ρ | Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° | |
procedure SAVE1; | Π½Π΅Ρ | Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π² ΡΠ°ΠΉΠ» | |
procedure TForm1. N2Click | (Sender: TObject) | ΠΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Create1 | |
procedure TForm1. N4Click | (Sender: TObject) | ΠΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ SAVE1 | |
procedure TForm1. N3Click | (Sender: TObject) | ΠΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ OPEN1 | |
procedure TForm1. N13Click | (Sender: TObject) | ΠΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | |
procedure TForm1. N7Click | (Sender: TObject) | ΠΡΡΠ΅Π·Π°Π½ΠΈΠ΅ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠ΅ΠΊΡΡΠ° Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π° | |
procedure TForm1. N10Click | (Sender: TObject) | ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π° | |
procedure TForm1. N11Click | (Sender: TObject) | ΠΡΡΠ°Π²ΠΊΠ° ΡΠ΅ΠΊΡΡΠ° ΠΈΠ· Π±ΡΡΠ΅ΡΠ° ΠΎΠ±ΠΌΠ΅Π½Π° | |
procedure TForm1. N12Click | (Sender: TObject) | ΠΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ Π²ΡΠ΅Π³ΠΎ ΡΠ΅ΠΊΡΡΠ° | |
procedure TForm1. ApplicationEventsHint | (Sender: TObject) | ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΠΈΡ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΎΠΊ | |
procedure TForm1. N15Click | (Sender: TObject) | Π‘ΠΏΡΡΡΠ°ΡΡ/ΠΠΎΠΊΠ°Π·Π°ΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² | |
procedure TForm1. N16Click | (Sender: TObject) | Π‘ΠΏΡΡΡΠ°ΡΡ/ΠΠΎΠΊΠ°Π·Π°ΡΡ ΡΡΡΠΎΠΊΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ | |
procedure TForm1. N17Click | (Sender: TObject) | ΠΡΠΈΡΡΠΊΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ ΠΏΠΎΠ»Ρ | |
procedure TForm1. ToolButton8Click | (Sender: TObject) | ΠΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Create1 | |
procedure TForm1. ToolButton1Click | (Sender: TObject) | ΠΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ OPEN1 | |
procedure TForm1. ToolButton2Click | (Sender: TObject) | ΠΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ SAVE1 | |
procedure TForm1. ToolButton3Click | (Sender: TObject) | ΠΡΡΠ΅Π·Π°Π½ΠΈΠ΅ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠ΅ΠΊΡΡΠ° Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π° | |
procedure TForm1. ToolButton4Click | (Sender: TObject) | ΠΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π° | |
procedure TForm1. ToolButton5Click | (Sender: TObject) | ΠΡΡΠ°Π²ΠΊΠ° ΡΠ΅ΠΊΡΡΠ° ΠΈΠ· Π±ΡΡΠ΅ΡΠ° ΠΎΠ±ΠΌΠ΅Π½Π° | |
procedure TForm1. ToolButton6Click | (Sender: TObject) | ΠΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ Π²ΡΠ΅Π³ΠΎ ΡΠ΅ΠΊΡΡΠ° | |
procedure TForm1. ToolButton7Click | (Sender: TObject) | ΠΡΠΈΡΡΠΊΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ ΠΏΠΎΠ»Ρ | |
procedure TForm1. Memo1MouseDown | (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) | ΠΡΠ²ΠΎΠ΄ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΠΊΡΡΡΠΎΡΠ° Π² Memo | |
procedure TForm1. N20Click (Sender: TObject); | Π½Π΅Ρ | ΠΠ°ΠΏΡΡΠΊ Π΄ΠΈΠ°Π»ΠΎΠ³Π° Π²ΡΠ±ΠΎΡΠ° ΡΡΠΈΡΡΠ° | |
procedure TForm1. N23Click (Sender: TObject); | Π½Π΅Ρ | ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΡ ΠΏΠΎ ΡΠ΅Π½ΡΡΡ | |
procedure TForm1. N24Click (Sender: TObject); | Π½Π΅Ρ | ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΡ ΠΏΠΎ Π»Π΅Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ | |
procedure TForm1. N25Click (Sender: TObject); | Π½Π΅Ρ | ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΡ ΠΏΠΎ ΠΏΡΠ°Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ | |
procedure TForm1. N26Click (Sender: TObject); | Π½Π΅Ρ | ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° Π½Π° 3-Ρ ΡΠΎΡΠΌΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡ ΡΠΏΡΠ°Π²ΠΊΡ | |
procedure TForm1. Timer1Timer (Sender: TObject); | Π½Π΅Ρ | ΠΡΠ²ΠΎΠ΄ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ | |
procedure TForm1. ToolButton9Click (Sender: TObject); | Π½Π΅Ρ | ΠΡΠ·ΠΎΠ² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Π²ΡΠ±ΠΎΡΠ° ΡΠ²Π΅ΡΠ° | |
procedure TForm1. FormCreate (Sender: TObject); | Π½Π΅Ρ | ΠΠ°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ComboBox1 ΠΈ ComboBox2 | |
procedure TForm1. ComboBox1Change | (Sender: TObject) | Π£ΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΡΡΠΈΡΡΠ° | |
procedure TForm1. ComboBox1KeyPress | (Sender: TObject; var Key: Char) | ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π±Π»ΠΎΠΊΠΈΡΠΎΠ²ΠΊΠΈ Π½Π° Π²Π²ΠΎΠ΄ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ (Π΄ΠΎΠΏΡΡΡΠΈΠΌΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΡΡ) | |
procedure TForm1. ComboBox2Change | (Sender: TObject) | Π£ΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΡΡΠΈΠ»Ρ ΡΡΠΈΡΡΠ° | |
procedure TForm1. ComboBox2KeyPress | (Sender: TObject; var Key: Char) | ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π±Π»ΠΎΠΊΠΈΡΠΎΠ²ΠΊΠΈ Π½Π° ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ComboBox2 (ΡΠΏΠΈΡΠΎΠΊ ΡΡΠΈΡΡΠΎΠ²) | |
UNIT3 | |||
procedure TForm3. BitBtn1Click | (Sender: TObject) | ΠΠ°ΠΊΡΡΡΠΈΠ΅ ΡΠΏΡΠ°Π²ΠΊΠΈ, Π²ΠΎΠ·Π²ΡΠ°Ρ Π½Π° Π³Π»Π°Π²Π½ΡΡ ΡΠΎΡΠΌΡ | |
UNIT4 | |||
procedure TForm4. BitBtn1Click | (Sender: TObject) | ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ»ΠΎΠ²Π° Π² ΡΠ΅ΠΊΡΡΠ΅ | |
procedure TForm4. BitBtn2Click | (Sender: TObject) | ΠΡΠΌΠ΅Π½Π° ΠΏΠΎΠΈΡΠΊΠ°, Π²ΠΎΠ·Π²ΡΠ°Ρ Π½Π° Π³Π»Π°Π²Π½ΡΡ ΡΠΎΡΠΌΡ | |
UNIT5 | |||
procedure TForm5. Button1Click | (Sender: TObject) | ΠΠΎΠ·Π²ΡΠ°Ρ ΠΊ ΠΏΠΎΠΈΡΠΊΡ | |
procedure TForm5. BitBtn1Click | (Sender: TObject) | ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ Π½Π° Π³Π»Π°Π²Π½ΡΡ ΡΠΎΡΠΌΡ | |
5. ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΠ»Ρ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌ ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ ΡΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌΠΈ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌΠΈ:
1. Π’ΠΈΠΏ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠ° — Intel Pentium III/Intel Pentium IV;
2. ΠΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Windows 96/2000/XP/Vista;
3. ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΌ ΠΏΠ°ΠΌΡΡΠΈ — 20 ΠΠ±.
Π’Π°ΠΊΠΆΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡ Π²Π½Π΅ΡΠ½ΠΈΠ΅ ΡΡΡΡΠΎΠΉΡΡΠ²Π°: ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ°, ΠΌΡΡΡ.
6. ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΡΠΎ ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΠΎΠΉ Π½Π°Π²ΠΈΠ³Π°ΡΠΈΠ΅ΠΉ ΠΈ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ-ΠΌΠ΅Π½Ρ.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Π’Π°Π±Π»ΠΈΡΠ° 2
TImage | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΠΈ ΡΠΎΡΠΌ | |
TPanel | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΠΈ ΡΠΎΡΠΌ | |
TLabel | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΡΠ°Π·Π»ΠΈΡΠ½ΠΎΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΏΠΎΡΡΠ½Π΅Π½ΠΈΠΉ | |
TEdit | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΡΠ°Π·Π»ΠΈΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ (ΡΠ»ΠΎΠ²Π° Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ°, ΡΠ»ΠΎΠ²Π° Π΄Π»Ρ Π·Π°ΠΌΠ΅Π½Ρ) | |
TMemo | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ | |
TButton | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΎΠ², ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π²Π²ΠΎΠ΄Π° | |
TBitBtn | ||
TOpenDialog | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Π²ΡΠ±ΠΎΡΠ° ΠΈ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»ΠΎΠ² | |
TSaveDialog | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π° | |
TMainMenu | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΠ±ΡΠ»ΡΠΆΠΈΠ²Π°Π½ΠΈΡ ΠΌΠ΅Π½Ρ (Π²ΡΠ±ΠΎΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ) | |
TComboBox | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠΏΠ°Π΄Π°ΡΡΠ΅Π³ΠΎ ΡΠΏΠΈΡΠΊΠ° (ΡΠΌΠ΅Π½Π° ΡΠ°Π·ΠΌΠ΅ΡΠ° ΡΡΠΈΡΡΠ°, ΡΠΌΠ΅Π½Π° ΡΡΠΈΠ»Ρ) | |
TTimer | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ | |
TStatusBar | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΎΠΊ, Π²ΡΠ²ΠΎΠ΄Π° ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΠΊΡΡΡΠΎΡΠ° Π² ΡΠ΅ΠΊΡΡΠ΅ | |
TImageList | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ (ΠΈΠΊΠΎΠ½ΠΎΠΊ) | |
TApplicationEvents | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ Π²ΡΠ²ΠΎΠ΄Π° Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΠΈΡ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΎΠΊ | |
TFontDialog | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Π²ΡΠ±ΠΎΡΠ° Π°ΡΡΠΈΠ±ΡΡΠΎΠ² ΡΡΠΈΡΡΠ° | |
TToolBar | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² | |
TColorDialog | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Π²ΡΠ±ΠΎΡΠ° ΡΠ²Π΅ΡΠ° | |
TSskinManager | ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΡ | |
TSskinProvider | ||
Π ΠΈΡ. 3. ΠΠ»Π°Π²Π½Π°Ρ ΡΠΎΡΠΌΠ° Π ΠΈΡ. 4. Π’ΡΠ΅ΡΡΡ ΡΠΎΡΠΌΠ° «Π‘ΠΏΡΠ°Π²ΠΊΠ°»
Π ΠΈΡ. 5. Π§Π΅ΡΠ²Π΅ΡΡΠ°Ρ ΡΠΎΡΠΌΠ° «ΠΠΎΠΈΡΠΊ ΡΠ»ΠΎΠ²Π°»
Π ΠΈΡ. 6. ΠΡΡΠ°Ρ ΡΠΎΡΠΌΠ° «Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΏΠΎΠΈΡΠΊΠ°»
7. ΠΡΠ·ΠΎΠ² ΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ° ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°ΠΏΡΡΠΊΠΎΠΌ ΡΠ°ΠΉΠ»Π° Project1. exe, Π½Π°Ρ ΠΎΠ΄ΡΡΠ΅Π³ΠΎΡΡ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅ TextEditor.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΡΠΎΠ΄Π΅Π»Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ» Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π», ΠΈΠ·ΡΡΠ΅Π½Π½ΡΠΉ Π² ΠΊΡΡΡΠ΅ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Ρ «CΡΡΡΠΊΡΡΡΡ ΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ », Π° ΠΈΠΌΠ΅Π½Π½ΠΎ:
Β· ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎΠ΄ΡΡΡΠΎΠΊΠΈ Π² ΡΡΡΠΎΠΊΠ΅ (ΠΌΠ΅ΡΠΎΠ΄ ΠΠ½ΡΡΠ°-ΠΠΎΡΡΠΈΡΠ°-ΠΡΠ°ΡΡΠ°);
ΠΡΠΎΠΌΠ΅ ΡΡΠΎΠ³ΠΎ, Π±ΡΠ» Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π», ΠΈΠ·ΡΡΠ΅Π½Π½ΡΠΉ Π² ΠΊΡΡΡΠ΅ Π΄ΡΡΠ³ΠΈΡ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ «Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ²».
Π’Π°ΠΊΠΆΠ΅, Π±ΡΠ»ΠΈ ΠΏΡΠΈΠΎΠ±ΡΠ΅ΡΠ΅Π½Ρ Π½Π°Π²ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΡΡΠ΅Π΄Π΅ Delphi.
ΠΠΎΡΡΠ°Π²Π»Π΅Π½Π½Π°Ρ ΡΠ΅Π»Ρ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡΠ°: ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΆΠ΅Π»Π°Π΅ΠΌΡΠΉ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ.
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. ΠΠ½ΡΠ΅ΡΠ½Π΅Ρ-ΡΠ΅ΡΡΡΡ http://www.edelphi.ru/ - ΠΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΠΊΠ½ΠΈΠ³Π° 100 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² Delphi.
2. ΠΠ½ΡΠ΅ΡΠ½Π΅Ρ-ΡΠ΅ΡΡΡΡ http://www.helloworld.ru/ - ΠΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΡ ΠΈ ΠΊΠ½ΠΈΠ³ΠΈ ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
3. ΠΠ½ΡΠ΅ΡΠ½Π΅Ρ-ΡΠ΅ΡΡΡΡ http://www.delphisources.ru/.
4. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. Delphi. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ: Π£ΡΠ΅Π±Π½ΠΈΠΊ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ² — Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2006.
5. ΠΠ»ΡΡΡΠ΅Π΄ Π. ΠΡ ΠΎ, ΠΠΆΠΎΠ½ Π. Π₯ΠΎΠΏΠΊΡΠΎΡΡ, ΠΠΆΠ΅ΡΡΡΠΈ Π. Π£Π»ΡΠΌΠ°Π½. Π‘ΡΡΡΠΊΡΡΡΡ Π΄Π°Π½Π½ΡΡ ΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ: ΠΠ΅Ρ. Ρ Π°Π½Π³Π».: Π.: ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΠΊΠΈΠΉ Π΄ΠΎΠΌ «ΠΠΈΠ»ΡΡΠΌΡ», 2001.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 1
ΠΠ±ΠΎΠ±ΡΠ΅Π½Π½ΡΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ Π ΠΈΡ. 1. ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΎΠ±ΠΎΠ±ΡΠ΅Π½Π½ΠΎΠ³ΠΎ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° Π ΠΈΡ. 2. ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΏΠΎΠΈΡΠΊΠ° ΡΠ»ΠΎΠ²Π° Π² ΡΠ΅ΠΊΡΡΠ΅. Π‘ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΡΠ°Π±Π»ΠΈΡΡ ΡΠ΄Π²ΠΈΠ³ΠΎΠ² (procedure TForm4. BitBtn1Click (Sender: TObject);)
Π ΠΈΡ. 3. ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΏΠΎΠΈΡΠΊΠ° ΡΠ»ΠΎΠ²Π° Π² ΡΠ΅ΠΊΡΡΠ΅. ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ»ΠΎΠ²Π° Π² ΡΠ΅ΠΊΡΡΠ΅ (procedure TForm4. BitBtn1Click (Sender: TObject)
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 2
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ImgList, ComCtrls, AppEvnts, ToolWin, ActnList,
ExtCtrls, sSkinProvider, sSkinManager, sDialogs ;
type
TForm1 = class (TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
OpenDialog1: TOpenDialog;
Memo1: TMemo;
SaveDialog1: TSaveDialog;
N7: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
ImageList1: TImageList;
StatusBar: TStatusBar;
ApplicationEvents: TApplicationEvents;
FontDialog1: TFontDialog;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
ToolBar: TToolBar;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
Timer1: TTimer;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
sColorDialog1: TsColorDialog;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ToolButton15: TToolButton;
ToolButton16: TToolButton;
procedure N2Click (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure N3Click (Sender: TObject);
procedure N7Click (Sender: TObject);
procedure N10Click (Sender: TObject);
procedure N11Click (Sender: TObject);
procedure N12Click (Sender: TObject);
procedure N13Click (Sender: TObject);
procedure ApplicationEventsHint (Sender: TObject);
procedure N15Click (Sender: TObject);
procedure N16Click (Sender: TObject);
procedure N17Click (Sender: TObject);
procedure ToolButton2Click (Sender: TObject);
procedure ToolButton1Click (Sender: TObject);
procedure ToolButton3Click (Sender: TObject);
procedure ToolButton4Click (Sender: TObject);
procedure ToolButton5Click (Sender: TObject);
procedure N9Click (Sender: TObject);
procedure ToolButton6Click (Sender: TObject);
procedure ToolButton7Click (Sender: TObject);
procedure Memo1Change (Sender: TObject);
procedure Memo1MouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure N20Click (Sender: TObject);
procedure N23Click (Sender: TObject);
procedure N24Click (Sender: TObject);
procedure N25Click (Sender: TObject);
procedure N26Click (Sender: TObject);
procedure ToolButton9Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure ComboBox1Change (Sender: TObject);
procedure ComboBox1KeyPress (Sender: TObject; var Key: Char);
procedure ComboBox2Change (Sender: TObject);
procedure ComboBox2KeyPress (Sender: TObject; var Key: Char);
procedure ToolButton8Click (Sender: TObject);
procedure Memo1KeyUp (Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer1Timer (Sender: TObject);
procedure FormShow (Sender: TObject);
procedure Memo1KeyDown (Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ToolButton13Click (Sender: TObject);
procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean);
procedure N19Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
uses Unit3, Unit4;
procedure OPEN1;
begin
Form1.Memo1.Lines.Clear; // ΠΡΠΈΡΠ°Π΅ΠΌ ΡΡΡΠΎΠΊΠΈ Memo
Form1.Caption:=('Text Editor'); // ΠΠΎΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΠΌ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ ΡΠΎΡΠΌΡ
If Form1. OpenDialog1.Execute Then // ΠΡΠΊΡΡΠ²Π°Π΅ΠΌ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ
If form1. OpenDialog1.Filename<>'' Then
Begin
form1.Memo1.Lines.LoadFromFile (form1.OpenDialog1.Filename);// ΠΠ°Π³ΡΡΠΆΠ°Π΅ΠΌ ΡΠ°ΠΉΠ» Π² Memo
Form1.Caption:=(form1.OpenDialog1.Filename+' - Text Editor');// ΠΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π² Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ.
End;
end;
procedure Create1;
begin
form1.Memo1.Lines.Clear; // ΠΡΠΈΡΠ°Π΅ΠΌ ΡΡΡΠΎΠΊΠΈ Memo
Form1.Caption:=('Text Editor'); // ΠΠΎΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΠΌ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ ΡΠΎΡΠΌΡ
end;
procedure SAVE1;
begin
IF form1. SaveDialog1.Execute then // ΠΡΠΊΡΡΠ²Π°Π΅ΠΌ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ
IF form1. SaveDialog1.Filename<>'' then
Begin
form1.Memo1.Lines.SaveToFile (form1.SaveDialog1.Filename);
// ΠΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π² Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ.
Form1.Caption:=(form1.SaveDialog1.Filename+' - Text Editor');
End;
end;
{ΡΠΎΠ·Π΄Π°ΡΡ}
procedure TForm1. N2Click (Sender: TObject);
begin
Create1;
end;
{Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅}
procedure TForm1. N4Click (Sender: TObject);
begin
SAVE1;
end;
{ΠΎΡΠΊΡΡΡΡ}
procedure TForm1. N3Click (Sender: TObject);
begin
OPEN1;
if memo1. Text='' then
begin
N19.Enabled:=false;
N7.Enabled:=false;
N10.Enabled:=false;
N11.Enabled:=false;
N12.Enabled:=false;
N17.Enabled:=false;
ToolButton3.Enabled:=false;
ToolButton4.Enabled:=false;
ToolButton5.Enabled:=false;
ToolButton6.Enabled:=false;
ToolButton7.Enabled:=false;
ToolButton9.Enabled:=false;
end
else
begin
N19.Enabled:=true;
ToolButton3.Enabled:=true;
ToolButton4.Enabled:=true;
ToolButton6.Enabled:=true;
ToolButton7.Enabled:=true;
ToolButton9.Enabled:=true;
N7.Enabled:=true;
N10.Enabled:=true;
N12.Enabled:=true;
N17.Enabled:=true;
end;
end;
{ΠΡΡ ΠΎΠ΄}
procedure TForm1. N13Click (Sender: TObject);
begin
memo1.Clear;
Form1.Close;
end;
{ΠΡΡΠ΅Π·Π°ΡΡ}
procedure TForm1. N7Click (Sender: TObject);
begin
Memo1.CutToClipBoard; //ΠΡΡΠ΅Π·Π°Π΅ΠΌ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π°
end;
{ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ}
procedure TForm1. N10Click (Sender: TObject);
begin
Memo1.CopyToClipBoard; // ΠΠΎΠΏΠΈΡΡΠ΅ΠΌ ΡΠ΅ΠΊΡΡ Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π°
N11.Enabled:=true;
end;
{ΠΡΡΠ°Π²ΠΈΡΡ}
procedure TForm1. N11Click (Sender: TObject);
begin
Memo1.PasteFromClipBoard; // ΠΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠ΅ΠΊΡΡ ΠΈΠ· Π±ΡΡΠ΅ΡΠ° ΠΎΠ±ΠΌΠ΅Π½Π°
end;
{ΠΡΠ΄Π΅Π»ΠΈΡΡ Π²ΡΡ}
procedure TForm1. N12Click (Sender: TObject);
begin
Memo1.SelectAll; // ΠΡΠ΄Π΅Π»ΡΠ΅ΠΌ Π²Π΅ΡΡ ΡΠ΅ΠΊΡΡ
end;
procedure TForm1. ApplicationEventsHint (Sender: TObject);
begin
with StatusBar do
begin
Panels[0]. Text:= Application. Hint;
{============}
SimplePanel := SimpleText <> '';
end;
end;
procedure TForm1. N15Click (Sender: TObject);
begin
// Π‘ΠΏΡΡΡΠ°ΡΡ ΠΈΠ»ΠΈ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ²
ToolBar.Visible := not ToolBar. Visible;
N15.Checked := not N15. Checked;
end;
procedure TForm1. N16Click (Sender: TObject);
begin
// Π‘ΠΏΡΡΡΠ°ΡΡ ΠΈΠ»ΠΈ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ ΡΡΡΠΎΠΊΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ
StatusBar.Visible := not StatusBar. Visible;
N16.Checked := not N16. Checked;
end;
{ΠΡΠΈΡΡΠΈΡΡ}
procedure TForm1. N17Click (Sender: TObject);
begin
Memo1.Lines.Clear;
end;
{ΡΠΎΠ·Π΄Π°ΡΡ}
procedure TForm1. ToolButton1Click (Sender: TObject);
begin
OPEN1;
end;
{ΠΎΡΠΊΡΡΡΡ}
procedure TForm1. ToolButton2Click (Sender: TObject);
begin
SAVE1;
end;
{ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ}
procedure TForm1. ToolButton3Click (Sender: TObject);
begin
Memo1.CutToClipBoard; //ΠΡΡΠ΅Π·Π°Π΅ΠΌ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π°
end;
{Π²ΡΡΠ΅Π·Π°ΡΡ}
procedure TForm1. ToolButton4Click (Sender: TObject);
begin
Memo1.CopyToClipBoard; // ΠΠΎΠΏΠΈΡΡΠ΅ΠΌ ΡΠ΅ΠΊΡΡ Π² Π±ΡΡΠ΅Ρ ΠΎΠ±ΠΌΠ΅Π½Π°
ToolButton5.Enabled:=true;
N11.Enabled:=true;
end;
{ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ}
procedure TForm1. ToolButton5Click (Sender: TObject);
begin
Memo1.PasteFromClipBoard; // ΠΡΡΠ°Π²Π»ΡΠ΅ΠΌ ΡΠ΅ΠΊΡΡ ΠΈΠ· Π±ΡΡΠ΅ΡΠ° ΠΎΠ±ΠΌΠ΅Π½Π°
end;
{Π²ΡΡΠ°Π²ΠΈΡΡ}
procedure TForm1. ToolButton6Click (Sender: TObject);
begin
Memo1.SelectAll; // ΠΡΠ΄Π΅Π»ΡΠ΅ΠΌ Π²Π΅ΡΡ ΡΠ΅ΠΊΡΡ
end;
{ΠΎΡΠΈΡΡΠΈΡΡ}
procedure TForm1. ToolButton7Click (Sender: TObject);
begin
Memo1.Lines.Clear; //ΠΎΡΠΈΡΡΠΈΡΡ
end;
procedure TForm1. Memo1Change (Sender: TObject);
begin
ToolButton3.enabled:=true;
ToolButton4.enabled:=true;
ToolButton6.enabled:=true;
ToolButton7.enabled:=true;
Form1.StatusBar.Panels[1]. Text:='ΡΡΡ '+IntToStr (Memo1.CaretPos.Y)+' ΡΡΠΎΠ»Π± '+IntToStr (Memo1.CaretPos.X);
end;
procedure TForm1. Memo1MouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.StatusBar.Panels[1]. Text:='ΡΡΡ '+IntToStr (Memo1.CaretPos.Y)+' ΡΡΠΎΠ»Π± '+IntToStr (Memo1.CaretPos.X);
end;
procedure TForm1. N20Click (Sender: TObject);
begin
FontDialog1.Font:=Memo1.Font;// ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΡΡΠΈΡΡ Π² Π΄ΠΈΠ°Π»ΠΎΠ³Π΅
If FontDialog1. Execute Then
begin // ΠΠ°ΠΏΡΡΠΊΠ°Π΅ΠΌ Π΄ΠΈΠ°Π»ΠΎΠ³ Π²ΡΠ±ΠΎΡΠ° ΡΡΠΈΡΡΠ°
Memo1.Font:=FontDialog1.Font; // ΠΡΠΈΠΌΠ΅Π½ΡΠ΅ΠΌ Π²ΡΠ±ΡΠ°Π½Π½ΡΠΉ ΡΡΠΈΡΡ
Combobox1.Text:=intToStr (Memo1.font.Size);
ComboBox2.Text:=Memo1.Font.Name;
end;
end;
procedure TForm1. N23Click (Sender: TObject);
begin
N23.Checked:=true;
Memo1.Alignment:=tacenter;
end;
procedure TForm1. N24Click (Sender: TObject);
begin
N24.Checked:=true;
memo1.Alignment:=taleftjustify;
end;
procedure TForm1. N25Click (Sender: TObject);
begin
N25.Checked:=true;
Memo1.Alignment:=tarightjustify;
end;
procedure TForm1. N26Click (Sender: TObject);
begin
Form3.Visible:=true;
end;
procedure TForm1. ToolButton9Click (Sender: TObject);
begin
Form1.Memo1.SelStart:=0;
Form4.Visible:=true;
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
Combobox1.Items.Add ('8');
Combobox1.Items.Add ('9');
Combobox1.Items.Add ('10');
Combobox1.Items.Add ('11');
Combobox1.Items.Add ('12');
Combobox1.Items.Add ('14');
Combobox1.Items.Add ('16');
Combobox1.Items.Add ('18');
Combobox1.Items.Add ('20');
Combobox1.Items.Add ('22');
Combobox1.Items.Add ('24');
Combobox1.Items.Add ('26');
Combobox1.Items.Add ('28');
Combobox1.Items.Add ('36');
Combobox1.Items.Add ('48');
Combobox2.Items.Add ('Arial');
Combobox2.Items.Add ('Arial Black');
Combobox2.Items.Add ('Comic Sans MS');
Combobox2.Items.Add ('Courier New');
Combobox2.Items.Add ('Tahoma');
Combobox2.Items.Add ('Times New Roman');
Combobox2.Items.Add ('Verdana');
Memo1.Font.Name:='Times New Roman';
Memo1.Font.Size:=8;
end;
procedure TForm1. ComboBox1Change (Sender: TObject);
begin
Memo1.Font.Size:=StrToInt (Combobox1.Text);
end;
procedure TForm1. ComboBox1KeyPress (Sender: TObject; var Key: Char);
begin
if not (Key in ['0'. '9']) then Key := #0;
end;
procedure TForm1. ComboBox2Change (Sender: TObject);
begin
Memo1.Font.Name:=Combobox2.Text;
end;
procedure TForm1. ComboBox2KeyPress (Sender: TObject; var Key: Char);
begin
if (Key in ['0'. '9','a'. 'z', 'Π°'. 'Ρ','Π'. 'Π―','A'. 'Z', '!', '" ', '@', '#', 'β', ';', '$', '%', '^', '&', '?', ':', '*',
'(', ')', '-', '_', '+', '=', '|', '', '/', ',', '.' ,'<', '>', '{', '}', '[', ']']) then Key := #0;
end;
procedure TForm1. ToolButton8Click (Sender: TObject);
begin
Create1;
end;
procedure TForm1. Memo1KeyUp (Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if memo1. Text='' then
begin
N19.Enabled:=false;
N7.Enabled:=false;
N10.Enabled:=false;
N11.Enabled:=false;
N12.Enabled:=false;
N17.Enabled:=false;
ToolButton3.Enabled:=false;
ToolButton4.Enabled:=false;
ToolButton5.Enabled:=false;
ToolButton6.Enabled:=false;
ToolButton7.Enabled:=false;
ToolButton9.Enabled:=false;
end
else
begin
N19.Enabled:=true;
ToolButton3.Enabled:=true;
ToolButton4.Enabled:=true;
ToolButton6.Enabled:=true;
ToolButton7.Enabled:=true;
ToolButton9.Enabled:=true;
N7.Enabled:=true;
N10.Enabled:=true;
N12.Enabled:=true;
N17.Enabled:=true;
end;
end;
procedure TForm1. Timer1Timer (Sender: TObject);
var Time: Tdatetime;
begin
Time:=now ();
statusBar.Panels[2]. Text:='ΠΡΠ΅ΠΌΡ'+TimeToStr (time);
end;
procedure TForm1. FormShow (Sender: TObject);
begin
Timer1.Enabled:=true;
end;
procedure TForm1. Memo1KeyDown (Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if memo1. Text<>'' then N19. Enabled:=true;
end;
procedure TForm1. ToolButton13Click (Sender: TObject);
begin
if sColorDialog1. Execute then
Memo1.Font.color := sColorDialog1. Color;
end;
procedure TForm1. FormCloseQuery (Sender: TObject; var CanClose: Boolean);
var res: integer;
begin
Res := MessageBox (
Self.Handle
PChar ('Π₯ΠΎΡΠΈΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡΡΡ ΠΏΠ΅ΡΠ΅Π΄ Π²ΡΡ ΠΎΠ΄ΠΎΠΌ?')
PChar ('Text Editor')
MB_YESNOCANCEL + MB_ICONINFORMATION //+ MB_APPLMODAL
);
case Res of
IDYES: begin
Save1;
//ΠΡΠ·ΠΎΠ² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° Π΄Π»Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ, ΠΊΠΎΠ³Π΄Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π½Π°ΠΆΠ°Π» ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ°» .
end;
IDNO: begin
canclose:=true;
//ΠΠ°ΠΊΡΡΡΠΈΠ΅ Π±Π΅Π· ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π² ΡΠ»ΡΡΠ°Π΅, ΠΊΠΎΠ³Π΄Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π½Π°ΠΆΠ°Π» ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ΅Ρ» .
end;
IDCANCEL: begin
canclose:=false;
//ΠΠΎΠ·Π²ΡΠ°Ρ Π½Π° Π³Π»Π°Π²Π½ΡΡ ΡΠΎΡΠΌΡ Π² ΡΠ»ΡΡΠ°Π΅, ΠΊΠΎΠ³Π΄Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π½Π°ΠΆΠ°Π» ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΡΠΌΠ΅Π½Π°» .
end;
end;
end;
procedure TForm1. N19Click (Sender: TObject);
begin
Form1.Memo1.SelStart:=0;
Form4.Visible:=true;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, jpeg;
type
TForm3 = class (TForm)
BitBtn1: TBitBtn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Memo2: TMemo;
Image1: TImage;
Image2: TImage;
procedure BitBtn1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3. BitBtn1Click (Sender: TObject);
begin
Form3.Visible:=false;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, StdCtrls, Buttons, ExtCtrls;
type
TForm4 = class (TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
XPManifest1: TXPManifest;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Panel1: TPanel;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn2Click (Sender: TObject);
procedure RadioButton1Click (Sender: TObject);
procedure RadioButton2Click (Sender: TObject);
procedure FormShow (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
txt, wrd: string ;
i, j, k, x, u, lensuff, m, n, position1: integer;
equal, KMP: boolean;
shift:array of integer;
implementation
uses Unit1, Unit5;
{$R *.dfm}
procedure TForm4. BitBtn1Click (Sender: TObject);
begin
if Edit1. Text='' then ShowMessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ»ΠΎΠ²ΠΎ Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ° Π»ΠΈΠ±ΠΎ Π²ΡΠ±Π΅ΡΠΈΡΠ΅ «ΠΠ’ΠΠΠΠ» ') else
BEGIN {1}
KMP:=false;
txt:=Form1.Memo1.Lines.GetText;
wrd:=Form4.Edit1.Text;
m:=length (wrd);
setlength (shift, m);
n:=length (txt);
form1.Memo1.SelStart:=Position1;
shift[0]: =1;
if m>1 then
begin{5}
shift[1]: =1;
for j:=2 to m-1 do
BEGIN {4}
shift[j]: =1;
for lensuff:=1 to j-2 do
Begin{3}
equal:=true;
{ m:=j;}
for k:=1 to lensuff do
begin {2}
if wrd[k]<>wrd[j-lensuff+k]
then equal:=false;
end; {2}
if equal then
shift[j]: =j-lensuff;
End; {3}
END; {4}
end;{5}
{========================}
i:=form1.Memo1.SelStart;
j:=1;
repeat
i:=i+shift[j-1];
j:=1;
while (j<=m)and (txt[i+j-1]=wrd[j]) do j:=j+1;
until (j=m+1)or (i>=n-m+1);
if j=m+1 then
begin
kmp:=true;
position1:=i
end
else
begin
kmp:=false;
Position1:=0
end;
if KMP=true then
begin
Form1.Memo1.SelStart:=Position1−1;
Form1.Memo1.SelLength:=length (wrd);
if Radiobutton2. Checked=true then
begin
Form1.Memo1.CutToClipBoard;
if Edit2. Text<>'' then
begin
Edit2.SelectAll;
Edit2.CopyToClipboard;
Form1.Memo1.PasteFromClipboard;
end;
end;
BitBtn1.Caption:='ΠΠ°ΠΉΡΠΈ Π΄Π°Π»Π΅Π΅';
end
{==========================}
else begin
Form4.Visible:=false;
Form5.Visible:=true
end;
shift:=NIL;
END;{1}
end;
procedure TForm4. BitBtn2Click (Sender: TObject);
begin
form4.Visible:=false;
end;
procedure TForm4. RadioButton1Click (Sender: TObject);
begin
Label2.Visible:=false;
Edit2.Visible:=false;
Edit1.Top:=192;
Label1.Top:=32;
end;
procedure TForm4. RadioButton2Click (Sender: TObject);
begin
Label2.Visible:=true;
Edit2.Visible:=true;
Label1.Top:=8;
Label1.Left:=8;
Edit1.Top:=168;
Edit1.left:=16;
Label2.Top:=80;
Label2.Left:=8;
Edit2.Top:=104;
Edit2.left:=8;
end;
procedure TForm4. FormShow (Sender: TObject);
begin
Edit1.Clear;
edit2.Clear;
BitBtn1.Caption:='ΠΠ';
RadioButton1.Checked:=true;
Edit1.Top:=192;
Label1.Top:=32;
Position1:=0;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm5 = class (TForm)
Label1: TLabel;
Button1: TButton;
BitBtn1: TBitBtn;
procedure Button1Click (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm5. Button1Click (Sender: TObject);
begin
Form5.Visible:=false;
Form4.Visible:=true;
end;
procedure TForm5. BitBtn1Click (Sender: TObject);
begin
Form5.Visible:=false;
end;
end.
Π·Π°Π³ΡΡΠ·ΠΊΠ° ΡΠ΅ΠΊΡΡ ΡΠ°ΠΉΠ» ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 3
Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
1. ΠΠ±ΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΡΡ ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΠ°Π½Π½ΡΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΏΡΠΎΠ΄ΡΠΊΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ «Π’Π΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ». ΠΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π° Π»ΡΠ±ΡΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΠ ΠΈ Π½Π΅ ΡΡΠ΅Π±ΡΠ΅Ρ ΠΎΡΠΎΠ±ΡΡ Π·Π½Π°Π½ΠΈΠΉ. ΠΠ½Π° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ Π·Π°Π΄Π°Ρ:
1) ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΡΠ΅ΠΊΡΡΠ° ΠΈΠ· ΡΠ°ΠΉΠ»Π° (Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ .txt);
2) Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° Π² ΡΠ°ΠΉΠ»;
3) Π Π΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° (ΡΡΠΈΡΡ, Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅; Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΡΡΠ΅Π·Π°ΡΡ/ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ/Π²ΡΡΠ°Π²ΠΈΡΡ/ΠΡΠ΄Π΅Π»ΠΈΡΡ Π²ΡΡ…)
4) ΠΠΎΠΈΡΠΊ ΠΈ Π·Π°ΠΌΠ΅Π½Π° ΡΠ»ΠΎΠ² Π² ΡΠ΅ΠΊΡΡΠ΅.
2. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΠ΅ΡΠ΅Π΄ Π·Π°ΠΏΡΡΠΊΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ°ΠΏΠΊΡ TextEditor ΠΊ ΡΠ΅Π±Π΅ Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ.
3. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°ΠΏΡΡΠΊΠΎΠΌ ΡΠ°ΠΉΠ»Π° Project1. exe, Π½Π°Ρ ΠΎΠ΄ΡΡΠ΅Π³ΠΎΡΡ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅ TextEditor.
Π ΠΈΡ. 1. ΠΠ°ΠΏΡΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
4. ΠΠ½ΡΡΡΡΠΊΡΠΈΠΈ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠ΅ ΠΠΎΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ Π³Π»Π°Π²Π½Π°Ρ ΡΠΎΡΠΌΠ°.
Π ΠΈΡ. 2. ΠΠ»Π°Π²Π½Π°Ρ ΡΠΎΡΠΌΠ°
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ «Π€Π°ΠΉΠ»» ΠΏΠΎΡΠ²ΠΈΡΡΡ Π²ΡΠΏΠ°Π΄Π°ΡΡΠΈΠΉ ΡΠΏΠΈΡΠΎΠΊ Π ΠΈΡ. 3. ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π€Π°ΠΉΠ»»
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° «Π‘ΠΎΠ·Π΄Π°ΡΡ» Π±ΡΠ΄Π΅Ρ ΠΎΡΠΈΡΠ΅Π½ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ ΠΈ Π²ΠΎΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ ΠΎΠΊΠ½Π° «Text Editor». ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° «ΠΡΠΊΡΡΡΡ…» ΠΏΠΎΡΠ²ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Π²ΡΠ±ΠΎΡΠ° ΡΠ°ΠΉΠ»Π° Π΄Π»Ρ ΠΎΡΠΊΡΡΡΠΈΡ (ΡΠ°ΠΉΠ» Ρ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ .txt)
Π ΠΈΡ. 4. ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΡΠ°Π²ΠΊΠ°»
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° «Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ…» ΠΏΠΎΡΠ²ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°:
Π ΠΈΡ. 5. ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΡΠ°Π²ΠΊΠ°»
Π ΠΈΡ. 6. ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΡΠ°Π²ΠΊΠ°»
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ «ΠΡΠ°Π²ΠΊΠ°» ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΡΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΡΡΠ΅Π·Π°ΡΡ/ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ/ΠΡΡΠ°Π²ΠΈΡΡ/ΠΡΠ΄Π΅Π»ΠΈΡΡ Π²ΡΡ/ΠΡΠΈΡΡΠΈΡΡ, Π° ΡΠ°ΠΊΠΆΠ΅ «ΠΠ°ΠΉΡΠΈ» — ΠΏΠΎΠΈΡΠΊ ΡΠ»ΠΎΠ²Π° Π² ΡΠ΅ΠΊΡΡΠ΅. ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΡΡΠΎΠ³ΠΎ ΠΏΡΠ½ΠΊΡΠ° ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ Π ΠΈΡ. 4. ΠΠΎΠΈΡΠΊ ΡΠ»ΠΎΠ²Π° ΠΠΎΠ·ΠΌΠΎΠΆΠ΅Π½ Π²ΡΠ±ΠΎΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²:
— ΠΏΠΎΠΈΡΠΊ Π±Π΅Π· Π·Π°ΠΌΠ΅Π½Ρ (ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ). ΠΠ΄Π΅ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌ ΡΠΎΠ»ΡΠΊΠΎ Π²Π²ΠΎΠ΄ ΡΠ»ΠΎΠ²Π° Π΄Π»Ρ ΠΏΠΎΠΈΡΠΊΠ°;
— ΠΏΠΎΠΈΡΠΊ Ρ Π·Π°ΠΌΠ΅Π½ΠΎΠΉ. ΠΡΠΈ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΈ ΡΡΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° Π½Π° ΡΠΎΡΠΌΠ΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ Π΅ΡΠ΅ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΏΠΎΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΡΠ»ΠΎΠ²Π° Π΄Π»Ρ Π·Π°ΠΌΠ΅Π½Ρ Π ΠΈΡ. 7. ΠΠΎΠΈΡΠΊ ΡΠ»ΠΎΠ²Π° ΠΡΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠΈ ΠΏΠΎΠΈΡΠΊΠ° ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ Π²ΡΠ΅ Π²Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΡΠ»ΠΎΠ²Π° Π² ΡΠ΅ΠΊΡΡΠ΅, ΠΏΡΠΈ ΡΡΠΎΠΌ Π½Π° ΡΠΎΡΠΌΠ΅ Π±ΡΠ΄Π΅Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° «ΠΠ°ΠΉΡΠΈ Π΄Π°Π»Π΅Π΅».
Π ΠΈΡ. 8. ΠΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠΈΡΠΊΠ° ΡΠ»ΠΎΠ²Π° Π‘Π½Π΅Π³ Π² ΡΠ΅ΠΊΡΡΠ΅
Π ΡΠ»ΡΡΠ°Π΅ Π΅ΡΠ»ΠΈ ΡΠ»ΠΎΠ²ΠΎ Π½Π΅ Π½Π°ΠΉΠ΄Π΅Π½ΠΎ ΠΈΠ»ΠΈ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡ ΠΊΠΎΠ½Π΅Ρ ΡΠ΅ΠΊΡΡΠ° ΠΏΠΎΡΠ²ΠΈΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΠΎΠΊΠ½ΠΎ Π ΠΈΡ. 9. Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΏΠΎΠΈΡΠΊΠ° ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ Π² ΠΌΠ΅Π½Ρ ΠΏΡΠ½ΠΊΡΠ° «ΠΠΈΠ΄» ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π‘ΠΊΡΡΡΡ/ΠΠΎΠΊΠ°Π·Π°ΡΡ ΠΏΠ°Π½Π΅Π»Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΈ Π‘ΠΊΡΡΡΡ/ΠΠΎΠΊΠ°Π·Π°ΡΡ ΡΡΡΠΎΠΊΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ Π ΠΈΡ. 10. ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «ΠΠΈΠ΄»
Π ΠΏΡΠ½ΠΊΡΠ΅ ΠΌΠ΅Π½Ρ «Π€ΠΎΡΠΌΠ°Ρ» Π²ΠΎΠ·ΠΌΠΎΠΆΠ΅Π½ Π²ΡΠ±ΠΎΡ 2-Ρ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ:
1) Π¨ΡΠΈΡΡ. ΠΡΠΈ ΡΡΠΎΠΌ ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Π²ΡΠ±ΠΎΡΠ° Π°ΡΡΠΈΠ±ΡΡΠΎΠ² ΡΡΠΈΡΡΠ° Π ΠΈΡ. 11. ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π€ΠΎΡΠΌΠ°Ρ»
2) ΠΡΡΠ°Π²Π½ΠΈΠ²Π°Π½ΠΈΠ΅ (ΠΏΠΎ Π»Π΅Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ, ΠΏΠΎ ΡΠ΅Π½ΡΡΡ, ΠΏΠΎ ΠΏΡΠ°Π²ΠΎΠΌΡ ΠΊΡΠ°Ρ).
Π ΠΈΡ. 9. ΠΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π€ΠΎΡΠΌΠ°Ρ»
ΠΠ»Ρ Π²ΡΠ·ΠΎΠ²Π° ΡΠΏΡΠ°Π²ΠΊΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π² ΠΌΠ΅Π½Ρ Π²ΡΠ±ΡΠ°ΡΡ ΠΏΡΠ½ΠΊΡ Π‘ΠΏΡΠ°Π²ΠΊΠ° Π»ΠΈΠ±ΠΎ Π½Π°ΠΆΠ°ΡΡ F1.
Π ΠΈΡ. 12. «Π‘ΠΏΡΠ°Π²ΠΊΠ°»
ΠΡΠΈ Π²ΡΡ ΠΎΠ΄Π΅ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΏΡΠ΅Π΄ΡΠΏΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΠ΅ Π ΠΈΡ. 13. ΠΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ΠΠ°» ΠΏΠΎΡΠ²ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°. ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ΠΠ΅Ρ» Π±ΡΠ΄Π΅Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ Π²ΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±Π΅Π· ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ. ΠΠ»Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ° Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΆΠ°ΡΡ «ΠΡΠΌΠ΅Π½Π°».