Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TChart - Update für Version Standard 4.04 (https://www.delphipraxis.net/125708-tchart-update-fuer-version-standard-4-04-a.html)

user0815 10. Dez 2008 09:28


TChart - Update für Version Standard 4.04
 
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 10. Dez 2008 09:32

Re: TChart - Update für Version Standard 4.04
 
Zitat:

Zitat von user0815
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
  ...
end;

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

:gruebel: das wird bei dir compiliert, sehr seltsam ... :gruebel:

user0815 10. Dez 2008 10:46

Re: TChart - Update für Version Standard 4.04
 
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 12. Dez 2008 11:31

Re: TChart - Update für Version Standard 4.04
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf