Правила форума
Append.PASЯзык:
Русский
English
{ Пример программы для процедуры Append }
uses Crt;
var
F : Text;
begin
Assign(F, 'TEST.TXT');
ReWrite(F); { Создаем новый файл }
WriteLn(F, 'Немножко текста ;-)');
Close(F); { Закрываем файл }
Append(F); { Добавляем данные к концу файла }
WriteLn(F, 'Ещё немножко текста !');
Close(F); { Закрываем файл }
end.
var
F : Text;
begin
Assign(F, 'TEST.TXT');
ReWrite(F); { Создаем новый файл }
WriteLn(F, 'Немножко текста ;-)');
Close(F); { Закрываем файл }
Append(F); { Добавляем данные к концу файла }
WriteLn(F, 'Ещё немножко текста !');
Close(F); { Закрываем файл }
end.
::
::
::
