Паскаль. Типизированные файлы.

[Razorishe]

Доброе время суток уважаемые посетители форума. Такая задачка:
Создать файл, содержащий сведения об успеваемости. Каждая запись файла должна содержать ФИО, предмет, оценку. Предусмотреть следующие режимы работы: добавление записи в файл....
В общем менюшку с режимами работы создал, добавление записи получилось, но не правильно. Когда я выбираю пунк добавить у меня перезаписывается строчка, которую я добавлял до этой. Подскажите как реализовать это? Нужно же использовать record? Если интересует мой код могу его выложить.

[Sazary]

Когда я выбираю пунк добавить у меня перезаписывается строчка, которую я добавлял до этой

А вы, случаем, не переоткрываете файл при каждом добавлении?
В любом случае, файл нужно открывать в режиме добавления (Append)

[Razorishe]

Ругается на тип файла - append(f); (f:file of string. Я так понял нельзя использовать эту процедуру для типизированных файлов.

[Sazary]

Да, только для текстовых.
Для остальных смещайте курсор в конец с помощью Seek:

Procedure Seek (var F; N: LongInt)

Чтобы узнать размер файла - Filesize(<файловая переменная>)

[Razorishe]

Не получается сделать...

 menu; {процедура вызывает меню}
 1: begin 
 assign(f,'a.txt');
 reset(f);
 if y=1 then {если выбран первый режим работы}
  begin
   {with uspev do     {когда делал с record}
    {begin   }
     write('Vvedite FIO: ');
     readln(fio);
     write('Vvedite predmet: ');
     readln(predmet);
     write('Vvedite ocenku: ');
     readln(ocenka);
     str(ocenka,ocenkast); 
     write(f,fio,predmet,ocenkast);
     close(f);
     clrscr;
     menu;
    {end; }
  end;
  end;  
 goto 1;

Что тут добавить нужно или что не так. Сначало делал с типом record потом убрал его. C goto намудрил немножко, но это не важно сейчас я думаю.

[Sazary]

Что тут добавить нужно или что не так

А что вы хотите сделать?
Чтобы переместить указатель в конец файла, напишите:

seek(f,filesize(f));

А от goto советовал бы вам как можно скорее избавиться )

[Razorishe]

фуф разобрался, а гоуту это я так тренировался.) А то что в текстовый файл добавляет переменные и между ними большое количество пробелов это нормально?

[Sazary]

А то что в текстовый файл добавляет переменные и между ними большое количество пробелов это нормально?

В принципе, такое может быть. Возможно, вы задаете размер под переменные (в смысле строковые). Вот там и забиваются пробелами незанятые позиции.

[Razorishe]

Дело в том, что я не задавал размер строки, ну да ладно спасибо вам за помощь. Буду делать остальные режимы работы..

[Razorishe]

Опять нужна помощь. Сейчас мне нужно удалить строку из файла. Вот до чего я додумал

if y=3 then {если выбран третий режим работы}
 begin
  writeln('Spisok uchashihsya:');  {сначало выводим список учащихся}
  reset(f);
  with uspev do
   begin
    repeat
     read(f,fam,io,predmet,ocenkast);
     writeln(fam,' ',io,'    ',predmet,'    ',ocenkast);         
    until eof(f);
    write('Vvedite familiu: ');   {вводим фамилию из списка}
    readln(fam2);
    reset(f);
    repeat
     read(f,fam,io,predmet,ocenkast);
      if fam=fam2 then   {сравниваем введенную фамилию с фамилиями из списка}
    ....      {если есть совпадение нужно как то удалить это строку}
    until eof(f);
   end;
  readln;
  clrscr;
 end;

Я не знаю как можно удалить строку. Буду благодарен за помощь.
Еще можно реализовать через временный файл, т. е. как я понял данный файл(a.txt) переписывается в b.txt, но уже без данной строчки, после чего файл a.txt удаляется, а b.txt переименовывается в a.txt.