DBChart

[tenporal]

aqui va otra vez el codigo, espero que salga bien presentable.....

Código Delphi [-]
procedure Tform1.Button4Click(Sender: TObject);
var
   ejex,ejey:real; // el eje x y el eje y
   InputString: string; //para pedir un valor que luego lo convierto a numero
   error1,vi,vf, CICLO :integer; 
   // error1 es una variable que se ocupa cuando conviertes una 
   // cadena a numero y si se realizo tendra un cero.
   //vi es el valor inicial para graficar
   // vf es el valor final para graficar
   // ciclo es la variable de control para un ciclo de repeticiones
begin
     SERIES1.CLEAR; // limpio la serie 1 de mi grafico
     InputString:= InputBox('Teclee por favor', 'Valor inicial para X', '-50');
     // pido al usuario un valor inicial o le asigno por default -50
     VAL(inputstring,vi,ERROR1);
     // convierto la respuesta del usuario en numero y la guardo en vi
     if error1 = 0 then 
        begin
        // si es un numero pido el segundo numero
            InputString:= InputBox('Teclee por favor', 'Valor Final para X', '50');
            // pido al usuario un valor final o le asigno por default 50
            VAL(inputstring,vf,ERROR1);
            // convierto la respuesta en un numero y la guardo en vf
           if error1 = 0 then
            begin
            // si vf es un numero verifico que vi es menor que vf
                if vf <= vi then
                     SHOWMESSAGE('VALOR FINAL NO PUEDE SER MENOR O IGUAL QUE VALOR INICIAL')
               ELSE
                   BEGIN
                        // si vi < vf realizo un ciclo desde el vi hasta el vf
                        FOR CICLO := VI TO VF DO
                            BEGIN
                                EJEX := CICLO; // al eje x le asigno el valor de ciclo

                                EJEY := (NUMA*CICLO)*(NUMA*CICLO)+(NUMB*CICLO)+(NUMC); 
                                // eje y tiene la ecuacion de segundo grado, ciclo es mi variable x
                                SERIES1.AddXY( EJEX , EJEY , ' ' , clBlue );
                                // a la serie 1 del chart le adiciono los datos x, y
                         END;
                         CHART1.Visible := TRUE
                         // hago visible el chart que en un inicio tiene la propiedad
                        // visible en false
                     END // fin de la decision vf <= vi
                END // fin de convertir el segundo numero 
           ELSE
               SHOWMESSAGE('VALOR FINAL DEBE SER NUMERICO');
           END // fin de convertir el primer numero
      ELSE
           SHOWMESSAGE('VALOR INICIAL DEBE SER NUMERICO');
end; // fin del boton graficar

Otro ejemplo de dar valores a una serie en un grafico

Código Delphi [-]
With Series1 do
   Begin
      AddXY( 15.2 , 25.4 , 'Barcelona' , clBlue );
      Add(  40, 'Lapiz' , clRed ) ;
      Add(  60, 'Papel',  clBlue ) ;
      Add(  30, 'Tinta', clGreen ) ;
end;