CPU Auslastung mit Graph | Probleme

[S4SH1981]

Hier mein kleines Programm, dass mir die aktuelle CPU Auslastung anzeigt und diesen Wert in eine Paintbox zeichnet.

Soweit so gut, funktionieren tut alles schon wunderbar.
Für das Austesten von Programmkomponenten für ein größeres Programm ist das Design zweitrangig.

Habe jetzt nur das Problem, dass sich das Programm ab und zu, (keine Ahnung was passiert) aufhängt und nurnoch einen Wert anzeigt. Programm weiter bedienbar, also verschiebar, usw.
Nur es bleibt z.B. bei 100 %.
Vielleicht kann mir ja jemand bei dieser Kuriosität helfen.

Und trotz dubblebuffered ruckelt das Teil bei z.B. zusätzlichem GRaph mit auslesen des Arbeitsspeichers.

[markus5766h]

Hallo,

ein paar Dinge sind mir auf die Schnelle mal aufgefallen :

1) Quelltext : "l := -0;" :?::gruebel::gruebel:

2) warum zeichnest Du alle 50mS, wenn Du nur alle 800mS einen neuen Wert bekommst ?

3)

Code:

procedure TForm1.Timer2Timer(Sender: TObject);
var cpu: single;
begin
  cpu := CPUUssage;
  edit1.text := inttostr(round(cpu));
  Pulse[MaxArray] := strtoint(edit1.text);
end;

.... sollte man vieleicht mal ändern :

Code:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Pulse[MaxArray] := round(CPUUssage); // CPUUsage ist doch schon ein Single,
  edit1.text := inttostr(round(CPUUsage));  // muß also nicht mehr in cpu umgewandelt werden
end;