diff options
author | Erich Eckner <git@eckner.net> | 2016-04-01 19:57:19 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2016-04-01 19:57:49 +0200 |
commit | dad48798f71f7021397e12b6bc9e56434d5bea82 (patch) | |
tree | 3c1eec667cd9704f045e9dc5f26c630e6589bce2 | |
parent | d5b4261fa3c66b6d1d266a5941448fd11656c35f (diff) | |
download | units-dad48798f71f7021397e12b6bc9e56434d5bea82.tar.xz |
nachrichten seltener aus lokaler Warteschlange löschen
-rw-r--r-- | popunit.pas | 7 |
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'; |