diff options
author | Erich Eckner <git@eckner.net> | 2019-05-30 16:16:23 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2019-05-30 16:16:23 +0200 |
commit | ba7cfaaed229ccc9b3c8595e1edf6025c686efcb (patch) | |
tree | d967238d222fcb584fadeb597038f7d7dbc67cab | |
parent | bb705efb53ddfc34a9b1bb24667f1c4d17a52adf (diff) | |
download | Emails-ba7cfaaed229ccc9b3c8595e1edf6025c686efcb.tar.xz |
Spam ignorieren/löschen
-rw-r--r-- | emails.lps | 102 | ||||
-rw-r--r-- | unit1.lfm | 10 | ||||
-rw-r--r-- | unit1.pas | 3 |
3 files changed, 59 insertions, 56 deletions
@@ -9,7 +9,7 @@ <IsPartOfProject Value="True"/> <EditorIndex Value="1"/> <CursorPos X="24" Y="8"/> - <UsageCount Value="37"/> + <UsageCount Value="40"/> <Loaded Value="True"/> </Unit0> <Unit1> @@ -20,9 +20,9 @@ <ResourceBaseClass Value="Form"/> <UnitName Value="Unit1"/> <IsVisibleTab Value="True"/> - <TopLine Value="177"/> - <CursorPos X="30" Y="201"/> - <UsageCount Value="37"/> + <TopLine Value="251"/> + <CursorPos Y="288"/> + <UsageCount Value="40"/> <Loaded Value="True"/> <LoadedDesigner Value="True"/> </Unit1> @@ -30,9 +30,9 @@ <Filename Value="../units/popimapunit.pas"/> <IsPartOfProject Value="True"/> <EditorIndex Value="4"/> - <TopLine Value="171"/> - <CursorPos Y="184"/> - <UsageCount Value="30"/> + <TopLine Value="805"/> + <CursorPos X="31" Y="833"/> + <UsageCount Value="33"/> <Loaded Value="True"/> </Unit2> <Unit3> @@ -41,7 +41,7 @@ <EditorIndex Value="-1"/> <TopLine Value="22"/> <CursorPos X="97" Y="25"/> - <UsageCount Value="30"/> + <UsageCount Value="33"/> </Unit3> <Unit4> <Filename Value="../units/popunit.pas"/> @@ -68,7 +68,7 @@ <EditorIndex Value="2"/> <TopLine Value="578"/> <CursorPos X="35" Y="618"/> - <UsageCount Value="16"/> + <UsageCount Value="17"/> <Loaded Value="True"/> </Unit7> <Unit8> @@ -76,7 +76,7 @@ <EditorIndex Value="3"/> <TopLine Value="367"/> <CursorPos X="47" Y="403"/> - <UsageCount Value="15"/> + <UsageCount Value="16"/> <Loaded Value="True"/> </Unit8> <Unit9> @@ -116,123 +116,123 @@ <JumpHistory Count="30" HistoryIndex="29"> <Position1> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="435" Column="66" TopLine="410"/> + <Caret Line="612" Column="42" TopLine="592"/> </Position1> <Position2> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="430" TopLine="409"/> + <Caret Line="616" Column="102" TopLine="592"/> </Position2> <Position3> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="48" Column="61" TopLine="19"/> + <Caret Line="628" Column="26" TopLine="599"/> </Position3> <Position4> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="424" Column="72" TopLine="404"/> + <Caret Line="619" TopLine="604"/> </Position4> <Position5> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="433" Column="35" TopLine="413"/> + <Caret Line="635" TopLine="599"/> </Position5> <Position6> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="21" TopLine="21"/> + <Caret Line="629" Column="35" TopLine="604"/> </Position6> <Position7> - <Filename Value="../units/popimapunit.pas"/> - <Caret Line="424" Column="25" TopLine="404"/> + <Filename Value="unit1.pas"/> + <Caret Line="138" Column="47" TopLine="117"/> </Position7> <Position8> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="49" Column="36" TopLine="40"/> + <Caret Line="2"/> </Position8> <Position9> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="604" Column="20" TopLine="585"/> + <Caret Line="24" Column="20"/> </Position9> <Position10> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="424" Column="45" TopLine="410"/> + <Caret Line="34" Column="18"/> </Position10> <Position11> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="438" Column="92" TopLine="428"/> + <Caret Line="312" Column="16" TopLine="284"/> </Position11> <Position12> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="49" Column="22" TopLine="22"/> + <Caret Line="24" Column="25"/> </Position12> <Position13> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="459" Column="44" TopLine="456"/> + <Caret Line="309" Column="19" TopLine="297"/> </Position13> <Position14> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="457" Column="43" TopLine="448"/> + <Caret Line="15" Column="32"/> </Position14> <Position15> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="459" Column="44" TopLine="448"/> + <Caret Line="317" Column="27" TopLine="288"/> </Position15> <Position16> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="477" Column="37" TopLine="461"/> + <Caret Line="308" Column="40" TopLine="287"/> </Position16> <Position17> - <Filename Value="../units/popimapunit.pas"/> - <Caret Line="570" Column="19" TopLine="541"/> + <Filename Value="unit1.pas"/> + <Caret Line="138" Column="47" TopLine="117"/> </Position17> <Position18> - <Filename Value="../units/popimapunit.pas"/> - <Caret Line="615" Column="23" TopLine="601"/> + <Filename Value="unit1.pas"/> + <Caret Line="273" TopLine="258"/> </Position18> <Position19> - <Filename Value="../units/popimapunit.pas"/> - <Caret Line="21" Column="26"/> + <Filename Value="unit1.pas"/> + <Caret Line="39" Column="5" TopLine="18"/> </Position19> <Position20> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="229" Column="33" TopLine="214"/> + <Caret Line="77" Column="12" TopLine="51"/> </Position20> <Position21> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="18" Column="3"/> + <Caret Line="87" Column="22" TopLine="51"/> </Position21> <Position22> - <Filename Value="../units/popimapunit.pas"/> - <Caret Line="612" Column="42" TopLine="592"/> + <Filename Value="unit1.pas"/> + <Caret Line="39" Column="7" TopLine="18"/> </Position22> <Position23> - <Filename Value="../units/popimapunit.pas"/> - <Caret Line="616" Column="102" TopLine="592"/> + <Filename Value="unit1.pas"/> + <Caret Line="93" Column="5" TopLine="58"/> </Position23> <Position24> - <Filename Value="../units/popimapunit.pas"/> - <Caret Line="628" Column="26" TopLine="599"/> + <Filename Value="unit1.pas"/> + <Caret Line="96" Column="7" TopLine="61"/> </Position24> <Position25> - <Filename Value="../units/popimapunit.pas"/> - <Caret Line="619" TopLine="604"/> + <Filename Value="unit1.pas"/> + <Caret Line="97" Column="39" TopLine="62"/> </Position25> <Position26> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="635" TopLine="599"/> + <Caret Line="841" Column="33" TopLine="820"/> </Position26> <Position27> <Filename Value="../units/popimapunit.pas"/> - <Caret Line="629" Column="35" TopLine="604"/> + <Caret Line="84" Column="14" TopLine="49"/> </Position27> <Position28> - <Filename Value="unit1.pas"/> - <Caret Line="138" Column="47" TopLine="117"/> + <Filename Value="../units/popimapunit.pas"/> + <Caret Line="34" Column="19" TopLine="12"/> </Position28> <Position29> - <Filename Value="unit1.pas"/> - <Caret Line="195" Column="22" TopLine="176"/> + <Filename Value="../units/popimapunit.pas"/> + <Caret Line="84" Column="19" TopLine="48"/> </Position29> <Position30> - <Filename Value="unit1.pas"/> - <Caret Line="49" Column="56" TopLine="25"/> + <Filename Value="../units/popimapunit.pas"/> + <Caret Line="341" Column="18" TopLine="305"/> </Position30> </JumpHistory> <RunParams> @@ -11,7 +11,7 @@ object Form1: TForm1 OnDestroy = FormDestroy OnResize = FormResize OnShow = FormShow - LCLVersion = '2.0.0.4' + LCLVersion = '2.0.2.0' object Memo1: TMemo Left = 0 Height = 584 @@ -73,18 +73,18 @@ object Form1: TForm1 end object CheckBox1: TCheckBox Left = 272 - Height = 23 + Height = 21 Top = 596 - Width = 96 + Width = 93 Caption = 'aufploppen' OnClick = CheckBox1Click TabOrder = 2 end object CheckBox2: TCheckBox Left = 416 - Height = 23 + Height = 21 Top = 596 - Width = 91 + Width = 86 Caption = 'Ton geben' Checked = True OnClick = CheckBox1Click @@ -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; |