IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> файлы в паскале
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


пипл, как можно сделать так, что бы в файл (текст) можно было дописывать много раз
тоетсь не только что бы записать, а потом перезаписать, а добавлять новые данные?

заранее спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 56
Пол: Мужской

Репутация: -  0  +


assign(f,'имя файла');
reset(f); //Открываем для чтения и записи
seek(f,filesize(f)); //Перемещаемся в конец файла
write(f,byf); // byf - то что добавляем
smile.gif


--------------------
Deleting...

All RESET
[Return]
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 206
Пол: Мужской

Репутация: -  3  +


{...каждую программу можно сократить хотя бы на одну команду. ;) }
{tp6.0}
assign(f,'filename.txt');
append(f); {файл уже должен существовать}
writeln(f,'hallo world!');
{кто еще проще напишет?}
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Пионер
**

Группа: Пользователи
Сообщений: 112
Пол: Мужской

Репутация: -  0  +


Цитата(Alesha_GA @ 19.07.04 3:12)
reset(f); //Открываем для чтения и записи
...
write(f,byf); // byf - то что добавляем

так низя ж.. reset(f) отпирает файл т-ко для чтения


--------------------
Я люблю этот форум!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Знаток
****

Группа: Пользователи
Сообщений: 303
Пол: Мужской
Реальное имя: Роман

Репутация: -  2  +


Если F : File то Alesha_GA прав.
Но для текста (F : Text) указан вариант от Бродяжник.


--------------------
Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


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, если операция была успешна, иначе, она возвращает отличный от нуля код ошибки.


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


Цитата(Бродяжник @ 19.07.04 7:28)
{...каждую программу можно сократить хотя бы на одну команду.  ;) }
{tp6.0}
assign(f,'filename.txt');
append(f);  {файл уже должен существовать}
writeln(f,'hallo world!');
{кто еще проще напишет?}

я пробую этот вариант, но чё-то не получается

может он только в тп 6.0?

у меня бп7.1
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  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 раз

а мне нужно, что бы запись добавлялась в файл, при каждом новом открытии программы, и оставлялась в файле навсегда

принцып, как в гостевых книгах
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


всё, я разобрался! smile.gif

всем спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 19:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name