файлы+динамическая память, использование дин. памяти при работе с несколькими файлами Опции

[Renbo]

Имеется 2 файла справочника и один файлик основной. Необходимо сформировать ведомости. Первая ведомость формируется как надо, тоесть как мне надо ). А вот вторая в последнем столбике Количество Струдников не прописывает их количество. Код написан, вроде должно работать, а не тут-то было. Вот в этом файле  Vedomosti.pas ( 12.69 килобайт ) Кол-во скачиваний: 656
- процедуры по формированию ведомостей.  spravka1.txt ( 229 байт ) Кол-во скачиваний: 460
- первый справочник(текстовый).  ___________________2.rar ( 541 байт ) Кол-во скачиваний: 353
- основной фаил и второй справочник(оба они типизированные).



Но может вы и без этого увидите как исправить процедуру по созданию второй ведомости.
Заранее благодарен.


Сообщение отредактировано: Renbo - 9.04.2007 23:45

[volvo]

он собой представляет 1 запись всего, как я понимаю...

А чего ты гадаешь? Возьми отладчиком и посмотри, сколько элементов пишутся в массив X (чему равно K после его заполнения)... Все ТАМ нормально...

Плохо вот здесь:

  For i:=1 to t do
    begin
      IF  z^[i].CodeOTD <> z^[i+1].CodeOTD  then { <--- При i = T ты вылетаешь за пределы отведенной памяти }

и чуть ниже то же самое...

[Renbo]

так вроде когда я вылетаю - то он сравнивает с NIL, а нилу он не равен и действия выполняются...
Ты записускал её с фалами со всеми?
видел что во второй ведомости? только в последнюю строчку добавляется кол-во сотрудников почему-то...