Правила форума
ReWrite.PASЯзык:
Русский
English
{ Пример программы для процедуры ReWrite }
var
F : Text;
begin
Assign(F, 'NEWFILE.$$$');
ReWrite(F);
WriteLn(F, 'Только что созданный файл с этим текстом внутри...');
Close(F);
end.
F : Text;
begin
Assign(F, 'NEWFILE.$$$');
ReWrite(F);
WriteLn(F, 'Только что созданный файл с этим текстом внутри...');
Close(F);
end.
::
::
::
