DelphiBasics
Convert
Function
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
 Author links

 Buy Website Traffic at
 Buywebsitetrafficexperts.com

 Buy Proxies at
 Buyproxies.io
 
 Download this web site as a Windows program.




 
Example code : Convert UK gallons to litres
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
 
unit Unit1;
 
interface
 
uses
  ConvUtils,   // Unit containing the Convert command
  StdConvs,
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  
Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);

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;
 
end.
Hide full unit code
   1.00 UK gallons = 4.55 litres
 
Example code : Convert miles per gallon to kilometres per litre
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
 
unit Unit1;
 
interface
 
uses
  ConvUtils,   // Unit containing the Convert command
  StdConvs,
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  
Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);

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;
 
end.
Hide full unit code
   58.5 UK miles per gallon = 20.71 km per litre
 
Delphi Programming Neil Moffatt 2002 - 2017. All rights reserved.  |  Home Page