Changer les caractères en nombres [Résolu]

ABDE83 5 Messages postés samedi 3 mars 2018Date d'inscription 7 mars 2018 Dernière intervention - 3 mars 2018 à 17:33 - Dernière réponse : korgis 424 Messages postés samedi 17 mai 2003Date d'inscription 4 août 2018 Dernière intervention
- 13 mars 2018 à 14:57
Je suis un débutant en programmation Delphi
Un petit programme où vous changez les caractères en nombres
Par exemple, 'X' = 0 ; 'M' = 1 ; 'R' = 2 ; 'U' = 3 ; 'O' = 4.
Quand j'écris 'MORXX le résultat est 14200
S'il vous plaît aider avec ce programme et merci d'avance
Ce programme est-il vrai?

procedure TForm1.Button1Click(Sender: TObject); 
var 

shortStr : shortstring; 
i,j : Integer; 

begin 
j:=0; 
Label1.Caption:=''; 
shortStr:=edit1.Text; 
for i := 1 to length(shortStr) do begin 

case Length(shortStr) of 
9: 
begin 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
end; 
8: 
begin 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
end; 
7: 
begin 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
end; 
6: 
begin 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
end; 
5: 
begin 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
end; 

4: 
begin 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
end; 
3: 
begin 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
end; 
2: 
begin 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
end; 
1: 
BEGIN 
if shortStr[i] = 'X' then 
BEGIN 
J:= 0; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'M' then 
BEGIN 
J:= 1; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'R' then 
BEGIN 
J:= 2; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'U' then 
BEGIN 
J:= 3; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'O' then 
BEGIN 
J:= 4; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'N' then 
BEGIN 
J:= 5; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
///////////// 
ELSE 
if shortStr[i] = 'E' then 
BEGIN 
J:= 6; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'G' then 
BEGIN 
J:= 7; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'L' then 
BEGIN 
J:= 8; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END 
ELSE 
///////////// 
if shortStr[i] = 'A' then 
BEGIN 
J:= 9; 
Label1.Caption:=Label1.Caption+(inttostr(J)); 
END; 
END; 
END; 

end; 

end;
Afficher la suite 

Votre réponse

16 réponses

NHenry 14244 Messages postés vendredi 14 mars 2003Date d'inscriptionModérateurStatut 2 août 2018 Dernière intervention - 3 mars 2018 à 17:45
0
Merci
Code illisible (non indenté).
Code redondant (factorisation)
Je ne fais pas de Delphi, mais ça c'est de problème évidents.

Ensuite, pour savoir si ton code est bon, essayes-le.
ABDE83 5 Messages postés samedi 3 mars 2018Date d'inscription 7 mars 2018 Dernière intervention - 3 mars 2018 à 23:11
Le programme fonctionne bien
Cherchez un raccourci ou une autre méthode si possible pour ne pas être répétitif
Commenter la réponse de NHenry
korgis 424 Messages postés samedi 17 mai 2003Date d'inscription 4 août 2018 Dernière intervention - 4 mars 2018 à 00:26
0
Merci
waouhhhh ! lol

procedure TForm1.Button1Click(Sender: TObject);
const
  Letters = 'XMRUONEGLA';
  Numbers = '0123456789';
var
  ShortStr: ShortString;
  i, j: Integer;
  P: Byte;
begin
  j := 0;
  Label1.Caption := '';
  ShortStr := Edit1.Text;
  if Length(ShortStr) > 9 then Exit;
  for i := 1 to Length(ShortStr) do
  begin
    P := Pos(ShortStr[i], Letters);
    if P > 0 then
      Label1.Caption := Label1.Caption + Numbers[P];
  end;
end;

ABDE83 5 Messages postés samedi 3 mars 2018Date d'inscription 7 mars 2018 Dernière intervention - 4 mars 2018 à 10:13
Bonjour Mr. korgis
'waouhhhh ! lol '
hhhhh
Excellent travail
Merci beaucoup
korgis 424 Messages postés samedi 17 mai 2003Date d'inscription 4 août 2018 Dernière intervention - 4 mars 2018 à 13:27
Avec plaisir, Mr Abde.
Et merci pour l'appréciation ;-)
Commenter la réponse de korgis
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 août 2018 Dernière intervention - 5 mars 2018 à 15:21
0
Merci
Bonjour,

