Ich habe keine Ahnung wie der Algorithmus genau heist, aber Du must die bisherige Zeit mit einbeziehen
Delphi-Quellcode:
var
dat,xmess,xneu,xalt:TDatetime;
Anzahl:Integer;
n:Integer;
Restdauer:TDatetime;
const
k = 0.950;
begin
xneu:=-1;
xalt=0;
for n:=1 to Anzahl do
begin
dat := time;
//Machwas
xmess := time - dat;
if xneu = -1 then
xneu := xmess
else
xneu := K * xalt + (1 - K) * xmess;
xalt := xneu;
Restdauer := Anzahl * xneu;
end;
Anzahl wäre bei Dir sl.count