Удаление нужной записи из массива при записи в типизированный файл

24.12.2012, 21:36. Показов 714. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Проблема такая: мне нужно записать в файл только те элементы массива записи, номер которых не равен введёному. Но программа делает что попало. Вот фрагмент кода, где это всё происходит:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Procedure Delete();  // удаление заявок из списка
 Var g: file of Ticket; i,k,nom,otv:Integer; ar:TicketsArray;
 Begin
  Assign (g,FileName);
  Reset (g);
  k:=filesize(g);
  Close (g);
  DisplayAll(); //выводим весь список
  ar:=AllTickets();  // считываем массив записей из файла
  WriteLn ('-----------------------------------------------');
  Repeat
   Write ('Выберите номер заявки, которую хотите удалить: ');
     nom:=EnterNumber;  //функция защиты от ввода символов
  Until (nom>=1) and (nom<=k);
  Assign (g,FileName);
  Rewrite (g);
  For i:=1 to k do
   If (nom<>i) then
     Write (g,ar[i]);  //если очередная номер из списка не равен введённому,то записываем заявку в основной файл
  WriteLn ('*** Заявка успешно удалена! ***');
  Close (g);
  WriteLn;
 end;

Скажите, пожалуйста, что тут не так? почему удаляет заявку не с тем номером?

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

24.12.2012, 21:36

Ответы с готовыми решениями:

Удаление записи из нужной таблицы
Есть форма , на ней Tabcontrol и 2 вкладки. На каждой вкладке по датагридвью , которые привязаны каждый к своей таблице в базе аксес. И...

Поиск и удаление нужной записи в БД
Необходимо найти в БД запись с самой старой датой записи пользователя, определить ее Id в бд, чтобы передать в метод Find() и удалить. ...

Удаление записи из массива записи или файла
Доброго времени суток... Задача стоит такая. Есть массив записей, прочитали из файла или так создали, неважно... Каждая запись имеет...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

24.12.2012, 21:36

Помогаю со студенческими работами здесь

Типизированный файл и записи
Как найти первую запись о выбранном виде транспорта без букв в строке и поменять найденную запись с предыдущей? Что не так в моем коде? ...

Типизированный файл и записи
Как поменять две строки местами с условием? (через функцию seek) Например: машина красная 4 двери машина зеленая 4 двери камаз...

Типизированный файл, записи.
По данным сведениям об учениках класса определить среднюю массу мальчиков и средний девочек рост девочек. Кто из учеников класса самый...

Сохранение записи в типизированный файл
есть запись TInfo = record Name : string; StudNumb: TKey; Exams : array of Integer; Tests : array of...

Удаление пустой строки после WriteLine() при записи в файл
Если с помощью цикла через WriteLine() записывать в файл какие-либо строки, в конце файла останется одна пустая строка. Как можно этого...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

Наверх