groß-Klein-schreibung repariert

1 files changed, 32 insertions, 32 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 31dc0ca..700ab5c 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -76,7 +76,7 @@ type
     function init(sT: boolean; f: tMyStringList; w: pTWerteArray; mT: longint): boolean;
     function liesVonDatei(sT: boolean; s: string; xMi,xMa,tMi,tMa: extended): boolean;
     function erzeugeAusWerten(sT: boolean; s: string; w: pTWerteArray; mT: longint; _xmin,_xmax,_tmin,_tmax: string): boolean;
-    function erzeugeAusFunktion(sT: boolean; s: string; xMi,xMa,tMi,tMa,dx,dt: extended; mT: longint): boolean;
+    function erzeugeAusFunktion(sT: boolean; s: string; xMi,xMa,tMi,tMa,dX,dT: extended; mT: longint): boolean;
     property xMin: extended read rxmin;
     property xMax: extended read rxmax;
     property tMin: extended read rtmin;
@@ -6247,7 +6247,7 @@ end;
 function tWerte.erzeugeBinning(sT: boolean; params: string): boolean;
 var
   senkrecht,linien: boolean;
-  Zeit,x0,dx:       extended;
+  Zeit,x0,dX:       extended;
 begin
   result:=false;
   warteAufBeendigungDesLeseThreads;
@@ -6265,7 +6265,7 @@ begin
   params:=trim(params);
   linien:=startetMit('(Gnuplotlinien)',params);
   x0:=kont2disk(char(ord('x')+byte(senkrecht)),exprToFloat(sT,erstesArgument(params)));
-  dx:=kont2diskFak(char(ord('x')+byte(senkrecht)),exprToFloat(sT,erstesArgument(params)));
+  dX:=kont2diskFak(char(ord('x')+byte(senkrecht)),exprToFloat(sT,erstesArgument(params)));
 
   if pos(' ',params)>0 then begin
     gibAus('Leerzeichen im Dateinamen sind nicht erlaubt!',3);
@@ -6275,11 +6275,11 @@ begin
   if not sT then
     case genauigkeit of
       gSingle:
-        sWerte.erzeugeBinning(senkrecht,linien,x0,dx,params);
+        sWerte.erzeugeBinning(senkrecht,linien,x0,dX,params);
       gDouble:
-        dWerte.erzeugeBinning(senkrecht,linien,x0,dx,params);
+        dWerte.erzeugeBinning(senkrecht,linien,x0,dX,params);
       gExtended:
-        eWerte.erzeugeBinning(senkrecht,linien,x0,dx,params);
+        eWerte.erzeugeBinning(senkrecht,linien,x0,dX,params);
     end{of case};
   gibAus('... fertig '+timetostr(now-Zeit),1);
   result:=true;
@@ -7559,7 +7559,7 @@ end;
 
 function tKontur.init(sT: boolean; f: tMyStringList; w: pTWerteArray; mT: longint): boolean;
 var
-  s,xMi,xMa,tMi,tMa,dx,dt: string;
+  s,xMi,xMa,tMi,tMa,dX,dT: string;
   i,j,k:                   longint;
   bekannteBefehle:         tMyStringList;
 begin
@@ -7569,8 +7569,8 @@ begin
   xMa:='1e9';
   tMi:='-1e9';
   tMa:='1e9';
-  dx:='1';
-  dt:='1';
+  dX:='1';
+  dT:='1';
   bekannteBefehle:=tMyStringList.create;
   repeat
     if not f.metaReadln(s,true) then begin
@@ -7618,12 +7618,12 @@ begin
       tMa:=s;
       continue;
     end;
-    if istDasBefehl('dx:',s,bekannteBefehle,true) then begin
-      dx:=s;
+    if istDasBefehl('dX:',s,bekannteBefehle,true) then begin
+      dX:=s;
       continue;
     end;
-    if istDasBefehl('dy:',s,bekannteBefehle,true) or istDasBefehl('dt:',s,bekannteBefehle,true) then begin
-      dt:=s;
+    if istDasBefehl('dY:',s,bekannteBefehle,true) or istDasBefehl('dT:',s,bekannteBefehle,true) then begin
+      dT:=s;
       continue;
     end;
     if istDasBefehl('reduziere nach',s,bekannteBefehle,true) then begin
@@ -7678,8 +7678,8 @@ begin
                exprToFloat(sT,xMa,nil),
                exprToFloat(sT,tMi,nil),
                exprToFloat(sT,tMa,nil),
