Class TCustomAutoCalcFloatField (unit CalcFld)

Inherits from

TFloatField

CustomAutoCalcFloatField: TField that converts the data shown and stored. Version 0.1 May-25-1997 (C) 1997 Christoph R. Kirchner !! This component is currently UNDER CONSTRUCTION !! { Users of this unit must accept this disclaimer of warranty: "This unit is supplied as is. The author disclaims all warranties, expressed or implied, including, without limitation, the warranties of merchantability and of fitness for any purpose. The author assumes no liability for damages, direct or consequential, which may result from the use of this unit." This Unit is donated to the public as public domain. This Unit can be freely used and distributed in commercial and private environments provided this notice is not modified in any way. If you do find this Unit handy and you feel guilty for using such a great product without paying someone - sorry :-) Please forward any comments or suggestions to Christoph Kirchner at: ckirchner@geocities.com Maybe you can find an update of this component at my "Delphi Component Collection": http://www.geocities.com/SiliconValley/Heights/7874/delphi.htm

Constructors


constructor Create(AOwner: TComponent);

TCustomAutoCalcFloatField --------------------------------------------------


Functions

destructor Destroy;


procedure ConvertFromBase(var Value: Double);


procedure ConvertToBase(var Value: Double);


function DoGetData(Buffer: Pointer): Boolean;

Delphi 3.

function GetAsFloat: Double;

DataChanged;

function GetAsString: string;


function GetAsVariant: Variant;


procedure GetText(var Text: string; DisplayText: Boolean);


procedure SetAsFloat(Value: Double);


procedure DataChange(Sender: TObject; Field: TField);

Avoid that the DataSet nags about a non-existing FieldName:

Properties

property BaseField : string


Events

Variables

FBaseField : string;


FDataSource : TDataSource;



Constructors


constructor Create(AOwner: TComponent);

TCustomAutoCalcFloatField --------------------------------------------------


Functions


destructor Destroy;


procedure ConvertFromBase(var Value: Double);


procedure ConvertToBase(var Value: Double);


function DoGetData(Buffer: Pointer): Boolean;

Delphi 3.0:


function GetAsFloat: Double;

DataChanged;


function GetAsString: string;


function GetAsVariant: Variant;


procedure GetText(var Text: string; DisplayText: Boolean);


procedure SetAsFloat(Value: Double);


procedure DataChange(Sender: TObject; Field: TField);

Avoid that the DataSet nags about a non-existing FieldName:


Properties


property BaseField : string


Events


Variables


FBaseField : string;


FDataSource : TDataSource;