Code ASCII d'un caractère

Version imprimable

19/11/2009, 15h18
Sancha

Code ASCII d'un caractère

Bonjour à tous !

je fais encore appel à vous parce que j'ai une petite question.

J'ai une varible Chaine, de type String, qui contient 'Blabla'.

Je voudrais connaître le code ASCII de chacun des caractères de Chaine.

Je sais que si j'écris

Code:

Char($48)

cela me donnera 'H' (car le code ASCII de 'H' est $48... Mais, du coup, quelle est la fonction inverse à Char ?

Voila, je vous remercie !
19/11/2009, 15h30
ero-sennin

Salut,

C'est la fonction Ord si je ne m'abuse. :P
19/11/2009, 15h34
Sancha

Oui, mais si je fais Ord('H'), il me met bien sur une erreur...
Ord attend un Integer.
19/11/2009, 15h37
ero-sennin

Il n'y a pas de quote à mettre. C'est ord(H) (et toujours en majuscule).
19/11/2009, 15h41
Sancha

Oui mais là aussi il me met une erreur : il croit que H est une variable et il met l'erreur "Identificateur non déclaré"...
19/11/2009, 15h45
mick605

Ord('H') fonctionne chez moi et c'est bien normal ...

Ord(H) ne peut marcher que si H est une variable.

Ord attends un Ordinal et non pas un integer ...

Par contre, Ord n'est pas l'inverse de Char, Ord est l'inverse de Chr (fonctionne presque pareil ...)
19/11/2009, 15h46
Sancha

Oups, autant pour moi...

Ord('H') marche... :oops:

Merci à toi ero-sennin !
19/11/2009, 15h48
Sancha

Citation:

Envoyé par mick605

Ord('H') fonctionne chez moi et c'est bien normal ...

Ord(H) ne peut marcher que si H est une variable.

Ord attends un Ordinal et non pas un integer ...

Vi, tu as tout à fait raison... C'est moi qui fait de la merde depuis le début. :boulet:
19/11/2009, 15h50
ero-sennin

Oula, tu m'as embrouillé là.
Je suis entrain de dire n'importe quoi! :roll:
C'est bien Ord('H')! Il doit avoir un autre souci ailleurs !

Faut dire, je n'ai pas Delphi sous la main.

EDIT

Ah,ba voilà :mrgreen:
19/11/2009, 15h57
peter27x

Citation:

Envoyé par ero-sennin

Il n'y a pas de quote à mettre. C'est ord(H) (et toujours en majuscule).

Gné !?

:fem: ... :koi:
19/11/2009, 16h10
ero-sennin

Citation:

Envoyé par peter27x

Gné !?

:fem: ... :koi:

oui, comme dit dans mon post d'avant, Sancha m'a un peu embrouillé, et c'est bien Ord('H') qu'il faut prendre (donc avec les quotes). Et le H doit toujours être en majuscule il me semble(sinon ça ne fonctionne pas, je pense).
19/11/2009, 16h19
Sancha

Citation:

Et le H doit toujours être en majuscule il me semble(sinon ça ne fonctionne pas, je pense).

Si ça fonctionne mais ça ne renvoie pas le code ASCII de 'H' mais celui de 'h'.
19/11/2009, 16h23
ero-sennin

Citation:

Envoyé par Sancha

Si ça fonctionne mais ça ne renvoie pas le code ASCII de 'H' mais celui de 'h'.

:dehors: je suis vraiment un :boulet: là!
19/11/2009, 16h40
Sancha

Citation:

Envoyé par ero-sennin

:dehors: je suis vraiment un :boulet: là!

:mouarf:
Mais non !
c'est ma faute : c'est moi qui t'embrouille. ;)
19/11/2009, 16h50
ero-sennin

Oui, j'ai la tête :cfou:

un ch'ti :resolu: si c'est OK alors ? :P
19/11/2009, 16h54
peter27x

Citation:

Envoyé par ero-sennin

oui, comme dit dans mon post d'avant, Sancha m'a un peu embrouillé, et c'est bien Ord('H') qu'il faut prendre (donc avec les quotes). Et le H doit toujours être en majuscule il me semble(sinon ça ne fonctionne pas, je pense).

Oui, je sais... c'était pour remuer le canif... 8-)

tu veux la méthode magique ?

Code:

1
2
3
4
5
6
7
 
type
  TByteOrChar = record
    case integer of
      0:(Bin : {$IFDEF UNICODE}Word{$ELSE}Byte{$ENDIF});
      1:(Chr : Char);
  end;

char -> ?

Code:

1
2
3
4
5
6
 
var BoC : TByteOrChar;
begin
  BoC.Chr := 'H';
  caption := format('%.*x', [SizeOf(char) shl 1, BoC.Bin]);
end;

? -> char

Code:

1
2
3
4
5
6
 
var BoC : TByteOrChar;
begin
  BoC.Bin := $48;
  caption := BoC.Chr;
end;

et hop :)