Class TSLCustomFun

Unit

Declaration

type TSLCustomFun = class()

Description

This class is registered in TFunArgManager, so both functions and aggregations can be stored in one manager. When Active is true function's object is registered in.

Fields

	Name	Description
	FActive
	FDB
	FFunName
	FHandle
	FResType

Methods

Overview

	function AggregateContext (aFunObject: TObject; nBytes: Integer): Pointer;
	function AggregateCount (aFunObject: TObject): Pointer;
	constructor Create (AOwner: TComponent); override;
	destructor Destroy; override;
	procedure Loaded; override;
	procedure SetActive (const aValue: Boolean); virtual; abstract;
	procedure SetDB (const aValue: TSLDatabase);
	procedure SetResultDouble (aFunObject: TObject; const aRes: Double);
	procedure SetResultError (aFunObject: TObject; const aRes: String);
	procedure SetResultInt (aFunObject: TObject; const aRes: Integer);
	procedure SetResultString (aFunObject: TObject; const aRes: String);
	function UserData (aFunObject: TObject): Pointer;

Description

function AggregateContext (aFunObject: TObject; nBytes: Integer): Pointer;

function AggregateCount (aFunObject: TObject): Pointer;

constructor Create (AOwner: TComponent); override;

destructor Destroy; override;

procedure Loaded; override;

procedure SetActive (const aValue: Boolean); virtual; abstract;

procedure SetDB (const aValue: TSLDatabase);

procedure SetResultDouble (aFunObject: TObject; const aRes: Double);

procedure SetResultError (aFunObject: TObject; const aRes: String);

procedure SetResultInt (aFunObject: TObject; const aRes: Integer);

procedure SetResultString (aFunObject: TObject; const aRes: String);

function UserData (aFunObject: TObject): Pointer;

Properties

Overview

	property Active: Boolean;
	property Database: TSLDatabase;
	property FunName: String;
	property Handle: Pointer;
	property ResultType: TSLFunResType;

Description

property Active: Boolean;

abstract(function/aggregation is registered in SQLite engine / DB There is no deactivation API function so once activated function will be active until dabtabase deactivation.

property Database: TSLDatabase;

abstract(Database in which function is registered (created))

property FunName: String;

abstract(Name of function / aggregation used in query)

property Handle: Pointer;

abstract(Pointer used by SQLite to recognise function)

property ResultType: TSLFunResType;