將轉換速度添加到轉換系列

Question

我已經將Speed系列添加到使用每秒米數的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); 

現在我想補充的「超速」的類型。

予具有式

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