From ad7224f9c586e1e7ba5dd525a3fa1b0a63384ef2 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 29 Mar 2016 10:22:11 +0200
Subject: Löschen mehrzeiliger Kommentare neu in mystringlistunit.pas
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 mystringlistunit.pas | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 973f2cc..79e82f9 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -253,6 +253,12 @@ var
   s,t,u,v:         string;
   SchleifenInhalt: tMyStringlist;
   wasGefunden:     boolean;
+const
+  kommentarKlammern: array[0..2,boolean] of string = (
+    ('(*','*)'),
+    ('/*','*/'),
+    ('{','}')
+  );
 begin
   result:=false;
 
@@ -268,6 +274,29 @@ begin
     inc(i);
   end;
 
+  i:=0;
+  while i<count do begin  // mehrzeilige Kommentare löschen
+    for j:=0 to length(kommentarKlammern)-1 do
+      if self[i]=kommentarKlammern[j,false] then begin
+        Ebene:=0;
+        delete(i);
+        while (i<count) and (Ebene>=0) do begin
+          if self[i]=kommentarKlammern[j,false] then
+            inc(Ebene);
+          if self[i]=kommentarKlammern[j,true] then
+            dec(Ebene);
+          delete(i);
+        end;
+        if Ebene>=0 then begin
+          gibAus('Klammern '''+kommentarKlammern[j,false]+'''-'''+kommentarKlammern[j,true]+''' nicht ausgeglichen!',3);
+          exit;
+        end;
+        dec(i);
+        break;
+      end;
+    inc(i);
+  end;
+
   i:=0;
   while i<count-1 do // "\Zeilenumbruch" löschen
     if rightStr(self[i],1)='\' then begin
-- 
cgit v1.2.3-70-g09d2