diff options
author | Erich Eckner <git@eckner.net> | 2015-11-18 11:21:32 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2015-11-20 09:20:13 +0100 |
commit | 59bdb4597ff1807fe02fd1dd9ba3354ddbec48c8 (patch) | |
tree | fa8fe034157eb5b0bd01bc53508c6618d386fbe6 /fhunit.pas | |
parent | acb788aa47c3489962adfc2899cd5b167c4cbcaa (diff) | |
download | FH-Wetter-59bdb4597ff1807fe02fd1dd9ba3354ddbec48c8.tar.xz |
Zeiten zum Speichern werden jetzt auch gemessenzeitmessung
Diffstat (limited to 'fhunit.pas')
-rw-r--r-- | fhunit.pas | 16 |
1 files changed, 13 insertions, 3 deletions
@@ -586,26 +586,36 @@ end; procedure tMessPunkte.speichern(nach: string); var - sl: tMyStringList; - pt: pointer; - i: longint; + sl: tMyStringList; + pt: pointer; + i: longint; + z1,z2: extended; begin if rightstr(nach,4)='.txt' then begin // Rückfallebene: Text + z2:=-now; sl:=tMyStringList.create; for i:=0 to werte.count-1 do sl.add(werte[i].schreibe); + z2:=z2+now; + z1:=-now; sl.saveToFile(nach); + z1:=z1+now; sl.free; end else begin + z2:=-now; i:=werte.size; getmem(pt,i+2*sizeof(longint)); pLongint(pt)^:=314159265; // magische Zahl (pLongint(pt)+1)^:=0; // Version werte.dump(pt+2*sizeof(longint)); + z2:=z2+now; + z1:=-now; saveToGeneric(nach,pt,i+2*sizeof(longint)); + z1:=z1+now; freemem(pt); end; + writeln('Wetterzeiten: ',z1*24*60*60,' (Datei) ',z2*24*60*60,' (Konversion)'); end; procedure tMessPunkte.achsenZeichnen(zuZeichnen: tMessGroeszenSet; startZeit,stopZeit: extended); |