beendeExterneBefehleWennFertig neu

1 files changed, 16 insertions, 1 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 8abd761..b0feb83 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -341,6 +341,7 @@ function findeWerte(s: String; f: tMyStringlist; pws: pTWerteArray; Kont: pTKont
 function findeKontur(s: String; f: tMyStringlist; pks: pTKonturenArray; darfErstellen: boolean): integer;
 function externerBefehl(st: boolean; s: string): boolean;
 procedure warte_auf_externeBefehle;
+procedure beendeExterneBefehleWennFertig;
 
 var Paletten:       array of tPalette;
     behalteLogs:    boolean;
@@ -348,7 +349,7 @@ var Paletten:       array of tPalette;
 
 implementation
 
-uses math;
+uses math, systemunit;
 
 // tWerte **********************************************************************
 
@@ -5882,6 +5883,20 @@ begin
  setlength(externeBefehle,0);
 end;
 
+procedure beendeExterneBefehleWennFertig;
+var
+  i,j: longint;
+begin
+ for i:=length(externeBefehle)-1 downto 0 do
+   if assigned(externeBefehle) then
+     if externeBefehle[i].fertig then begin
+       externeBefehle[i].free;
+       for j:=i+1 to length(externeBefehle)-1 do
+         externeBefehle[j-1]:=externeBefehle[j];
+       setlength(externeBefehle,length(externeBefehle)-1);
+     end;
+end;
+
 begin
  setlength(externeBefehle,0);