TeeChart Series dynamisch erstellen

[nwnssolutionssoftware]

Den gesamten Code möchte ich eigentlich nicht hochladen.(Datenschutz und so)
Jedoch finde ich das Series Arry ganz interresant...
Habe mich jetzt auch schonmal eingelesen jedoch verstehe ich nicht ganz wie ich das
jetzt bei mir mit einbinden soll
Trotz alledem Vielen Dank schonmal

[ConstantGardener]

....weiß jetzt nicht was eine Methode (die offensichtlich nicht funktioniert und hoffentlich nur ein Prototyp (Bezeichner usw.) ist) mit Datenschutz zu tun hat, aber ok.

[nwnssolutionssoftware]

Leider ist es nicht eine einzelne Methode sondern teilt sich in weitere Methoden auf und ich wollte nun wirklich nicht das ganze Projekt hochladen weil dieses Procedure auf abhängigkeiten von weiteren .PAS datein angewiesen ist.
Und man braucht ja eigentlich nicht den gesamten Code nur um mal kurz das Series Array zu erklären da da aktuell mein Schwerpunkt liegt.
Besten dank aber trotzdem für die schnelle Antwort!

[Thomas Horstmann]

Vielleich hilft das ja.

Delphi-Quellcode:

var
iLoop   : Integer ;
iSeries : TChart ;
begin
{ Schleife, 10x Balkenserien anlegen }
for iLoop := 0 to 9 do
  begin
  { Anlegen }
  iSeries := TBarSeries.Create(Owner) ;
  iSeries.BarPen.Visible      := False ;
  iSeries.Marks.Arrow.Visible := False ;
  { In Grafik speichern }
  MyChart.AddSeries(iSeries) ;
  end ; // for iLoop
  
{ Schleife, alles wieder löschen }
for iLoop := SeriesCount - 1 downto 0 do 
  begin
  iSeries := Series[iLoop] ;
  iSeries.Free ;  
  end ;
end ;

[nwnssolutionssoftware]

Super vielen Dank hat wunderbar funktioniert
War genau das wonach ich gesucht hatte.
Und klar wenn mann mal etwas genauer überlegt dann war es doch logisch.
Nunja manchmal sieht man den Wald vor lauter Bäumen nicht.

[ConstantGardener]

...hättest du meinen ersten Post richtig gelesen wärst du selber drauf gekommen!

[nwnssolutionssoftware]

Zitat:

Vielleich hilft das ja.

Code:

var
iLoop : Integer ;
iSeries : TChart ;
begin
{ Schleife, 10x Balkenserien anlegen }
for iLoop := 0 to 9 do
  begin
  { Anlegen }
  iSeries := TBarSeries.Create(Owner) ;
  iSeries.BarPen.Visible := False ;
  iSeries.Marks.Arrow.Visible := False ;
  { In Grafik speichern }
  MyChart.AddSeries(iSeries) ;
  end ; // for iLoop
  
{ Schleife, alles wieder löschen }
for iLoop := SeriesCount - 1 downto 0 do
  begin
  iSeries := Series[iLoop] ;
  iSeries.Free ;
  end ;
end ;

Ich habe da aber trotzdem noch ein Problem ich habe das jetzt mal in meinem Code übernommen jedoch kann ich die einzelnen Values nicht eintragen da es die Variablen garnicht gibt.
Seit ihr sicher das ich iSeries mit TChart diklarieren soll?
Muss das nicht irgendwie mit Series sein oder so?

[nwnssolutionssoftware]

So Problem gelößt man muss schon im Var Block angeben welche Series Art man haben möchte. Dann gehts!
Besten Dank nochmal