Timerproblem

[DeddyH]

Genau, Du wirst schon je CPU ein Anzeige-Control brauchen.

BTW: Nette Namensgebung, hoffentlich steigst wenigstens Du da später noch durch.

[hathor]

Da fehlt was WICHTIGES!

Delphi-Quellcode:

procedure TTestForm.TimerTimer(Sender: TObject);
var i: Integer;
begin
    CollectCPUData; // MUSS IMMER AUFGERUFEN WERDEN !!!
    for i:=0 to GetCPUCount-1 do
    begin
    if GetCPUCount=2 then
    BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    END;
    if GetCPUCount=3 then
    BEGIN
    Label1.Caption := Format('CPU #%d - %5.2f%%',[0,GetCPUUsage(0)*100]);
    Label2.Caption := Format('CPU #%d - %5.2f%%',[1,GetCPUUsage(1)*100]);
    END;
    if GetCPUCount=4 then
    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;
    if GetCPUCount=5 then
    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;
end;

Nicht getestet - aber so könnte es funktionieren...

ÄNDERE BITTE DIE ÜBERSCHRIFT - die ist total falsch und beschreibt nicht das Problem!
Vorschlag: adCPUUsage - wie im Timer anwenden?

[fpr1]

danke für die Antworten

das Problem lag an der Verwendung des Labels
muss natürlich ne mehrzeilige Komponente sein

ich dacht ich bräuchte das nicht da ich ja nur nen Singlecore hab bis mir aufgefallen ist, dass der virtuelle da auch aufgeführt wird