TFastLine en tiempo de ejecucion

[victor2023]

Hola que tal a todos,

Estoy creando series fastline en tiempo de ejecucion pero no me dibuja nada en el tchart :S

ya he hecho varias pruebas pero nomas no

con este codigo es con el que he estado trabajando de prueba para posteriormente agregar los valores y los labels con un sp

de antemano gracias.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    serieA : TFastLineSeries;
    cuantos,y : integer;
    lista : tstringlist;
begin

cuantos := 0;

lista := tstringlist.Create;
lista.Clear;

  for i := 1 to 5 do
      begin
        serieA             := TFastLineSeries.Create(self);
        serieA.ParentChart := Chart1;
        serieA.Marks.Visible := false;
        chart1.AddSeries(serieA);
        lista.Add(inttostr(i));
      end;

for y := 0 to lista.Count - 1 do
    begin
      cuantos := cuantos + 3;
      if cuantos >= 6 then
         cuantos := 3;
      chart1.Series[y].Add(cuantos,'label '+inttostr(y));
    end;

end;

[cloayza]

Creo que tienes algunos problemas...

Vamos por parte.

Para crear la serie:

Código Delphi [-]
 SerieA:= TFastLineSeries.Create(Self);          
 SerieA.ParentChart:=Chart1                
 SerieA.Title:='Título de la Serie';

Agregarle datos a la serie:

Código Delphi [-]
For i := 1 to 5 Do
Begin
       SerieA.AddXY(i*2,i*2.5,''); 
End;

Eso por ahora...

Un abrazo

[victor2023]

Hola que tal cloayza, si andaba algo perdido :P, como las pruebas que estoy haciendo son para agregar varias series y diferentes valores para cada serie, pero me ayudo bastante a aclarar la idea con tu respuesta, gracias, saludos