merci Mr. dubois77
Un léger changement si c'est vrai
procedure TForm1.Edit1Change(Sender: TObject);
const
ltrArray: array['A'..'Z'] of Char = ('9', 'B', 'C', 'D', '6', 'F', '7', 'H', 'I', 'J',
'K', '8', '1', '5', '4', 'P', 'Q', '2', 'S', 'T',
'3', 'V', 'W', '0', 'Y', 'Z');
var
I: Integer; Z:string;
begin
IF edit1.GetTextLen<> 0 then
begin
Label1.Caption := '';
Z := uppercase(Edit1.Text);
for I := 1 to Length(Z) do
if Z[I] in ['X','M','R','U','O','N','E','G','L','A']
then
Label1.Caption := Label1.Caption + ltrArray[Z[I]]
else
MessageDlg('Erreur, caractère ' + Z[i] +' incompatible',mtInformation,[mbOk],0);
END;
end;
3 mars 2018 à 23:11
Cherchez un raccourci ou une autre méthode si possible pour ne pas être répétitif