Spam ignorieren/löschen

1 files changed, 3 insertions, 0 deletions

diff --git a/unit1.pas b/unit1.pas
index 04f0f52..2b5c711 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -266,6 +266,9 @@ var
   argumente:        array of string;
   ausgabe:          string;
 begin
+  for i:=pc.nAnz-1 downto 0 do
+    if pc.spam(i)=slSpam then
+      pc.loesche(i);
   mitMarkeDa:=0;
   memo1.lines.clear;
   ung:=0;