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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;

de vos réponses!