diff options
Diffstat (limited to 'dateibeziehungen.pas')
| -rw-r--r-- | dateibeziehungen.pas | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index cfcfd45..135264f 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -74,7 +74,6 @@ type procedure erzeugeRegeln; procedure findeWasZuTunIst; procedure tueWasZuTunIst(allesNeu, unsicher: boolean; ausgabeDatei: string); - procedure setzeGenerischePruefsummenDatei; function anzOriAbh: longint; inline; function anzMglAbh: longint; inline; function anzZtAbh: longint; inline; @@ -86,7 +85,7 @@ function quellersetzung(var worin: string; quelle, inputfile: string): boolean; implementation uses - lowlevelunit, mystringlistunit; + lowlevelunit, mystringlistunit, systemunit; // tAbhaengigkeiten ************************************************************ @@ -352,6 +351,14 @@ end; procedure tMach.wMachDatei(md: string); begin + if md='' then begin + md:=pwd+'/'; + while (md<>'/') and not fileexists(md+'Machdatei') do begin + delete(md,length(md),1); + md:=extractfilepath(md); + end; + md:=md+'Machdatei'; + end; _machDatei:=md; if not fileexists(_machDatei) then fehler('Datei '''+_machDatei+''' existiert nicht!'); @@ -361,6 +368,8 @@ end; procedure tMach.wPruefsummenDatei(pd: string); begin + if pd='' then + pd:=extractfilepath(machDatei)+'.summen'; _pruefsummenDatei:=pd; if not liesPruefsummenfile then fehler('Datei '''+_pruefsummenDatei+''' ist fehlerhaft!'); @@ -839,11 +848,6 @@ begin geaenderteDateien.free; end; -procedure tMach.setzeGenerischePruefsummenDatei; -begin - pruefsummenDatei:=extractfilepath(machDatei)+'.summen'; -end; - function tMach.anzOriAbh: longint; begin result:=_oriAbh.count; |