aqui va otra vez el codigo, espero que salga bien presentable.....
Código Delphi
[-]
procedure Tform1.Button4Click(Sender: TObject);
var
ejex,ejey:real; InputString: string; error1,vi,vf, CICLO :integer;
begin
SERIES1.CLEAR; InputString:= InputBox('Teclee por favor', 'Valor inicial para X', '-50');
VAL(inputstring,vi,ERROR1);
if error1 = 0 then
begin
InputString:= InputBox('Teclee por favor', 'Valor Final para X', '50');
VAL(inputstring,vf,ERROR1);
if error1 = 0 then
begin
if vf <= vi then
SHOWMESSAGE('VALOR FINAL NO PUEDE SER MENOR O IGUAL QUE VALOR INICIAL')
ELSE
BEGIN
FOR CICLO := VI TO VF DO
BEGIN
EJEX := CICLO;
EJEY := (NUMA*CICLO)*(NUMA*CICLO)+(NUMB*CICLO)+(NUMC);
SERIES1.AddXY( EJEX , EJEY , ' ' , clBlue );
END;
CHART1.Visible := TRUE
END END ELSE
SHOWMESSAGE('VALOR FINAL DEBE SER NUMERICO');
END ELSE
SHOWMESSAGE('VALOR INICIAL DEBE SER NUMERICO');
end;
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;