пипл, как можно сделать так, что бы в файл (текст) можно было дописывать много раз
тоетсь не только что бы записать, а потом перезаписать, а добавлять новые данные?
заранее спасибо!
![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() ![]() |
![]() |
Gray |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: ![]() ![]() ![]() |
пипл, как можно сделать так, что бы в файл (текст) можно было дописывать много раз
тоетсь не только что бы записать, а потом перезаписать, а добавлять новые данные? заранее спасибо! |
Alesha_GA |
![]()
Сообщение
#2
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 56 Пол: Мужской Репутация: ![]() ![]() ![]() |
assign(f,'имя файла');
reset(f); //Открываем для чтения и записи seek(f,filesize(f)); //Перемещаемся в конец файла write(f,byf); // byf - то что добавляем ![]() -------------------- Deleting...
All RESET [Return] |
Бродяжник |
![]()
Сообщение
#3
|
Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 206 Пол: Мужской Репутация: ![]() ![]() ![]() |
{...каждую программу можно сократить хотя бы на одну команду. ;) }
{tp6.0} assign(f,'filename.txt'); append(f); {файл уже должен существовать} writeln(f,'hallo world!'); {кто еще проще напишет?} |
NetAnton |
![]()
Сообщение
#4
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 112 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата(Alesha_GA @ 19.07.04 3:12) reset(f); //Открываем для чтения и записи ... write(f,byf); // byf - то что добавляем так низя ж.. reset(f) отпирает файл т-ко для чтения -------------------- Я люблю этот форум!
|
Romtek |
![]()
Сообщение
#5
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 303 Пол: Мужской Реальное имя: Роман Репутация: ![]() ![]() ![]() |
Если F : File то Alesha_GA прав.
Но для текста (F : Text) указан вариант от Бродяжник. -------------------- Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
|
APAL |
![]()
Сообщение
#6
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
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, если операция была успешна, иначе, она возвращает отличный от нуля код ошибки. -------------------- |
Gray |
![]()
Сообщение
#7
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата(Бродяжник @ 19.07.04 7:28) {...каждую программу можно сократить хотя бы на одну команду. ;) } {tp6.0} assign(f,'filename.txt'); append(f); {файл уже должен существовать} writeln(f,'hallo world!'); {кто еще проще напишет?} я пробую этот вариант, но чё-то не получается может он только в тп 6.0? у меня бп7.1 |
Gray |
![]()
Сообщение
#8
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: ![]() ![]() ![]() |
вот я пишу как в хелпе:
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 раз а мне нужно, что бы запись добавлялась в файл, при каждом новом открытии программы, и оставлялась в файле навсегда принцып, как в гостевых книгах |
Gray |
![]()
Сообщение
#9
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Репутация: ![]() ![]() ![]() |
всё, я разобрался!
![]() всем спасибо! |
![]() ![]() |
![]() |
Текстовая версия | 16.06.2024 14:22 |