Mega Code Archive

Convert - convert one measurement value to another convutils unit

1 function Convert ( const Measurement : Double; const FromType, ToType : TConvType ) : Double; 2 function Convert ( const Measurement : Double; const FromType1, FromType2, ToType1, ToType2 : TConvType ) : Double; Description The Convert function is a very powerful and useful measurement utility. It converts a Measurement from one type FromType to another ToType. Version 1 Converts simple values such as miles to kilometres. Version 2 Converts complex measurements, such as Miles per gallon to Kilometres per litre. All measurement types are TConvType types, and can have an appropriate value from the TConvFamily below. Note that the from and to values must be in the same family. 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 Related commands CelsiusToFahrenheit Convert a celsius temperature into fahrenheit DegToRad Convert a degrees value to radians FahrenheitToCelsius Convert a fahrenheit temperature into celsius RadToDeg Converts a radian value to degrees TConvFamily Defines a family of measurement types as used by Convert TConvType Defines a measurement type as used by Convert Example code : Convert UK gallons to litres var gallons, litres : Double; begin // Define the gallons value gallons := 1; // Convert to litres litres := Convert(gallons, vuUKGallons, vuLiters); // Display both values ShowMessageFmt('%f UK gallons = %f litres',[gallons, litres]); end; Show full unit code 1.00 UK gallons = 4.55 litres Example code : Convert miles per gallon to kilometres per litre var milesPerGallon, kilometresPerLitre : Double; begin // We have a very efficient car milesPerGallon := 58.5; // Convert to kilometres per litre kilometresPerLitre := Convert(milesPerGallon, duMiles, vuUKGallons, duKilometers, vuLiters); // Display both values ShowMessageFmt('%f UK miles per gallon = %f km per litre', [milesPerGallon, kilometresPerLitre]); end; Show full unit code 58.5 UK miles per gallon = 20.71 km per litre