Afficher le code ASCII d'un caractère

Signaler
Messages postés
16
Date d'inscription
mardi 21 février 2006
Statut
Membre
Dernière intervention
8 février 2010
-
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
salut tt le monde.
je veux créer une application sous delphi qui me donne le code ascii de chaque caracteres tapé dans un editbox.
merci d'avance.  @+

2 réponses

Messages postés
130
Date d'inscription
mercredi 26 octobre 2005
Statut
Membre
Dernière intervention
14 mars 2009

la fonction Ord renvoie le code ASCII du caractère passé en paramètre.
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
30
function GetAsciiStr(const C : char) : string;
var p : byte absolute C;
begin
    result := format('$%0:.2x : #%0:d : '+c,[p]);
end;

afficheras :

GetAsciiStr('A')
-> $41 : #65 : A