If statement - Problème

:salut:

Je suis en train de developper un ptit programme tout simple. Pour le moment je suis occupé à faire tout mes validation checks (exemple, limité le nombre de characteres dans une edit box).
Pour faire cà, j'utilise une fonction que j'appelle dans un de mes If statement. Simple routine mais bon plusieurs problème apparaissent à ce niveaux:
- dans ma fonction, la premiere condition n'est pas pris en compte (Length(S) < 26)
- les deux lignes de codes dans mon IF statement ne sont pas executés

Pour que vous voyez plus clair, voila mon code:

Voila ma fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function ValidStudentInformation1 (S: String): Boolean; Var Valid: Boolean; Begin If (Length (S) < 26) And (Length (S) > 0) // premiere condition pas pris en compte then Valid := true else begin Valid := false; ValidOperation := False; end; ValidStudentInformation1 := Valid; End;

---

Et voila mon If statement ou j'appelle ma fonction

Code:

---

1 2 3 4 5 6

If ValidStudentInformation1(TempStudent.FirstName) = False then begin frmStudentEntry.btnHelp1.Visible := True; //statement ignoré frmStudentEntry.lblFirstName.Font.Color := ClRed; //statement ignoré end;

---

:merci: de vos réponses!

ah ben c'a été plus vite que prévu pour trouver la solution... apparamment le problème vient de TempStudent.FirstName.:yaisse2:

braecking