1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| for c := 1 to loggrid.ColCount-1 do
begin
for p := 0 to NProbe-1 do
begin
if (Typ[p]='Congels') then
if NameProbe[p]=LogGrid.Cells[c,0] then
begin
if c_congels<loggrid.ColCount-1 then
begin
c_congels:=c_congels+1;
Congels_series:=TPointSeries.Create(Self); //Crée la série
Congels_series.ParentChart:=Chart_congels; //Associe la série au graphe
Congels_series.Title:=LogGrid.Cells[c,0]; //Modifie le titre de la série
for l:=1 to LogGrid.RowCount-1 do
begin
if (LogGrid.Cells[0,l]<>'')AND(LogGrid.Cells[p+1,l]<>'') then
Chart_congels.Series[c_congels-1].AddXY(StrToDateTime(LogGrid.Cells[0,l]),StrtoFloat(LogGrid.Cells[p+1,l]));
end;
Chart_congels.Series[c_congels-1].active:=True;
Chart_congels.Series[c_congels-1].repaint;
end;
end;
end;
end; |
Partager