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

(d: TDate): string;

// друк інформації про фото

procedure PrintCatalog (f: TCatalog);

// зберегти інформацію про фото

procedure SaveCatalog (var t: TextFile; f: TCatalog);

// завантажити інформацію про фото

function LoadCatalog (var t: TextFile; var f: TCatalog): Boolean;

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

function TryStrToDate (s: string; var d: TDate): Boolean;

// зміна інформації про фото

procedure EditCatalog (var f: TCatalog);

implementation

// пошук кількості днів у місяці

function CountDaysInMonth (m, g: integer): integer;

begin m of

: if (g mod 4) = 0 then CountDaysInMonth: = 29

else CountDaysInMonth: = 28;

, 6,9,11: CountDaysInMonth: = 30;

else CountDaysInMonth: = 31;

end;;

// введення дати створення

procedure InputDate (var d: TDate);

begin

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

Readln (d. year);

if not ( d. year in [00.99])

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

until d. year in [00.99];

repeat

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

Readln (d. month);

if not ( d. month in [1.12])

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

Назад | сторінка 12 з 21 | Наступна сторінка