schnelle lösung um anmeldezeit zu berechnen!????

[ffomoon]

ich hab immernoch ein problem!
mir konnte vor dem wochenende keiner helfen!
ich benutze eine paradoy7 tabelle!
wo folgende felder vorhanden sind user_nr, zeit, datum!
nun hab ich folgendes gemacht um die anmeldezeiten zu berechnen!
der nachteil bei der geschichte ist das jeder datensatz einzeiln ausgelesen wird!
und da ich mit einer tabelle arbeite die mehrere 1000 datensätze enthalten könnte!!
dauert das nätürlich zu lange!
nun die frage hat jemand eine idee wie man das problem lösen kann,
ohne das es so lange dauert??

Delphi-Quellcode:

var Arbeitszeit,tmp:TDateTime; 
    Tage:integer; 
begin 
if DBuserNR.Text<>'' then  {DBuserNr : TDBedit; } 
  begin 
   Logdatei.First; 
   Arbeitszeit:=0; 
    repeat 
     tmp:=0; 
     if (tmp=0) and (Logdatei.Fields.Fields[6].AsString='1') and (Logdatei.Fields.Fields[1].AsString<>'') then 
      begin 
       tmp:=Logdatei.Fields.Fields[0].AsDateTime+Logdatei.Fields.Fields[1].AsDateTime; 
        repeat 
         Logdatei.Next; 
        until (Logdatei.Fields.Fields[6].AsString='2') or Logdatei.Eof; 
         if Logdatei.Eof then Arbeitszeit:=Arbeitszeit+Now-tmp; 
          if Logdatei.Fields.Fields[6].AsString='2' then 
           Arbeitszeit:=Arbeitszeit+(Logdatei.Fields.Fields[0].AsDateTime+Logdatei.Fields.Fields[1].AsDateTime)-tmp; 
      end; 
       Logdatei.Next; 
    until Logdatei.Eof; 
     Logdatei.First; 
     Tage:=trunc(Arbeitszeit); 
     Arbeitszeit:=Arbeitszeit-Tage; 
    if Tage>0 then Label5.Caption:='Anmeldezeit: '+IntToStr(Tage); 
     if Tage=1 then Label5.Caption:='Anmeldezeit: '+Label5.Caption+'Tag '; 
      if Tage>1 then Label5.Caption:='Anmeldezeit: '+Label5.Caption+'Tage '; 
       Label5.Caption:='Anmeldezeit von '+ComboBoxUSER.Text+': '+TimeToStr(Arbeitszeit)+' Std\Min\Sek'; 
  end; 
end;

mfg

moon