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

Question

Posez votre question Signaler

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

ABDE83

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

- Modifié le 3 mars 2018 à 17:43 - Dernière réponse : korgis

Messages postés: 426
Date d'inscription: samedi 17 mai 2003
Dernière intervention: 16 février 2019

- 13 mars 2018 à 14:57

Delphi / Pascal Posez votre question Signaler

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

A voir également:

Delphi elseif
Inttostr pascal - Meilleures réponses
C / C++ / C++.NET : Fonction qui transforme une chaîne de caractère en nombre - CodeS - Guide
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

Votre réponse

Répondre au sujet

4 réponses

Votre réponse

Répondre au sujet

Posez votre question

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

Signaler Commenter la réponse de NHenry

NHenry

Messages postés: 14386
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 20 février 2019

153 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.

Signaler Commenter la réponse de ABDE83

ABDE83

Messages postés: 5
Date d'inscription: samedi 3 mars 2018
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

Signaler Commenter la réponse de korgis

korgis

Messages postés: 426
Date d'inscription: samedi 17 mai 2003
Dernière intervention: 16 février 2019

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

Signaler Commenter la réponse de ABDE83

ABDE83

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

- 4 mars 2018 à 10:13

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

Signaler Commenter la réponse de korgis

korgis

Messages postés: 426
Date d'inscription: samedi 17 mai 2003
Dernière intervention: 16 février 2019

15 - 4 mars 2018 à 13:27

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

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

Signaler Commenter la réponse de Cirec

Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

41 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,

Afficher les 8 commentaires

Signaler Commenter la réponse de korgis

korgis

Messages postés: 426
Date d'inscription: samedi 17 mai 2003
Dernière intervention: 16 février 2019

15 - 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 Commenter la réponse de Cirec

Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

41 > korgis

Messages postés: 426
Date d'inscription: samedi 17 mai 2003
Dernière intervention: 16 février 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 Commenter la réponse de korgis

korgis

Messages postés: 426
Date d'inscription: samedi 17 mai 2003
Dernière intervention: 16 février 2019

15 > Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

- 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 Commenter la réponse de Cirec

Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

41 > korgis

Messages postés: 426
Date d'inscription: samedi 17 mai 2003
Dernière intervention: 16 février 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 Commenter la réponse de korgis

korgis

Messages postés: 426
Date d'inscription: samedi 17 mai 2003
Dernière intervention: 16 février 2019

15 > Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Statut: Modérateur
Dernière intervention: 3 août 2018

- 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 Commenter la réponse de ABDE83

ABDE83

Messages postés: 5
Date d'inscription: samedi 3 mars 2018
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 Commenter la réponse de dubois77

dubois77

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

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

Signaler Commenter la réponse de ABDE83

ABDE83

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

Modifié le 7 mars 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;

Signaler Commenter la réponse de dubois77

dubois77

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

19 - 7 mars 2018 à 17:57

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

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

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

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