Timerproblem

[hathor]

Stimmt - ich hatte die Werte erst in ein Memo geschrieben und dann in Labels geändert...
Hat aber lange gedauert, bis es jemand auffiel!

Dann besser so:

Delphi-Quellcode:

procedure TTestForm.TimerTimer(Sender: TObject);
begin
    CollectCPUData; // MUSS IMMER AUFGERUFEN WERDEN !!!
case GetCPUCount of 
2:  Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
3:  BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    Label2.Caption := Format('CPU #%d - %5.2f%%',[1,GetCPUUsage(1)*100]);
    END;
4:  BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    Label2.Caption := Format('CPU #%d - %5.2f%%',[1,GetCPUUsage(1)*100]);
    Label3.Caption := Format('CPU #%d - %5.2f%%',[2,GetCPUUsage(2)*100]);
    END;
5:  BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    Label2.Caption := Format('CPU #%d - %5.2f%%',[1,GetCPUUsage(1)*100]);
    Label3.Caption := Format('CPU #%d - %5.2f%%',[2,GetCPUUsage(2)*100]);
    Label4.Caption := Format('CPU #%d - %5.2f%%',[3,GetCPUUsage(3)*100]);
    END;
end;