Teechart kontiunierlich

[v2afrank]

Die Series AfterAdd Methode dürfte die richtige für Dich sein

Delphi-Quellcode:

procedure Series1AfterAdd(Sender: TChartSeries;
  ValueIndex: Integer);

var
 step:Double;
  begin

    step:=DateTimeStep[dtOnesecond]*Anzahlsekunden;
     With Sender.GetHorizAxis do  { <-- with the Horizontal Axis... }
     Begin
      Automatic := False;
      //always show the last time
      Maximum := Sender.XValues.MaxValue;
      // show only last desired interval
      Minimum := Maximum - step;
     end;
     // Delete all "invisible" points
     While (Sender.Count>0) and
      (Sender.XValues[0] < Sender.GetHorizAxis.Minimum) do
      Sender.Delete(0);

end;

[progopa]

Danke für die Tips.
Ich habe das jetzt so gelöst:

Delphi-Quellcode:

procedure TChartData.SerieAdd(Value: Single);
begin
  if Assigned(ScopeSerie) then
  begin
    ScopeSerie.Delete(0);
    Chart.BottomAxis.Maximum := Chart.BottomAxis.Maximum + 1;
    Chart.BottomAxis.Minimum := Chart.BottomAxis.Minimum + 1;
    ScopeSerie.AddXY(Chart.BottomAxis.Maximum, Value);
  end;
end;

procedure TChartData.SerieInit(Serie: TChartSeries; Title: string;  MaxX, MaxY: Integer; Color: TColor);
var
  i : Integer;
begin
  Chart.BottomAxis.Automatic := False;
  Chart.BottomAxis.Maximum   := MaxX;
  Chart.BottomAxis.Minimum   := 1;
  Chart.LeftAxis.Automatic   := False;
  Chart.LeftAxis.Maximum     := MaxY;
  ScopeMin := 1;
  ScopeMax := MaxX;
  Serie.Color := Color;
  ScopeSerie := Serie;
  Chart.Title.Caption := Title;
  for i := 1 to MaxX do
    Serie.AddXY(i,0);
end;

Gruß Peter

[Der schöne Günther]

Ist das Ding so schlau, dass dem nach ein paar Tagen nicht der Speicher ausgeht weil er sich die ganzen nicht angezeigten Messwerte noch merkt? Ich wollte neulich auch die letzten x Sekunden von Messwerten in einem TeeChart anzeigen lassen und habe lieber immer den ältesten Wert gelöscht und dann hinten wieder einen neuen angefügt...