|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как открыть файл ?
Как открыть файл. Если открывать с помощью reset тогда файл будет открываться только для чтения. Если открывать с помощью rewrite тогда файл будет открываться для записи но при открытии все содержимое файла будет удалено. Скажите пожалуйста с помощью какой команды можно открыть файл только для записи не отчищая его ? Append не срабатывает. Заранее спасибо
|
#2
|
||||
|
||||
С чего вы решили, что при открытии с помощью Reset файл будет открываться только для чтения? Вот вам пример который дописывает в конец:
Код:
program Project26; {$APPTYPE CONSOLE} uses SysUtils; Type TRec = record S: String[20]; I: Integer; end; Var F: File of TRec; R: TRec; begin AssignFile(f, 'c:\test.txt'); {$I-} Reset(f); {$I+} if IOResult <> 0 then Rewrite(f) else Seek(f, FileSize(F)); R.S := 'Hello'; R.I := FileSize(F)+1; Write(f, R); CloseFile(f); end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 11.06.2009 в 21:47. |
#3
|
||||
|
||||
И ненадо плодить столько тем.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |