Chiffre en lettre [Résolu]

vrachid 110 Messages postés lundi 6 mars 2006Date d'inscription 5 octobre 2011 Dernière intervention - 26 mars 2008 à 15:19 - Dernière réponse : chesnetda 10 Messages postés mercredi 31 mai 2006Date d'inscription 8 février 2010 Dernière intervention
- 27 mars 2008 à 12:48
bj a tous
y a til un moyen de convertir un chiffre en sa position numérique dans l'alphabet?
par exemple si je tape 1 dans un edit j'aurai un A dans l'autre edit, 2 =b............
merci d'avance
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 26 mars 2008 à 19:39
3
Merci
procedure TForm1.Edit1Change(Sender: TObject);
var
  E1 : integer;
const
  CTA : array[1..26] of char = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  E1 := StrToIntDef(Edit1.Text, 1);
  if E1 in [1..26] then
    Edit2.Text := CTA[E1]
  else    Edit2.Text :'range 1..26';
end;





<hr size="2" width="100%" />


http://deefaze.gnomz.com

Merci f0xi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de f0xi
chesnetda 10 Messages postés mercredi 31 mai 2006Date d'inscription 8 février 2010 Dernière intervention - 26 mars 2008 à 17:59
0
Merci
Bonjour,
Vous pouvez utiliser la conversion ASCII. Par exemple, pour 'A', son code ASCII est 65. chr(65) donnera 'A' et ord('A') donnera 65.
Donc, si vous saisissez votre valeur dans la variable Num:
edit2.caption:= IntToStr(chr(Num+64));
Une table ASCII: http://www.ascii.cl/
Cordialement,
David C.
Commenter la réponse de chesnetda
chesnetda 10 Messages postés mercredi 31 mai 2006Date d'inscription 8 février 2010 Dernière intervention - 27 mars 2008 à 12:48
0
Merci
Bien vu f0xi !
Simple et efficace comme toujours...
Commenter la réponse de chesnetda

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.