Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

Тенденции...   Найти похожие ветки 

← →
MBo ©   (2004-04-01 09:56) [0]

Сохраняю заинтересовавшие меня ветки с форума, решил посмотреть статистику. Поквартальный график.

http://mbo.front.ru/dmgraph.bmp
22 КБ (монохром)


procedure TForm1.Button1Click(Sender: TObject);
var
 ADate, indx: Integer;
 SR: TSearchRec;
begin
 if FindFirst("D:\DlpDnld\Mastera\*.htm", faAnyFile, SR) = 0 then begin
   repeat
     if (SR.Attr and faDirectory) <> faDirectory then begin
       ADate := (Trunc(FileDateToDateTime(SR.Time)) div 91) * 91;
       indx := Series1.XValues.Locate(adate);
       if indx < 0 then
         Series1.AddXY(adate, 1)
       else
         Series1.YValue[indx] := Series1.YValue[indx] + 1
     end
   until FindNext(SR) <> 0;
   FindClose(SR)
 end;
 Chart1.SaveToBitmapFile("e:\dmgraph.bmp");
end;



---

← →
Dmitriy O. ©   (2004-04-01 10:28) [1]

Это пик был в 2002 г а щас спад ? и причем тут код ?

---

← →
Layner ©   (2004-04-01 10:50) [2]

А что такое Series1, у меня не компилируется..

---

← →
Layner ©   (2004-04-01 10:51) [3]

Кстати, а зачем сохранять, если можно zip архивы качать? Сейчас правда давно что то они не верстаюся, вчера за 14е марта было последнее..

---

← →
Darts ©   (2004-04-01 10:53) [4]

> Dmitriy O. ©   (01.04.04 10:28) [1]
> Layner ©   (01.04.04 10:50) [2]
Шутка от MBo
:)

---

← →
Layner ©   (2004-04-01 10:54) [5]

Да какая то странная шутка... А правда, что Series1 делает.. А с чартами интересно, заинтересовало...

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.049 c