ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ°ΠΉΠ»ΠΎΠ² Π² ΡΡΠ΅Π΄Π΅ Delphi
ΠΠ»Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π² ΠΎΠΊΠ½Π΅ Memo1 Π΄Π»ΠΈΠ½Π½ΡΡ ΡΠ΅ΠΊΡΡΠΎΠ² Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΠΎΠΉ ΠΏΠΎΠ»ΠΎΡΡ ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ Π² ΠΎΠΊΠ½Π΅ ΠΠ½ΡΠΏΠ΅ΠΊΡΠΎΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ScrollBars Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ssVertical. ΠΡΡΠΎΠ²Π½ΡΠΉΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΈ Π·Π°ΡΠΈΠΊΡΠΈΡΡΠΉΡΠ΅ ΠΈΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π° ΡΠΎΡΠΌΠ΅. ΠΠ°Π΄Π°Π½ΠΈΠ΅ 2: Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΎΡΠΊΡΡΠ²Π°ΡΡΠ΅Π΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈ ΡΡΠΈΡΡΠ²Π°ΡΡΠΈΠ΅ ΠΈΠ· Π½Π΅Π³ΠΎ ΡΠ΅ΠΊΡΡ Π² ΠΎΠΊΠ½ΠΎ Memo. ΠΠ΅ΡΠ΅Π΄ ΠΎΡΠΊΡΡΡΠΈΠ΅ΠΌ ΡΠ°ΠΉΠ»Π° ΡΠ»Π΅Π΄ΡΠ΅Ρ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ°ΠΉΠ»ΠΎΠ² Π² ΡΡΠ΅Π΄Π΅ Delphi (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ°Π±ΠΎΡΠ°ΡΠΎΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ°
ΠΠ° ΡΠ΅ΠΌΡ: «ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ°ΠΉΠ»ΠΎΠ² Π² ΡΡΠ΅Π΄Π΅ Delphi»
ΠΠ°Π΄Π°Π½ΠΈΠ΅ 1: Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΎΠ·Π΄Π°Π΅Ρ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» text1. txt ΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅Ρ Π² Π½Π΅Π³ΠΎ ΡΠ΅ΠΊΡΡ, Π²Π²Π΅Π΄Π΅Π½Π½ΡΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ Π² ΠΎΠΊΠ½ΠΎ Edit, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π·Π°ΠΊΡΡΠ²Π°Π΅Ρ ΡΠ°ΠΉΠ».
Π Π΅ΡΠ΅Π½ΠΈΠ΅:
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΡΠΎΡΠΌΡ ΠΈ Π·Π°Π΄Π°ΠΉΡΠ΅ Π΄Π»Ρ Π΅Π΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° Caption Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° ΠΈ Π²ΡΠ²ΠΎΠ΄ Π² Π½Π΅Π³ΠΎ ΡΠ΅ΠΊΡΡΠ°». Π Π°Π·ΠΌΠ΅ΡΡΠΈΡΠ΅ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Edit1, Labbel1, Button1, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° ΡΠΈΡ. 6.1. ΠΠ°Π΄Π°ΠΉΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° Label1. Caption — «ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ΅ΠΊΡΡ», Button1. Caption — «Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ». ΠΡΡΠΎΠ²Π½ΡΠΉΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΈ Π·Π°ΡΠΈΠΊΡΠΈΡΡΠΉΡΠ΅ ΠΈΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π° ΡΠΎΡΠΌΠ΅.
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ ΡΠ°ΠΉΠ»Ρ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΠΎΠ΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ main ΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΏΠΎΠ΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ TextEditFile Π² ΠΏΠ°ΠΏΠΊΠ΅ ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ².
Π ΠΈΡ. 6.1 ΠΡΠΈΠΌΠ΅Ρ ΡΠΎΡΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ «Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ», Π²Π²Π΅Π΄ΠΈΡΠ΅ Π² ΠΎΠΊΠ½Π΅ Π Π΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΊΠΎΠ΄Π° ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ΅ΠΊΡΡ:
procedure TForm1. Button1Click (Sender: TObject);
var
f: TextFile; {ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ}
begin
AssignFile (f, 'text1.txt'); {ΡΠ²ΡΠ·Ρ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Ρ ΡΠ°ΠΉΠ»ΠΎΠΌ}
Rewrite(f); {ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ»}
Writeln (f, Edit1. Text); {Π·Π°ΠΏΠΈΡΠ°ΡΡ Π² ΡΠ°ΠΉΠ»}
CloseFile (f); end; {Π·Π°ΠΊΡΡΡΡ ΡΠ°ΠΉΠ»}
ΠΠ°ΠΏΡΡΡΠΈΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΈ Π²Π²Π΅Π΄ΠΈΡΠ΅ Π² ΠΎΠΊΠ½ΠΎ Edit ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ — «ΠΠΎΠΉ ΠΏΠ΅ΡΠ²ΡΠΉ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ°». Π©Π΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΌΡΡΠΊΠΎΠΉ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ «Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ» ΠΈ Π·Π°ΠΊΡΠΎΠΉΡΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
ΠΡΠΊΡΠΎΠΉΡΠ΅ ΠΎΠΊΠ½ΠΎ ΠΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊΠ° Windows ΠΏΠ°ΠΏΠΊΡ ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ², Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠΎΡ ΡΠ°Π½Π΅Π½Ρ ΡΠ°ΠΉΠ»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠ°. Π ΡΠΏΠΈΡΠΊΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ² ΡΡΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π²Π½ΠΎΠ²Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ ΡΠ°ΠΉΠ» text1.txt. ΠΠ²Π°ΠΆΠ΄Ρ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ Π»Π΅Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π° text1.txt. Π£Π±Π΅Π΄ΠΈΡΠ΅ΡΡ, ΡΡΠΎ ΡΡΠΎ — ΡΠΎΡ ΡΠ°ΠΌΡΠΉ ΡΠ΅ΠΊΡΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Π²Π΅Π΄Π΅Π½ Π² ΠΎΠΊΠ½Π΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. ΠΡΠΊΡΠΎΠ΅ΡΡΡ ΠΎΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΠ»ΠΎΠΊΠ½ΠΎΡ Ρ ΡΡΠΈΠΌ ΡΠ°ΠΉΠ»ΠΎΠΌ. ΠΠ°ΠΊΡΠΎΠΉΡΠ΅ ΠΎΠΊΠ½ΠΎ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° ΠΠ»ΠΎΠΊΠ½ΠΎΡ ΠΈ ΠΡΠΎΠ²ΠΎΠ΄Π½ΠΈΠΊ.
ΠΠ°Π΄Π°Π½ΠΈΠ΅ 2: Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΎΡΠΊΡΡΠ²Π°ΡΡΠ΅Π΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈ ΡΡΠΈΡΡΠ²Π°ΡΡΠΈΠ΅ ΠΈΠ· Π½Π΅Π³ΠΎ ΡΠ΅ΠΊΡΡ Π² ΠΎΠΊΠ½ΠΎ Memo. ΠΠ΅ΡΠ΅Π΄ ΠΎΡΠΊΡΡΡΠΈΠ΅ΠΌ ΡΠ°ΠΉΠ»Π° ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ Π΅Π³ΠΎ Π½Π°Π»ΠΈΡΠΈΠ΅, Π² ΡΠ»ΡΡΠ°Π΅ Π΅Π³ΠΎ ΠΎΡΡΡΡΡΡΠ²ΠΈΡ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅.
Π Π΅ΡΠ΅Π½ΠΈΠ΅:
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ Π½ΠΎΠ²ΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ (ΠΏΡΠΎΠ΅ΠΊΡ). Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΡΠΎΡΠΌΡ «Π§ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° ΠΈΠ· ΡΠ°ΠΉΠ»Π° Π² ΠΎΠΊΠ½ΠΎ». ΠΠ° ΡΠΎΡΠΌΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Memo1, Label1, Button1, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° ΡΠΈΡ. 6.2. ΠΠ°Π΄Π°ΠΉΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ² Label1. Caption — «Π’Π΅ΠΊΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π°», Button1. Caption — «ΠΡΠΎΡΠΈΡΠ°ΡΡ ΡΠ΅ΠΊΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π°».
ΠΠ»Ρ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ° Memo1 ΠΈΠ· ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° Π²ΡΠ±Π΅ΡΠΈΡΠ΅ Π² ΠΎΠΊΠ½Π΅ ΠΠ½ΡΠΏΠ΅ΠΊΡΠΎΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΎΠ±ΡΠ΅ΠΊΡ Memo1, Π·Π°ΡΠ΅ΠΌ Π½Π° ΡΡΡΠ°Π½ΠΈΡΠ΅ Π‘Π²ΠΎΠΉΡΡΠ²Π° Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠ²ΠΎΠΉΡΠ²ΠΎ Lines ΠΈ Π² ΠΏΠΎΠ»Π΅ ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ Strings ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄ΠΈΡΠ΅ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠΎΠΊ. ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π² ΠΎΠΊΠ½Π΅ StringListEditor ΡΠ΄Π°Π»ΠΈΡΠ΅ ΡΠ΅ΠΊΡΡ ΠΈ ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΌΡΡΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΠ.
ΠΠ»Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π² ΠΎΠΊΠ½Π΅ Memo1 Π΄Π»ΠΈΠ½Π½ΡΡ ΡΠ΅ΠΊΡΡΠΎΠ² Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΠΎΠΉ ΠΏΠΎΠ»ΠΎΡΡ ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ Π² ΠΎΠΊΠ½Π΅ ΠΠ½ΡΠΏΠ΅ΠΊΡΠΎΡΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ScrollBars Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ssVertical. ΠΡΡΠΎΠ²Π½ΡΠΉΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΈ Π·Π°ΡΠΈΠΊΡΠΈΡΡΠΉΡΠ΅ ΠΈΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π° ΡΠΎΡΠΌΠ΅.
Π ΠΈΡ. 6.2 ΠΡΠΈΠΌΠ΅Ρ ΡΠΎΡΠΌΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ΠΡΠΎΡΠΈΡΠ°ΡΡ ΡΠ΅ΠΊΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π°», ΠΎΡΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠΉΡΠ΅ ΡΠ΅ΠΊΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
procedure TForm1. Button1Click (Sender: TObject);
var f: TextFile;
ch: Char;
begin
AssignFile (f, 'text1.txt');
{$I-}
Reset (f);
{$I+}
if IOResult=0 then begin
while not Eof (f) do
begin
Read (f, ch);
Memo1. Text:=Memo1. Text+ch;
end;
CloseFile (f);
end else
ShowMessage ('ΠΠ΅Ρ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°');
end;
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ ΡΠ°ΠΉΠ» ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΠΎΠ΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ main1, Π° ΡΠ°ΠΉΠ» ΠΏΡΠΎΠ΅ΠΊΡΠ° — ΠΏΠΎΠ΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ TextMemoFile1 Π² ΠΏΠ°ΠΏΠΊΠ΅ ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ². ΠΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΡΠΉΡΠ΅ ΠΈ Π·Π°ΠΏΡΡΡΠΈΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΏΡΠΎΠ²Π΅ΡΡΡΠ΅ Π΅Π³ΠΎ ΡΠ°Π±ΠΎΡΡ.
ΠΠ°Π΄Π°Π½ΠΈΠ΅ 3: Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΎΡΠΊΡΡΠ²Π°ΡΡΠ΅Π΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» Π΄Π»Ρ Π΄ΠΎΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΈ Π·Π°ΡΠ΅ΠΌ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡΠ΅Π΅ Π² Π½Π΅Π³ΠΎ Π²Π²Π΅Π΄Π΅Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ.
Π Π΅ΡΠ΅Π½ΠΈΠ΅:
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ Π½ΠΎΠ²ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ, Π·Π°Π΄Π°ΠΉΡΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠΎΡΠΌΡ «ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° Π² ΡΠ°ΠΉΠ»». ΠΠ° ΡΠΎΡΠΌΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡButton1,2, Memo1, Label1,2, Edit1 ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° ΡΠΈΡ. 6.3. ΠΡΠΈΡΠ²ΠΎΠΉΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ Label1. Caption — «Π’Π΅ΠΊΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π°», Button1. Capton — «ΠΡΠΎΡΠΈΡΠ°ΡΡ ΡΠ΅ΠΊΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π°», Label2. Caption — «ΠΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌΡΠΉ ΡΠ΅ΠΊΡΡ», Button2. Caption — «ΠΠΎΠ±Π°Π²ΠΈΡΡ ΡΠ΅ΠΊΡΡ Π² ΡΠ°ΠΉΠ»». Π£Π΄Π°Π»ΠΈΡΠ΅ ΡΠ΅ΠΊΡΡ ΠΈΠ· ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² Memo1, Edit1. Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ Π»ΠΈΠ½Π΅ΠΉΠΊΡ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΠΎΠΉ ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ Π΄Π»Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° Π΄Π»ΠΈΠ½Π½ΡΡ ΡΠ΅ΠΊΡΡΠΎΠ² Π² ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ΅ Memo1. ΠΡΡΠΎΠ²Π½ΡΠΉΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΈ Π·Π°ΡΠΈΠΊΡΠΈΡΡΠΉΡΠ΅ ΠΈΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π½Π° ΡΠΎΡΠΌΠ΅.
Π ΠΈΡ. 6.3 ΠΡΠΈΠΌΠ΅Ρ ΡΠΎΡΠΌΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ΠΡΠΎΡΠΈΡΠ°ΡΡ ΡΠ΅ΠΊΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π°» ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎ. ΠΠ»Ρ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ΠΠΎΠ±Π°Π²ΠΈΡΡ ΡΠ΅ΠΊΡΡ Π² ΡΠ°ΠΉΠ»» Π·Π°ΠΏΠΈΡΠΈΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΊΠΎΠ΄ ΡΠΎΠ±ΡΡΠΈΡ:
Procedure TForm1. Button2Click (Sender: TObject);
Var
F: TextFile;
Begin
AssingFile (f, `text1.txt');
Append (f);
Writeln (f, Edit1. Text);
CloseFile (f);
End;
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ ΡΠ°ΠΉΠ» ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΠΎΠ΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ Main2, Π° ΡΠ°ΠΉΠ» ΠΏΡΠΎΠ΅ΠΊΡΠ° — ΠΏΠΎΠ΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ TextMemoFile2 Π² ΠΏΠ°ΠΏΠΊΠ΅ ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ².
ΠΠ°ΠΏΡΡΡΠΈΡΠ΅ ΠΈ ΠΏΡΠΎΠ²Π΅ΡΡΡΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
ΠΠ°Π΄Π°Π½ΠΈΠ΅ 4: Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΌΠ΅ΡΠΎΠ΄Π° OpenDialog, ΡΡΠΈΡΡΠ²Π°Π΅Ρ ΡΠ΅ΠΊΡΡ ΠΈΠ· Π½Π΅Π³ΠΎ Π² ΠΎΠ±ΡΠ΅ΠΊΡ Memo, Π·Π°ΡΠ΅ΠΌ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½ΡΠΉ ΡΠ΅ΠΊΡΡ Π² ΡΠ°ΠΉΠ» Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΌΠ΅ΡΠΎΠ΄Π° SaveDialog ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΠ΅ΠΊΡΡ Π½Π° ΠΏΠ΅ΡΠ°ΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΌΠ΅ΡΠΎΠ΄ PrintDialog.
Π Π΅ΡΠ΅Π½ΠΈΠ΅:
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ Π½ΠΎΠ²ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ ΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡΠ΅ Π² ΠΏΠ°ΠΏΠΊΠ΅ «ΠΠΈΠ°Π»ΠΎΠ³ΠΎΠ²Π°Ρ ΠΏΠ°Π½Π΅Π»Ρ». ΠΠ° ΡΠΎΡΠΌΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Memo1, Button1,2,3. ΠΠ½ΠΎΠΏΠΊΠΈ Π½Π°Π·ΠΎΠ²ΠΈΡΠ΅ «Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ», «ΠΡΠΊΡΡΡΡ», «ΠΠ΅ΡΠ°ΡΡ» ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ. ΠΠ°Π΄Π°ΠΉΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Memo1 Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΡΡ ΠΏΠΎΠ»ΠΎΡΡ ΠΏΡΠΎΠΊΡΡΡΠΊΠΈ ΠΈ ΡΠ΄Π°Π»ΠΈΡΠ΅ ΡΠ΅ΠΊΡΡ. ΠΡΡΠΎΠ²Π½ΡΠΉΡΠ΅ ΠΈ Π·Π°ΡΠΈΠΊΡΠΈΡΡΠΉΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Π½Π° ΡΠΎΡΠΌΠ΅ (ΡΠΌ. ΡΠΈΡ. 6.4).
Π ΠΈΡ. 6.4 Π€ΠΎΡΠΌΠ° ΠΏΡΠΎΠ΅ΠΊΡΠ° «ΠΠΈΠ°Π»ΠΎΠ³ΠΎΠ²Π°Ρ ΠΏΠ°Π½Π΅Π»Ρ»
ΠΡΠ±Π΅ΡΠΈΡΠ΅ Π² ΠΏΠ°Π»ΠΈΡΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΡΡΡΠ°Π½ΠΈΡΡ Dialog ΠΈ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ Π½Π° ΡΠΎΡΠΌΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ OpenDialog, SaveDialog, PrintDialog. Π’Π°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ Π½Π΅ ΡΠ²Π»ΡΡΡΡΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΌΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌΠΈ, ΡΠΎ ΠΈΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ Π² Π»ΡΠ±ΠΎΠ΅ ΠΌΠ΅ΡΡΠΎ ΡΠΎΡΠΌΡ.
ΠΠ°Π΄Π°ΠΉΡΠ΅ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° SaveDialog. Title Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ»», ΠΊΠΎΡΠΎΡΠΎΠ΅ Π±ΡΠ΄Π΅Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π² Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°. Π§ΡΠΎΠ±Ρ ΠΏΡΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΡΠ°ΠΉΠ»Π° Π² ΠΎΠΊΠ½Π΅ Π΄ΠΈΠ°Π»ΠΎΠ³Π° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΡΡ Π²ΡΠ±ΠΎΡ ΡΠΈΠΏΠ° ΡΠ°ΠΉΠ»Π°, Π²ΡΠ±Π΅ΡΠΈΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Filter ΠΈ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄ΠΈΡΠ΅ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠΎΠΊ Π² ΡΠΏΠΈΡΠΊΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ. ΠΡΠΊΡΠΎΠ΅ΡΡΡ ΠΎΠΊΠ½ΠΎ FilterEditor. ΠΠ°Π΄Π°ΠΉΡΠ΅ ΡΠΈΠ»ΡΡΡΡ Π΄Π»Ρ Π²ΡΠ±ΠΎΡΠ° ΡΠΈΠΏΠ° ΠΈ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°:
Filter Name | Filter | |
Π’Π΅ΠΊΡΡΠΎΠ²ΡΠΉ (*.txt) | *.txt | |
Π’Π΅ΠΊΡΡΠΎΠ²ΡΠΉ (*.doc) | *.doc | |
Π ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΠ, Π·Π°ΡΠ΅ΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ *.txt ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ — Π·Π°Π΄Π°ΠΉΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Ρ SaveDialog1. FilterIndex Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 1.
ΠΠ°Π΄Π°ΠΉΡΠ΅ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ²Π° OpenDialog1. Title — «ΠΡΠΊΡΡΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ»». Π§ΡΠΎΠ±Ρ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π²ΡΠ±ΠΎΡ ΡΠΈΠΏΠ° ΡΠ°ΠΉΠ»Π° ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠ°ΠΉΠ»Π° Π² ΠΎΠΊΠ½Π΅ Π΄ΠΈΠ°Π»ΠΎΠ³Π°, Π½Π° ΡΡΡΠ°Π½ΠΈΡΠ΅ Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄ΠΈΡΠ΅ Π΄Π²ΠΎΠΉΠ½ΠΎΠΉ ΡΠ΅Π»ΡΠΎΠΊ ΠΏΠΎ ΡΠΏΠΈΡΠΊΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΠ²ΠΎΠΉΡΡΠ²Π° Filter. Π ΠΎΠΊΠ½Π΅ Filter Editor Π·Π°Π΄Π°ΠΉΡΠ΅ ΡΠΈΠ»ΡΡΡΡ Π΄Π»Ρ Π²ΡΠ±ΠΎΡΠ° ΡΠΈΠΏΠ° ΠΈ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°:
Filter Name | Filter | |
Π’Π΅ΠΊΡΡΠΎΠ²ΡΠΉ (*.txt) | *.txt | |
ΠΡΠ΅ ΡΠ°ΠΉΠ»Ρ (*.*) | *.* | |
Π ΡΠ΅Π»ΠΊΠ½ΠΈΡΠ΅ ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΠ, Π·Π°ΡΠ΅ΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ *.txt ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ — Π·Π°Π΄Π°ΠΉΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Ρ OpenDialog1. FilterIndex Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 1.
Π§ΡΠΎΠ±Ρ Π² Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ ΠΠ΅ΡΠ°ΡΡ Π²ΠΊΠ»ΡΡΠΈΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²ΡΠ±ΠΎΡΠ° Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΠΏΠ΅ΡΠ°ΡΠ°Π΅ΠΌΡΡ ΡΡΡΠ°Π½ΠΈΡ ΠΈ ΠΏΠ΅ΡΠ°ΡΠΈ Π²ΡΠ΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΠ°, Π·Π°Π΄Π°ΠΉΡΠ΅ Π΄Π»Ρ ΡΠ²ΠΎΠΉΡΡΠ² PrintDialog1. Options. poPageNums ΠΈ PrintDialog1. Options. poSelection Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ True.
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ Π² ΡΠ°Π·Π΄Π΅Π» ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ Π΄ΠΎΠ±Π°Π²ΡΡΠ΅ Π² ΡΠΏΠΈΡΠΎΠΊ USES ΠΌΠΎΠ΄ΡΠ»Ρ PRINTERS, ΡΡΠΎΠ±Ρ Π½Π΅ Π²Π²ΠΎΠ΄ΠΈΡΡ ΡΠ²ΠΎΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ. ΠΡΠΎΡ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΏΡΠ°Π²Π»ΡΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠΌ ΠΏΠ΅ΡΠ°ΡΠΈ.
ΠΡΡΠ΅Π΄Π°ΠΊΡΠΈΡΡΠΉΡΠ΅ ΡΠ°Π·Π΄Π΅Π» ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ :
Var
Form1: TForm1;
FName: string;
F: TextFile;
S: string;
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ ΡΡΠ΅Ρ ΠΊΠ½ΠΎΠΏΠΎΠΊ, ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
1) ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅:
procedure TForm1. Button1Click (Sender: TObject);
begin
fName:='Text1';
SaveDialog1. FileName:=FName;
if SaveDialog1. Execute then begin
fName:=SaveDialog1. FileName;
case SaveDialog1. FilterIndex of
1: fName:=fName+'.txt';
2: fName:=fName+'.doc';
end;
Memo1. Lines. SaveToFile (fName);
end;
end;
2) ΠΎΡΠΊΡΡΡΠΈΠ΅:
procedure TForm1. Button2Click (Sender: TObject);
begin
if OpenDialog1. Execute then
begin
AssignFile (f, OpenDialog1. FileName);
fName:=OpenDialog1. FileName;
Reset (F);
Readln (F, s);
Memo1. Text:=s;
CloseFile (F);
end;
end;
3) ΠΏΠ΅ΡΠ°ΡΡ:
procedure TForm1. Button3Click (Sender: TObject);
begin
if PrintDialog1. Execute then
begin
AssignPrn (f);
Rewrite (F);
Writeln (f, Memo1. Text);
System. CloseFile (f);
end;
end;