bonjour,
suite a la réalisation d'un petit bou de code je cherche
a l'optimiser sans le IF. mais je voi pas la !!!

mon peiti bou de code est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
begin
if (Length(Edit1.Text)<5) or (Length(Edit1.Text)>7) then
begin
//indique rien
edit2.Text := '';
end
else
begin
edit2.Text := 'Bonne longeur, Merci';
end;
end;
end;
Le message doit s'afficher uniquement entre 5 et 7, sinon rien.

Quelqu'un a une idée ? ou une info utile ?