ПРошу хороший людей помочь...

[Talisman]

Подскажите плиз, как сделать чтобы вывод заявки в текстовый
файл записывался сразу как только поступил сигнал (внутри бара)?


Допустим есть стратегия (покупает,продает внутри бара)
и сам вывод в файл (в инете нашел):



input:CLIENT_CODE(...),Lot(...),interwal(60);
vars:Contrakt(0),Positions(0);

if CurrentTime>1045 then begin
filedelete("C:\omega\orders\quik.txt");
end;

if MarketPosition=1 and BarInterval=interwal then
begin
Positions=1;
Contrakt=CurrentContracts/Lot;
FileAppend("C:\omega\orders\quik.txt", "ACCOUNT=L01-00000F00"+";CLIENT_CODE="+NumToStr(CLIENT_CODE,0)+";TYPE=L;"+"TRANS_ID="+NumToStr(EntryTime/100,0)+
NumToStr(EntryDate(1),0)+";CLASSCODE=EQBR;"+"SECCODE="+GetSymbolName+ ";ACTION=NEW_ORDER;"+"OPERATION=B;"+"PRICE="+NumToStr(EntryPrice,3)+
";QUANTITY="+NumToStr(Contrakt,0));
end;

if MarketPosition=0 and BarInterval=interwal and Positions=1 then
begin
FileAppend("C:\omega\orders\quik.txt", "ACCOUNT=L01-00000F00"+";CLIENT_CODE="+NumToStr(CLIENT_CODE,0)+";TYPE=L;"+"TRANS_ID="+NumToStr(ExitTime(1)/100,0)+
NumToStr(ExitDate(1),0)+";CLASSCODE=EQBR;"+"SECCODE="+GetSymbolName+ ";ACTION=NEW_ORDER;"+"OPERATION=S;"+"PRICE="+NumToStr(ExitPrice(1),3)+
";QUANTITY="+NumToStr(Contrakt,0));
end;

if MarketPosition=-1 and BarInterval=interwal then
begin
Positions=-1;
Contrakt=CurrentContracts/Lot;
FileAppend("C:\omega\orders\quik.txt", "ACCOUNT=L01-00000F00"+";CLIENT_CODE="+NumToStr(CLIENT_CODE,0)+";TYPE=L;"+"TRANS_ID="+NumToStr(EntryTime(1)/100,0)+
NumToStr(EntryDate(1),0)+";CLASSCODE=EQBR;"+"SECCODE="+GetSymbolName+ ";ACTION=NEW_ORDER;"+"OPERATION=S;"+"PRICE="+NumToStr(EntryPrice,3)+
";QUANTITY="+NumToStr(Contrakt,0));
end;

if MarketPosition=0 and BarInterval=interwal and Positions=-1 then
begin
FileAppend("C:\omega\orders\quik.txt", "ACCOUNT=L01-00000F00"+";CLIENT_CODE="+NumToStr(CLIENT_CODE,0)+";TYPE=L;"+"TRANS_ID="+NumToStr(ExitTime(1)/100,0)+
NumToStr(ExitDate(1),0)+";CLASSCODE=EQBR;"+"SECCODE="+GetSymbolName+ ";ACTION=NEW_ORDER;"+"OPERATION=B;"+"PRICE="+NumToStr(ExitPrice(1),3)+
";QUANTITY="+NumToStr(Contrakt,0));
end;

if Currentbar>1 then
begin
FileAppend("C:\omega\orders\quik.txt","");
end;