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

ify"> until d. month in [1.12];

repeat

Writeln ('Введіть день створення файлу');

Readln (d. day);

if not ( d. day in [1. CountDaysInMonth (d. month, d. year)])

then ShowMessage ('Помилка! Повторіть введення!');

until d. day in [1. CountDaysInMonth (d. month, d. Year)];

end;

// введення даних про фото

procedure InputCatalog (var f: TCatalog);

begin

writeln ('Введіть ім'я файлу'); (f. name);

if f. name =''

then ShowMessage ('Помилка! Ім'я не повинно бути порожнім! Повторіть введення!');

until f. name <>''; ('Введіть спеціалізацію'); (f. special);

InputDate (f. create);

repeat

Writeln ('Введіть кількість блоків'); (f. blocks);

if f. blocks <0 then

ShowMessage ('Помилка! Розмір файлу має бути позитивним! Повторіть введення!');

until f. blocks> = 0;

end;

// переклад дати в рядок

function DateToStr (d: TDate): string;

begin

Result: ='';

if d. day <10 then Result: = '0 ';: = Result + IntToStr (d. day) +'. ';

if d. month <10 then Result: = Result + '0 ';: = Result + IntToStr (d. month) +'. ';

if d. year <10 then Result: = Result + '0 ';: = Result + IntToStr (d. year);

end;