TChart zur Laufzeit unterschiedliche Typen Series erstellen ohne doppelten Code

[DieDolly]

Wie erstellt man bei TCHart am besten zur Laufzeit Series? Ich habe diesen Codeblock den ich aufrufen kann. Aber wie ändere ich den ab, damit ich nicht nur TAreaSeries machen kann?

Delphi-Quellcode:

procedure CreateAreaSeries(const Name: string; const Color: Integer);
var
 AreaSeries: TAreaSeries;
begin
 AreaSeries := TAreaSeries.Create(FormMain.Chart1);

 AreaSeries.Name := Name;
 AreaSeries.ParentChart := FormMain.Chart1;

 AreaSeries.Dark3D := True;
 AreaSeries.Color := Color;
 AreaSeries.DrawStyle := dsCurve;
 AreaSeries.Pointer.Visible := True;
 AreaSeries.Pointer.Style := psCircle; // WIE GERNE würde ich hier segments benutzen wegen der schönen farblichen Darstellung. Aber runde Series sind einfach schöner - dann aber leider keine Farbe. NACHHOLBEDARF bei Steema!
 AreaSeries.Pointer.Size := 6;
 AreaSeries.Pointer.InflateMargins := True;
 AreaSeries.Pointer.Frame.Visible := True;
 AreaSeries.Pointer.Shadow.Visible := False;
 AreaSeries.Marks.Arrow.Style := psSolid;
 AreaSeries.Marks.Visible := True;

 AreaSeries.Transparency := 65;
 AreaSeries.Marks.Visible := True;
 AreaSeries.Marks.UseSeriesTransparency := False;

 AreaSeries.OnGetMarkText := FormMain.GetMarkText;
end;

[hoika]

Hallo,

Zitat:

Aber wie ändere ich den ab, damit ich nicht nur TAreaSeries machen

Übergib den gewünschten Series-Typ doch zusätzlich als Parameter.