Add(MainForm,2953706,210,105)
{
}
Add(Button,10110255,91,105)
{
 Left=105
 Top=75
 Data=Integer(3)
 link(onClick,805091:doOperation,[])
}
Add(FTCG_Tools,805091,147,105)
{
 link(onResult,2953706:doCaption,[])
}
BEGIN_SDK
  Add(EditMultiEx,1546421,48,48)
  {
   WorkCount=#11:doOperation|
   EventCount=#8:onResult|
   link(doOperation,10155111:doOperation,[(112,54)(112,83)])
  }
  Add(FT_Math,10155111,175,77)
  {
   OpType=11
   Op2=3
   link(onResult,1546421:onResult,[(277,83)(277,54)])
  }
END_SDK

Add(MainForm,2953706,217,336)
{
}
Add(Button,10110255,105,336)
{
 Left=105
 Top=75
 link(onClick,3894308:doCalc,[])
}
Add(MathParse,3894308,161,336)
{
 MathStr="%1^%2"
 link(onResult,2953706:doCaption,[])
 link(X1,14055473:Text,[])
 link(X2,4180734:Text,[(174,324)(216,324)])
}
Add(Edit,14055473,161,280)
{
 Left=60
 Top=35
 Text="1"
}
Add(Edit,4180734,210,280)
{
 Left=155
 Top=35
 Text="2"
}

procedure Power(var x, Exponent: real);
function IntPower(const Base:Extended; const Exponent:Integer):Extended;
function Tan(const X: Extended): Extended;
function CoTan(const X: Extended): Extended;
function ArcTan2(const Y,X:Extended):Extended;
function LogN(const Base,X:Extended):Extended;

hiBitsToInt.pas
hiCPU.pas
hiMath.pas
hiPlotAxis.pas
hiPlotHistogram.pas
hiPlotMarker.pas
hiPlotSeriesMarker.pas
hiVectorFields.pas

func _create(_data)  
  fvar(o1, o2, r)
  o1 = Op1 
  o2 = Op2
  switch(OpType)
    case 0:
    ................
    case 11:
   // начало замены
      lng.decl_loc_var(rs, 'real')
      lng.decl_loc_var(re, 'real')
      println(rs, ' := ', o1, ';')
      println(re, ' := ', o2, ';')
      println('Power(', rs, ', ', re, ');')
      r = rs
   // r = 'Power(' && o1 && ', ' && o2 && ')'
      sub(r, 7)
    case 12:
    ................
  end

  if(isdef(ResultType))
    //r = e_real(r)
  else
    r = e_int(r)
  end

  return(r)
end

function FParse(var S: string; const Delimiters: char): string;
function RParse(var S: string; const Delimiters: char): string;
function SRParse(var S: pchar; const Dlm: char; Len: integer): string;
function SFParse(var S: pchar; const Dlm: char; Len: integer): string;