span align="justify"> Banned); (i);
end;;
// введення імені файлу
function In putFileName (txt: string; var FileName: string;: boolean): Boolean;
var name: string;
begin
Result: = True; (txt, '(порожній рядок - скасування)'); (name);
if name ='' then Result: = False
else not CheckFileName (name)
then
ShowMessage ('Ім'я введено некоректно!');: = False;
end MustExists
then FileExists (name) then FileName: = name
else
ShowMessage ('Файл не знайдено!');: = false
end not FileExists (name) then FileName: = name
else InputQuery ('Файл існує. Замінити?')
then FileName: = name
else Result: = false;
end; . // HelpUtils
Додаток 2. Модуль UElem
unit UElem;// процедури для роботи з одним елементом
interface
SysUtils, windows,;
type
TDate = record
day, month, year: Integer;
end;
TCatalog = record : string [8];: string [3];: TDate;: integer;
end;
// введення дати створення
procedure InputDate (var d: TDate);
// введення даних про фото
procedure InputCatalog (var f: TCatalog);
// переклад дати в рядок
function DateToStr...
