Клуб программистов

    Delphi функция Convert является мощным средством преобразования одного типа измерения в другое.

    Вариант 1

    Преобразовывает простые величины, например, мили в километры.

    Вариант 2 

    Преобразовывает сложные величины, например, мили за галлон на километры за литр.

    Все типы измерения являются типами TConvType, и могут иметь подходящую величину из TConvFamily ниже. Отмечу, что конвертируемые величины должны быть в одном и том же семействе.

Вариант 1

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;

1.00 UK gallons = 4.55 litres

Вариант 2

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;

58.5 UK miles per gallon = 20.71 km per litre