1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
// On crée la série pour le graph
TFastLineSeries *Serie;
Serie = new TFastLineSeries(this);
Serie->ParentChart = Chart;
// On parcourt toutes les lignes
for(int i = 1; i <= NbLigne; i++)
{
// Un Point
TPointD *Point = new TPointD();
// Valeur de la cellule
AnsiString Valeur;
// On récupère la valeur en x
Valeur = Excel->LireCellule();
// On renseigne le point
Point->x = Valeur.ToDouble();
// On récupère le valeur en y
Valeur = Excel->LireCellule();
// On renseigne le point
Point->y = Valeur.ToDouble();
// On ajoute le point à la liste de points
LesCalculs->ListeDesPoints->Add(Point);
Serie->AddXY(Point->x, Point->y, "", clGreen);
// On passe à la ligne
Excel->PasserALaLigne();
// On augmente la longueur de la progressbar
ProgressBar->StepIt();
Application->ProcessMessages();
} |