Проблема с записью в файл Опции

[klem4]

Нужно написать небольшую тему, типа вот этого : http://forum.pascalnet.ru/forum/index.php?showtopic=3845

C записью в массив все отлично! а вот с файлом проблемма, мы не изучали еще, вот даже на простом примере не получается, файл создается, но он пустой!, покажите на этом примере в чем ошибка :

Код

uses crt;
type
   person=record
   name : string;
          end;

var     p : person;
  file_p : file of person;

Begin
  clrscr;
  assign(file_p,'file_p.dat');
  rewrite(file_p);
  with p do
   begin
      writeln('name=');
      readln(p.name);
      close(file_p);
   end;
readln;
end.

Спасибо.

[volvo]

klem4
У меня глюки, или я прав? Смотри, что происходит... В основной программе:

Код

while (i<=n)and(EndRec) do
 with s do
   begin
     ...
     studs[i]:=s;
     write(file_s,s); { Я вот об этом }
     ...
   end;

Но в то же время:

Код

procedure if_next;
var ch:char;
Begin
 ...
 if ch in ['Y','y'] then
   begin
     write(file_s,s); { Еще раз ??? }
     ...
   end
 ...
end;

Значит откуда-нибудь вызов Write(file_s, s) надо убрать. :yes:

P.S. А почему

Код

repeat
 ch:=readkey;
until (ch in ['Y','y','N','n']);

а не так:

Код

repeat
 ch:=upcase(readkey);
until (ch in ['Y','N']);

;)