Процедуры работы с каталогами и файлами.
chdir(s);
- изменить текущий каталог на указанный в s: string
s - строка, в которой помещается требуемый каталог, включая имя устройства.
chdir('A:\');
mkdir(s);
- создает каталог с именем и путем, заданным в строке s: string
mkdir('c:\STUD');
rmdir(s);
- удаляет пустой каталог с именем и путем, с заданным в строке s: string
rmdir('c:\STUD');
rename(ff, s);
- переименование файла, имя которого связано с файловой переменной ff на новые заданное в строке s: string.
assign (ff, 'prim.dat');
rename (ff, 'res.dat');
erase (ff);
- удаляет файл, связанный с файловой переменной ff через assign, но не открыт.
assign (ff, 'prim.dat');
erase (ff);
repeat
write ('будете исключать - Y, N'); readln (k);
if k = 'Y' then
begin
write ('введите Ф.И.О.'); readln (surname);
reset (ff)
for i:=1 to filesize (ff) do
begin
read (ff, bf);
if bf. sur = surname then
begin
wile not eof(ff) do
begin
read (ff, bf);
seek (ff, (filepos(ff) - 1));
write (ff, bf);
seek (ff, (filepos(ff) + 1));
end;
seek (ff, (filepos(ff) - 1));
truncate (ff);
break;
end;
end;
until k = 'N';
close (ff);
end.
Задача: скорректировать файл, удалить из него сведения об исключенных студентах.
Program pr;
type
student = record
sur: string[20];
crup: string[10];
cr: integer;
ad: string[20];
var
ff: file of student;
ff: student; surname: string[20];
k: char; i: integer;
begin
assign (ff, 'stud.dat');
