CPU Auslastung mit Graph | Probleme

[markus5766h]

Hallo,

ein paar Dinge sind mir auf die Schnelle mal aufgefallen :

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

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;