Enfin, waskol, quand même !

Citation Envoyé par waskol
Sans IF ni CASE..OF :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;