Tant Que TEmp[IndexEmploye].NomEmp<>Nom ET IndexEmploye<MaxEmp Faire
IndexEmploye:=IndexEmploye+1;
FinTant Que// On a le nom, inutile de continuer.
Le test n'est pas correct, il faut mettre
Code:
1 2
Tant Que TEmp[IndexEmploye].NomEmp<>Nom ET IndexEmploye<=MaxEmp
Car IndexEmploye = MaxEmp est une valeur autorisée. La tableau va de 1 à MaxEmp
euh non, car si IndexEmploye arrive à la fin du tableau et de ce fait est égal à MaxEmp=100 et qu'on l'autorise à faire IndexEmploye+1.
Il va faire 100+1=101, et a ce moment là, l'algo va bogguer...;)