Вывод данных из базы по параметрам

[Thabian]

С первым способом через доп. файл все получилось.
Спасибо!

[Serge_Bliznykov]

Сообщение от Thabian

Пробую второй способ с массивом.

   ....

Почему-то при таком чтении в массив, сохраняются строки через одну.

ни в коем разе!!
Вы смешали чтение и удаление!!!

попробуйте так:

 writeln ('What delete?'); read (a);
 i:=0;
 while not eof (d) do begin
        read(d, z);
        if z.marka<>a then begin
            i:=i+1;
            mas[i] := z;
        end;
   end;
   Close(d);

   {перезапишем файл}
   Rewrite(d);
   for j:=1 to i do Write(d, mas[i]);
   Close(d);

[Thabian]

А можно все-таки узнать, где ошибка при использовании seek? (код в сообщении #6)

[Serge_Bliznykov]

Сообщение от Thabian

А можно все-таки узнать, где ошибка при использовании seek? (код в сообщении #6)

о! Там много ошибок.
во-первых, вы забыли проиницилизовать переменную i

во-вторых, логика порочна.

while not eof (d) do begin
        read (d,z); // вы прочитали переменную (указатель в файле передвинулся на следующую запись.
        if a = z.marka then begin   // если марка совпадает
            seek(d,i+1);  // вы устанавливаете указатель на вторую запись в файле (ну, это мы считаем, что у нас i равно нулю
            read(d,z); // читаем значение второй записи из файла
            seek(d,i);  // устанавливаем указатель на начало файла
            write(d,z);  // записываем вторую запись на место первой
            end;
        seek(d,filesize(d)-1); // установили указатель на конец файла
        write (d,z);  // записали очередную запись в конец файла
        end;
    close(d);

это скорее странное перемешивание исходного файла, а не удаление нужной записи!