Список проголосовавших за комментарий "Wasiliew Wasilij, про эксель без понятия, у меня это выглядит так:<br/> <blockquote><p><em>procedure calc_lider01(form_Height,form_Width:integer);</em><br/> <em>var i:integer;</em></p><p><em>begin</em><br/> <em>for i:=0 to DSRC^.DSindex-1 do begin</em><br/> <em>TREELIST[i].id_index:=i;</em></p><p><em>TREELIST[i].SortValue:=0;</em><br/> <em>if (DSRC^.DSource[i].history_loaded) and (DSRC^.DSource[i].day_volume>0) then</em><br/> <em>TREELIST[i].SortValue:=((DSRC^.DSource[i].lastprice-DSRC^.DSource[i].CANDLES[DSRC^.DSource[i].size-1].Close)/DSRC^.DSource[i].CANDLES[DSRC^.DSource[i].size-1].Close);</em><br/> <em>TREELIST[i].Value:=exp(4*LN((LN(DSRC^.DSource[i].day_volume+25000))));</em></p><p><em>end;</em><br/> <em>qSortTreeList(TREELIST,0,DSRC^.DSindex-1);</em></p><p><em>for i:=0 to TREEMAXCOUNT*3 div 2 do begin</em><br/> <em>TREELIST[i].SortValue:=TREELIST[i].Value;</em><br/> <em>end;</em><br/> <em>qSortTreeList(TREELIST,0,TREEMAXCOUNT*3 div 2);</em></p><p><em>treemap_calc(form_Height,form_Width,1.5);</em></p><p><br/> <em>end;</em></p></blockquote><br/> что сэкономил?<br/> <br/> "