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

Question

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

Signaler

ABDE83

Messages postés: 5
Date d'inscription: samedi 3 mars 2018
Statut: Membre
Dernière intervention: 7 mars 2018

- Modifié le 3 mars 2018 à 17:43
korgis

Messages postés: 420
Date d'inscription: samedi 17 mai 2003
Statut: Membre
Dernière intervention: 6 mai 2019

- 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;

A voir également:

Delphi elseif
Inttostr pascal - Meilleures réponses
Beginj - Meilleures réponses
Chaines de caractères et nombres ✓ - Forum - Visual Basic 6
[DEPLACE] Changer les caractères sous Word ✓ - Forum - Visual Basic 6
Changer le caractère "*" ✓ - Forum - Visual Basic
Changer un char en nombre ✓ - Forum - C / C++ / C++.NET
Nombre d'occurence d'un caractère dans une chaine c - Guide

4 réponses

Répondre Posez votre question

NHenry · Answer 1 · 2018-03-03T17:45:44+0100

Réponse 1 / 4

NHenry

Messages postés: 14788
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 1 mai 2021

155
3 mars 2018 à 17:45

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.

Signaler

ABDE83

Messages postés: 5
Date d'inscription: samedi 3 mars 2018
Statut: Membre
Dernière intervention: 7 mars 2018

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

korgis · Answer 2 · 2018-03-04T00:26:17+0100

Réponse 2 / 4

korgis

Messages postés: 420
Date d'inscription: samedi 17 mai 2003
Statut: Membre
Dernière intervention: 6 mai 2019

16
4 mars 2018 à 00:26

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;

Signaler

ABDE83

Messages postés: 5
Date d'inscription: samedi 3 mars 2018
Statut: Membre
Dernière intervention: 7 mars 2018

4 mars 2018 à 10:13

Bonjour Mr. korgis
'waouhhhh ! lol '
hhhhh
Excellent travail
Merci beaucoup

Signaler

korgis

Messages postés: 420
Date d'inscription: samedi 17 mai 2003
Statut: Membre
Dernière intervention: 6 mai 2019

16
4 mars 2018 à 13:27

Avec plaisir, Mr Abde.
Et merci pour l'appréciation ;-)

Cirec · Answer 3 · 2018-03-05T15:21:27+0100

Réponse 3 / 4

Cirec

Messages postés: 3826
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 10 mai 2021

42
5 mars 2018 à 15:21

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,

Afficher les 8 commentaires

Signaler

korgis

Messages postés: 420
Date d'inscription: samedi 17 mai 2003
Statut: Membre
Dernière intervention: 6 mai 2019

16
5 mars 2018 à 17:26

Oui, oui, j'apprécie !

Salut Cirec,

C'est toujours un plaisir de lire tes codes, et tu nous montre une intéressante manière d'interpréter le sujet.
Ça me rappelle le bon vieux temps où on trouvait mille et une variations autour d'un même thème.

Je n'ai pas compris l'intérêt du travail de notre ami ABDE83, mais d'après le code qu'il nous présente, et après l'avoir testé, j'avais déduit que :
- le ShortString ne doit pas dépasser 9 caractères (ni 8, ni 7, ni 6, ni 5, etc... lol) ;
- 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.

Du coup, en utilisant ta méthode, si l'on veut respecter strictement ce cahier des charges, ça pourrait donner ceci :

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');
  CharToShift = ['X','M','R','U','O','N','E','G','L','A']; // les caractères à modifier, les autres seront négligés
var
  I: Integer;
begin
  Label1.Caption := '';
  if Length(Edit1.Text) > 9 then Exit; // longueur maxi
  for I := 1 to Length(Edit1.Text) do
    if Edit1.Text[I] in CharToShift then
      Label1.Caption := Label1.Caption + ltrArray[Edit1.Text[I]];
end;

Sinon, je vois que j'ai laissé une ligne inutile (la 1ère) dans mon code précédent, à rectifier :

j := 0; // ne sert à rien, déclaration de la variable "J" inutile également

Bonne fin d'aprèm', amicalement,

korgis aka japee

Signaler

Cirec

Messages postés: 3826
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 10 mai 2021

42 > korgis

Messages postés: 420
Date d'inscription: samedi 17 mai 2003
Statut: Membre
Dernière intervention: 6 mai 2019

7 mars 2018 à 15:25

Quand même, le
array['A'..'Z'] of Char
,
c'est balaise !

Tu trouves !!!
c'est pas l'idée du siècle non plus ^^

petite question: as tu un IDE supérieur ou égale à D2009 ?
si je me permets de te demander c'est bien sur en rapport avec du code, pour savoir si tu peux profiter des avancées du compilateur ;)
je rappelle au passage que la dernière version de l'IDE était (est ?) en téléchargement gratuit :p

sur ce ... bonne fin de journée et à très bientôt ... j'espère ^^

Amicalement,
@+

Signaler

korgis

Messages postés: 420
Date d'inscription: samedi 17 mai 2003
Statut: Membre
Dernière intervention: 6 mai 2019

16 > Cirec

Messages postés: 3826
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 10 mai 2021

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

Signaler

Cirec

Messages postés: 3826
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 10 mai 2021

42 > korgis

Messages postés: 420
Date d'inscription: samedi 17 mai 2003
Statut: Membre
Dernière intervention: 6 mai 2019

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,
@+

Signaler

korgis

Messages postés: 420
Date d'inscription: samedi 17 mai 2003
Statut: Membre
Dernière intervention: 6 mai 2019

16 > Cirec

Messages postés: 3826
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 10 mai 2021

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

Signaler

ABDE83

Messages postés: 5
Date d'inscription: samedi 3 mars 2018
Statut: Membre
Dernière intervention: 7 mars 2018

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

Signaler

dubois77

Messages postés: 675
Date d'inscription: jeudi 17 avril 2008
Statut: Membre
Dernière intervention: 19 février 2019

13
Modifié le 7 mars 2018 à 15:03

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;

ABDE83 · Answer 4 · 2018-03-07T13:46:11+0100

Réponse 4 / 4

ABDE83

Messages postés: 5
Date d'inscription: samedi 3 mars 2018
Statut: Membre
Dernière intervention: 7 mars 2018

Modifié le 7 mars 2018 à 15:03

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;

Signaler

dubois77

Messages postés: 675
Date d'inscription: jeudi 17 avril 2008
Statut: Membre
Dernière intervention: 19 février 2019

13
7 mars 2018 à 17:57

bien vu
(en fait j'ai recopié et modifié le code plus haut sans vérifier correctement !)

Votre réponse