aufgeräumt, Fehler bei nicht passendem Überwachungsmuster

1 files changed, 7 insertions, 6 deletions

diff --git a/tools.pas b/tools.pas
index 843ba7f..4ba44a7 100644
--- a/tools.pas
+++ b/tools.pas
@@ -39,6 +39,9 @@ function dateienMitGueltigerSumme(sumNam: string): tStringList;
 
 implementation
 
+uses
+  lowlevelunit;
+
 function min(a1,a2: tAktualitaet): tAktualitaet;
 begin
   if a1<a2 then
@@ -163,7 +166,7 @@ begin
 
   dateien:=extrahiereAlleDateien(args+' '+bef);
   if dateien.count = 0 then
-    writeln('*** Warnung: Hier ist ein Befehl ohne offensichtliche input-Dateien! ('''+oBef+''')!');
+    gibAus('Warnung: Hier ist ein Befehl ohne offensichtliche input-Dateien! ('''+oBef+''')!',3);
 
   sl:=tMyStringlist.create;
   relZeil:=tMyStringlist.create;
@@ -178,17 +181,15 @@ begin
   for i:=0 to relZeil.count-1 do begin
     re.inputString:=relZeil[i];
     if re.subExprMatchCount=0 then
-      writeln('*** Warnung: Hier ist eine Zeile in der optionsdatei, die keine passende Inputdatei benennt, es aber sollte! ('''+relZeil[i]+''')!');
+      gibAus('Warnung: Hier ist eine Zeile in der optionsdatei, die keine passende Inputdatei benennt, es aber sollte! ('''+relZeil[i]+''')!',3);
     for j:=0 to re.subExprMatchCount-1 do begin
       s:=trim(re.match[j]);
       if (leftStr(s,1)='"') and (rightStr(s,1)='"') then begin
         delete(s,1,1);
         delete(s,length(s),1);
       end;
-      if not lokTest.exec(s) then begin
-        writeln('*** FEHLER: '''+relZeil[i]+''' in Befehl '''+oBef+''' hat Lokalitätstest nicht bestanden! ('+lokTest.expression+')');
-        halt(1);
-      end;
+      if not lokTest.exec(s) then
+        fehler(''''+relZeil[i]+''' in Befehl '''+oBef+''' hat Lokalitätstest nicht bestanden! ('+lokTest.expression+')');
     end;
   end;
   re.free;