diff options
Diffstat (limited to 'Make.lpr')
-rw-r--r-- | Make.lpr | 23 |
1 files changed, 11 insertions, 12 deletions
@@ -25,19 +25,18 @@ type procedure tMake.doRun; var - mach: tMach; - errorMsg: string; - lOpts,nonOpts: tStringList; + mach: tMach; + errorMsg,md,pd: string; + lOpts,nonOpts: tStringList; begin lOpts:=tStringList.create; lOpts.add('Ausgabe:'); lOpts.add('Datei:'); lOpts.add('Prüfsummen:'); - lOpts.add('alleSummenErneuern'); lOpts.add('leise'); lOpts.add('unsicher'); nonOpts:=tStringList.create; - errorMsg:=checkOptions('A:D:P:alu',lOpts,nil,nonOpts,true); + errorMsg:=checkOptions('A:D:P:lu',lOpts,nil,nonOpts,true); lOpts.free; while nonOpts.count>0 do begin if errorMsg<>'' then @@ -52,24 +51,24 @@ begin if hasOption('l','leise') then __ausgabenMaske:=3; - mach:=tMach.create; - if hasOption('D','Datei') then - mach.machDatei:=getOptionValue('D','Datei') + md:=getOptionValue('D','Datei') else - mach.machDatei:=''; + md:=''; if hasOption('P','Prüfsummen') then - mach.pruefsummenDatei:=getOptionValue('P','Prüfsummen') + pd:=getOptionValue('P','Prüfsummen') else - mach.pruefsummenDatei:=''; + pd:=''; + + mach:=tMach.create(md,pd); gibAus('originale Regeln: '+inttostr(mach.anzOriAbh)+', originale Dateien: '+inttostr(mach.anzDats),3); mach.erzeugeRegeln; gibAus('Regeln: '+inttostr(mach.anzMglAbh)+', Dateien: '+inttostr(mach.anzDats),3); mach.findeWasZuTunIst; gibAus('anzuwendende Regeln: '+inttostr(mach.anzMglAbh),3); - mach.tueWasZuTunIst(hasOption('a','alleSummenErneuern'),hasOption('u','unsicher'),getOptionValue('A','Ausgabe')); + mach.tueWasZuTunIst(hasOption('u','unsicher'),getOptionValue('A','Ausgabe')); terminate; end; |