Форум по Forex Tester 5

Код: Выделить всё

// cost of 1 secondary currency unit in USD
function GetSecCurCostInUSD(symbolName: ANSIString): double;
var baseCur: ANSIString;
    secondCur: ANSIString;
    info: PCurrencyInfo;
begin
  baseCur := LeftStr(symbolName, 3);
  secondCur := RightSTR(symbolName, 3);

  if GetCurrencyInfo(secondCur+'USD', info) then
  begin
   Result := iClose(secondCur+'USD',1,0);
   exit;
  end else
    if GetCurrencyInfo('USD'+secondCur, info) then
    begin
      Result := 1/(iClose('USD'+secondCur,1,0));
      exit;
    end else
    if GetCurrencyInfo(baseCur+'USD', info) then
    begin
      result := iClose(baseCur+'USD', 1, 0) / iClose(symbolName, 1, 0);
      exit;
    end else
      if GetCurrencyInfo('USD'+baseCur, info) then
      begin
        result := (1/iClose('USD'+baseCur, 1, 0))/iClose(symbolName, 1, 0);
        exit;
      end;

   result := 0;
   Print('GetCostInUSD: not enough information');
end;

//calculates point cost for 1 lot order
function GetPointCostUSD: double;
var
  info: PCurrencyInfo;
  symbolType: TSymbolType;
begin
  symbolType := GetSymbolType(Currency);
  if GetCurrencyInfo(Currency, info) then
  begin
    case symbolType of
      st_Normal: result := info.lot * info.Point;
      st_InvertedUSD: result := info.lot * info.Point/iClose(Currency, 1, 0);
      st_Other: result := GetSecCurCostInUSD(Currency)*info.lot*info.Point;
    end;
  end;
end;

{-----Process single tick---------------------------------------------------}
procedure GetSingleTick; stdcall;
begin
Print('point cost = ' + floattostr(GetPointCostUSD));
end;