Groß-/Kleinschreibung

1 files changed, 36 insertions, 36 deletions

diff --git a/epost.lpr b/epost.lpr
index 970c74b..2af9cc7 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -16,10 +16,10 @@ var
   maxThreads,i,j,k:           longint;
   inf,bekannteBefehle:        tMyStringList;
   s:                          string;
-  b,syntaxtest,parallelLesen: boolean;
+  b,syntaxTest,parallelLesen: boolean;
   wertes:                     tWerteArray;
   konturen:                   tKonturenArray;
-  Warnstufe:                  tWarnstufe;
+  Warnstufe:                  tWarnStufe;
 
 procedure werteAufraeumen;
 var
@@ -46,7 +46,7 @@ begin
   cleanupLogs;
   if (not (paramcount in [1,2])) or
     ((paramcount=2) and (paramstr(2)<>'-L')) or
-    not fileexists(paramstr(1)) then begin
+    not fileExists(paramstr(1)) then begin
     gibAus('Verwendung: '+paramstr(0)+' input.epost',3);
     gibAus('oder:       '+paramstr(0)+' input.epost -L',3);
     halt(1);
@@ -68,8 +68,8 @@ begin
 
   bekannteBefehle:=tMyStringList.create;
 
-  for syntaxtest:=true downto false do begin
-    if not syntaxtest then
+  for syntaxTest:=true downto false do begin
+    if not syntaxTest then
       gibAus('Syntaxtest bestanden!',3);
     inf.rewind;
     repeat
@@ -115,12 +115,12 @@ begin
         continue;
       end;
       if istDasBefehl('externer Befehl:',s,bekannteBefehle,true) then begin
-        if externerBefehl(syntaxtest,s) then continue;
+        if externerBefehl(syntaxTest,s) then continue;
         aufraeumen;
         halt(1);
       end;
       if istDasBefehl('warte auf externe Befehle',s,bekannteBefehle,false) then begin
-        if not syntaxtest then begin
+        if not syntaxTest then begin
           warteAufExterneBefehle;
           for i:=0 to length(wertes)-1 do
             wertes[i].warteAufBeendigungDesLeseThreads;
@@ -128,7 +128,7 @@ begin
         continue;
       end;
       if istDasBefehl('exprtofloat-Test:',s,bekannteBefehle,true) then begin
-        gibAus('exprtofloat-Test: '+s+'='+floatToStr(wertes[length(wertes)-1].exprToFloat(syntaxtest,s)),3);
+        gibAus('exprtofloat-Test: '+s+'='+floatToStr(wertes[length(wertes)-1].exprToFloat(syntaxTest,s)),3);
         continue;
       end;
       if istDasBefehl('dupliziere',s,bekannteBefehle,true) then begin
@@ -147,7 +147,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        wertes[j].kopiereVon(syntaxtest,wertes[i]);
+        wertes[j].kopiereVon(syntaxTest,wertes[i]);
         continue;
       end;
       if istDasBefehl('erzeuge Dummy-Werte',s,bekannteBefehle,true) then begin
@@ -161,7 +161,7 @@ begin
         wertes[i]:=tWerte.create(@konturen,@wertes);
         wertes[i].bezeichner:=s;
         if b then
-          wertes[i].fuelleMitDummys(syntaxtest);
+          wertes[i].fuelleMitDummys(syntaxTest);
         continue;
       end;
       if istDasBefehl('mache komplex',s,bekannteBefehle,true) then begin
@@ -170,7 +170,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].macheKomplex(syntaxtest,inf,maxThreads) then
+        if wertes[i].macheKomplex(syntaxTest,inf,maxThreads) then
           continue;
         aufraeumen;
         halt(1);
@@ -182,14 +182,14 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].ladeDateien(syntaxtest,inf,parallelLesen,b) then
+        if wertes[i].ladeDateien(syntaxTest,inf,parallelLesen,b) then
           continue;
         aufraeumen;
         halt(1);
       end;
       if istDasBefehl('Ascii laden',s,bekannteBefehle,true) then begin
         i:=findeWerte(erstesArgument(s),inf,@wertes,@konturen,true);
-        if wertes[i].ladeAscii(syntaxtest,s) then
+        if wertes[i].ladeAscii(syntaxTest,s) then
           continue;
         aufraeumen;
         halt(1);
@@ -200,7 +200,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneLiKo(syntaxtest,inf,maxThreads) then
+        if wertes[i].berechneLiKo(syntaxTest,inf,maxThreads) then
           continue;
         aufraeumen;
         halt(1);
@@ -211,7 +211,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneAgglomeration(syntaxtest,inf) then
+        if wertes[i].berechneAgglomeration(syntaxTest,inf) then
           continue;
         aufraeumen;
         halt(1);
@@ -242,7 +242,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[k].berechneQuotient(syntaxtest,inf,maxThreads,i,j) then
+        if wertes[k].berechneQuotient(syntaxTest,inf,maxThreads,i,j) then
           continue;
         aufraeumen;
         halt(1);
@@ -273,7 +273,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[k].berechneProdukt(syntaxtest,inf,maxThreads,i,j) then
+        if wertes[k].berechneProdukt(syntaxTest,inf,maxThreads,i,j) then
           continue;
         aufraeumen;
         halt(1);
@@ -284,7 +284,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneFFT2d(syntaxtest,inf,maxThreads,Warnstufe) then
+        if wertes[i].berechneFFT2d(syntaxTest,inf,maxThreads,Warnstufe) then
           continue;
         aufraeumen;
         halt(1);
