etliche Prozeduren in ../units/*.pas ausgelagert

1 files changed, 3 insertions, 3 deletions

diff --git a/werteunit.pas b/werteunit.pas
index efbcd0d..6c81bff 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -5,7 +5,7 @@ unit werteunit;
 interface
 
 uses
-  Classes, SysUtils, typenunit, math, process;
+  Classes, SysUtils, typenunit, math, process, lowlevelunit;
 
 type
 // tLLWerte ********************************************************************
@@ -438,7 +438,7 @@ begin
      exit;
    end;
  end;
- gibAus('... fertig '+ZeitDarstellen(now-Zeit),1);
+ gibAus('... fertig '+timetostr(now-Zeit),1);
  result:=true;
 end;
 
@@ -1099,7 +1099,7 @@ begin
   end;
   gibAus('Fordere '+inttostr(floor(ho*br*sizeof(wgen)/1024/1024))+' MB RAM an ('+inttostr(br)+' x-Schritte mal '+inttostr(ho)+' t-Schritte; bisher '+inttostr(belegterSpeicher div 1024)+' MB belegt). ...',ausgaben);
   setlength(werte,br*ho);
-  gibAus('... fertig '+ZeitDarstellen(now-Zeit),ausgaben);
+  gibAus('... fertig '+timetostr(now-Zeit),ausgaben);
 end;
 
 function tLLWerte.zuPixelWerten(whoehe,wbreite,xpmi,xmi,tmi: longint; xz,yz: extended; pPWerte: pTExtendedArray; pPAnzahlen: pTLongintArray): boolean;