equal
deleted
inserted
replaced
464 end; |
464 end; |
465 |
465 |
466 procedure free_uTeams; |
466 procedure free_uTeams; |
467 var i: LongWord; |
467 var i: LongWord; |
468 begin |
468 begin |
469 for i:= 0 to Pred(TeamsCount) do Dispose(TeamsArray[i]); |
469 if TeamsCount > 0 then |
470 for i:= 0 to Pred(ClansCount) do Dispose(ClansArray[i]); |
470 begin |
|
471 for i:= 0 to Pred(TeamsCount) do Dispose(TeamsArray[i]); |
|
472 for i:= 0 to Pred(ClansCount) do Dispose(ClansArray[i]); |
|
473 end; |
471 TeamsCount:= 0; |
474 TeamsCount:= 0; |
472 ClansCount:= 0 |
475 ClansCount:= 0 |
473 end; |
476 end; |
474 |
477 |
475 end. |
478 end. |