|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как дописать в типизированный файл?
как дописать инфу в типизированный файл(тип простая запись), стандартная процедура append работает только для текстовых файлов...а какой процедурой за писать в типизированный??
|
#2
|
||||
|
||||
Открытие уже существующего файла для записи - Reset(some_file). Rewrite - для создания нового файла, если файл уже создан то данные в нем будут удалены.
Не профи, но и не чайник . D6 - лучше не придумали. Пока. |
#3
|
|||
|
|||
Цитата:
Код:
type TType = record Id: Integer; Name: string[60]; end; var r: TType; f: file of TType; begin assign(f, 'Файлик.dat'); reset(f); ... read(f, r); ... write(f, r); ... close(f); end; |
#4
|
|||
|
|||
ну чтобы дописать надо еще прогуляться до конца (eof) файла а потом писать Write...
|
#5
|
|||
|
|||
Код:
var File_1:TFileStream; ... begin ... File_1:=TFileStream.Create(filename, fmCreate or fmOpenWrite); // Открытие файла File_1.Seek(1, soFromEnd); // Выставление указателя в конец файла // Возможно вместо единицы ноль (уже не помню щас))) File_1.Write(Data,SizeOf( <type> )); // Запись одного блока Data // вместо '<type>' надо указать тип твое записи DAta File_1.Free; ... end; |
#6
|
||||
|
||||
type
TType = record Id: Integer; Name: string[60]; end; var r: TType; f: file of TType; begin assign(f, 'Файлик.dat'); reset(f); Seek(f, FileSize(f)); - переместить указатель в конец файла ... read(f, r); ... write(f, r); ... close(f); end; Хорошо написанная программа не требует документации ICQ 9-184-668. |
Этот пользователь сказал Спасибо Thrasher за это полезное сообщение: | ||
Царь (16.06.2013)
|
#7
|
||||
|
||||
Спасибо все! но способ нашел сам покопался по своим старым тетрадкам
|