diff options
Diffstat (limited to 'fhunit.pas')
-rw-r--r-- | fhunit.pas | 16 |
1 files changed, 11 insertions, 5 deletions
@@ -544,11 +544,12 @@ end; procedure tMessPunkte.laden(von: string); var - sl: tMyStringList; - pt: pointer; - len: longint; - s: string; - i: longint; + sl: tMyStringList; + pt: pointer; + len: longint; + s: string; + i: longint; + z1,z2: extended; begin if not fileexists(von) then begin writeln('Messwertedatei '''+von+''' existiert nicht!'); @@ -556,8 +557,11 @@ begin exit; end; + z1:=-now; loadFromGeneric(von,pt,len); + z1:=z1+now; + z2:=-now; if pLongint(pt)^ <> 314159265 then begin // magische Zahl nicht gefunden -> Rückfallebene: Text! sl:=tMyStringList.create; setlength(s,len); @@ -569,6 +573,7 @@ begin end else werte.pmud(pt+2*sizeof(longint),(pLongint(pt)+1)^,len-2*sizeof(longint)); + z2:=z2+now; freemem(pt); if length(muts)=0 then begin @@ -576,6 +581,7 @@ begin for i:=0 to length(muts)-1 do muts[i]:=tMessPunkteUpdateThread.create(self,i,length(muts)); end; + writeln('Wetterzeiten: ',z1*24*60*60,' (Datei) ',z2*24*60*60,' (Konversion)'); end; procedure tMessPunkte.speichern(nach: string); |