работа с файлами и записями Опции

[Negor]

Народ, дело такое:есть массив записей Sessija типа TSessija. И у него есть пускай пять полей. Так вот вопрос такой: как сделать так чтобы можно было этот массив записей записать в файл одной программой, а считывать данные и работать с ними в другой? И ещё, я выбрал для переменной файла тип File of TSessija, это правильно или не очень? Вобщем надеюсь на вашу поддержку.... буду благодарен за теорию подкреплённую участками кода

[мисс_граффити]

опоздала

Сообщение отредактировано: мисс_граффити - 27.10.2006 0:33

[Гость]

Итак на данный момент есть след. код

Код

program zad_1;
uses crt;
type TSessija=record
     index:byte;
     familija:string;
     ekzamen:array[1..5] of byte;
     zachet:array [1..5] of char;
     end;

var  sessija:array[1..25] of TSessija;
     Log_f:file of TSessija;
     i,j:byte;
begin
clrscr;
assign(log_f,'sessija.dat');
rewrite(log_f);
for i:=1 to 25 do
    with sessija[i] do
         begin
         write('----zapis #',i,'-----');
         write('Vvedite index gruppi-');readln(index);
         write('Vvedite familiju studenta-');readln(familija);
         for j:=1 to 5 do
             begin
             write('Vvedite otsenku po ',j,'-omu za4etu ');readln(ekzamen[j]);
             write('Vvedite rezultat ',j,'-go za4eta [Z/N] ');readln(zachet[j]);
             end;
         end;
for i:=1 to 25 do
    writeln(log_f,sessija[i]);
end.

Сдесь пока только запись значений в файл. Но имено при записи в файл выдаётся ошибка, что файл-инвалид