equal
deleted
inserted
replaced
358 end; |
358 end; |
359 |
359 |
360 procedure TeamGone(s: shortstring); |
360 procedure TeamGone(s: shortstring); |
361 var i, t: LongInt; |
361 var i, t: LongInt; |
362 begin |
362 begin |
363 i:= 0; |
363 t:= 0; |
364 |
|
365 while (t < cMaxTeams) |
364 while (t < cMaxTeams) |
366 and (TeamsArray[t] <> nil) |
365 and (TeamsArray[t] <> nil) |
367 and (TeamsArray[t]^.TeamName <> s) do inc(t); |
366 and (TeamsArray[t]^.TeamName <> s) do inc(t); |
368 if (t = cMaxTeams) or (TeamsArray[t] = nil) then exit; |
367 if (t = cMaxTeams) or (TeamsArray[t] = nil) then exit; |
369 |
368 |