Discussion :

[CapJack]

Enfin, waskol, quand même !

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;