diff options
Diffstat (limited to 'werteunit.pas')
| -rw-r--r-- | werteunit.pas | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/werteunit.pas b/werteunit.pas index 0ff189a..4b903b5 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -50,9 +50,9 @@ type procedure schreibeWert(var f: textfile; x,y,wert: extended); overload; procedure schreibeWertIntegriert(var f: textfile; i: longint; hor: boolean); procedure erzeugeBinning(senkrecht,linien: boolean; x0,dx: extended; s: string); - procedure holeRam; overload; - procedure holeRam(ausgaben: byte); overload; - procedure holeRam(ausgaben: byte; gemaeszTXMinMax: boolean); overload; + procedure holeRam; inline; overload; + procedure holeRam(ausgaben: byte); inline; overload; + procedure holeRam(ausgaben: byte; gemaeszTXMinMax: boolean); inline; overload; procedure gibMinMaxDichten(out wMi,wMa: extended; xmin,xmax,tmin,tmax: longint); function zuPixelWerten(whoehe,wbreite,xpmi,xmi,tmi: longint; xz,yz: extended; pPWerte: pTExtendedArray; pPAnzahlen: pTLongintArray): boolean; function findeSchwellwerte(xmi,xma,tmi,tma: longint; Schw: extended): tExtPointArray; @@ -78,6 +78,8 @@ type implementation +uses systemunit; + constructor tLLWerte.create(ps: tExtrainfos); begin inherited create; @@ -1102,9 +1104,13 @@ begin br:=params.xsteps; ho:=params.tsiz; 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); + if (ausgaben and __ausgabenMaske) <> 0 then + 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 '+timetostr(now-Zeit),ausgaben); + if (ausgaben and __ausgabenMaske) <> 0 then + gibAus('... fertig '+timetostr(now-Zeit),ausgaben); + end; function tLLWerte.zuPixelWerten(whoehe,wbreite,xpmi,xmi,tmi: longint; xz,yz: extended; pPWerte: pTExtendedArray; pPAnzahlen: pTLongintArray): boolean; |