TChart mit Zeitskala

[user0815]

Muss ja irgendwie so gehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  j : Integer;
begin
  inc(i);

  case i of
    1..60 : begin
              Chart1.BottomAxis.DateTimeFormat := 'hh:nn:ss';
            end;
    61 :    begin
              for j := 1 to 59 do
               Series1.Delete(0); // ersten 59 Sekunden löschen

              Chart1.BottomAxis.DateTimeFormat := 'hh:nn';
            end;
    else    begin
              if i mod 60 <> 0 // jede Minute 1 Wert stehen lassen
               then Series1.Delete(Series1.XValues.Count -1); 
            end;
  end;

  Series1.AddXY(now, Random(100), '', clTeeColor);
end;