-               exprToFloat(sT,dx,nil),
-               exprToFloat(sT,dt,nil),
+               exprToFloat(sT,dX,nil),
+               exprToFloat(sT,dT,nil),
                mT) then begin
         bekannteBefehle.free;
         exit;
@@ -7793,7 +7793,7 @@ begin
   result:=true;
 end;
 
-function tKontur.erzeugeAusFunktion(sT: boolean; s: string; xMi,xMa,tMi,tMa,dx,dt: extended; mT: longint): boolean;
+function tKontur.erzeugeAusFunktion(sT: boolean; s: string; xMi,xMa,tMi,tMa,dX,dT: extended; mT: longint): boolean;
 var
   xf,yf:        string;
   kvs:          tKnownValues;
@@ -7823,8 +7823,8 @@ begin
   result:=
     pOIndexInnerhalb(i1) and
     pOIndexInnerhalb(i2) and
-    (abs(round(pOrte[i1,1]/dx)-round(pOrte[i2,1]/dx))<=1) and
-    (abs(round(pOrte[i1,2]/dt)-round(pOrte[i2,2]/dt))<=1);
+    (abs(round(pOrte[i1,1]/dX)-round(pOrte[i2,1]/dX))<=1) and
+    (abs(round(pOrte[i1,2]/dT)-round(pOrte[i2,2]/dT))<=1);
 end;
 
 function baustelleUeberfluessig(i: longint): boolean; inline;
@@ -7879,9 +7879,9 @@ begin
 
     inc(lenPO);
     if baustellen[lenB-1,'x']=low(longint) then
-      pOrte[lenPO-1,0]:=pOrte[baustellen[lenB-1,'y'],0]-max(round(max(dx,dt)),1)
+      pOrte[lenPO-1,0]:=pOrte[baustellen[lenB-1,'y'],0]-max(round(max(dX,dT)),1)
     else if baustellen[lenB-1,'y']=high(longint) then
-      pOrte[lenPO-1,0]:=pOrte[baustellen[lenB-1,'x'],0]+max(round(max(dx,dt)),1)
+      pOrte[lenPO-1,0]:=pOrte[baustellen[lenB-1,'x'],0]+max(round(max(dX,dT)),1)
     else
       pOrte[lenPO-1,0]:=(pOrte[baustellen[lenB-1,'x'],0] + pOrte[baustellen[lenB-1,'y'],0])/2;
     berechnePOrt(lenPO-1);
@@ -8696,38 +8696,38 @@ end;
 
 procedure tRadonTransformationsThread.stExecute;
 var
-  dx,dy: extended;
+  dX,dY: extended;
 begin
   gibAus('RadonTransformationsThread gestartet',1);
-  dx:=(zi._xStop-zi._xStart)/(zi._xSteps-1);
-  dy:=(zi._tStop-zi._tStart)/(zi._tSiz-1);
+  dX:=(zi._xStop-zi._xStart)/(zi._xSteps-1);
+  dY:=(zi._tStop-zi._tStart)/(zi._tSiz-1);
   case zi.genauigkeit of
     gSingle:
       case qu.genauigkeit of
         gSingle:
-          zi.sWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteSingle(@qu.sWerte));
+          zi.sWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteSingle(@qu.sWerte));
         gDouble:
-          zi.sWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteDouble(@qu.dWerte));
+          zi.sWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteDouble(@qu.dWerte));
         gExtended:
-          zi.sWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteExtended(@qu.eWerte));
+          zi.sWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteExtended(@qu.eWerte));
       end{of case};
     gDouble:
       case qu.genauigkeit of
         gSingle:
-          zi.dWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteSingle(@qu.sWerte));
+          zi.dWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteSingle(@qu.sWerte));
         gDouble:
-          zi.dWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteDouble(@qu.dWerte));
+          zi.dWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteDouble(@qu.dWerte));
         gExtended:
-          zi.dWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteExtended(@qu.eWerte));
+          zi.dWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteExtended(@qu.eWerte));
       end{of case};
     gExtended:
       case qu.genauigkeit of
         gSingle:
-          zi.eWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteSingle(@qu.sWerte));
+          zi.eWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteSingle(@qu.sWerte));
         gDouble:
-          zi.eWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteDouble(@qu.dWerte));
+          zi.eWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteDouble(@qu.dWerte));
         gExtended:
-          zi.eWerte.radonTransformation(xMi,xMa,dx,dy,pTLLWerteExtended(@qu.eWerte));
+          zi.eWerte.radonTransformation(xMi,xMa,dX,dY,pTLLWerteExtended(@qu.eWerte));
       end{of case};
   end{of case};
   gibAus('RadonTransformationsThread beendet',1);