किसी रूपांतरण परिवार को वारप स्पीड जोड़ना

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

अब मैं एक प्रकार के रूप में 'वार्प स्पीड' में जोड़ना चाहते हैं।

मैं सूत्र है

V = wf^3 * C 

कहाँ: वी = वेग WF = वार्प फैक्टर सी = स्पीड प्रकाश

की कैसे मैं एक सूत्र एक प्रकार जोड़ने के लिए जोड़ सकते हैं?

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

लगभग हो गया है