Zur Designetime erzeugte TeeChart.Series per Name ansprechen

[newIndy]

Delphi-Quellcode:

        
for i := 0 to 30 do if (lsSeries as TLineSeries).Name = 'lsAverage'
            then (lsSeries as TLineSeries).Add(Random);
           //lsSeries.FillSampleValues(100);
        for i := 0 to 30 do if
            (Chart1.FindComponent('lsAverage') as TLineSeries).Name = 'lsAverage'
            then (Chart1.FindComponent('lsAverage') as TLineSeries).Add(Random);

[Uwe Raabe]

Wenn du beim Erzeugen der Series statt nil eine TComponent -Instanz (z.B. das Chart selbst) als Owner angibst, dann kannst du über das FindComponent dieser Instanz die Series über ihren Namen finden. Wichtig ist halt, daß die Namen innerhalb des Owner eindeutig sind.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lsSeries: TLineSeries;
begin
  lsSeries := TLineSeries.Create(Chart1);

  lsSeries.Name := 'lsAverage';
  lsSeries.Title := 'Average';
  lsSeries.Marks.Visible := False;
  lsSeries.ValueFormat := '0.#';
  lsSeries.LinePen.Width := 1;
  lsSeries.XValues.DateTime := False;
  lsSeries.XValues.Order := loAscending;
  lsSeries.YValues.Order := loNone;
  lsSeries.SeriesColor := clBlue;
  lsSeries.Pointer.Visible := False;

  Chart1.AddSeries(lsSeries);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  series: TLineSeries;
begin
  series := Chart1.FindComponent('lsAverage') as TLineSeries;
  Button2.Caption := series.Title;
end;

[BerndS]

Warum nicht gleich die Variable lsSeries in TForm1 unter privat deklarieren?