помогите, пожалуйста, преобразовать процедуру:
// просмотр записей.
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;
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';
в продолжение темы "записи" возник такой вопрос: если у нас есть файл с записями, как добавить запись - понятно, а можно ли удалить запись и чтобы все записи, следующие за удаляемой переместились на одну позицию вверх?
Procedure AddRecord;
begin
Writeln('запись номер: ',FilePos(TFileOfTFileInfo)+1);
with Struct do
begin
Write('введите имя файла с программой ');
Readln(Name);
if not ( FileExists(name)) then
while not ( FileExists(name)) do begin
writeln(' Файл не существует. введите имя заново!');
readln(name);
end;
Write('введите дату (образец: 22.05.10) ');
Readln(CreationDate);
Write ('введите фамилию автора ');
ReadLn( Fio);
end;
Write(TFileOfTFileInfo,struct);
end;
// создание нового каталога ************************************
Procedure CreateRecordFile;
var
i,count:integer;
begin
Write('создание нового каталога! введите название ');
Readln(NameFile);
namefile:=namefile + '.txt';
Assign(TFileOfTFileInfo,NameFile);
Rewrite(TFileOfTFileInfo);
Writeln('File created: ',NameFile);
Write('введите количество записей ');
Readln(count);
for i:=1 to count do
AddRecord;
Writeln('записано!');
Close(TFileOfTFileInfo);
clrscr;
end;
Чтобы удалить с сохранением порядка следования других записей - надо последовательно начиная с Rn+1 (где n - удаляемая запись) вручную передвигать все записи на одну "назад" (ближе к началу файла), а потом, когда будет последняя запись перемещена на место предпоследней - "отрезать" одну запись через Truncate... По-моему на форуме были примеры удаления записей из середины файла...
P.S. Например, здесь: http://forum.pascal.net.ru/index.php?s=&showtopic=16342&view=findpost&p=95845