From b4a5dbd9f4b5b1c07a935264148cf962d84461bf Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Thu, 23 Jul 2015 15:19:45 +0200 Subject: etliche Prozeduren in ../units/*.pas ausgelagert --- werteunit.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'werteunit.pas') 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; -- cgit v1.2.3-70-g09d2