Чтение из типизированного файла с последней записи и до первой

[vmilyoshin]

Нужно вывести на экран записи которые хранятся в файле. Но вывести надо начиная с последней записи и заканчивая первой. Я уже измучился. Записи выводятся в перемешку. Помогите кто может.

Вот мой код:

program zapisi2;
USES crt;
type
info = record
Nomer : integer;
Tovar : string[30];
Stoimost : extended;
end;
var f : file of info;
z : info;
i, Cnt : integer;
begin
clrscr;
Assign(f,'d:\kurspascal\xxx.dat');
Reset(f);
writeln(' Номер | Наименование товара | Стоимость |');
writeln('------------------------------------------');
writeln;
Cnt := FileSize(f);
for i:=Cnt downto 1 do begin
seek(f,i);
while not EOF(f) do begin
Read(f, z);
writeln(' ',z.Nomer,' ', z.Tovar,' ', z.Stoimost:0:2);
writeln;
end;
end;
readln;
Close(f);
end.

Вот такая фигня получается:

sshot-1.jpg

[Grag]

Ну и что ты делаешь тут???

Cnt := FileSize(f);
for i:=Cnt downto 1 do begin
seek(f,i);
while not EOF(f) do begin
Read(f, z);

Устанавливаешь указатель файловой переменной на элемент файла, а потом в цикле читаешь все подряд до конца файла...

[vmilyoshin]

Ну а как правильно. Я в этом деле ещё лопух.

[Stilet]

Cnt := FileSize(f);
for i:=Cnt downto 1 do begin
seek(f,i);

Убери это совсем. Оставь чтение только в while not EOF(f), он сам до конца дочитает

[vmilyoshin]

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

Убери это совсем. Оставь чтение только в while not EOF(f), он сам до конца дочитает

Убрал. И что получается:

sshot-2.jpg

А мне нужно вывести начиная с последней записи и заканчивая первой.

[Serge_Bliznykov]

может так проще?

  Cnt := FileSize(f);
  for i:=Cnt-1 downto 0 do begin
     seek(f,i);
     Read(f, z);
     writeln(' ',z.Nomer,' ', z.Tovar,' ', z.Stoimost:0:2);
     writeln;
  end;

[Anatole]

Если

А мне нужно вывести начиная с последней записи и заканчивая первой.

то все-таки нужно так:

Cnt := FileSize(f);
for i:=Cnt downto 1 do begin
seek(f,i-1);
Read(f, z);
writeln(' ',z.Nomer,' ', z.Tovar,' ', z.Stoimost:0:2);
writeln;
end;

[vmilyoshin]

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

может так проще?

  Cnt := FileSize(f);
  for i:=Cnt-1 downto 0 do begin
     seek(f,i);
     Read(f, z);
     writeln(' ',z.Nomer,' ', z.Tovar,' ', z.Stoimost:0:2);
     writeln;
  end;

Спасибо огромное! Всё получилось с этим кодом.