| changeset 3045 | 41732f986b4f |
| parent 3038 | 4e48c276a468 |
| child 3051 | e39d8fa0e063 |
| 3044:8466bd29280f | 3045:41732f986b4f |
|---|---|
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 var i: LongWord; |
477 begin |
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 |
|
486 end; |
478 end; |
487 |
479 |
488 end. |
480 end. |