diff options
Diffstat (limited to 'tools.pas')
| -rw-r--r-- | tools.pas | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -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; |