Unit SiField |
Classes |
TCustomSIConvertField - US gal
TSIConvertField -
Functions |
Register - sample of a special-purpose SIConvertField: TPoundFloatField = class(TCustomSIConvertField) protected constructor Create(AOwner: TComponent); override; end;
TPoundFloatField ---------------------------------------------------------
constructor TPoundFloatField.
Types |
Constants |
Variables |
Functions |
TPoundFloatField --------------------------------------------------------- constructor TPoundFloatField.Create(AOwner: TComponent); begin inherited Create(AOwner); NonSIUnit := nsiuPoundLB; end; { registration ------------------------------------------------------------
Types |
TNonSIUnit = (nsiuUnknown, { mass: SI-base is kg: } nsiuPoundLB, { lb } nsiuPound2KG, { as used e.g. in Germany: 2 pound = 1 kg } nsiuOunce, { oz } nsiuStone, { st } nsiuQuarter, nsiuCwt, { GB cwt } nsiuShortCwt, { US cwt } nsiuTon1000KG, { metric: 1 t = 1000 kg } nsiuTonGB, { 20 GB cwt } nsiuShortTon, { US t } { lenght: SI-base is m: } { surface: SI-base is m^2: } { capacity: SI-base is m^3: (NOT litre, set Multiply to 0.001 if you store litres) } nsiuGallonGB, { GB gal } nsiuGallonUS { US gal } );SIConvertField: TField that converts the data shown (lb, oz..) and stored (kg). 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
Constants |
Variables |