Реферат Програми для роботи з великим обсягом інформації, записаної в файлах

align="justify"> procedure OpenFile (var f: TFile; var FileName: string);

// завантаження з файлу

procedure LoadFromText (var f: TFile; var FileName: string);

// друк файлу

procedure PrintFile (var f: TFile);

// збереження в текстовий файл SaveToText (var f: TFile; FileName: string);

// додавання елемента

procedure AddElems (var f: TFile);

// ізмнененіе елемента EditElems (var f: TFile);

// видалення елемента

procedure DeleteElems (var f: TFile);

// вивід файлів із заданою специфікацією

procedure Task (var f: TFile);

implementation

// додавання кількох елементів у файл

function AddSomeElems (var f: TFile): Integer;

var el: TCatalog;

begin

Result: = 0;

repeat

InputCatalog (el); (f, el); (Result);

until not InputQuery ('Ще?');

end;

// створення файлу NewFile (var f: TFile; var FileName: string);

begin InputFileName ('Введіть ім'я нового файлу', FileName, False) then (f, FileName); (f);

if InputQuery ('Додати дані?') then < span align = "justify"> AddSomeElems (f); (f); ('Файл створений');

end;;

// Відкриття файлу

procedure OpenFile (var f: TFile; var FileName: string);

begin InputFileName ('Введіть ім'я існуючого файлу', FileName, true) then

begin

AssignFile (f, FileName); ('Файл відкрито');

end;;

// завантаження з файлу

procedure LoadFromText (var f: TFile; var FileName: string);

var name:...