ΠΡΠΎΡΠ΅Π΄ΡΡΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅Ρ Π² ΠΊΠΎΠ½Π΅Ρ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° ΡΡΡΠΎΠΊΡ
Procedure AddStrToTextFile(nF, St:String);
Var f: Text;
Begin
AssignFile(f, nF);
If not FileExists(nF) then Rewrite(f) {Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, ΡΠΎΠ·Π΄Π°ΡΡ ΠΈ ΠΎΡΠΊΡΡΡΡ}
Else {ΠΈΠ½Π°ΡΠ΅}
Begin
Reset(f); {ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, ΠΎΡΠΊΡΡΡΡ }
While not Eof(f) do Readln(f); {ΠΏΠ΅ΡΠ΅Π΄Π²ΠΈΠ½ΡΡΡ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ Π² ΠΊΠΎΠ½Π΅Ρ ΡΠ°ΠΉΠ»Π°}
End;
Writeln(f, St); {Π·Π°ΠΏΠΈΡΠ°ΡΡ ΡΡΡΠΎΠΊΡ }
Close(f); {Π·Π°ΠΊΡΡΡΡ ΡΠ°ΠΉΠ»}
End;
Π ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΠΊ:
Var
S1: String[58];
S2: String[189];
…………………………
AddStrToTextFile(’c:\Files\ring.txt’, ‘Π‘ΡΡΠΎΠΊΠ° ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ²’);
AddStrToTextFile(’ring.txt’, S1);
AddStrToTextFile(’ring.txt’, S2);
Π’Π΅Π³ΠΈ: ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°, ΡΡΡΠΎΠΊΠ°, ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ, ΡΠ°ΠΉΠ»