@@ -295,7 +295,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneFFT(syntaxtest,inf,maxThreads,Warnstufe) then
+        if wertes[i].berechneFFT(syntaxTest,inf,maxThreads,Warnstufe) then
           continue;
         aufraeumen;
         halt(1);
@@ -306,7 +306,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].fitteGausze(syntaxtest,inf,maxThreads) then
+        if wertes[i].fitteGausze(syntaxTest,inf,maxThreads) then
           continue;
         aufraeumen;
         halt(1);
@@ -327,7 +327,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneZeitfrequenzanalyse(syntaxtest,inf,maxThreads,wertes[j],Warnstufe) then
+        if wertes[i].berechneZeitfrequenzanalyse(syntaxTest,inf,maxThreads,wertes[j],Warnstufe) then
           continue;
         aufraeumen;
         halt(1);
@@ -348,7 +348,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneVerzerrung(syntaxtest,inf,maxThreads,wertes[j],Warnstufe) then
+        if wertes[i].berechneVerzerrung(syntaxTest,inf,maxThreads,wertes[j],Warnstufe) then
           continue;
         aufraeumen;
         halt(1);
@@ -369,7 +369,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneLambdaZuOmegaVerzerrung(syntaxtest,inf,maxThreads,wertes[j]) then
+        if wertes[i].berechneLambdaZuOmegaVerzerrung(syntaxTest,inf,maxThreads,wertes[j]) then
           continue;
         aufraeumen;
         halt(1);
@@ -380,7 +380,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].entferneArtefakte(syntaxtest,inf,maxThreads) then
+        if wertes[i].entferneArtefakte(syntaxTest,inf,maxThreads) then
           continue;
         aufraeumen;
         halt(1);
@@ -391,7 +391,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].extrahiereEinhuellende(syntaxtest,inf,maxThreads,Warnstufe) then
+        if wertes[i].extrahiereEinhuellende(syntaxTest,inf,maxThreads,Warnstufe) then
           continue;
         aufraeumen;
         halt(1);
@@ -402,7 +402,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].extrahierePhase(syntaxtest,inf,maxThreads,Warnstufe) then
+        if wertes[i].extrahierePhase(syntaxTest,inf,maxThreads,Warnstufe) then
           continue;
         aufraeumen;
         halt(1);
@@ -413,7 +413,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].findeMaximum(syntaxtest,inf,maxThreads,Warnstufe) then
+        if wertes[i].findeMaximum(syntaxTest,inf,maxThreads,Warnstufe) then
           continue;
         aufraeumen;
         halt(1);
@@ -434,7 +434,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneIntegral(syntaxtest,inf,maxThreads,wertes[j]) then
+        if wertes[i].berechneIntegral(syntaxTest,inf,maxThreads,wertes[j]) then
           continue;
         aufraeumen;
         halt(1);
@@ -455,7 +455,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].berechneKorrelation(syntaxtest,inf,maxThreads,wertes[j]) then
+        if wertes[i].berechneKorrelation(syntaxTest,inf,maxThreads,wertes[j]) then
           continue;
         aufraeumen;
         halt(1);
@@ -471,7 +471,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        wertes[i].ermittleMinMaxDichten(syntaxtest,maxThreads,b);
+        wertes[i].ermittleMinMaxDichten(syntaxTest,maxThreads,b);
         continue;
       end;
       if istDasBefehl('maximale und minimale Dichten angleichen',s,bekannteBefehle,true) then begin
@@ -481,7 +481,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        wertes[i].gleicheMinMaxDichtenAn(syntaxtest,inf,b);
+        wertes[i].gleicheMinMaxDichtenAn(syntaxTest,inf,b);
         continue;
       end;
       if istDasBefehl('lineares Bild',s,bekannteBefehle,true) then begin
@@ -490,7 +490,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if not wertes[i].erzeugeLinearesBild(syntaxtest,inf,maxThreads) then begin
+        if not wertes[i].erzeugeLinearesBild(syntaxTest,inf,maxThreads) then begin
           aufraeumen;
           halt(1);
         end;
@@ -502,7 +502,7 @@ begin
           aufraeumen;
           halt(1);
         end;
-        if not wertes[i].erzeugeAscii(syntaxtest,inf) then begin
+        if not wertes[i].erzeugeAscii(syntaxTest,inf) then begin
           aufraeumen;
           halt(1);
         end;
@@ -510,7 +510,7 @@ begin
       end;
       if istDasBefehl('Lineout',s,bekannteBefehle,true) then begin
         i:=findeWerte(erstesArgument(s),nil,@wertes,@konturen,false);
-        if (i<0) or not wertes[i].erzeugeLineout(syntaxtest,s) then begin
+        if (i<0) or not wertes[i].erzeugeLineout(syntaxTest,s) then begin
           aufraeumen;
           halt(1);
         end;
@@ -518,7 +518,7 @@ begin
       end;
       if istDasBefehl('Binning',s,bekannteBefehle,true) then begin
         i:=findeWerte(erstesArgument(s),nil,@wertes,@konturen,false);
-        if (i<0) or not wertes[i].erzeugeBinning(syntaxtest,s) then begin
+        if (i<0) or not wertes[i].erzeugeBinning(syntaxTest,s) then begin
           aufraeumen;
           halt(1);
         end;
@@ -559,7 +559,7 @@ begin
       end;
       if istDasBefehl('Kontur',s,bekannteBefehle,true) then begin
         i:=findeKontur(s,inf,@wertes,@konturen,true);
-        if (i>=0) and konturen[i].init(syntaxtest,inf,@wertes,maxThreads) then continue;
+        if (i>=0) and konturen[i].init(syntaxTest,inf,@wertes,maxThreads) then continue;
         aufraeumen;
         halt(1);
       end;