Типизированные файлы запись\ чтение\ меню

[Serge_Bliznykov]

дозапись осуществляется не просто, а ОЧЕНЬ просто.

нужно всего навсего открыть файл, установить указатель на конец файла, потом можно писать новые записи.

примерно так:

..
  WriteLn('Введите, сколько записей хотите добавить:');
  Readln(n);

  assign (fp, 'D:\rez.dat'); 
  reset(fp);
  
  seek(fp, filesize(fp)); {установили указатель на конец файла - можно дописывать!}

  for i:=1 to n do begin
    writeln ('фамилия');
    readln (s.fio);
    writeln ('оценка по химии: ');
    readln (s.him);
    writeln ('оценка по математике: ');
    readln (s.mat);
    writeln ('оценка по информатике: ');
    readln (s.inf);
    write (fp,s); {дописали информацию в конец файла}
    
  end;

  close(fp); {не забываем закрывать файл!}

ну и ещё, аналогичные темы на форуме, где я давал решения:
http://www.programmersforum.ru/showp...38&postcount=5

http://www.programmersforum.ru/showp...6&postcount=10

http://www.programmersforum.ru/showp...09&postcount=6

[Naposaram]

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

дозапись осуществляется не просто, а ОЧЕНЬ просто.

нужно всего навсего открыть файл, установить указатель на конец файла, потом можно писать новые записи.

примерно так:

..
  WriteLn('Введите, сколько записей хотите добавить:');
  Readln(n);

  assign (fp, 'D:\rez.dat'); 
  reset(fp);
  
  seek(fp, filesize(fp)); {установили указатель на конец файла - можно дописывать!}

  for i:=1 to n do begin
    writeln ('фамилия');
    readln (s.fio);
    writeln ('оценка по химии: ');
    readln (s.him);
    writeln ('оценка по математике: ');
    readln (s.mat);
    writeln ('оценка по информатике: ');
    readln (s.inf);
    write (fp,s); {дописали информацию в конец файла}
    
  end;

  close(fp); {не забываем закрывать файл!}

Ооо... пасиба большое.... я так и делал только seek не там писал =D и думал че за фигня??? ну в принципе не так то и сложно была задачка на сколько я думал... не хватало просто просто примеров....

Всем спасибо кто не бросил и помог!!! =)