summaryrefslogtreecommitdiff
path: root/Make.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'Make.lpr')
-rw-r--r--Make.lpr23
1 files changed, 11 insertions, 12 deletions
diff --git a/Make.lpr b/Make.lpr
index b0e6ff0..70ea667 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -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;