diff options
author | Erich Eckner <git@eckner.net> | 2018-01-12 15:33:12 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2018-01-12 15:33:12 +0100 |
commit | b9e8a86939aef6fba5a0fa08d59a0ea0dc09b2e6 (patch) | |
tree | ee31c51c19befdcad53143f764059cc6021b61e6 /dateibeziehungen.pas | |
parent | 2c55053cb2f874fb2699eb719f2b51f72fce045f (diff) | |
download | Make-b9e8a86939aef6fba5a0fa08d59a0ea0dc09b2e6.tar.xz |
only open existent files
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; |