Discussion :

[CorO]

Bonjour tout le monde!

Je voudrais pouvoir convertir les caractères qui se trouvent dans mon memo en d'autres caractères. Par exemple j'écris "Bon" et je voudrais que sur un procédure tout les B se transforment en 1, touts les O se transforment en 2, touts les N se tranforment en 3 etc... se qui me donnerait "123".

Comment puis-je faire??

[magic corp.]

Tu accedes au caractaire avec un ---> Memo.Text[n];

Exemple
texte : 'Salut'

Memo.Text[1]; --> 'S'
Memo.Text[2]; --> 'a'
Memo.Text[3]; --> 'l'
Memo.Text[4]; --> 'u'
Memo.Text[5]; --> 't'

donc je dirai un turc dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
for x := 1 to length(memo.text) do
  Case Memo.Text[x] of
    'a' : Memo.Text[x] := '1';
    'b' : Memo.Text[x] := '2';
    etc......

(J'ai pas testé (y surement des fautes de syntaxe indépandente de ma volonté) et y peut-être plus simple, à voir)

-Magic-

[Smortex]

magic corp., tu ne peux pas faire un case avec des string.

Youyou0214 Regarde du côté de StringReplace dans l'aide de Delphi.

bon dev'

[CorO]

OK merci, j'étais en train d'écrire justement que sa marchait po...

[CorO]

Autrement j'aurais une autre question qui n'a aucun rapport mais je ne voulais pas reposter un autre sujet: Comment peut on trouver un chiffre au hasard entre 2 et 25 par exemple?? J'ai essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RandomFrom(Espace)

Espace étant une variable Array [2..26] of integer; mais sa me sort des chiffres que je n'ai pas demandé (1458...)[/code]

[magic corp.]

Je sais que si c'est une chaine ça marche pas, mais si c'est un caractaire ça joue. non?

Instructions Case

L'instruction case propose ....
où expressionSelection est une expression de type scalaire (les types chaîne sont interdits) et chaque listeCas est l'un des éléments suivants :

-Un nombre, une constante déclarée ou une expression que le compilateur peut évaluer sans exécuter le programme. Ce doit être une valeur de type scalaire compatible avec expressionSelection. Ainsi 7, True, 4 + 5 * 3, 'A', et Integer('A') peuvent être utilisés comme listeCas, mais les variables et la plupart des appels de fonctions ne peuvent être utilisés. Certaines fonctions prédéfinies comme Hi et Lo peuvent s'utiliser dans une listeCas1.

il faut par contre y casté en CHAR char(memo1.Text[n]) (j'y avais pas pensé sur le moment)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Case char(memo1.Text[n]) of
  'a' : ...

PS : {Memo.Text[x] := '1'} c'est pas possible pas contre.

-Magic-

[Chonchon]

bonjour

solution de chiffre aleatoire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Randomize;
showmessage(inttostr((random(2)) or (Random(26))));

A+

[magic corp.]

Petite rectification, il n'y a même pas besoin de caster.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
case Memo.Text[n] of
  'a' : ...
  'b' : ...

est tous affet possible car {Memo.Text[n]} désigne un caratère.

Youyou0214, l'erreur que tu avais, devais être le {Memo.Text[n] := '1'} qui lui n'est pas possible.

-Magic-

[CorO]

Ok merci de vos reponse, touts mes problèmes sont résolus!