Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с записями типа Record 
V
    Опции темы
seferot
  Дата 30.12.2008, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Здравствуйте!

Господа, подскажите пожалуйста, как удалять записи типа Record из файла?

Дело в том, что есть прога которая хранит некоторую инфу в файле типа record.
Читать и писать туда могу свободно, но как удалить любую запись например посередине пока не знаю...

Вот как выглядит запись:

log = record
   Name   : string [50];
   Base    : string [20];
   info      : string [100];
   nomer  : integer ;
   data     : string [10];
   memo  : string [250];
end;
PM MAIL   Вверх
Rodman
Дата 30.12.2008, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Считуешь все данные в массив типа структура...
а потом перезаписываешь данные без это строки
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Deniz
Дата 30.12.2008, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44



seferot, можно пометить запись как удаленную и потом либо в нее внести новую или упаковать(переписать в новый файл без удаленных)


--------------------
"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)
PM ICQ   Вверх
seferot
Дата 30.12.2008, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Есть ли у вас пример? Очень охото посмотреть!

Добавлено через 3 минуты и 37 секунд
Цитата(Rodman @ 30.12.2008,  12:01)
Считуешь все данные в массив типа структура...
а потом перезаписываешь данные без это строки

Перезаписать считанную запись пустыми полями?
PM MAIL   Вверх
Rodman
Дата 30.12.2008, 12:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122



Цитата(seferot @  30.12.2008,  12:04 Найти цитируемый пост)
Перезаписать считанную запись пустыми полями? 

нет... просто не писать ее при записи в файл..
PM MAIL WWW Skype GTalk YIM MSN   Вверх
seferot
Дата 30.12.2008, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



А как это будет выглядеть?
 
read(f, fs) ;  // Считываю запись

write (f, fs) ; // Записываю

Так что ли???

Добавлено через 1 минуту
Цитата(seferot @ 30.12.2008,  13:00)
А как это будет выглядеть?
 
read(f, fs) ;  // Считываю запись

write (f, fs) ; // Записываю

Так что ли???

Не заполняя при этом структуру fs.
PM MAIL   Вверх
Deniz
Дата 30.12.2008, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44



seferot, не совсем.
У тебя есть какой-то признак того, какую запись удалить.
Далее запись в другой файл:
Код

while not eof(f) do begin
  read(f, fs);
  if <проверка признака> then write(f2, fs);
end;
с массивом примерно тоже самое.
Код

// читаем все в массив
while not eof(f) do begin
  read(f, fs);
  mass[i]:=fs;
end;
// записываем из массива
for i:=1 to <кол-во в массиве> do
  if <проверка признака> then write(f, fs);



--------------------
"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)
PM ICQ   Вверх
seferot
Дата 30.12.2008, 13:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Теперь мне все понятно. Спасибо.
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.1217 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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