epostunit.pas: fix capitalization

1 files changed, 7 insertions, 7 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 545c4a8..d215ee0 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -1194,7 +1194,7 @@ begin
         dat[length(dat)-1]:=tSpaceTimeInputDateiInfo.create(vorlage);
       if vorlage is tPipeInputDateiInfo then
         dat[length(dat)-1]:=tPipeInputDateiInfo.create(vorlage);
-      dat[length(dat)-1].name:=extractfilepath(nam)+extractfilename(sR.name);
+      dat[length(dat)-1].name:=extractFilePath(nam)+extractFileName(sR.name);
       err:=findNext(sR);
     end;
     findClose(sR);
@@ -1291,11 +1291,11 @@ begin
       continue;
     end;
     if istDasBefehl('Inputparameterdatei:',s,bekannteBefehle,true) then begin
-      if (not mitGewalt) and (not fileExists(extractfilepath(s)+'times-1')) and
+      if (not mitGewalt) and (not fileExists(extractFilePath(s)+'times-1')) and
         ((vorlagen.fehlerBehebungsKommando='') or
           (sysutils.executeProcess(vorlagen.fehlerBehebungsProgramm,vorlagen.fehlerBehebungsParameter,[])<>0) or
-          not fileExists(extractfilepath(s)+'times-1')) then begin
-        gibAus('Die Simulation in '''+extractfilepath(s)+''' ist nicht abgeschlossen!',3);
+          not fileExists(extractFilePath(s)+'times-1')) then begin
+        gibAus('Die Simulation in '''+extractFilePath(s)+''' ist nicht abgeschlossen!',3);
         aufraeumen;
         exit;
       end;
@@ -9201,11 +9201,11 @@ begin
     result:=erstesArgument(s,'"');
   end
   else begin
-    result:=shellExpand(stringReplace(erstesArgument(s),'$$DATETIME',mydatetimetostr(now),[rfReplaceAll]));
+    result:=shellExpand(stringReplace(erstesArgument(s),'$$DATETIME',myDateTimeToStr(now),[rfReplaceAll]));
     if pos('*',result)>0 then begin
       err:=findFirst(result,$3F,sR);
       while err=0 do begin
-        if (sR.name<>'.') and (sR.name<>'..') then s:=trim('"'+extractfilepath(result)+sR.name+'" '+s);
+        if (sR.name<>'.') and (sR.name<>'..') then s:=trim('"'+extractFilePath(result)+sR.name+'" '+s);
         err:=findNext(sR);
       end;
       findClose(sR);
@@ -9213,7 +9213,7 @@ begin
     end;
   end;
   if startetMit('./',result) then
-    result:=extractfilepath(paramstr(0))+result;
+    result:=extractFilePath(paramstr(0))+result;
 end;
 var
   tokenListe:          tMyStringList;