Поиск:

Ответ в темуСоздание новой темы Создание опроса
> запись в бинарный файл 
V
    Опции темы
valerchi
Дата 25.5.2014, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
Помогите, пожалуйста. Нужно записать в бинарный файл цифры типа integer. 
Есть файл (f). В нём записаны две цифры 0 и 1 (попорядку). Открываю файл для перезаписи, ставлю seek(f,2)(для продолжения записи). Записываю цифры 1 и 0 (в обратном порядке). Впринципе, в файле должна быть запись: 0110, а получается: 0010. Объясните, что не так. Вот мой код:
Код

var a,s,l,j:integer; b:string; f: file of integer; 
..............
l:=0;
s:=1;
assignfile(f,'d:\text.dat');
rewrite(f);
write(f,l);
write(f,s);
closefile(f);
.........
b:='10';
j:=0;
assignfile(f,'d:\text.dat');
rewrite(f);
Seek(f,2); //ставим на конец записи
repeat
inc(j);
a:=strtoint(b[j]);
write(f,a);// добавляем в файл цифры 1 и 0
until j=l; 
closefile(f);
PM MAIL   Вверх
PointerToNil
Дата 26.5.2014, 02:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата



*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 17.6.2013

Репутация: 1
Всего: 6
Цитата

Delphi Help
Rewrite procedure
If an external file with the same name already exists, it is deleted and a new empty file is created in its place.
PM MAIL   Вверх
valerchi
Дата 26.5.2014, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
Не понял. То есть если открываешь файл для перезаписи, то этот файл удаляется и на его месте создаётся такой же файл? .. Но тогда в файле была бы запись 10. Если это так, то как же добавить в конец файла запись?

Это сообщение отредактировал(а) valerchi - 26.5.2014, 11:32
PM MAIL   Вверх
PointerToNil
Дата 27.5.2014, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата



*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 17.6.2013

Репутация: 1
Всего: 6
ты слово empty пропустил
PM MAIL   Вверх
valerchi
Дата 27.5.2014, 01:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ

Репутация: нет
Всего: нет
Спасибо, разобрался.... Слегонца протупил smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0432 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.