TeeChart Series dynamisch erstellen

[nwnssolutionssoftware]

Hallo community,
hoffe ich habe das Thema jetzt richtig zugeordnet.
Also zu meinem Problem:
Ich würde gerne mit den TeeChart Komponenten ein Programm entwerfen mit dem ich
dynamisch Series erstellen kann. Ich habe es so versucht aber das hat leider nicht funktioniert:

Code:

cht1.Series[i].Create(TChart);
cht1.Series[i].Add(StrToFloat(StringGrid1.Cells[1, 5]), '1', clTeeColor);
cht1.Series[i].Add(StrToFloat(StringGrid1.Cells[2, 5]), '2', clTeeColor);
cht1.Series[i].Add(StrToFloat(StringGrid1.Cells[3, 5]), 'P1', clTeeColor);
cht1.Series[i].Add(StrToFloat(StringGrid1.Cells[4, 5]), '3', clTeeColor);
cht1.Series[i].Add(StrToFloat(StringGrid1.Cells[5, 5]), '4', clTeeColor);
cht1.Series[i].Add(StrToFloat(StringGrid1.Cells[6, 5]), 'P2', clTeeColor);
cht1.Series[i].Add(StrToFloat(StringGrid1.Cells[7, 5]), '5', clTeeColor);

Resultat eine Zugriffsverletzung
Habt ihr eine Idee wie ich das Lösen kann?
Vielen Dank im Vorraus!

PS: Vor dem Code ist natürlich eine For Schleife die mit der Variable "I" arbeitet.

[ConstantGardener]

Hallo,

da sind gleich mehrere Sachen so nicht richtig bzw. gefährlich!

Du solltest die vorhandenen Series im Chart erstmal alle löschen, also vor deiner Schleife.
Danach erzeugst du die Series jeweils neu. Du musst angeben was für eine Series du willst.
Hier also z.B. eine TPieSeries, bei dir wohl eher eine TBarSeries.

Delphi-Quellcode:

  ASeries:=TPieSeries.Create(AChart);
  ASeries.Marks.Visible:=false;
  ASeries.Shadow.Visible:=false;
  ASeries.ColorEachPoint:=true;
  AChart.AddSeries(ASeries);

Dann stellst du die entsprechenden Propertys der Series ein und übergibst Sie dem entsprechenden Chart.
Danach kannst du der Series die entsprechenden Werte mitteilen.

 ASeries.Add (Value,clTeeColor); // usw. Tipp: Ändere das auslesen der Daten aus dem Stringgrid! Am besten du speicherst die Daten in einem separaten Container (Listen usw.) und arbeitest dann mit diesen.
Das StrToFloat ist hier sehr gefährlich! Schon mal versuchte eine Zahl mit oder nur Buchstaben einzugeben? Das knallt definitiv. Alternativ (aber es gibt bessere Möglichkeiten) schau mal nach StrToFloatDef oder TryStrToFloat.

cu cg

[nwnssolutionssoftware]

Okay vielen Dank für die schnelle Antwort.Damit ist mein Problem leider noch nicht behoben da ich ja trotzdem ASeries als Variable erstellen muss und daher nicht dynamisch verschiedene Series erstellen kann!
Trotzdem schonmal vielen dank

[ConstantGardener]

Hallo Nico,

das geht schon so wie ich es beschrieben habe. Zeig mal deinen ganzen bisherigen Code in der Methode, also mit for-Schleife.
Du kannst doch später immer noch über das Series-Array des Charts auf die Serien zugreifen! Die lokale Variable macht dir das erstellen nur einfacher.

cu cg

[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!