delphi - 将 Warp Speed 添加到 Conversion 系列

Question

我在 ConvUtils 中添加了一个 Speed 系列，以每秒米为基础。

IE

   Cf := RegisterConversionFamily('Speed');
   RegisterConversionType(Cf,'Meters per second'    ,1);
   RegisterConversionType(Cf,'Speed of Light'       ,0.000000003335641);
   RegisterConversionType(Cf,'Speed of Sound(Mach)' ,0.0029411765);

现在我想添加“Warp Speed”作为一种类型。

我有公式

V = wf^3 * C

其中： V = 速度 wf = 翘曲系数 C = 光速

如何添加公式来添加类型？

Answer 1

您可以注册自己的转换公式：

function ToWarp(const AValue: Double): Double;
begin
   Result := YourFormula1;
end;

function FromWarp(const AValue: Double): Double;
begin
   Result := YourFormula2;
end;

RegisterConversionType(Cf,'Warpspeed' ,ToWarp,FromWarp);