Char--ASCII/ANSI et ASCII/ANSI--CharRésolu

Question

Bonjour



Voila, pour apprendre un peu le delphi, je me fait des petits progs.
Actuellement j'essaie de faire un truc qui crypte du texte, et pour ca
j'utilise en partie la repr&#233;sentation num&#233;rique d'une lettre... enfin,
bref.



Mais je n'arrive pas &#224; trouver dans la doc comment on transforme un
caract&#232;re en ASCII ou en ANSI(si possible les deux), et comment faire
l'&#233;tape inverse, a partir du num&#233;ro ANSI d'une lettre, comment la
retransformer en string.



Merci beaucoup de votre aide!

jlen100 · Accepted Answer

salut ,

pour char ---> ascii utlise valeur:=ord('acractere');

pour ascii --> char utilise caractere:=chr(valeur);

 bonne prog

Nargzul · Answer

et pour ansi

jlen100 · Answer

pour les 128 premiers caracteres le code ASCII ey ANSI sont
identiques  de meme pour  les suivants avec le code ASCII
etendu ANSI

DINEJC · Answer

Effectivement &#231;a fonctionne parfaitement avec ORD('A') par exemple, &#231;a donne 65, MAIS si vous souhaitez remplacer 'A' par une variable repr&#233;sentant un caract&#232;re autre (A,B ,C ,D 1, 2  .......ect), et que vous mettez Valeur:='A' et ensuite ORD(Valeur), l&#224; vous n'obtenez qu'un zero!!!!
Pourquoi? je n'arrive pas &#224; trouver une solution pour :
Obtenir le code ASCII d'un caract&#232;re qui serait variable, par exemple en tapant 'A' qui me donnerait 65 et que je transf&#232;re dans une EEPROM avec Senbyte(65)!

Je ne sais pas si je suis "clair"

Merci des r&#233;ponses &#233;ventuelles.

JC DINE

jlen100 · Answer

salut,

je ne vois pas ton probleme si je fais:

procedure TForm1.Button1Click(Sender: TObject);

var valeur:char;

i:integer;

begin

  valeur:='A'; i:=ord(valeur);

  edit1.Text:=inttostr(i);

end;

lorsque je clique sur le bouton edit1 n'affiche bien 65.

v&#233;rifie que valeur est bien declar&#233;e en char .

jlen100 · Answer

tu peux &#233;galement mettre 2 edits et faire:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

edit2.Text:=inttostr(ord(key));

end;

le second edit te donnera &#224; la vol&#233;e la valeur ASCII de la touche enfonc&#233;e quand le premier a le focus

jlen100 · Answer

on peux aussi utiliser un transtypage &#224; la place de ord dans l'exemple precedent cela donne:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

edit2.Text:=inttostr(integer(key));

end;

Char-->ASCII/ANSI et ASCII/ANSI-->Char

7 réponses

Votre réponse

Discussions similaires