Сохранение и загрузка.

[Deep-Minimal]

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

Кинь весь код пожалуйста, а то не как не въеду!

Всё заработало, огромное спасибо! =)
вот коды:

uses
   crt;
   Type
    Person  = record
    z,c,x,ylica,dom,korp,kv,bol: string[100];
    end;
    tabl = array [1..30] of person;

var
    Pers: Person;
    F: file of Person;

procedure karta(var z,c,x,ylica,dom,korp,kv,bol: string);
begin
clrscr;
Textcolor(white);Write('Имя: ');Textcolor(2);readln (Pers.z);
Textcolor(white);write('Фамилия: ');Textcolor(2);readln (Pers.c);
Textcolor(white);write('Отчество: ');Textcolor(2);readln (Pers.x);writeln;
Textcolor(white);writeln('Адрес прописки: ');writeln;
Textcolor(white);write('Улица: ');Textcolor(2);readln(Pers.ylica);
Textcolor(white);write('Дом: ');Textcolor(2);readln(Pers.dom);
Textcolor(white);write('Корпус: ');Textcolor(2);readln(Pers.korp);
Textcolor(white);write('Квартира: ');Textcolor(2);readln (Pers.kv);writeln;
Textcolor(white);writeln('История болезни:');Textcolor(2);readln (Pers.bol);
writeln;
textcolor(yellow);writeln('Нажмите любую клавишу');
end;


function fname:string;
var s:string;
begin
clrscr;
textcolor(white);
write('Имя Файла=');
textcolor(2);readln(s);
fname:=s
end;



procedure Save (fn:string;t:tabl;e:integer);
var f:file of person;
    i:integer;
begin
     assign(f,fn);
     rewrite(f);
     write(f,pers);
     close(f);
     textcolor(yellow);
     write('Файл сохранен!');
     readkey;
end;




function load (fn:string;var t:tabl;var e:integer):boolean;
var f:file of person;
    i:integer;
begin

     assign(f,fn);
     {$I-}
     reset(f);
              if IoResult<>0 then begin
                 load:=false;exit
              end;

              while not eof(f) do begin
                    e:=e+1;
                    read(f, pers);
              end;
     close(f);
     load:=true;
readkey;
end;

[Hacker19_90]

Единственное на функции Save там постоянно файл переписывается!!!
Лучше сделать чтобы дополнять моно было, а то больше одной записи не запишешь!

[Deep-Minimal]

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

Единственное на функции Save там постоянно файл переписывается!!!
Лучше сделать чтобы дополнять моно было, а то больше одной записи не запишешь!

Спасибо, но у меня есть процедуры изменения имени, отчества и так далее