Groß-/Kleinschreibung

1 files changed, 9 insertions, 9 deletions

diff --git a/typenunit.pas b/typenunit.pas
index 75f2db9..f89fc97 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -409,7 +409,7 @@ type
   tKonkreteKoordinatenTransformation = class (tKoordinatenTransformation)
   private
     // eine konkrete Verzerrung der Koordinaten (linearer + logarithmischer + exponentieller Anteil)
-    function findeLineareParameter(syntaxtest: boolean; auszenSkala: char; s: string; xScale,yScale: extended; var off,xl,yl: extended; ueberschreiben: boolean; etf: tExprToFloat): boolean;
+    function findeLineareParameter(syntaxTest: boolean; auszenSkala: char; s: string; xScale,yScale: extended; var off,xl,yl: extended; ueberschreiben: boolean; etf: tExprToFloat): boolean;
   public
     lnInt,                       // Faktoren in den ln-Argumenten
     expExp,                      // Exponenten der Exponentialfunktionen
@@ -420,7 +420,7 @@ type
     expFak: tExtPoint;           // Vorfaktoren der Exponentialfunktionen
     constructor create; overload;
     function transformiereKoordinatenEinzeln(const p: tExtPoint): tExtPoint; override; overload;
-    function initAbbildung(syntaxtest: boolean; s: string; xScale,yScale: extended; etf: tExprToFloat): boolean;
+    function initAbbildung(syntaxTest: boolean; s: string; xScale,yScale: extended; etf: tExprToFloat): boolean;
     function zielausdehnung: t2x2Longint;
     procedure aktualisiereXsTs; override;
     // keine Änderung der Achsenbegrenzungen, der Werte(skalierung)
@@ -2027,7 +2027,7 @@ begin
   end;
 end;
 
-function tKonkreteKoordinatenTransformation.findeLineareParameter(syntaxtest: boolean; auszenSkala: char; s: string; xScale,yScale: extended; var off,xl,yl: extended; ueberschreiben: boolean; etf: tExprToFloat): boolean;
+function tKonkreteKoordinatenTransformation.findeLineareParameter(syntaxTest: boolean; auszenSkala: char; s: string; xScale,yScale: extended; var off,xl,yl: extended; ueberschreiben: boolean; etf: tExprToFloat): boolean;
 var
   t:   string;
   c:   char;
@@ -2056,7 +2056,7 @@ begin
     if t='' then tmp:=1
     else if t='-' then tmp:=-1
     else try
-      tmp:=etf(syntaxtest,t);
+      tmp:=etf(syntaxTest,t);
       case c of
         'x': tmp:=tmp*xScale;
         'y': tmp:=tmp*yScale;
@@ -2101,7 +2101,7 @@ begin
   end;
 end;
 
-function tKonkreteKoordinatenTransformation.initAbbildung(syntaxtest: boolean; s: string; xScale,yScale: extended; etf: tExprToFloat): boolean;
+function tKonkreteKoordinatenTransformation.initAbbildung(syntaxTest: boolean; s: string; xScale,yScale: extended; etf: tExprToFloat): boolean;
 var
   c,d:   char;
   i:     longint;
@@ -2143,7 +2143,7 @@ begin
       if v='' then tmp:=1
       else if v='-' then tmp:=-1
       else try
-        tmp:=etf(syntaxtest,v);
+        tmp:=etf(syntaxTest,v);
         if c='x' then tmp:=tmp/xScale
         else tmp:=tmp/yScale;
       except
@@ -2151,19 +2151,19 @@ begin
       end;
       if copy(t,pos('(',t)-3,3)='log' then begin
         lnFak[c]:=tmp;
-        if not findeLineareParameter(syntaxtest,' ',u,xScale,yScale,lnOff[c],lnInt[c,'x'],lnInt[c,'y'],true,etf) then exit;
+        if not findeLineareParameter(syntaxTest,' ',u,xScale,yScale,lnOff[c],lnInt[c,'x'],lnInt[c,'y'],true,etf) then exit;
       end
       else if copy(t,pos('(',t)-3,3)='exp' then begin
         expFak[c]:=tmp;
         tmp:=0;
-        if not findeLineareParameter(syntaxtest,' ',u,xScale,yScale,tmp,expExp[c,'x'],expExp[c,'y'],true,etf) then exit;
+        if not findeLineareParameter(syntaxTest,' ',u,xScale,yScale,tmp,expExp[c,'x'],expExp[c,'y'],true,etf) then exit;
         if tmp<>0 then exit;
       end
       else exit;
       delete(t,i,pos(')',t)-i+1);
     end;
     if t<>'' then
-      if not findeLineareParameter(syntaxtest,c,t,xScale,yScale,off[c],lin[c,'x'],lin[c,'y'],false,etf) then exit;
+      if not findeLineareParameter(syntaxTest,c,t,xScale,yScale,off[c],lin[c,'x'],lin[c,'y'],false,etf) then exit;
     t:=s;
   end;
   result:=true;