| changeset 3051 | e39d8fa0e063 |
| parent 3045 | 41732f986b4f |
| child 3076 | 7e246257adaa |
| 3050:d6937fc885a1 | 3051:e39d8fa0e063 |
|---|---|
472 LocalClan:= -1; |
472 LocalClan:= -1; |
473 LocalAmmo:= -1; |
473 LocalAmmo:= -1; |
474 end; |
474 end; |
475 |
475 |
476 procedure freeModule; |
476 procedure freeModule; |
477 begin |
477 var i: LongWord; |
478 begin |
|
479 if TeamsCount > 0 then |
|
480 begin |
|
481 for i:= 0 to Pred(TeamsCount) do Dispose(TeamsArray[i]); |
|
482 for i:= 0 to Pred(ClansCount) do Dispose(ClansArray[i]); |
|
483 end; |
|
484 TeamsCount:= 0; |
|
485 ClansCount:= 0 |
|
478 end; |
486 end; |
479 |
487 |
480 end. |
488 end. |