запись,чтение с файла Опции

[Xrymz]

есть 2 проги 1 записывает в файл 2-я читает
1 вроде пашет...

uses crt;
const
   n = 7;
type

   TRec = record
   pyhkt,tip:string [31];
   nomer:integer; {o4enka}
   end;

   TBase = array [1..n] of TRec; {6a3a dannix}

   TFile = file of TBase; {Fail}

var
b:TBase;
F:TFile;
i,j : byte;

begin
   clrscr;
   assign(f,'TEST.txt');
   rewrite(f); {otkriv fail dlja zapisi}
   writeln('BBog 6a3bI gaHHbIX ');
   for i := 1 to n do
    with b[i] do begin
       write('Ha3BaHue /7yHKTa Ha3Ha4eHu9| PeuCa : '); readln(pyhkt);
       write('Homep PeuCa : '); readln(nomer);
       write('Tu/7 CaMoJIeTa : ');        readln(tip);
       end;
       writeln;
   write(f, b); {3apis 6azzi v fail}
end.

а вот 2-я читать нехочет немогу понять почему

program AEROFLOT;

uses crt;
const
   n = 7;
type

   TRec = record
   pyhkt,tip:string [31]; 
   nomer:integer; 
   end;

   TBase = array [1..n] of TRec; {6a3a dannix}

   TFile = file of TBase; {Fail}

var
b:TBase;
F:TFile;
i,j : byte;

begin
   clrscr;
   assign(f,'TEST.txt');
   reset(f); {otkrit fail dlja zapisi}
   writeln('BBbIBog 6a3bI gaHHbIX ');
   for i := 1 to n do
    with b[i] do begin
       writeln('/7yHkT : ',i);
       writeln('Tu/7 : ',i);
       writeln('Homep PeuCa : ',i);
       writeln;
       end;
       writeln;
close(f);
readln;
end.

[volvo]

У тебя туда только последняя запись заносится из 7.

Ты когда-нибудь начнешь внимательно читать предыдущие посты, или так и будешь в режиме Write-Only? Где, спрашивается, ты увидел то, что я процитировал? Заполняется массив, и потом сразу ВЕСЬ пишется в файл... Это что, запрещено?

Xrymz, файл закрывать после записи в него не забывай... Иначе он может остаться пустым...

Сообщение отредактировано: volvo - 15.05.2007 5:09