unit Precond;

interface

//"precond"

procedure checkArgument(value: Variant); overload;
procedure checkArgument(value: Variant; message: String; formatArgs: array of Variant); overload;
procedure checkState(value: Variant); overload;
procedure checkState(value: Variant; message: String; formatArgs: array of Variant); overload;
function checkIsDef(value: Variant): Variant; overload;
function checkIsDef(value: Variant; message: String; formatArgs: array of Variant): Variant; overload;
function checkIsDefAndNotNull(value: Variant): Variant; overload;
function checkIsDefAndNotNull(value: Variant; message: String; formatArgs: array of Variant): Variant; overload;
function checkIsString(value: Variant): Variant; overload;
function checkIsString(value: Variant; message: String; formatArgs: array of Variant): Variant; overload;
function checkIsArray(value: Variant): Variant; overload;
function checkIsArray(value: Variant; message: String; formatArgs: array of Variant): Variant; overload;
function checkIsNumber(value: Variant): Variant; overload;
function checkIsNumber(value: Variant; message: String; formatArgs: array of Variant): Variant; overload;
function checkIsBoolean(value: Variant): Variant; overload;
function checkIsBoolean(value: Variant; message: String; formatArgs: array of Variant): Variant; overload;
function checkIsFunction(value: Variant): Variant; overload;
function checkIsFunction(value: Variant; message: String; formatArgs: array of Variant): Variant; overload;
function checkIsObject(value: Variant): Variant; overload;
function checkIsObject(value: Variant; message: String; formatArgs: array of Variant): Variant; overload;