typeпо идее все что находится в списке men должно сохранятся в файл...но вместо значений которые я вводил с клавиатуры в файле какието посторонние символы.
person = record
lastname:string;
name:string;
phone:integer;
bd:array [1..8] of integer;
end;
Pfile = file of person;
var
men:person;
f:pfile;
i:byte;
st:string;
begin
men.lastname := edit1.text;
men.name :=edit2.text;
men.phone := strtoint(edit3.text);
for i:=1 to length(edit4.Text) do begin
men.bd[i]:=strtoint(edit4.text[i]);
end;
Assignfile(F,'Spis.txt');
Rewrite(F);
write(F,men);
closefile(f);
end;
![]() |