Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»
begin
read(F2, Buf); write(ResFile, Buf);
end;{while} end;{if}
//вывод результирующего файла на экран writeln('Sort Array');
Seek(ResFile, 0); //переходим на начало файла while not EOF(ResFile) do
begin
read(ResFile, Buf); write(Buf, ' ');
end;
//закрываем все открытые файлы
CloseFile(F1);
CloseFile(F2);
CloseFile(ResFile);
writeln;
writeln('Press Enter to Exit'); readln;
end.
Работа с таблицами
С помощью типизированных файлов удобно организовывать простые базы данных, таблицы, справочники и т.п. Пример реализации простого справочника приведен в ниже приведенной программе. Для этого перепишем программу из лабораторной работы № 5 (листинг 2). Перепишем программу таким образом, чтобы для хранения данных она использовала не массив, а типизированный файл.
Листинг 7
program RecFile;
{$APPTYPE CONSOLE}
const TableName='Students.dat';
type TStudent=record
name :string[12]; //имя familia:string[16]; //фамилия
gruppa :Integer; |
//группа |
end; |
|
var F:file of TStudent; //таблица |
Count:integer; |
//число строк в таблице |
MenuState:byte; |
//код выбранного действия |
i:integer; |
|
Rec:TStudent; |
|
begin |
|
AssignFile(F, TableName); {$I-}
Reset(F);
if IOResult<>0 then begin
Rewrite(F);
if IOResult<>0 then Halt(1);