langsames Tchart

[PhilmacFLy]

Hey DP'ler

ich hab folgendes Problem:
Ich lese au einer Firebird Datenbank, Datensätze aus und schreibe diese dann auf eine TChart.
Nun dauert aber das zeichnen des Graphen sehr lange (es sind 12000 Datensätze mit je 2 Werten).
Liegt das an der TChart allgemein oder an meinem Coder? Hier der Code:

Delphi-Quellcode:

public
  arrml, arrmr: Array of Integer;

...

procedure TFRM_Messung.anzeigen;
var
zt: Integer;
begin
zt := 0;
while zt <= mx+1 do
begin
frm_messung.Ch_Messung.Series[0].AddY(arrml[zt]);
frm_messung.Ch_Messung.Series[1].AddY(arrmr[zt]);
zt := zt +1;
end;
end;

Das befüllen der beiden Arrays mach ich in einem Thread in dem ich auch die Datensätze auslese.

[mquadrat]

Schau mal ob es eine BeginUpdate und EndUpdate Methode für den Chart gibt. Da bin ich mir jetzt gerade nicht sicher. Wenn ja, BeginUpdate vor das Hinzufügen und EndUpdate dahinter. Sollte das Neuzeichnen des Charts während dem Einfügen verhindern.

[mkinzler]

Befülle mal den Chart parallel zu den Arrays. Benötigst du die Arrays überhaupt?

[blackfin]

BeginUpdate und EndUpdate gibt es für ein TChart nicht, aber du kannst mal versuchen, vor dem Zecihnen des Charts die Property
AutoRepaint
auf false zu setzen und nach dem zeichnen wieder auf true;

[ULIK]

Zitat von blackfin:

BeginUpdate und EndUpdate gibt es für ein TChart nicht, aber du kannst mal versuchen, vor dem Zecihnen des Charts die Property
AutoRepaint
auf false zu setzen und nach dem zeichnen wieder auf true;

Für das Chart nicht, aber für die Reihen (Series) schon.

Grüße, Uli

[PhilmacFLy]

Zitat von mkinzler:

Befülle mal den Chart parallel zu den Arrays. Benötigst du die Arrays überhaupt?

Das hab ich probiert, das lief genau so langasam. Die Array hab ich eingefügt das es zwischen dem Thread und der Anwendung keine verschränkung gibt.

Zitat von blackfin:

BeginUpdate und EndUpdate gibt es für ein TChart nicht, aber du kannst mal versuchen, vor dem Zecihnen des Charts die Property
AutoRepaint
auf false zu setzen und nach dem zeichnen wieder auf true;

Das hat mir schon viel geholfen vielen Dank.

Zitat von ULIK:

Zitat von blackfin:

BeginUpdate und EndUpdate gibt es für ein TChart nicht, aber du kannst mal versuchen, vor dem Zecihnen des Charts die Property
AutoRepaint
auf false zu setzen und nach dem zeichnen wieder auf true;

Für das Chart nicht, aber für die Reihen (Series) schon.

Grüße, Uli

Das probier ich auch noch aus vllt gehts noch schneller.

[PhilmacFLy]

ich find auch bei der series, keine BeginUpdate.

[Chemiker]

Hallo PhilmacFly,

warum benutzt Du nicht DBChart wenn die Daten von FB zur Verfügung gestellt werden.

Bis bald Chemiker

[ULIK]

Zitat von PhilmacFLy:

ich find auch bei der series, keine BeginUpdate.

Hm, also ich hab es grad mal eben mit dem TChart getested, das mit Delphi 2007 ausgeliefert wird: TeeChart 7.10.

Delphi-Quellcode:

  Series1.BeginUpdate;
  try
    Series1.Clear;
    for i := 1 to 12000 do
    begin
      Series1.AddY(Random(20));
    end;
  finally
     Series1.EndUpdate;
  end;

Aber egal, ob ich Begin/End Update verwende: bei mir geht das Zeichnen sehr schnell (Lineseries, nur Defaultwerte). Ich denke, Du hast woanders ein Problem. Hast du denn schon mal mit einem Profiler geschaut, wo die Zeit verbraten wird?


Grüße,
Uli

[PhilmacFLy]

Also ich hab extra nochmal geschaut hier in 2k5 gibts kein BeginUpdate.

Ich hab grad mal das mit dem Random werten getestet und das ging eigentlich relativ fix.