Trailing Stop

[southsider]

Can someone post code they use for trailing stops

My programming skills are a bit rusty

[Terranin]

Can someone post code they use for trailing stops

My programming skills are a bit rusty

Here it is some code in Delphi:

Code: Select all

Procedure TS;
var
  i:integer;
begin
  if OrdersTotal>0 then
  for i:=0  to OrdersTotal do
{1} begin
  OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if (OrderType=tp_Buy) then
      begin
      if (OrderStopLoss=0) and (Bid-OrderOpenPrice>TrailingStop*Point) then  ModifyOrder(OrderTicket,OrderOpenPrice,Bid-TrailingStop*Point,0);
      if (OrderStopLoss>0)  and (RoundTo(Bid-TrailingStop*Point,-4)>RoundTo(OrderStopLoss,-4)) then
        begin
        if Bid-OrderStoploss>(TrailingStop+TrailingStep)*Point then   ModifyOrder(OrderTicket,OrderOpenPrice,Bid-TrailingStop*Point,0);
        end;
      end;
      if  (OrderType=tp_Sell) then
      begin
      if (OrderStopLoss=0) and (OrderOpenPrice-Ask>Trailingstop*Point) then   ModifyOrder(OrderTicket,OrderOpenPrice,Ask+TrailingStop*Point,0);
      if (OrderStopLoss>0)  and (RoundTo(Ask+TrailingStop*Point,-4)< RoundTo(OrderStopLoss,-4)) then
        begin
        if (OrderStopLoss-Ask)>(TrailingStop+TrailingStep)*Point then   ModifyOrder(OrderTicket,OrderOpenPrice,Ask+TrailingStop*Point,0);
        end;
      end;
{1} end;
end;


Uses TrailingStop and TralingStep parameters equal to same parameters in order dialog window.

[LeoneDeluca]

what are the following:

-Trailing Stop, Points
-Step of change, Points

[FT Support]

Hello,

please see this thread:

http://forextester.com/forum/viewtopic.php?t=1954

[eriaku]

and (RoundTo(Bid-TrailingStop*Point,-4)>RoundTo(OrderStopLoss,-4)) then
begin

What's the '-4' for? I cant find any code for trailing stops in the FT manual, and have tried to learn RoundTo from google finds, but need the equivalent of above expression in C++ or MQL, please?

[FT Support]

-4 means that the result of RoundTo function will be with 4 digits after point, in MQL you can use "NormalizeDouble" function

Code: Select all

NormalizeDouble(X, 4)

[eriaku]

Here it is some code in Delphi:

Code: Select all

Procedure TS;
var
  i:integer;
begin
  if OrdersTotal>0 then
  for i:=0  to OrdersTotal do
{1} begin
  OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
      if (OrderType=tp_Buy) then
      begin
      if (OrderStopLoss=0) and (Bid-OrderOpenPrice>TrailingStop*Point) then  ModifyOrder(OrderTicket,OrderOpenPrice,Bid-TrailingStop*Point,0);
      if (OrderStopLoss>0)  and (RoundTo(Bid-TrailingStop*Point,-4)>RoundTo(OrderStopLoss,-4)) then
        begin
        if Bid-OrderStoploss>(TrailingStop+TrailingStep)*Point then   ModifyOrder(OrderTicket,OrderOpenPrice,Bid-TrailingStop*Point,0);
        end;
      end;
      if  (OrderType=tp_Sell) then
      begin
      if (OrderStopLoss=0) and (OrderOpenPrice-Ask>Trailingstop*Point) then   ModifyOrder(OrderTicket,OrderOpenPrice,Ask+TrailingStop*Point,0);
      if (OrderStopLoss>0)  and (RoundTo(Ask+TrailingStop*Point,-4)< RoundTo(OrderStopLoss,-4)) then
        begin
        if (OrderStopLoss-Ask)>(TrailingStop+TrailingStep)*Point then   ModifyOrder(OrderTicket,OrderOpenPrice,Ask+TrailingStop*Point,0);
        end;
      end;
{1} end;
end;


Uses TrailingStop and TralingStep parameters equal to same parameters in order dialog window.

Can anyone code this trailing stop code in MQL?