From 35e1e720ca84a92c5c8fa92f26a50bb088a4bcb4 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 9 Jan 2018 15:33:08 +0100
Subject: tools.pas: testeObBefehlLokal do not truncate long error messagges

---
 tools.pas | 12 ++++++++----
 1 file 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;
-- 
cgit v1.2.3-70-g09d2