greenpc
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
type
TLGrath = record
IDR : Integer;
DayCount : Integer;
LastPos : Integer;
LinR : TLineSeries;
end;
PTLGrath =^TLGrath;
var
i, j, kum: Integer;
s, t: TFastLineSeries;
lLine : array of TLGrath;
begin
SetLength(lLine, 5); // рисуем 6 линий
for i := 0 to High(lLine) do begin
lLine[i].IDR :=i;
lLine[i].LastPos :=0;
lLine[i].DayCount := 0;
lLine[i].LinR := TLineSeries.Create(nil);
lLine[i].LinR.ParentChart := Cht1;
lLine[i].LinR.Clear;
end;
end; // for
for j := Trunc(cxdedReservFrom.Date) to Trunc(cxdedReservTo.Date) do begin
maxdotday :=0;
for i := 0 to High(lLine) do begin
lLine[i].LastPos :=0;
lLine[i].DayCount := 0;
qChart2.First;
while not qChart2.eof do begin
if (qChart2.FieldByName('rc_smenavol_volumenum').AsInteger = lLine[i].IDR) and
Trunc(qChart2.FieldByName('rc_sd_begindate').AsDateTime)= j then begin
if cxRadioGroup1.ItemIndex = 0 then //График фактического отклонения движения за смену от расчетного
lLine[i].LastPos :=qChart2.FieldByName('otklon_fakdvforsmena').AsInteger;
else //График фактического остатка от нарастающего расчетного
lLine[i].LastPos :=qChart2.FieldByName('otklon_fakrestfromincrease').AsInteger;
lLine[i].LinR.Add(LastPos, datetostr(j));
lLine[i].DayCount := lLine[i].DayCount+1;
if lLine[i].DayCount>maxdotday then maxdotday := lLine[i].DayCount;
end;
qChart2.Next;
end; // while
end; //for i
for i := 0 to High(lLine) do begin
for k := lLine[i].DayCount to maxdotday do
lLine[i].LinR.Add(lLine[i].LastPos, datetostr(j));
end;
end; // for j
end; |
Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 16:23 12-03-2010 | Исправлено: greenpc, 16:31 12-03-2010 |
|