juste pour le fun et je sais que l'ami Korgis appréciera également ;)
Ami que je salue au passage ^^
procedure TForm1.Button1Click(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;
begin
  Label1.Caption := '';
  for I := 1 to Length(Edit1.Text) do
    if Edit1.Text[I] in ['A'..'Z'] then
      Label1.Caption := Label1.Caption + ltrArray[Edit1.Text[I]]
    else
      Label1.Caption := Label1.Caption + Edit1.Text[I];
end;

du coup plus de limitations
Cordialement,

korgis 424 Messages postés samedi 17 mai 2003Date d'inscription 4 août 2018 Dernière intervention > Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 août 2018 Dernière intervention - 12 mars 2018 à 16:55
@Cirec :
"petite question: as tu un IDE supérieur ou égale à D2009 ?"
Oui, j'ai Tokyo et Berlin, grâce à tes bons tuyaux sur ce site :-)
Mais il faut que je réinstalle, ma carte mère étant à changer (elle a des "intermitences"), je passe sur les détails...
J'ai bien un portable sous windows 8.1, mais je le trouve mal commode pour programmer.
J'avoue également, n'étant pas un pro de l'informatique, que ces versions ne m'apportent pas grand chose, et j'accroche très moyen à l'environnement de travail.
Une première installation sous 8.1 fut également très décevante, avec des messages d'erreurs à la compilation.
Une 2ème installation, après avoir désinstallé D4/D7 (incompatibilité ?) avait semblé résoudre le problème.
Bon, bref...
J'avoue que j'ai mes petites habitudes sous D7 et XP pro, il va falloir que j'évolue, mais j'avoue que je ne suis pas pressé.
Ça ne m'empêche pas de d'apprécier un code intéressant, et de l'adapter (c'est possible la plupart du temps!) à mon compilateur préféré ^^
Voilà voilà...
@+
Amicalement
Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 août 2018 Dernière intervention > korgis 424 Messages postés samedi 17 mai 2003Date d'inscription 4 août 2018 Dernière intervention - 13 mars 2018 à 14:12
alors oui pour l'adaptation, chose que j'essaye de faire à chaque fois que c'est possible, sauf qu'ici en l'adaptant le code perdrait tout intérêt puisqu'il est basé sur les nouveautés du compilateur (plus si neuf d'ailleurs 2009)
Voici la page d'aide à ce sujet

Amicalement,
@+
korgis 424 Messages postés samedi 17 mai 2003Date d'inscription 4 août 2018 Dernière intervention > Cirec 4231 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 3 août 2018 Dernière intervention - 13 mars 2018 à 14:57
@Cirec :
OK, bien compris la problématique.
J'espère tout de même que je ne suis pas le seul sur le site à profiter de tes interventions et à les apprécier ???
Ça serait bien dommage... :-(
Amicalement
ABDE83 5 Messages postés samedi 3 mars 2018Date d'inscription 7 mars 2018 Dernière intervention - 6 mars 2018 à 10:38
Bonjour
Merci pour les réponses
- les caractères 'X','M','R','U','O','N','E','G','L','A' sont à remplacer par un caractères représentant respectivement ces valeurs : 0,1,2,3,4,5,6,7,8,9 ;
- les autres caractères ne sont pas pris en compte.
Pouvez-vous taper en majuscules et minuscules sont le même résultat
- Message d'erreur dans d'autres lettres
dubois77 691 Messages postés jeudi 17 avril 2008Date d'inscription 19 juin 2018 Dernière intervention - 7 mars 2018 à 08:05
procedure TForm1.Button1Click(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
  Label1.Caption := '';
Z := uppercase(Edit1.Text=;
  for I := 1 to Length(Z) do
    if Z[I] in ['A'..'Z'] 
      then
     Label1.Caption := Label1.Caption + ltrArray[Z[I]]
    else
      MessageDlg('Erreur, caractère ' = Z[i] =' incompatible',mtInformation,[mbOk],0);
end;
Commenter la réponse de Cirec
ABDE83 5 Messages postés samedi 3 mars 2018Date d'inscription 7 mars 2018 Dernière intervention - Modifié par Cirec le 7/03/2018 à 15:03
0
Merci
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;
dubois77 691 Messages postés jeudi 17 avril 2008Date d'inscription 19 juin 2018 Dernière intervention - 7 mars 2018 à 17:57
bien vu
(en fait j'ai recopié et modifié le code plus haut sans vérifier correctement !)
Commenter la réponse de ABDE83

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.