Delphi 單位換算 Convert Function

uses
  StdConvs, ConvUtils;

在 Form Create 事件中加入

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 攝氏 23 -> 華氏 73.4
  ShowMessage(FloatToStr(CelsiusToFahrenheit(23)));
  // 華氏 73.4 -> 攝氏 23
  ShowMessage(FloatToStr(FahrenheitToCelsius(73.4)));
  // 攝氏 23 -> 華氏 73.4
  ShowMessage(FloatToStr(Convert(23, tuCelsius , tuFahrenheit)));
  // 1 年 -> 365.25 天
  ShowMessage(FloatToStr(Convert(1, tuYears , tuDays)));
  // 1 kg -> 1000 g
  ShowMessage(FloatToStr(Convert(1, muKilograms , muGrams)));
  // 1 公尺 -> 100 公分
  ShowMessage(FloatToStr(Convert(1, duMeters , duCentimeters)));
end;