2010年2月17日 星期三

輸出訊號

http://www.yassersoft.com/?menu=CFORUM_VIEW_ARTICLE&fid=2&sid=2185


Wealth-Lab 產生指令檔程式碼範例

在主程式的 for 迴圈當中,加上
if (Bar = BarCount-1) then
 begin
  var sFile : String;
  sFile := IntToStr(GetYear(Bar)) + '/' + IntToStr(GetMOnth(Bar)) + '/' + IntToStr(GetDay(Bar))+ ' ' + IntToStr(GetHour(Bar))+':'+IntToStr(GetMinute(Bar))+' '+IntToStr(marketposition)+' '+FloatToStr(PriceClose(Bar))+Chr(13)+Chr(10);
  FileWrite(FileCreate('C:\cur_cmd.txt'),sFile);
 end

其中PriceClose(Bar)回傳的值不是精準的整數,晚點想辦法。

沒有留言: