Текущий архив: 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.057 c
