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

[Deep-Minimal]

Помогите пожалуйста разобраться с сохранением и загрузкой, чтобы создавались новые файлы с разными данными:

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

[Hacker19_90]

Чего проще создать структуру и записывать или считывать с файла.
Что конкретно не получается?

[Deep-Minimal]

Если честно, то я не представляю как это сделать.
Вот сохранение и загрузку в *.txt формат я понимаю как делать, а вот как сохранить и потом загрузить "z,c,x,ylica,dom,korp,kv,bol" все вместе, я не знаю.

[Hacker19_90]

Щас попробую обьяснить! :D
Ну допустим структуры- это вообще мега понтовая штука , когда нужно сохранить много данных, относящихся к чему-то одному!
Вот у тебя данные о человеке, возьми и создай структуру

Type 
    Person  = record;
         z,c,x,ylica,dom,korp,kv,bol: string;
    end;
var
    Pers: Person;
    F: file of Person;
begin
    { Считывай данные через структуру}
     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);
{ Вот}
.........
{Потом Где-то сохранение лучше использовать типизированный файл}
Assign(f, filename);
Rewrite (f); {или если дополнить Append(f);}
Write (f, pers);
end.

P.S.: Это пример

[Deep-Minimal]

Спасибо тебе огромное, вот с сохранением я разобрался, а вот загрузка у меня хромает. Делал по аналогии, может быть не правильно:

function load (filename:string; var e:integer):boolean;
var f:file of person;
    i:integer;
begin
textbackground(blue);
window (2,3,79,24);
     assign(f,filename);
     {$I-}
     reset(f);
              if IoResult<>0 then begin
                 load:=false;exit
              end;
              e:=0;
              while not eof(f) do begin
               e:=e+1;
               read(f, pers);
              end;
     close(f);
     load:=true;
readkey;
end;

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

Вот аналог, но я уже понял, что это не подойдет:

function load(fn:string;var t:tabl;var n:integer):boolean;
var f:file of student;
    i:integer;
begin
     assign(f,fn);
     {$I-}
     reset(f);
              if IoResult<>0 then begin
                 load:=false;exit
              end;
              n:=0;
              while not eof(f) do begin
                    n:=n+1;
                    read(f,t[n]);
              end;
     close(f);
     load:=true
end;

Кстати, вот сама процедура сохранения:

procedure Save(filename:string);
var f:file of person;
begin
window (2,3,79,24);
     assign(f,filename);
     rewrite(f);
     write(f, pers);
     close(f);
     textcolor(12);
     write('Файл сохранен!');
     readkey;
readkey;
end;

[Hacker19_90]

А что конкретно не работает?

[Deep-Minimal]

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

А что конкретно не работает?

Сохранение происходит успешно, создается файл с названием. А вот после выполнения функции загрузки, всё обнуляется т.е. при выводе "z,c,x,ylica,dom,korp,kv,bol" ничего нет.

[Hacker19_90]

А как массив записей обьявил?
read(f,t[n]);

[Deep-Minimal]

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

А как массив записей обьявил?
read(f,t[n]);

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

function load (filename:string; var e:integer; t:tabl):boolean;
var f:file of person;
    i:integer;
begin
textbackground(blue);
window (2,3,79,24);
     assign(f,filename);
     {$I-}
     reset(f);
              if IoResult<>0 then begin
                 load:=false;exit
              end;

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

Сейчас разбираюсь.

[Hacker19_90]

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