Problème avec un memo...

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?? :)

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:

---

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-

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' :wink:

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

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:

---

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]

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

Citation:

---

Envoyé par Un employé de chez Borland

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:

---

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

---

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

-Magic-

bonjour

solution de chiffre aleatoire

Code:

---

1 2 3

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

---

A+

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

Code:

---

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-

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