delphi – 将Warp Speed添加到转换族

发布时间：2020-12-15 09:31:38 所属栏目：大数据来源：网络整理

导读：我使用米/秒作为基础为ConvUtils添加了一个Speed系列. 即 Cf := RegisterConversionFamily('Speed'); RegisterConversionType(Cf,'Meters per second',1); RegisterConversionType(Cf,'Speed of Light',0.000000003335641); RegisterConversionType(Cf,'Spee

我使用米/秒作为基础为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 =光速

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

解决方法

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!