diff options
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r-- | dateibeziehungen.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index d55fe43..6c67fe2 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -731,14 +731,14 @@ begin // machDatei teilweise prüfen und setzen if machDatei='' then begin machDatei:=pwd+'/'; - while (machDatei<>'/') and not fileexists(machDatei+'Machdatei') do begin + while (machDatei<>'/') and not fileExists(machDatei+'Machdatei') do begin delete(machDatei,length(machDatei),1); machDatei:=extractFilePath(machDatei); end; machDatei:=machDatei+'Machdatei'; end; _machDatei:=machDatei; - if not fileexists(_machDatei) then + if not fileExists(_machDatei) then fehler('Datei '''+_machDatei+''' existiert nicht!'); // pruefSummenDatei teilweise prüfen und setzen @@ -890,12 +890,12 @@ begin exit; end; - if not fileexists(_pruefSummenDatei) then begin + if not fileExists(_pruefSummenDatei) then begin assignFile(f,_pruefSummenDatei); rewrite(f); closeFile(f); end; - if not fileexists(_pruefSummenDatei) then begin + if not fileExists(_pruefSummenDatei) then begin gibAus('Fehler: Ich bin nicht in der Lage, die bisher nicht existierende Datei '''+_pruefSummenDatei+''' anzulegen!',3); exit; end; |