TChart - Update für Version Standard 4.04

[user0815]

Hallo,

ich benutze die TChart Standard Version 4.04
auf dem Chart habe ich eine Linie (Series[0])

Und jetzt auf die schnelle zum Problem:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    Zeit : TDateTime;

...

procedure TForm1.Timer1Timer(Sender: TObject); // 100 ms
begin
  Zeit := Date + Time;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Chart1.Series[0].Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Chart1.Series[0].AddXY(Zeit, 100);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Chart1.Series[0].AddXY(Zeit, 1825); // oder >
end;

Wenn ich jetzt auf Button 2 drücke und dann auf 3 ist alles OK, drücke ich bei leerem Chart zuerst auf Button 3 dann gibt es folgende Exception:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidPointer aufgetreten. Meldung: 'Ungültige Zeigeroperation'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

Frage: Gibt es für Version 4.04 ein Update, auf der nachfolgenden Seite habe ich nichts gefunden ?

http://www.steema.com/products/teech...urematrix.html

[Sir Rufo]

Zitat von user0815:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ...
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ...
end;

das wird bei dir compiliert, sehr seltsam ...

[user0815]

OK,
habe jetzt rausgefunden: Chart rechtsklick "Diagramm bearbeiten" - Achsen / Skalierung / Ändern "Steigung = 1" setzen.
Zumindest kommt der Fehler jetzt nicht mehr bei mir.

[wp_xxyyzz]

Wenn du einen leeren Chart hast, dann gibt es "Chart1.Series[0]" nicht. Frage in deinen Ereignisroutinen vorher ab, ob Chart1.SeriesCount > 0 ist. Also:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Chart1.SeriesCount > 0 then Chart1.Series[0].Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Chart1.SeriesCount > 0 then Chart1.Series[0].AddXY(Zeit, 100);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if Chart1.SeriesCount > 0 then Chart1.Series[0].AddXY(Zeit, 1825); // oder >
end;