Y a-t-il une solution pour optimiser mon petit code ?

Enfin, waskol, quand même !

Citation:

---

Envoyé par waskol

Sans IF ni CASE..OF :

Code:

---

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); const LeMessage:array[boolean] of string=('','Bonne longueur, Merci'); begin edit2.Text := LeMessage[Length(Edit1.Text) in [5..7]]; end;

---

:aie:
:mrgreen:

---

:aie: :aie: :aie: