tools.pas: testeObBefehlLokal do not truncate long error messagges

1 files changed, 8 insertions, 4 deletions

diff --git a/tools.pas b/tools.pas
index 0f4b3d8..a2fd04c 100644
--- a/tools.pas
+++ b/tools.pas
@@ -286,8 +286,10 @@ begin
     matchNum:=1;
   end
   else if (exe='cd') then begin
-    if not lokTest.exec(bef) then
-      fehler('Befehl '''+oBef+''' hat Lokalitätstest nicht bestanden! ('+lokTest.expression+')');
+    if not lokTest.exec(bef) then begin
+      gibAus('Befehl '''+oBef+''' hat Lokalitätstest nicht bestanden! ('+lokTest.expression+')',3);
+      fehler('Lokalitätstest nicht bestanden!');
+    end;
     exit;
   end
   // folgende Executables sind unkritisch, da der Name des Outputs i.d.R. direkt
@@ -345,8 +347,10 @@ begin
         delete(s,1,1);
         delete(s,length(s),1);
       end;
-      if not lokTest.exec(s) then
-        fehler(''''+relZeil[i]+''' in Befehl '''+oBef+''' hat Lokalitätstest nicht bestanden! ('+lokTest.expression+')');
+      if not lokTest.exec(s) then begin
+        gibAus(''''+relZeil[i]+''' in Befehl '''+oBef+''' hat Lokalitätstest nicht bestanden! ('+lokTest.expression+')',3);
+        fehler('Lokalitätstest nicht bestanden!');
+      end;
     until not re.execNext;
   end;
   re.free;