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

gn="justify"> end;. // UFile

Додаток 4. Головна програма

Program MainProgram;// головна програма

uses

SysUtils, windows, in 'HelpUtils. pas ', in' UElem. pas ', in' UFile. pas ';

Var

f: TFile; item: Integer; FileName: string;

// вибір дії

function SelectItem: Integer;

var MaxItem: Integer;

begin

writeln ('1 - Створити файл ');

writeln ('2 - Відкрити файл '); ('3 - Завантажити дані з текстового файлу');

MaxItem: = 3;

if FileName <>'' then

begin

writeln ('4 - Друк файлу '); ('5 - Зберегти в текстовий файл'); ('6 - Додати запис '); ('7 - Редагувати запис'); ('8 - Видалити запис '); ('9 - Занести в файл-звіт записи про файли із заданою специфікацією');

MaxItem: = 9;

end;

writeln ('0 - Вихід ');

repeat

write ('Ваш вибір:'); (Result);

until Result in [0. MaxItem];

end;

SetConsoleCP (1251); (1251);: ='';

repeat

item: = SelectItem;

case item of // виклик відповідних підпрограм

1: NewFile (f, FileName);

: OpenFile (f, FileName);

: LoadFromText (f, FileName);

: PrintFile (f);

: SaveToText (f, FileName);

: AddElems (f);

: EditElems (f);

: DeleteElems (f);

: Task (f);

end; item = 0;

end. // MainProgram