Список проголосовавших за комментарий "<p>Вдруг кому-то нужно будет <img smile="cool"/></p><p>var Bar,FTri: integer;<br/> var Str: string;</p><p><br/> FTri:= FileOpen( 'C:\Quik\RTS.txt' );</p><p><br/> for Bar := 0 to BarCount — 1 do<br/> begin</p><p>Str :=<br/> IntToStr(getdate(Bar))+','+<br/> FormatFloat('0000',gettime(Bar))+'00,'+<br/> FormatFloat('#0',PriceOpen( Bar ))+','+<br/> FormatFloat('#0',PriceHigh( Bar ))+','+<br/> FormatFloat('#0',PriceLow( Bar ))+','+<br/> FormatFloat('#0',PriceClose( Bar ))+','+<br/> FormatFloat('#0',Volume( Bar )) ;</p><p>FileWrite( FTri, Str);</p><p>end;</p><p>FileClose(FTri);</p><p> </p>"