Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Eigenen Timer schreiben

    Delphi
    by himitsu, 19. Feb 2009
  Wenn du Intervall auf 1000 stellt, dann entspräche dieses deiner alten Funktion.
  
  da wird ja alle etwa einer Sekunde was in's Memo geschrieben und das für die Zeit von Dauer ... also (Dauer / 1000) Mal.
  
  für die Dauer hab ich hier einfach mal die Intervalldauer des Timers genommen :angel:
  
  Es wird also Timer1Count Mal in Timer1.Intervall-Millisekunden-Intervallen das Ereignis ausgeführt,...
• Forum: Sonstige Fragen zu Delphi

  Re: Eigenen Timer schreiben

    Delphi
    by himitsu, 19. Feb 2009
  Wozu bitte einen eigenen Timer erstellen?
  
  Und klar, daß die Last auf 100% hoch geht, schließlich führst du dort eine "schnelle" Schleife aus,
  wo STÄNDIG dieses "if (systime+1000)<=GetTickCount then begin" ausgeführt wird.
  
  für dein Probleme würde sich ein Sleep eignen, was die CPU-Last begrenzt:
  procedure TForm1.Timer(dauer: integer);
  var systime,zaehler: integer;
  begin
  zaehler:=0;