Löschen mehrzeiliger Kommentare neu in mystringlistunit.pas

1 files changed, 29 insertions, 0 deletions

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;
 
@@ -269,6 +275,29 @@ begin
   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
       s:=self[i];