equal
deleted
inserted
replaced
516 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"', false) |
516 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"', false) |
517 else CurrentTeam^.Binds[b]:= s |
517 else CurrentTeam^.Binds[b]:= s |
518 end; |
518 end; |
519 |
519 |
520 procedure chTeamGone(var s:shortstring); |
520 procedure chTeamGone(var s:shortstring); |
521 var t: LongInt; |
521 var t, i: LongInt; |
522 begin |
522 begin |
523 t:= 0; |
523 t:= 0; |
524 while (t < cMaxTeams) |
524 while (t < cMaxTeams) |
525 and (TeamsArray[t] <> nil) |
525 and (TeamsArray[t] <> nil) |
526 and (TeamsArray[t]^.TeamName <> s) do inc(t); |
526 and (TeamsArray[t]^.TeamName <> s) do inc(t); |