Правила форума
Прочтите прежде чем задавать вопрос!
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.
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.
Спасибо.
