вывод записей Опции

[*оля*]

помогите, пожалуйста, преобразовать процедуру:

 // просмотр записей

procedure VivodRec;
begin
read(TFileOfTFileInfo, info);
With info do
begin
Write('запись номер ', FilePos(TFileOfTFileInfo), '  ');
writeln( name,' -- ', fio,' -- ', CreationDate);
end;
end;
//****************************************************
procedure VivodAllRecord;
begin
writeln('введите имя каталога');
read(Name);
if not ( FileExists(name)) then
    while not ( FileExists(name)) do begin
    writeln(' каталог с таким именем не существует. введите имя заново!');
    readln(name);
    end;
Assign(TFileOfTFileInfo,Name);
Reset(TFileOfTFileInfo);
Seek(TFileOfTFileInfo, 0); 
writeln('*** каталог', name, '***');
while (not Eof(TFileOfTFileInfo)) do
VivodRec;
close(TFileOfTFileInfo);
end;

.


в этой процедуре выводятся сразу все записи, а как сделать, чтобы они выводились,допустим, первая 10ка, при нажатии клавиши - следующая 10ка, а если записей больше нет, то при нажатии клавиши снова возвращались к первой десятке?

Сообщение отредактировано: *оля* - 1.06.2010 8:29

[volvo]

а если записей больше нет, то при нажатии клавиши снова возвращались к первой десятке?

А как тогда выходить из этого вечного цикла?

Я бы сделал так:

procedure VivodRec(var f: <тип_файла>);
var info: <тип_записи>;
begin
  read(f, info);
  { и дальше выводишь данные, как и прежде }
end;

{ ... }

  Assign(TFileOfTFileInfo,Name);
  Repeat
    Reset(TFileOfTFileInfo);
    While not Eof(TFileOfTFileInfo) Do 
    Begin
      VivodRec(TFileOfTFileInfo);
      If (FilePos(TFileOfTFileInfo) mod 10 = 0) or (Eof(TFileOfTFileInfo)) Then 
      Begin
        Writeln('Нажмите Enter для продолжения...'); Readln;
      End;
    End;
    Write('Еще раз? (y/n)'); Readln(ans); { var ans: Char }
  Until Upcase(ans) = 'N';

Набирал прямо здесь, так что могут быть огрехи, но основная идея - вот такая...

[*оля*]

Я бы сделал так:...

так даже лучше, то, что надо, спасибо))))

Набирал прямо здесь, так что могут быть огрехи, но основная идея - вот такая...

все работает)))