{
    модуль для отладки
    
    чтобы работала отладка нужно чтобы был файл "c:\temp\debug.config".
    если его нет, работа в обыном режиме, все отладочные переменные
    инициализируются в выключенном состоянии.
}
var
  // режим отладки
  // эту переменную не желательно менять в процессе работы!
  vDebug: boolean;



{ сравнение версий с учетом отладки.
  если включена отладочная опция "не проверять версии" возвращается всегда
  совпадение версий.}
function CompareVersionEx( xVer1, xVer2: string): integer;
begin

  Result := CompareVersion( xVer1, xVer2);
end;

{ инициализация модуля отладки с предопределенным файлом опций. }
procedure InitializeDebug;
begin
  // по умолчанию указываем пустой файл.
  // при этом модуль будет инициализирован, а режим отладки будет выключен.
  InitializeDebugEx( '');

end;

{ инициализация модуля отладки с указанным файлом опций = xFileNameDebugCfg. }
procedure InitializeDebugEx( xFileNameDebugCfg: string);

begin
  try
    vDebug := FALSE;

    except
      raise( 'Сбой скрипта: "Un_Debug.InitializeDebugEx".'
              +#13#10 + LastException.Message);
  end;
end;


{ получение значения параметра по имени aName.
  особенность в том, что имя регистронезависимое. }
function DebugOption( aName: string): string;

begin
  Result := '';

end;


procedure FinalizeDebug;
begin

end;





begin
  // по умолчанию указываем пустой файл.
  // при этом модуль будет инициализирован, а режим отладки будет выключен.
  InitializeDebugEx( '');
end.
