TChart Series-Wertepaare speichern

[marabu]

Hallo oki,

bei SaveChartToFile() wird laut Dokumentation der momentane Zustand des Chart persistent gemacht, d.h. auch die Werte aus den Serien sollten gespeichert werden. Die Werte einer einzigen (beliebigen) Serie könntest du so in einer CSV-Datei speichern:

Delphi-Quellcode:

procedure SaveValues(series: TChartSeries; s: TStrings);
var
  iList, iValue: Integer;
  sl: TStrings;
begin
  sl := TStringList.Create;
  with series do
    for iValue := 0 to Pred(Count) do
    with ValuesLists do
    begin
      for iList := 0 to Pred(Count) do
        sl.Add(FloatToStr(ValueList[iList].Value[iValue]));
      s.Add(sl.CommaText);
      sl.Clear;
    end;
  sl.Free;
end;

Freundliche Grüße