paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-21 00:21:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support 8.3

Browse Source
This commit is contained in:
Tomas Hajny 2004-07-18 21:41:34 +00:00
parent 7a7c34e1b7
commit 668400675a
3 changed files with 666 additions and 661 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

664
rtl/objpas/convutil.inc Normal file
View File

@ -0,0 +1,664 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Marco van de Voort
member of the Free Pascal development team.
An implementation for unit convutils, which converts between
units and simple combinations of them.
Based on a guessed interface derived from some programs on the web. (Like
Marco Cantu's EuroConv example), so things can be a bit Delphi
incompatible. Also part on Delphibasics.co.uk.
Quantities are mostly taken from my HP48g/gx or the unix units program
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY;without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit convutils;
interface
{$ifndef VER1_0}
{$mode objfpc}
{$H+}
Type TConvType = type Integer;
TConvFamily = type Integer;
var
{cbArea family}
auSquareMillimeters,
auSquareCentimeters,
auSquareDecimeters,
auSquareMeters,
auSquareDecameters,
auSquareHectometers,
auSquareKilometers,
auSquareInches,
auSquareFeet ,
auSquareYards ,
auSquareMiles,
auAcres ,
auCentares ,
auAres ,
auHectares ,
auSquareRods ,
{cbDistance family}
duMicromicrons,
duAngstroms ,
duMillimicrons,
duMicrons,
duMillimeters,
duCentimeters,
duDecimeters,
duMeters,
duDecameters,
duHectometers,
duKilometers,
duMegameters,
duGigameters,
duInches,
duFeet,
duYards,
duMiles ,
duNauticalMiles,
duAstronomicalUnits,
duLightYears,
duParsecs,
duCubits,
duFathoms,
duFurlongs,
duHands,
duPaces,
duRods,
duChains,
duLinks,
duPicas,
duPoints,
{cbMass family}
muNanograms,
muMicrograms,
muMilligrams,
muCentigrams,
muDecigrams,
muGrams,
muDecagrams,
muHectograms,
muKilograms,
muMetricTons,
muDrams,
muGrains,
muLongTons,
muTons,
muOunces,
muPounds,
muStones,
{cbTemperature family}
tuCelsius,
tuKelvin,
tuFahrenheit,
tuRankine,
tuReamur,
{
cbTime family
}
tuMilliSeconds,
tuSeconds,
tuMinutes,
tuHours,
tuDays,
tuWeeks,
tuFortnights,
tuMonths,
tuYears,
tuDecades,
tuCenturies,
tuMillennia,
tuDateTime,
tuJulianDate,
tuModifiedJulianDate,
{
cbVolume family
}
vuCubicMillimeters,
vuCubicCentimeters,
vuCubicDecimeters,
vuCubicMeters,
vuCubicDecameters,
vuCubicHectometers,
vuCubicKilometers,
vuCubicInches,
vuCubicFeet,
vuCubicYards,
vuCubicMiles,
vuMilliLiters,
vuCentiLiters,
vuDeciLiters,
vuLiters,
vuDecaLiters,
vuHectoLiters,
vuKiloLiters,
vuAcreFeet,
vuAcreInches,
vuCords,
vuCordFeet,
vuDecisteres,
vuSteres,
vuDecasteres,
vuFluidGallons,
vuFluidQuarts,
vuFluidPints,
vuFluidCups,
vuFluidGills,
vuFluidOunces,
vuFluidTablespoons,
vuFluidTeaspoons,
vuDryGallons,
vuDryQuarts,
vuDryPints,
vuDryPecks,
vuDryBuckets,
vuDryBushels,
vuUKGallons,
vuUKPottles,
vuUKQuarts,
vuUKPints,
vuUKGills,
vuUKOunces,
vuUKPecks,
vuUKBuckets,
vuUKBushels : TConvType;
var
cbArea : TConvFamily;
cbDistance : TConvFamily;
cbMass : TConvFamily;
cbTemperature : TConvFamily;
cbTime : TConvFamily;
cbVolume : TConvFamily;
Type TConvUtilFloat = double;
Function RegisterConversionFamily(Const S : String):TConvFamily;
Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
function Convert ( const Measurement : Double; const FromType, ToType : TConvType ) :TConvUtilFloat;
function Convert ( const Measurement : Double; const FromType1, FromType2, ToType1, ToType2 : TConvType ) :TConvUtilFloat;
{$endif VER1_0}
Implementation
{$ifndef VER1_0}
ResourceString // Note, designations for FFU's are guesses.
txtauSquareMillimeters = 'Square millimeters (mm^2)';
txtauSquareCentimeters = 'Square centimeters (cm^2)';
txtauSquareDecimeters = 'Square decimeters (dm^2)';
txtauSquareMeters = 'Square meters (m^2)';
txtauSquareDecameters = 'Square decameters (dam^2)';
txtauSquareHectometers = 'Square hectometers (hm^2)';
txtauSquareKilometers = 'Square kilometers (km^2)';
txtauSquareInches = 'Square inch (in^2)';
txtauSquareFeet = 'Square feet (ft^2)';
txtauSquareYards = 'Square yards (yd^2)';
txtauSquareMiles = 'Square miles (mi^2)';
txtauAcres = 'Square acres (acre^2)';
txtauCentares = 'Centares (care^2)';
txtauAres = 'Ares (are=dam^2)';
txtauHectares = 'Hectares (ha=hm^2)';
txtauSquareRods = 'Square Rods (sqr)';
txtduMicromicrons = 'micro microms (mumum)';
txtduAngstroms = 'Aengstroem (ang)';
txtduMillimicrons = 'millimicroms (mmum)';
txtduMicrons = 'microns (um)';
txtduMillimeters = 'millimeters (mm)';
txtduCentimeters = 'centimeters (cm)';
txtduDecimeters = 'decimeters (dm)';
txtduMeters = 'meters (m)';
txtduDecameters = 'decameters (dam)';
txtduHectometers = 'hectometers (hm)';
txtduKilometers = 'kilometers (km)';
txtduMegameters = 'megameters (Mm)';
txtduGigameters = 'gigameters (Gm)';
txtduInches = 'inches (in)';
txtduFeet = 'feet (ft)';
txtduYards = 'yards (yd)';
txtduMiles = 'miles (mi)';
txtduNauticalMiles = 'nautical miles (nmi)';
txtduAstronomicalUnits = 'astronomical units (au)';
txtduLightYears = 'light years (ly)';
txtduParsecs = 'Parsec (Ps)';
txtduCubits = 'Cubits (cb)';
txtduFathoms = 'Fathom (Fth)';
txtduFurlongs = 'Furlongs (furl)';
txtduHands = 'Hands (hnd)';
txtduPaces = 'Paces (pc)';
txtduRods = 'Rods (rd)';
txtduChains = 'Chains (ch)';
txtduLinks = 'Links (lnk)';
txtduPicas = 'Pica''s (pc)';
txtduPoints = 'Points (pnts)'; // carat/Karaat 2E-6 gram ?
txtmuNanograms = 'nanograms (ng)';
txtmuMicrograms = 'micrograms (um)';
txtmuMilligrams = 'milligrams (mg)';
txtmuCentigrams = 'centigrams (cg)';
txtmuDecigrams = 'decigrams (dg)';
txtmuGrams = 'grams (g)';
txtmuDecagrams = 'decagrams (dag)';
txtmuHectograms = 'hectograms (hg)';
txtmuKilograms = 'kilograms (kg)';
txtmuMetricTons = 'metric ton (t)';
txtmuDrams = 'dramgs (??)';
txtmuGrains = 'grains (??)';
txtmuLongTons = 'longton (??)';
txtmuTons = 'imperial ton (??)'; // calling metric ton "ton" is normal in metric countries
txtmuOunces = 'ounce (??)';
txtmuPounds = 'pounds (??)'; // what kind? Metric pound =0.5
txtmuStones = 'stones (??)';
txttuCelsius = 'degrees Celsius (degC)';
txttuKelvin = 'degrees Kelvin (K)';
txttuFahrenheit = 'degrees Fahrenheit (degF)';
txttuRankine = 'degrees Rankine (degR)';
txttuReamur = 'degrees Reamur (degReam)';
txttuMilliSeconds = 'milli seconds (ms)';
txttuSeconds = 'seconds (s)';
txttuMinutes = 'minutes (min)';
txttuHours = 'hours (hr)';
txttuDays = 'days (days)';
txttuWeeks = 'weeks (weeks)';
txttuFortnights = 'Fortnights (??)';
txttuMonths = 'Months (months)';
txttuYears = 'Years (years)';
txttuDecades = 'Decades (decades)';
txttuCenturies = 'Centuries (centuries)';
txttuMillennia = 'Millennia (millenia)';
txttuDateTime = 'DateTime (??)';
txttuJulianDate = 'JulianDate (??)';
txttuModifiedJulianDate = 'Modified JulianData (??)';
txtvuCubicMillimeters = 'cubic millimeters (mm^3)';
txtvuCubicCentimeters = 'cubic centimeters (cm^3)';
txtvuCubicDecimeters = 'cubic decimeters (dm^3)';
txtvuCubicMeters = 'cubic meters (m^3)';
txtvuCubicDecameters = 'cubic decameters (dam^3)';
txtvuCubicHectometers = 'cubic hectometers (hm^3)';
txtvuCubicKilometers = 'cubic kilometers (km^3)';
txtvuCubicInches = 'cubic inches (in^3)';
txtvuCubicFeet = 'cubic feet (ft^3)';
txtvuCubicYards = 'cubic yards (yd^3)';
txtvuCubicMiles = 'cubic miles (mi^3)';
txtvuMilliLiters = 'milliliters (ml)';
txtvuCentiLiters = 'centiliters (cl)';
txtvuDeciLiters = 'deciliters (dl)';
txtvuLiters = 'liters (l)';
txtvuDecaLiters = 'decaliters (dal)';
txtvuHectoLiters = 'hectoliters (hl)';
txtvuKiloLiters = 'kiloliters (kl)';
txtvuAcreFeet = 'acrefeet (acre ft)';
txtvuAcreInches = 'acreinches (acre in)';
txtvuCords = 'cords (??)';
txtvuCordFeet = 'cordfeet (??)';
txtvuDecisteres = 'decisteres (??)';
txtvuSteres = 'steres (??)';
txtvuDecasteres = 'decasteres (??)';
txtvuFluidGallons = 'US fluid gallons (fl gal)';
txtvuFluidQuarts = 'US fluid Quarts (fl Quart)';
txtvuFluidPints = 'US fluid Pints (fl pints)';
txtvuFluidCups = 'US fluid Cups (fl Cups)';
txtvuFluidGills = 'US fluid Gills (fl Quart)';
txtvuFluidOunces = 'US fluid Ounces (fl Ounces)';
txtvuFluidTablespoons = 'US fluid Tablespoons (fl Tablespoons)';
txtvuFluidTeaspoons = 'US fluid teaspoons (fl teaspoon)';
txtvuDryGallons = 'US dry gallons (dr gal)';
txtvuDryQuarts = 'US dry Quarts (dr Quart)';
txtvuDryPints = 'US dry Pints (dr pints)';
txtvuDryPecks = 'US dry pecks (dr pecks)';
txtvuDryBuckets = 'US dry buckets (dr buckets)';
txtvuDryBushels = 'US dry bushels (dr bushels)';
txtvuUKGallons = 'UK gallons (fl gal)';
txtvuUKPottles = 'UK Pottles (fl pttle)';
txtvuUKQuarts = 'UK Quarts (fl Quart)';
txtvuUKPints = 'UK Pints (fl pints)';
txtvuUKGills = 'UK Gills (fl Quart)';
txtvuUKOunces = 'UK Ounces (fl Ounces)';
txtvuUKPecks = 'UK pecks (dr pecks)';
txtvuUKBuckets = 'UK buckets (dr buckets)';
txtvuUKBushels = 'UK bushels (dr bushels)';
Type ResourceData = record
Description : String;
Value : TConvUtilFloat;
Fam : TConvFamily;
end;
var TheUnits : array of ResourceData =nil;
TheFamilies : array of string =nil;
Function RegisterConversionFamily(Const S:String):TConvFamily;
var i,l : Longint;
begin
l:=Length(TheFamilies);
If l=0 Then
begin
SetLength(TheFamilies,1);
TheFamilies[0]:=S;
Result:=0;
end
else
begin
i:=0;
while (i<l) and (s<>TheFamilies[i]) do inc(i);
if i=l Then
begin
SetLength(TheFamilies,l+1);
TheFamilies[l]:=s;
end;
Result:=i;
end;
end;
Function CheckFamily(i:TConvFamily):Boolean;
begin
Result:=i<Length(TheFamilies);
end;
const macheps=1E-9;
Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
var i,l1 : Longint;
begin
If NOT CheckFamily(Fam) Then exit(-1); // family not registered.
if (value+1.0)<macheps then // not properly defined yet.
exit(-1);
l1:=length(theunits);
Setlength(theunits,l1+1);
theunits[l1].description:=s;
theunits[l1].value:=value;
theunits[l1].fam:=fam;
Result:=l1;
end;
function SearchConvert(TheType:TConvType; var r:ResourceData):Boolean;
var i,j,l1,l2 : longint;
begin
l1:=length(TheUnits);
if thetype>=l1 then
exit(false);
r:=theunits[thetype];
result:=true;
end;
function Convert ( const Measurement : Double; const FromType, ToType : TConvType ) :TConvUtilFloat;
var
fromrec,torec : resourcedata;
begin
if not SearchConvert(fromtype,fromrec) then
exit(-1.0); // raise exception?
if not SearchConvert(totype,torec) then
exit(-1.0); // raise except?
if fromrec.fam<>torec.fam then
exit(-1.0);
result:=Measurement*fromrec.value/torec.value;
end;
function Convert ( const Measurement : Double; const FromType1, FromType2, ToType1, ToType2 : TConvType ) :TConvUtilFloat;
var
fromrec1,fromrec2,torec1 ,
torec2 : resourcedata;
begin
if not SearchConvert(fromtype1,fromrec1) then
exit(-1.0); // raise exception?
if not SearchConvert(totype1,torec1) then
exit(-1.0); // raise except?
if not SearchConvert(fromtype2,fromrec2) then
exit(-1.0); // raise exception?
if not SearchConvert(totype2,torec2) then
exit(-1.0); // raise except?
if (fromrec1.fam<>torec1.fam) or (fromrec1.fam<>torec1.fam) then
exit(-1.0);
result:=Measurement*(fromrec1.value/fromrec2.value)/(torec1.value/torec2.value);
end;
// initial FFU factors from a HP48g calculator and BSD units program. However after
// a while, the bushels/forthnight got boring, so please check.
// undefined/uncertain factors get -1, and convert() functions
// should check that and bomb on it.
procedure RegisterArea;
begin
auSquareMillimeters := RegisterConversionType(cbArea,txtauSquareMillimeters,1E-6);
auSquareCentimeters := RegisterConversionType(cbArea,txtauSquareCentimeters,1E-4);
auSquareDecimeters := RegisterConversionType(cbArea,txtauSquareDecimeters,1E-2);
auSquareMeters := RegisterConversionType(cbArea,txtauSquareMeters,1);
auSquareDecameters := RegisterConversionType(cbArea,txtauSquareDecameters,1E2);
auSquareHectometers := RegisterConversionType(cbArea,txtauSquareHectometers,1E4);
auSquareKilometers := RegisterConversionType(cbArea,txtauSquareKilometers,1E6);
auSquareInches := RegisterConversionType(cbArea,txtauSquareInches,0.00064516);
auSquareFeet := RegisterConversionType(cbArea,txtauSquareFeet,0.092903040);
auSquareYards := RegisterConversionType(cbArea,txtauSquareYards,0.83612736);
auSquareMiles := RegisterConversionType(cbArea,txtauSquareMiles,2589988.11034);
auAcres := RegisterConversionType(cbArea,txtauAcres,4046.87260987);
auCentares := RegisterConversionType(cbArea,txtauCentares,-1);
auAres := RegisterConversionType(cbArea,txtauAres,100);
auHectares := RegisterConversionType(cbArea,txtauHectares,10000);
auSquareRods := RegisterConversionType(cbArea,txtauSquareRods,25.2929538117);
end;
procedure RegisterLengths;
begin
duMicromicrons := RegisterConversionType(cbDistance,txtduMicromicrons,1E-12);
duAngstroms := RegisterConversionType(cbDistance,txtduAngstroms,1E-10);
duMillimicrons := RegisterConversionType(cbDistance,txtduMillimicrons,1E-9);
duMicrons := RegisterConversionType(cbDistance,txtduMicrons,1E-6);
duMillimeters := RegisterConversionType(cbDistance,txtduMillimeters,1E-3);
duCentimeters := RegisterConversionType(cbDistance,txtduCentimeters,1E-2);
duDecimeters := RegisterConversionType(cbDistance,txtduDecimeters,1E-1);
duMeters := RegisterConversionType(cbDistance,txtduMeters,1);
duDecameters := RegisterConversionType(cbDistance,txtduDecameters,10);
duHectometers := RegisterConversionType(cbDistance,txtduHectometers,100);
duKilometers := RegisterConversionType(cbDistance,txtduKilometers,1000);
duMegameters := RegisterConversionType(cbDistance,txtduMegameters,1E6);
duGigameters := RegisterConversionType(cbDistance,txtduGigameters,1E9);
duInches := RegisterConversionType(cbDistance,txtduInches,0.0254);
duFeet := RegisterConversionType(cbDistance,txtduFeet,0.3048);
duYards := RegisterConversionType(cbDistance,txtduYards,0.9144);
duMiles := RegisterConversionType(cbDistance,txtduMiles,1609.344);
duNauticalMiles := RegisterConversionType(cbDistance,txtduNauticalMiles,1852);
duAstronomicalUnits := RegisterConversionType(cbDistance,txtduAstronomicalUnits,149597900000.0);
duLightYears := RegisterConversionType(cbDistance,txtduLightYears,9.46052840488E15);
duParsecs := RegisterConversionType(cbDistance,txtduParsecs, 3.08567818585E16);
duCubits := RegisterConversionType(cbDistance,txtduCubits,0.4572);
duFathoms := RegisterConversionType(cbDistance,txtduFathoms,1.8288);
duFurlongs := RegisterConversionType(cbDistance,txtduFurlongs,201.168);
duHands := RegisterConversionType(cbDistance,txtduHands,0.1016);
duPaces := RegisterConversionType(cbDistance,txtduPaces,0.9144);
duRods := RegisterConversionType(cbDistance,txtduRods,5.0292);
duChains := RegisterConversionType(cbDistance,txtduChains,20.1168);
duLinks := RegisterConversionType(cbDistance,txtduLinks,0.201168);
duPicas := RegisterConversionType(cbDistance,txtduPicas,0.0042333333);
duPoints := RegisterConversionType(cbDistance,txtduPoints,0.00035277778);
end;
procedure Registermass; // weight? :)
begin
muNanograms := RegisterConversionType(cbMass,txtmuNanograms,1E-12);
muMicrograms := RegisterConversionType(cbMass,txtmuMicrograms,1E-9);
muMilligrams := RegisterConversionType(cbMass,txtmuMilligrams,1E-6);
muCentigrams := RegisterConversionType(cbMass,txtmuCentigrams,1E-5);
muDecigrams := RegisterConversionType(cbMass,txtmuDecigrams,1E-4);
muGrams := RegisterConversionType(cbMass,txtmuGrams,1E-3);
muDecagrams := RegisterConversionType(cbMass,txtmuDecagrams,1E-2);
muHectograms := RegisterConversionType(cbMass,txtmuHectograms,1E-1);
muKilograms := RegisterConversionType(cbMass,txtmuKilograms,1);
muMetricTons := RegisterConversionType(cbMass,txtmuMetricTons,1000);
muDrams := RegisterConversionType(cbMass,txtmuDrams,0.0017718452);
muGrains := RegisterConversionType(cbMass,txtmuGrains,6.479891E-5);
muLongTons := RegisterConversionType(cbMass,txtmuLongTons,1016.0469);
muTons := RegisterConversionType(cbMass,txtmuTons,907.18474);
muOunces := RegisterConversionType(cbMass,txtmuOunces,0.028349523);
muPounds := RegisterConversionType(cbMass,txtmuPounds,0.45359237);
muStones := RegisterConversionType(cbMass,txtmuStones,6.3502932);
end;
procedure RegisterTemperature;
begin
tuCelsius := RegisterConversionType(cbTemperature,txttuCelsius,1);
tuKelvin := RegisterConversionType(cbTemperature,txttuKelvin,1);
tuFahrenheit := RegisterConversionType(cbTemperature,txttuFahrenheit,5/9);
tuRankine := RegisterConversionType(cbTemperature,txttuRankine,0.5555556);
tuReamur := RegisterConversionType(cbTemperature,txttuReamur,10/8); // Reaumur?
end;
Const Yearsec=365.24219879*24*3600.0; // year in seconds;
procedure RegisterTimes;
begin
tuMilliSeconds := RegisterConversionType(cbTime,txttuMilliSeconds,1E-3);
tuSeconds := RegisterConversionType(cbTime,txttuSeconds,1);
tuMinutes := RegisterConversionType(cbTime,txttuMinutes,60.0);
tuHours := RegisterConversionType(cbTime,txttuHours,3600.0);
tuDays := RegisterConversionType(cbTime,txttuDays,24*3600.0);
tuWeeks := RegisterConversionType(cbTime,txttuWeeks,7*24*3600.0);
tuFortnights := RegisterConversionType(cbTime,txttuFortnights,14*24*3600.0);
tuMonths := RegisterConversionType(cbTime,txttuMonths,1/12*YearSec);
tuYears := RegisterConversionType(cbTime,txttuYears,YearSec);
tuDecades := RegisterConversionType(cbTime,txttuDecades,10*YearSec);
tuCenturies := RegisterConversionType(cbTime,txttuCenturies,100*yearsec);
tuMillennia := RegisterConversionType(cbTime,txttuMillennia,1000*yearsec);
tuDateTime := RegisterConversionType(cbTime,txttuDateTime,-1);
tuJulianDate := RegisterConversionType(cbTime,txttuJulianDate,-1);
tuModifiedJulianDate := RegisterConversionType(cbTime,txttuModifiedJulianDate,-1);
end;
const flgal=0.0037854118;
procedure RegisterVolumes;
begin
vuCubicMillimeters := RegisterConversionType(cbVolume,txtvuCubicMillimeters,1E-9);
vuCubicCentimeters := RegisterConversionType(cbVolume,txtvuCubicCentimeters,1E-6);
vuCubicDecimeters := RegisterConversionType(cbVolume,txtvuCubicDecimeters,1E-3);
vuCubicMeters := RegisterConversionType(cbVolume,txtvuCubicMeters,1);
vuCubicDecameters := RegisterConversionType(cbVolume,txtvuCubicDecameters,1E3);
vuCubicHectometers := RegisterConversionType(cbVolume,txtvuCubicHectometers,1E6);
vuCubicKilometers := RegisterConversionType(cbVolume,txtvuCubicKilometers,1E9);
vuCubicInches := RegisterConversionType(cbVolume,txtvuCubicInches,1.6387064E-5);
vuCubicFeet := RegisterConversionType(cbVolume,txtvuCubicFeet,0.028316847);
vuCubicYards := RegisterConversionType(cbVolume,txtvuCubicYards,0.76455486);
vuCubicMiles := RegisterConversionType(cbVolume,txtvuCubicMiles,4.1681818E9);
vuMilliLiters := RegisterConversionType(cbVolume,txtvuMilliLiters,1E-6);
vuCentiLiters := RegisterConversionType(cbVolume,txtvuCentiLiters,1E-5);
vuDeciLiters := RegisterConversionType(cbVolume,txtvuDeciLiters,1E-4);
vuLiters := RegisterConversionType(cbVolume,txtvuLiters,1E-3);
vuDecaLiters := RegisterConversionType(cbVolume,txtvuDecaLiters,1E-2);
vuHectoLiters := RegisterConversionType(cbVolume,txtvuHectoLiters,1E-1);
vuKiloLiters := RegisterConversionType(cbVolume,txtvuKiloLiters,1);
vuAcreFeet := RegisterConversionType(cbVolume,txtvuAcreFeet, -1);
vuAcreInches := RegisterConversionType(cbVolume,txtvuAcreInches, -1);
vuCords := RegisterConversionType(cbVolume,txtvuCords,128*0.028316847);
vuCordFeet := RegisterConversionType(cbVolume,txtvuCordFeet,128*0.028316847);
vuDecisteres := RegisterConversionType(cbVolume,txtvuDecisteres,0.1);
vuSteres := RegisterConversionType(cbVolume,txtvuSteres,1);
vuDecasteres := RegisterConversionType(cbVolume,txtvuDecasteres,10);
vuFluidGallons := RegisterConversionType(cbVolume,txtvuFluidGallons,flgal);
vuFluidQuarts := RegisterConversionType(cbVolume,txtvuFluidQuarts,0.25*flgal);
vuFluidPints := RegisterConversionType(cbVolume,txtvuFluidPints,0.5*0.25*flgal);
vuFluidCups := RegisterConversionType(cbVolume,txtvuFluidCups, -1);
vuFluidGills := RegisterConversionType(cbVolume,txtvuFluidGills,-1);
vuFluidOunces := RegisterConversionType(cbVolume,txtvuFluidOunces,1/16*0.5*0.25*flgal);
vuFluidTablespoons := RegisterConversionType(cbVolume,txtvuFluidTablespoons,-1);
vuFluidTeaspoons := RegisterConversionType(cbVolume,txtvuFluidTeaspoons,-1);
vuDryGallons := RegisterConversionType(cbVolume,txtvuDryGallons,-1);
vuDryQuarts := RegisterConversionType(cbVolume,txtvuDryQuarts,-1);
vuDryPints := RegisterConversionType(cbVolume,txtvuDryPints,-1);
vuDryPecks := RegisterConversionType(cbVolume,txtvuDryPecks, 0.0088097675);
vuDryBuckets := RegisterConversionType(cbVolume,txtvuDryBuckets,-1);
vuDryBushels := RegisterConversionType(cbVolume,txtvuDryBushels,0.03523907);
vuUKGallons := RegisterConversionType(cbVolume,txtvuUKGallons,0.0045460993);
vuUKPottles := RegisterConversionType(cbVolume,txtvuUKPottles,-1);
vuUKQuarts := RegisterConversionType(cbVolume,txtvuUKQuarts,0.0011365248);
vuUKPints := RegisterConversionType(cbVolume,txtvuUKPints,-1);
vuUKGills := RegisterConversionType(cbVolume,txtvuUKGills,-1);
vuUKOunces := RegisterConversionType(cbVolume,txtvuUKOunces,2.8413121E-5);
vuUKPecks := RegisterConversionType(cbVolume,txtvuUKPecks,0.0090921986);
vuUKBuckets := RegisterConversionType(cbVolume,txtvuUKBuckets,-1);
vuUKBushels := RegisterConversionType(cbVolume,txtvuUKBushels,0.036368794);
end;
Procedure RegisterFamilies;
Begin
cbArea := RegisterConversionFamily('Area');
cbDistance := RegisterConversionFamily('Distance');
cbMass := RegisterConversionFamily('Mass');
cbTemperature := RegisterConversionFamily('Temperature');
cbTime := RegisterConversionFamily('Time');
cbVolume := RegisterConversionFamily('Volume');
End;
Procedure RegisterAll;
begin
RegisterFamilies;
RegisterVolumes;
RegisterTimes;
RegisterTemperature;
Registermass;
RegisterLengths;
RegisterArea;
end;
initialization
registerall;
finalization
setlength(theunits,0);
setlength(thefamilies,0);
{$endif VER1_0}
end.
{
$Log$
Revision 1.1 2004-07-18 21:41:34 hajny
+ support 8.3
Revision 1.2 2004/04/27 17:29:04 florian
* compilation with 1.0.10 fixed
Revision 1.1 2004/03/20 23:41:34 marco
* Initial version
}

1
rtl/objpas/convutil.pp Normal file
View File

@ -0,0 +1 @@
{$I convutil.inc}

662
rtl/objpas/convutils.pp
View File

@ -1,661 +1 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Marco van de Voort
member of the Free Pascal development team.
An implementation for unit convutils, which converts between
units and simple combinations of them.
Based on a guessed interface derived from some programs on the web. (Like
Marco Cantu's EuroConv example), so things can be a bit Delphi
incompatible. Also part on Delphibasics.co.uk.
Quantities are mostly taken from my HP48g/gx or the unix units program
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY;without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit convutils;
interface
{$ifndef VER1_0}
{$mode objfpc}
{$H+}
Type TConvType = type Integer;
TConvFamily = type Integer;
var
{cbArea family}
auSquareMillimeters,
auSquareCentimeters,
auSquareDecimeters,
auSquareMeters,
auSquareDecameters,
auSquareHectometers,
auSquareKilometers,
auSquareInches,
auSquareFeet ,
auSquareYards ,
auSquareMiles,
auAcres ,
auCentares ,
auAres ,
auHectares ,
auSquareRods ,
{cbDistance family}
duMicromicrons,
duAngstroms ,
duMillimicrons,
duMicrons,
duMillimeters,
duCentimeters,
duDecimeters,
duMeters,
duDecameters,
duHectometers,
duKilometers,
duMegameters,
duGigameters,
duInches,
duFeet,
duYards,
duMiles ,
duNauticalMiles,
duAstronomicalUnits,
duLightYears,
duParsecs,
duCubits,
duFathoms,
duFurlongs,
duHands,
duPaces,
duRods,
duChains,
duLinks,
duPicas,
duPoints,
{cbMass family}
muNanograms,
muMicrograms,
muMilligrams,
muCentigrams,
muDecigrams,
muGrams,
muDecagrams,
muHectograms,
muKilograms,
muMetricTons,
muDrams,
muGrains,
muLongTons,
muTons,
muOunces,
muPounds,
muStones,
{cbTemperature family}
tuCelsius,
tuKelvin,
tuFahrenheit,
tuRankine,
tuReamur,
{
cbTime family
}
tuMilliSeconds,
tuSeconds,
tuMinutes,
tuHours,
tuDays,
tuWeeks,
tuFortnights,
tuMonths,
tuYears,
tuDecades,
tuCenturies,
tuMillennia,
tuDateTime,
tuJulianDate,
tuModifiedJulianDate,
{
cbVolume family
}
vuCubicMillimeters,
vuCubicCentimeters,
vuCubicDecimeters,
vuCubicMeters,
vuCubicDecameters,
vuCubicHectometers,
vuCubicKilometers,
vuCubicInches,
vuCubicFeet,
vuCubicYards,
vuCubicMiles,
vuMilliLiters,
vuCentiLiters,
vuDeciLiters,
vuLiters,
vuDecaLiters,
vuHectoLiters,
vuKiloLiters,
vuAcreFeet,
vuAcreInches,
vuCords,
vuCordFeet,
vuDecisteres,
vuSteres,
vuDecasteres,
vuFluidGallons,
vuFluidQuarts,
vuFluidPints,
vuFluidCups,
vuFluidGills,
vuFluidOunces,
vuFluidTablespoons,
vuFluidTeaspoons,
vuDryGallons,
vuDryQuarts,
vuDryPints,
vuDryPecks,
vuDryBuckets,
vuDryBushels,
vuUKGallons,
vuUKPottles,
vuUKQuarts,
vuUKPints,
vuUKGills,
vuUKOunces,
vuUKPecks,
vuUKBuckets,
vuUKBushels : TConvType;
var
cbArea : TConvFamily;
cbDistance : TConvFamily;
cbMass : TConvFamily;
cbTemperature : TConvFamily;
cbTime : TConvFamily;
cbVolume : TConvFamily;
Type TConvUtilFloat = double;
Function RegisterConversionFamily(Const S : String):TConvFamily;
Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
function Convert ( const Measurement : Double; const FromType, ToType : TConvType ) :TConvUtilFloat;
function Convert ( const Measurement : Double; const FromType1, FromType2, ToType1, ToType2 : TConvType ) :TConvUtilFloat;
{$endif VER1_0}
Implementation
{$ifndef VER1_0}
ResourceString // Note, designations for FFU's are guesses.
txtauSquareMillimeters = 'Square millimeters (mm^2)';
txtauSquareCentimeters = 'Square centimeters (cm^2)';
txtauSquareDecimeters = 'Square decimeters (dm^2)';
txtauSquareMeters = 'Square meters (m^2)';
txtauSquareDecameters = 'Square decameters (dam^2)';
txtauSquareHectometers = 'Square hectometers (hm^2)';
txtauSquareKilometers = 'Square kilometers (km^2)';
txtauSquareInches = 'Square inch (in^2)';
txtauSquareFeet = 'Square feet (ft^2)';
txtauSquareYards = 'Square yards (yd^2)';
txtauSquareMiles = 'Square miles (mi^2)';
txtauAcres = 'Square acres (acre^2)';
txtauCentares = 'Centares (care^2)';
txtauAres = 'Ares (are=dam^2)';
txtauHectares = 'Hectares (ha=hm^2)';
txtauSquareRods = 'Square Rods (sqr)';
txtduMicromicrons = 'micro microms (mumum)';
txtduAngstroms = 'Aengstroem (ang)';
txtduMillimicrons = 'millimicroms (mmum)';
txtduMicrons = 'microns (um)';
txtduMillimeters = 'millimeters (mm)';
txtduCentimeters = 'centimeters (cm)';
txtduDecimeters = 'decimeters (dm)';
txtduMeters = 'meters (m)';
txtduDecameters = 'decameters (dam)';
txtduHectometers = 'hectometers (hm)';
txtduKilometers = 'kilometers (km)';
txtduMegameters = 'megameters (Mm)';
txtduGigameters = 'gigameters (Gm)';
txtduInches = 'inches (in)';
txtduFeet = 'feet (ft)';
txtduYards = 'yards (yd)';
txtduMiles = 'miles (mi)';
txtduNauticalMiles = 'nautical miles (nmi)';
txtduAstronomicalUnits = 'astronomical units (au)';
txtduLightYears = 'light years (ly)';
txtduParsecs = 'Parsec (Ps)';
txtduCubits = 'Cubits (cb)';
txtduFathoms = 'Fathom (Fth)';
txtduFurlongs = 'Furlongs (furl)';
txtduHands = 'Hands (hnd)';
txtduPaces = 'Paces (pc)';
txtduRods = 'Rods (rd)';
txtduChains = 'Chains (ch)';
txtduLinks = 'Links (lnk)';
txtduPicas = 'Pica''s (pc)';
txtduPoints = 'Points (pnts)'; // carat/Karaat 2E-6 gram ?
txtmuNanograms = 'nanograms (ng)';
txtmuMicrograms = 'micrograms (um)';
txtmuMilligrams = 'milligrams (mg)';
txtmuCentigrams = 'centigrams (cg)';
txtmuDecigrams = 'decigrams (dg)';
txtmuGrams = 'grams (g)';
txtmuDecagrams = 'decagrams (dag)';
txtmuHectograms = 'hectograms (hg)';
txtmuKilograms = 'kilograms (kg)';
txtmuMetricTons = 'metric ton (t)';
txtmuDrams = 'dramgs (??)';
txtmuGrains = 'grains (??)';
txtmuLongTons = 'longton (??)';
txtmuTons = 'imperial ton (??)'; // calling metric ton "ton" is normal in metric countries
txtmuOunces = 'ounce (??)';
txtmuPounds = 'pounds (??)'; // what kind? Metric pound =0.5
txtmuStones = 'stones (??)';
txttuCelsius = 'degrees Celsius (degC)';
txttuKelvin = 'degrees Kelvin (K)';
txttuFahrenheit = 'degrees Fahrenheit (degF)';
txttuRankine = 'degrees Rankine (degR)';
txttuReamur = 'degrees Reamur (degReam)';
txttuMilliSeconds = 'milli seconds (ms)';
txttuSeconds = 'seconds (s)';
txttuMinutes = 'minutes (min)';
txttuHours = 'hours (hr)';
txttuDays = 'days (days)';
txttuWeeks = 'weeks (weeks)';
txttuFortnights = 'Fortnights (??)';
txttuMonths = 'Months (months)';
txttuYears = 'Years (years)';
txttuDecades = 'Decades (decades)';
txttuCenturies = 'Centuries (centuries)';
txttuMillennia = 'Millennia (millenia)';
txttuDateTime = 'DateTime (??)';
txttuJulianDate = 'JulianDate (??)';
txttuModifiedJulianDate = 'Modified JulianData (??)';
txtvuCubicMillimeters = 'cubic millimeters (mm^3)';
txtvuCubicCentimeters = 'cubic centimeters (cm^3)';
txtvuCubicDecimeters = 'cubic decimeters (dm^3)';
txtvuCubicMeters = 'cubic meters (m^3)';
txtvuCubicDecameters = 'cubic decameters (dam^3)';
txtvuCubicHectometers = 'cubic hectometers (hm^3)';
txtvuCubicKilometers = 'cubic kilometers (km^3)';
txtvuCubicInches = 'cubic inches (in^3)';
txtvuCubicFeet = 'cubic feet (ft^3)';
txtvuCubicYards = 'cubic yards (yd^3)';
txtvuCubicMiles = 'cubic miles (mi^3)';
txtvuMilliLiters = 'milliliters (ml)';
txtvuCentiLiters = 'centiliters (cl)';
txtvuDeciLiters = 'deciliters (dl)';
txtvuLiters = 'liters (l)';
txtvuDecaLiters = 'decaliters (dal)';
txtvuHectoLiters = 'hectoliters (hl)';
txtvuKiloLiters = 'kiloliters (kl)';
txtvuAcreFeet = 'acrefeet (acre ft)';
txtvuAcreInches = 'acreinches (acre in)';
txtvuCords = 'cords (??)';
txtvuCordFeet = 'cordfeet (??)';
txtvuDecisteres = 'decisteres (??)';
txtvuSteres = 'steres (??)';
txtvuDecasteres = 'decasteres (??)';
txtvuFluidGallons = 'US fluid gallons (fl gal)';
txtvuFluidQuarts = 'US fluid Quarts (fl Quart)';
txtvuFluidPints = 'US fluid Pints (fl pints)';
txtvuFluidCups = 'US fluid Cups (fl Cups)';
txtvuFluidGills = 'US fluid Gills (fl Quart)';
txtvuFluidOunces = 'US fluid Ounces (fl Ounces)';
txtvuFluidTablespoons = 'US fluid Tablespoons (fl Tablespoons)';
txtvuFluidTeaspoons = 'US fluid teaspoons (fl teaspoon)';
txtvuDryGallons = 'US dry gallons (dr gal)';
txtvuDryQuarts = 'US dry Quarts (dr Quart)';
txtvuDryPints = 'US dry Pints (dr pints)';
txtvuDryPecks = 'US dry pecks (dr pecks)';
txtvuDryBuckets = 'US dry buckets (dr buckets)';
txtvuDryBushels = 'US dry bushels (dr bushels)';
txtvuUKGallons = 'UK gallons (fl gal)';
txtvuUKPottles = 'UK Pottles (fl pttle)';
txtvuUKQuarts = 'UK Quarts (fl Quart)';
txtvuUKPints = 'UK Pints (fl pints)';
txtvuUKGills = 'UK Gills (fl Quart)';
txtvuUKOunces = 'UK Ounces (fl Ounces)';
txtvuUKPecks = 'UK pecks (dr pecks)';
txtvuUKBuckets = 'UK buckets (dr buckets)';
txtvuUKBushels = 'UK bushels (dr bushels)';
Type ResourceData = record
Description : String;
Value : TConvUtilFloat;
Fam : TConvFamily;
end;
var TheUnits : array of ResourceData =nil;
TheFamilies : array of string =nil;
Function RegisterConversionFamily(Const S:String):TConvFamily;
var i,l : Longint;
begin
l:=Length(TheFamilies);
If l=0 Then
begin
SetLength(TheFamilies,1);
TheFamilies[0]:=S;
Result:=0;
end
else
begin
i:=0;
while (i<l) and (s<>TheFamilies[i]) do inc(i);
if i=l Then
begin
SetLength(TheFamilies,l+1);
TheFamilies[l]:=s;
end;
Result:=i;
end;
end;
Function CheckFamily(i:TConvFamily):Boolean;
begin
Result:=i<Length(TheFamilies);
end;
const macheps=1E-9;
Function RegisterConversionType(Fam:TConvFamily;Const S:String;Value:TConvUtilFloat):TConvType;
var i,l1 : Longint;
begin
If NOT CheckFamily(Fam) Then exit(-1); // family not registered.
if (value+1.0)<macheps then // not properly defined yet.
exit(-1);
l1:=length(theunits);
Setlength(theunits,l1+1);
theunits[l1].description:=s;
theunits[l1].value:=value;
theunits[l1].fam:=fam;
Result:=l1;
end;
function SearchConvert(TheType:TConvType; var r:ResourceData):Boolean;
var i,j,l1,l2 : longint;
begin
l1:=length(TheUnits);
if thetype>=l1 then
exit(false);
r:=theunits[thetype];
result:=true;
end;
function Convert ( const Measurement : Double; const FromType, ToType : TConvType ) :TConvUtilFloat;
var
fromrec,torec : resourcedata;
begin
if not SearchConvert(fromtype,fromrec) then
exit(-1.0); // raise exception?
if not SearchConvert(totype,torec) then
exit(-1.0); // raise except?
if fromrec.fam<>torec.fam then
exit(-1.0);
result:=Measurement*fromrec.value/torec.value;
end;
function Convert ( const Measurement : Double; const FromType1, FromType2, ToType1, ToType2 : TConvType ) :TConvUtilFloat;
var
fromrec1,fromrec2,torec1 ,
torec2 : resourcedata;
begin
if not SearchConvert(fromtype1,fromrec1) then
exit(-1.0); // raise exception?
if not SearchConvert(totype1,torec1) then
exit(-1.0); // raise except?
if not SearchConvert(fromtype2,fromrec2) then
exit(-1.0); // raise exception?
if not SearchConvert(totype2,torec2) then
exit(-1.0); // raise except?
if (fromrec1.fam<>torec1.fam) or (fromrec1.fam<>torec1.fam) then
exit(-1.0);
result:=Measurement*(fromrec1.value/fromrec2.value)/(torec1.value/torec2.value);
end;
// initial FFU factors from a HP48g calculator and BSD units program. However after
// a while, the bushels/forthnight got boring, so please check.
// undefined/uncertain factors get -1, and convert() functions
// should check that and bomb on it.
procedure RegisterArea;
begin
auSquareMillimeters := RegisterConversionType(cbArea,txtauSquareMillimeters,1E-6);
auSquareCentimeters := RegisterConversionType(cbArea,txtauSquareCentimeters,1E-4);
auSquareDecimeters := RegisterConversionType(cbArea,txtauSquareDecimeters,1E-2);
auSquareMeters := RegisterConversionType(cbArea,txtauSquareMeters,1);
auSquareDecameters := RegisterConversionType(cbArea,txtauSquareDecameters,1E2);
auSquareHectometers := RegisterConversionType(cbArea,txtauSquareHectometers,1E4);
auSquareKilometers := RegisterConversionType(cbArea,txtauSquareKilometers,1E6);
auSquareInches := RegisterConversionType(cbArea,txtauSquareInches,0.00064516);
auSquareFeet := RegisterConversionType(cbArea,txtauSquareFeet,0.092903040);
auSquareYards := RegisterConversionType(cbArea,txtauSquareYards,0.83612736);
auSquareMiles := RegisterConversionType(cbArea,txtauSquareMiles,2589988.11034);
auAcres := RegisterConversionType(cbArea,txtauAcres,4046.87260987);
auCentares := RegisterConversionType(cbArea,txtauCentares,-1);
auAres := RegisterConversionType(cbArea,txtauAres,100);
auHectares := RegisterConversionType(cbArea,txtauHectares,10000);
auSquareRods := RegisterConversionType(cbArea,txtauSquareRods,25.2929538117);
end;
procedure RegisterLengths;
begin
duMicromicrons := RegisterConversionType(cbDistance,txtduMicromicrons,1E-12);
duAngstroms := RegisterConversionType(cbDistance,txtduAngstroms,1E-10);
duMillimicrons := RegisterConversionType(cbDistance,txtduMillimicrons,1E-9);
duMicrons := RegisterConversionType(cbDistance,txtduMicrons,1E-6);
duMillimeters := RegisterConversionType(cbDistance,txtduMillimeters,1E-3);
duCentimeters := RegisterConversionType(cbDistance,txtduCentimeters,1E-2);
duDecimeters := RegisterConversionType(cbDistance,txtduDecimeters,1E-1);
duMeters := RegisterConversionType(cbDistance,txtduMeters,1);
duDecameters := RegisterConversionType(cbDistance,txtduDecameters,10);
duHectometers := RegisterConversionType(cbDistance,txtduHectometers,100);
duKilometers := RegisterConversionType(cbDistance,txtduKilometers,1000);
duMegameters := RegisterConversionType(cbDistance,txtduMegameters,1E6);
duGigameters := RegisterConversionType(cbDistance,txtduGigameters,1E9);
duInches := RegisterConversionType(cbDistance,txtduInches,0.0254);
duFeet := RegisterConversionType(cbDistance,txtduFeet,0.3048);
duYards := RegisterConversionType(cbDistance,txtduYards,0.9144);
duMiles := RegisterConversionType(cbDistance,txtduMiles,1609.344);
duNauticalMiles := RegisterConversionType(cbDistance,txtduNauticalMiles,1852);
duAstronomicalUnits := RegisterConversionType(cbDistance,txtduAstronomicalUnits,149597900000.0);
duLightYears := RegisterConversionType(cbDistance,txtduLightYears,9.46052840488E15);
duParsecs := RegisterConversionType(cbDistance,txtduParsecs, 3.08567818585E16);
duCubits := RegisterConversionType(cbDistance,txtduCubits,0.4572);
duFathoms := RegisterConversionType(cbDistance,txtduFathoms,1.8288);
duFurlongs := RegisterConversionType(cbDistance,txtduFurlongs,201.168);
duHands := RegisterConversionType(cbDistance,txtduHands,0.1016);
duPaces := RegisterConversionType(cbDistance,txtduPaces,0.9144);
duRods := RegisterConversionType(cbDistance,txtduRods,5.0292);
duChains := RegisterConversionType(cbDistance,txtduChains,20.1168);
duLinks := RegisterConversionType(cbDistance,txtduLinks,0.201168);
duPicas := RegisterConversionType(cbDistance,txtduPicas,0.0042333333);
duPoints := RegisterConversionType(cbDistance,txtduPoints,0.00035277778);
end;
procedure Registermass; // weight? :)
begin
muNanograms := RegisterConversionType(cbMass,txtmuNanograms,1E-12);
muMicrograms := RegisterConversionType(cbMass,txtmuMicrograms,1E-9);
muMilligrams := RegisterConversionType(cbMass,txtmuMilligrams,1E-6);
muCentigrams := RegisterConversionType(cbMass,txtmuCentigrams,1E-5);
muDecigrams := RegisterConversionType(cbMass,txtmuDecigrams,1E-4);
muGrams := RegisterConversionType(cbMass,txtmuGrams,1E-3);
muDecagrams := RegisterConversionType(cbMass,txtmuDecagrams,1E-2);
muHectograms := RegisterConversionType(cbMass,txtmuHectograms,1E-1);
muKilograms := RegisterConversionType(cbMass,txtmuKilograms,1);
muMetricTons := RegisterConversionType(cbMass,txtmuMetricTons,1000);
muDrams := RegisterConversionType(cbMass,txtmuDrams,0.0017718452);
muGrains := RegisterConversionType(cbMass,txtmuGrains,6.479891E-5);
muLongTons := RegisterConversionType(cbMass,txtmuLongTons,1016.0469);
muTons := RegisterConversionType(cbMass,txtmuTons,907.18474);
muOunces := RegisterConversionType(cbMass,txtmuOunces,0.028349523);
muPounds := RegisterConversionType(cbMass,txtmuPounds,0.45359237);
muStones := RegisterConversionType(cbMass,txtmuStones,6.3502932);
end;
procedure RegisterTemperature;
begin
tuCelsius := RegisterConversionType(cbTemperature,txttuCelsius,1);
tuKelvin := RegisterConversionType(cbTemperature,txttuKelvin,1);
tuFahrenheit := RegisterConversionType(cbTemperature,txttuFahrenheit,5/9);
tuRankine := RegisterConversionType(cbTemperature,txttuRankine,0.5555556);
tuReamur := RegisterConversionType(cbTemperature,txttuReamur,10/8); // Reaumur?
end;
Const Yearsec=365.24219879*24*3600.0; // year in seconds;
procedure RegisterTimes;
begin
tuMilliSeconds := RegisterConversionType(cbTime,txttuMilliSeconds,1E-3);
tuSeconds := RegisterConversionType(cbTime,txttuSeconds,1);
tuMinutes := RegisterConversionType(cbTime,txttuMinutes,60.0);
tuHours := RegisterConversionType(cbTime,txttuHours,3600.0);
tuDays := RegisterConversionType(cbTime,txttuDays,24*3600.0);
tuWeeks := RegisterConversionType(cbTime,txttuWeeks,7*24*3600.0);
tuFortnights := RegisterConversionType(cbTime,txttuFortnights,14*24*3600.0);
tuMonths := RegisterConversionType(cbTime,txttuMonths,1/12*YearSec);
tuYears := RegisterConversionType(cbTime,txttuYears,YearSec);
tuDecades := RegisterConversionType(cbTime,txttuDecades,10*YearSec);
tuCenturies := RegisterConversionType(cbTime,txttuCenturies,100*yearsec);
tuMillennia := RegisterConversionType(cbTime,txttuMillennia,1000*yearsec);
tuDateTime := RegisterConversionType(cbTime,txttuDateTime,-1);
tuJulianDate := RegisterConversionType(cbTime,txttuJulianDate,-1);
tuModifiedJulianDate := RegisterConversionType(cbTime,txttuModifiedJulianDate,-1);
end;
const flgal=0.0037854118;
procedure RegisterVolumes;
begin
vuCubicMillimeters := RegisterConversionType(cbVolume,txtvuCubicMillimeters,1E-9);
vuCubicCentimeters := RegisterConversionType(cbVolume,txtvuCubicCentimeters,1E-6);
vuCubicDecimeters := RegisterConversionType(cbVolume,txtvuCubicDecimeters,1E-3);
vuCubicMeters := RegisterConversionType(cbVolume,txtvuCubicMeters,1);
vuCubicDecameters := RegisterConversionType(cbVolume,txtvuCubicDecameters,1E3);
vuCubicHectometers := RegisterConversionType(cbVolume,txtvuCubicHectometers,1E6);
vuCubicKilometers := RegisterConversionType(cbVolume,txtvuCubicKilometers,1E9);
vuCubicInches := RegisterConversionType(cbVolume,txtvuCubicInches,1.6387064E-5);
vuCubicFeet := RegisterConversionType(cbVolume,txtvuCubicFeet,0.028316847);
vuCubicYards := RegisterConversionType(cbVolume,txtvuCubicYards,0.76455486);
vuCubicMiles := RegisterConversionType(cbVolume,txtvuCubicMiles,4.1681818E9);
vuMilliLiters := RegisterConversionType(cbVolume,txtvuMilliLiters,1E-6);
vuCentiLiters := RegisterConversionType(cbVolume,txtvuCentiLiters,1E-5);
vuDeciLiters := RegisterConversionType(cbVolume,txtvuDeciLiters,1E-4);
vuLiters := RegisterConversionType(cbVolume,txtvuLiters,1E-3);
vuDecaLiters := RegisterConversionType(cbVolume,txtvuDecaLiters,1E-2);
vuHectoLiters := RegisterConversionType(cbVolume,txtvuHectoLiters,1E-1);
vuKiloLiters := RegisterConversionType(cbVolume,txtvuKiloLiters,1);
vuAcreFeet := RegisterConversionType(cbVolume,txtvuAcreFeet, -1);
vuAcreInches := RegisterConversionType(cbVolume,txtvuAcreInches, -1);
vuCords := RegisterConversionType(cbVolume,txtvuCords,128*0.028316847);
vuCordFeet := RegisterConversionType(cbVolume,txtvuCordFeet,128*0.028316847);
vuDecisteres := RegisterConversionType(cbVolume,txtvuDecisteres,0.1);
vuSteres := RegisterConversionType(cbVolume,txtvuSteres,1);
vuDecasteres := RegisterConversionType(cbVolume,txtvuDecasteres,10);
vuFluidGallons := RegisterConversionType(cbVolume,txtvuFluidGallons,flgal);
vuFluidQuarts := RegisterConversionType(cbVolume,txtvuFluidQuarts,0.25*flgal);
vuFluidPints := RegisterConversionType(cbVolume,txtvuFluidPints,0.5*0.25*flgal);
vuFluidCups := RegisterConversionType(cbVolume,txtvuFluidCups, -1);
vuFluidGills := RegisterConversionType(cbVolume,txtvuFluidGills,-1);
vuFluidOunces := RegisterConversionType(cbVolume,txtvuFluidOunces,1/16*0.5*0.25*flgal);
vuFluidTablespoons := RegisterConversionType(cbVolume,txtvuFluidTablespoons,-1);
vuFluidTeaspoons := RegisterConversionType(cbVolume,txtvuFluidTeaspoons,-1);
vuDryGallons := RegisterConversionType(cbVolume,txtvuDryGallons,-1);
vuDryQuarts := RegisterConversionType(cbVolume,txtvuDryQuarts,-1);
vuDryPints := RegisterConversionType(cbVolume,txtvuDryPints,-1);
vuDryPecks := RegisterConversionType(cbVolume,txtvuDryPecks, 0.0088097675);
vuDryBuckets := RegisterConversionType(cbVolume,txtvuDryBuckets,-1);
vuDryBushels := RegisterConversionType(cbVolume,txtvuDryBushels,0.03523907);
vuUKGallons := RegisterConversionType(cbVolume,txtvuUKGallons,0.0045460993);
vuUKPottles := RegisterConversionType(cbVolume,txtvuUKPottles,-1);
vuUKQuarts := RegisterConversionType(cbVolume,txtvuUKQuarts,0.0011365248);
vuUKPints := RegisterConversionType(cbVolume,txtvuUKPints,-1);
vuUKGills := RegisterConversionType(cbVolume,txtvuUKGills,-1);
vuUKOunces := RegisterConversionType(cbVolume,txtvuUKOunces,2.8413121E-5);
vuUKPecks := RegisterConversionType(cbVolume,txtvuUKPecks,0.0090921986);
vuUKBuckets := RegisterConversionType(cbVolume,txtvuUKBuckets,-1);
vuUKBushels := RegisterConversionType(cbVolume,txtvuUKBushels,0.036368794);
end;
Procedure RegisterFamilies;
Begin
cbArea := RegisterConversionFamily('Area');
cbDistance := RegisterConversionFamily('Distance');
cbMass := RegisterConversionFamily('Mass');
cbTemperature := RegisterConversionFamily('Temperature');
cbTime := RegisterConversionFamily('Time');
cbVolume := RegisterConversionFamily('Volume');
End;
Procedure RegisterAll;
begin
RegisterFamilies;
RegisterVolumes;
RegisterTimes;
RegisterTemperature;
Registermass;
RegisterLengths;
RegisterArea;
end;
initialization
registerall;
finalization
setlength(theunits,0);
setlength(thefamilies,0);
{$endif VER1_0}
end.
{
$Log$
Revision 1.2 2004-04-27 17:29:04 florian
* compilation with 1.0.10 fixed
Revision 1.1 2004/03/20 23:41:34 marco
* Initial version
}
{$I convutil.inc}