TeeChart Serie zur Lauzeit hinzufügen.

[Frank Büchner]

Holla Delphi-Gemeinde !

Wie kann man einer TChart-Komponente zur Laufzeit eine neue Serie hinzufügen ?

Über Antworten würde ich mich freuen

Tschüß Frank

[Andreas Kosch]

Hallo,

das folgende Beispiel stammt aus meinem Buch <b>Client/Server Datenbankentwicklung mit Delphi</b>. Es wird für jedes im Bestand vorgefundene Wertpapier eine neue Serien angelegt und es werden die Daten je Serie eingelesen:
<pre>
(*
QueryID.SQL = SELECT DISTINCT(id) FROM SM_KAUF
*)

procedure TFormPfVerlauf.GetPortfolioData;
resourcestring
cPFVerlaufMsg1 = '%d Kurswerte wurden berücksichtigt.';
var
iSeriesCount : Integer;
begin
// ID-Werte der Wertpapiere im Portfolio ermitteln
iSeriesCount := 0;
with QueryID do begin
Open;
StatBar.Panels[0].Text := Format('%d Positionen', [RecordCount]);
First;
while not EOF do begin
SetChartValues(QueryIDid.Value, iSeriesCount);
Inc(iSeriesCount);
Next
end;
end;
StatBar.Panels[1].Text := Format(cPFVerlaufMsg1, [iDataCount]);
end;
//
//
//
procedure TFormPfVerlauf.SetChartValues(iID, iSeriesNumber : Integer);
begin
with QueryKURS do begin
Params[0].Value := iID;
Params[1].Value := iID;
Open;
Inc(iDataCount, RecordCount);
First;
while not EOF do begin
Chart1.Series[iSeriesNumber].AddXY(QueryKURSDatum.Value,
QueryKURSKurs.Value, '',
GetDefaultColor(iSeriesNumber));

Next;
end;
Close;
end;
// Beschriftung ermitteln
with QueryAktie do begin
Params[0].Value := iID;
Open;
Chart1.Series[iSeriesNumber].Title := QueryAktieAktie.Value;
Close;
end;
Chart1.Series[iSeriesNumber].ShowInLegend := True;
end;
</pre&gt

[Frank Büchner]

Danke für den Hinweis, werde ich mir mal unter die Lupe nehmen.

mfg Fran