将Warp Speed添加到转换系列

Question

我使用米/秒作为基础为ConvUtils添加了一个Speed系列.

即

   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);