пипл, как можно сделать так, что бы в файл (текст) можно было дописывать много раз
тоетсь не только что бы записать, а потом перезаписать, а добавлять новые данные?
заранее спасибо!
assign(f,'имя файла');
reset(f); //Открываем для чтения и записи
seek(f,filesize(f)); //Перемещаемся в конец файла
write(f,byf); // byf - то что добавляем
{...каждую программу можно сократить хотя бы на одну команду. ;) }
{tp6.0}
assign(f,'filename.txt');
append(f); {файл уже должен существовать}
writeln(f,'hallo world!');
{кто еще проще напишет?}
Если F : File то Alesha_GA прав.
Но для текста (F : Text) указан вариант от Бродяжник.
Reset (процедура)
Открывает существующий файл.
Объявление:
Procedure Reset(Var F [ : File; Recsize : Word ] );
Режим:
Windows, Real, Protected
Замечания:
Параметр F - переменная любого файлового типа, связанная с внешним файлом, с использованием процедуры Assign. Параметр RecSize - необязательный параметр, который может быть определен только, если F - нетипизированный файл. В этом случае, RecSize определяет размер блока, который нужно использовать при передаче данных. Если RecSize опущен, принят заданный по умолчанию размер блока в 128 байт.
Reset открывает существующий внешний файл с именем, назначенным в переменной F. Происходит ошибка, если внешний файл с данным именем не существует. Если файл F уже открыт, то он сначала закрывается, а затем вновь открывается. Текущая позиция указателя устанавливается на начало файла.
Если переменной F назначено пустое имя, например Assign(F, ''), то после обращения к Reset, переменная F будет относиться к стандартному входному
файлу (стандартный номер дескриптора = 0).
Если F - текстовый файл, то он открывается только на чтение. После обращения к Reset, Eof(F) = True, если файл пуст, иначе Eof (F) = False.
В режиме {$I-} функция IOResult вернет 0, если операция была успешна, иначе, она возвращает отличный от нуля код ошибки.
вот я пишу как в хелпе:
var F: Text;
a,b: char;
begin
Assign(F, 'TEST.TXT');
Rewrite(F); { Create new file }
readln(a);
Writeln(F, 'HELLO');
Close(F); { Close file, save changes }
Append(F); { Add more text onto end }
readln(B);
Writeln(F, 'PRIVET');
Close(F); { Close file, save changes }
end.
но тут записуется только 1 раз
а мне нужно, что бы запись добавлялась в файл, при каждом новом открытии программы, и оставлялась в файле навсегда
принцып, как в гостевых книгах
всё, я разобрался!
всем спасибо!