Паскаль. Удаление из файла.

[Максим723]

Составить проги, с помощью которых
-сформировать файл из записей, содержащих сведения о книге(фам автора, название, год издания); Это вот.

PHP код:

Program nomer1;
uses crt;
type book=record
avtor:string[15];
name: string[18];
god: integer;
end;
var kniga:book;
f,: file of book;
begin
clrscr;
assign(f,'c:’book.txt');
rewrite(f);
with kniga do
repeat
write(‘Автор = ');
readln(avtor);
if avtor='' then break;
write('Наименование книги = '); readln(name);
write('Год издания god = '); readln(god);
write(f,kniga);
until avtor='';
close(f);
readln;
end. 


И вторая часть задания, программа: Исключить все книги с названием "ФИЗИКА"
Первая прога получилась, а вторая нет. Не совсем понятно как использовать TRUNCATE

[psycho-coder]

Можно попробовать "затереть" эту запись следующей. Примерно так (пишу сюда):

  fSize := FileSize(F);
  for i := 0 to fSize - 1 do
    if book.name = 'ФИЗИКА' then
      for l := i to fSize - 1 do
      begin
        Seek(F, i + 1);
        Read(F, book);
        Seek(F, i);
        Write(F, book);
      end;
  Seek(F, fSize - 1);
  Truncate(F);

Алгоритм думаю понятен?
апд

Truncate (процедура)
--------------------
Усекает файл в текущей позиции файла.

Объявление:
Procedure Truncate(Var F);

Режим:
Windows, Real, Protected

Замечания:
F - файловая переменная любого типа, кроме текстового. Все, что находится за
текущей позицией файла, удаляется, и возвращается признак конца файла
(EOF(F) = True).

В режиме {$I+} при возникновении ошибки, функция IOResult возвращает
отличное от нуля значение.

Ограничения:
Файл F должен быть открыт.