Discussion :

[Sancha]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[ero-sennin]

Salut,

C'est la fonction Ord si je ne m'abuse.

[Sancha]

Oui, mais si je fais Ord('H'), il me met bien sur une erreur...
Ord attend un Integer.

[ero-sennin]

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

[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é"...

[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 ...)

[Sancha]

Oups, autant pour moi...

Ord('H') marche...

Merci à toi ero-sennin !

[Sancha]

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.

[ero-sennin]

Oula, tu m'as embrouillé là.
Je suis entrain de dire n'importe quoi!
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à

[peter27x]

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

Gné !?

...

[ero-sennin]

Gné !?

...

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).

[Sancha]

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'.

[ero-sennin]

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

je suis vraiment un là!

[Sancha]

je suis vraiment un là!

Mais non !
c'est ma faute : c'est moi qui t'embrouille.

[ero-sennin]

Oui, j'ai la tête

un ch'ti si c'est OK alors ?

[peter27x]

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...

[Dr.Who]

tu veux la méthode magique ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et hop