summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2016-04-01 19:57:19 +0200
committerErich Eckner <git@eckner.net>2016-04-01 19:57:49 +0200
commitdad48798f71f7021397e12b6bc9e56434d5bea82 (patch)
tree3c1eec667cd9704f045e9dc5f26c630e6589bce2
parentd5b4261fa3c66b6d1d266a5941448fd11656c35f (diff)
downloadunits-dad48798f71f7021397e12b6bc9e56434d5bea82.tar.xz
nachrichten seltener aus lokaler Warteschlange löschen
-rw-r--r--popunit.pas7
1 files changed, 3 insertions, 4 deletions
diff --git a/popunit.pas b/popunit.pas
index 9bdfd62..97ed878 100644
--- a/popunit.pas
+++ b/popunit.pas
@@ -377,6 +377,9 @@ var
i,j,len,id,groesze: longint;
begin
pr:=nil;
+ for i:=0 to length(_nachrichten)-1 do
+ _nachrichten[i].free;
+ setlength(_nachrichten,0);
while not beenden do begin
auszenWeltKontakt(pr);
if (_user<>'') and (_host<>'') and (_pass<>'') and (_port<>0) then begin
@@ -391,10 +394,6 @@ begin
break;
end;
- for i:=0 to length(_nachrichten)-1 do
- _nachrichten[i].free;
- setlength(_nachrichten,0);
-
pr:=tProcess.create(nil);
if _sshUser<>'' then begin
pr.executable:='ssh';