From 8f079ff5e57abf644ba6e7dec38988b84d858f97 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 24 Jul 2015 11:42:46 +0200
Subject: debugausgaben in mystringlistunit.pas geaendert

---
 mystringlistunit.pas | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

(limited to 'mystringlistunit.pas')

diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 45963d4..398e86d 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -5,7 +5,7 @@ unit mystringlistunit;
 interface
 
 uses
-  Classes, SysUtils, RegExpr, Process, Math, lowlevelunit;
+  Classes, SysUtils, RegExpr, Process, Math, lowlevelunit, protokollunit;
 
 type
   tMyStringlist = class;
@@ -22,8 +22,10 @@ type
   tMyStringlist = class (tStringlist)
   private
     line:  longint;
+    prot:  tProtokollant;
   public
-    constructor create;
+    constructor create; overload;
+    constructor create(protokollant: tProtokollant); overload;
     procedure loadFromFile(const s: ansiString); override;
     procedure loadFromGz(const s: ansiString);
     procedure saveToGz(const s: ansiString);
@@ -76,8 +78,14 @@ end;
 // tMyStringlist ***************************************************************
 
 constructor tMyStringlist.create;
+begin
+ create(nil);
+end;
+
+constructor tMyStringlist.create(protokollant: tProtokollant);
 begin
  inherited create;
+ prot:=tProtokollant.create(protokollant,'tMyStringlist');
  line:=0;
 end;
 
@@ -328,7 +336,8 @@ begin
             '<': istWahr:=strtofloat(u)<strtofloat(t);
             '>': istWahr:=strtofloat(u)>strtofloat(t);
             else begin
-              gibAus('Operator '''+binops[j]+''' ist nicht implementiert!',3);
+              if assigned(prot) then prot.schreibe('Operator '''+binops[j]+''' ist nicht implementiert!',true)
+              else gibAus('Operator '''+binops[j]+''' ist nicht implementiert!',3);
               exit;
             end;
           end{of case};
@@ -337,7 +346,8 @@ begin
           break;
         end;
       if not gefunden then begin
-        gibAus('Ich kann keinen gültigen Operator in Bedingung '''+t+''' finden!',3);
+        if assigned(prot) then prot.schreibe('Ich kann keinen gültigen Operator in Bedingung '''+t+''' finden!',true)
+        else gibAus('Ich kann keinen gültigen Operator in Bedingung '''+t+''' finden!',3);
         exit;
       end;
       if not istWahr then
-- 
cgit v1.2.3-70-g09d2