Geschätze Zeit

[Chris1986]

Hi
Wenn ich das richtig verstanden haben, dann willst du die Zeit Messen, die ein Programm braucht um eine bestimmte Anzahl von Datensätzen in einer Database zu bearbeiten und dann möchtest du für den User zusätzlich eine Restzeit in einem Label anzeigen, oder?
Also,
erstmal würde ich die Zeit nicht mit einem Timer messen.
Die Zeit die ein Programm für eine Aufgabe brauchtm würde ich folgendermaßen messen:

Delphi-Quellcode:

var Startzeit,            //Hier soll die Zeit gespeichert werden,  bevor das Prog anfängt
    Endzeit,              //Hier wird die Zeit gespeichert, wenn die Prozedur durchlaufen wurde
    Differenz: TDatetime; //Die benötigte Zeit
begin
  Startzeit := now; //now gibt die aktuelle Uhrzeit aus
  deine_Prozedur;  //deine DB wird durchlaufen
  Endzeit := now;  //Die Prozedur ist durchlaufen, die aktuelle Zeit wird gespeichert
  {Schön ist, dass man in Delphi die Möglichkeit hat in Delphi mit der Zeit zu rechnen}
  Differenz := Endzeit-Startzeit;
  showmessage ('Benötigte Zeit: '+timetostr(Differenz)); //gibt die Differenz aus
  {timetostr(:TDateTime) ist eine Funktion die die Zeit in einen string umwandelt}
end;

Soweit so gut. Das ist glaube ich nicht besonders schwierig
Die Restzeit ist etwas anspruchsvoller.
Die Restzeit ist eine geschätzte Zeit. D.h. zu 100% wird sie nie stimmen. Sie funtioniert aber ähnlich wie die Gesamtzeit.
Es wird die Zeit gemessen, die das Prog beispielsweise für einen Rechenschritt benötigt. Diese Zeit wird dann mit der Anzahl aller Rechenschritte multipliziert - die bis jetzt benötigte Zeit.

Heißt:

Delphi-Quellcode:

var Startzeit,
    Zwischenzeit,
    Differenz: TDateTime;
    count: integer;
const Anzahl_Datensaetze = 1000
begin
  Startzeit := now;
  for count := 1 to Anzahl_Datensaetze do
    begin
      berechne_Datensatz(count); //Deine Prozedur
      zwischenzeit := now;
      Differenz := Zwischenzeit - Startzeit;
      Label1.Caption := ('Restzeit: '+timetostr(Differenz/count*Anzahl_Datensaetze - Differenz));
      {Zeit bis jetzt/bis jetzt gerechnete Datensätze*alle Datensätze - Zeit bis jetzt}
    end;
end;

So funktioniert es allerdings nur in der Theorie. Um Felder aktualisieren zu können benötigst du zusätzlich eine Delay-Function. Außerdem ist es sinnlos bei jedem Rechenschritt das Label zu erneuern. Ich habe dir mal ein Prog angehängt, das ich für die Schule geschrieben habe.

MfG
Christian