delphi - 将扭曲速度添加到转换系列

Question

我已将速度系列添加到 ConvUtils，使用米每秒作为基础。

即

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