Recupérer le code ASCII de chaque caractere d'une string

Question

Bonjour :D

j'ai une phrase dans un Edit.text.
Je voudrais faire une boucle pour lister ttes les lettres et faire une action suivant leur caractere ANSII.

J'ai donc commencé par :

var
Longueur: Integer;
i : integer;
L :  string;
begin
Longueur := Length(Edit2.Text);
  for i:=1 to Longueur  do
    begin
        L := Copy(Edit2.Text,i,1);
        // Showmessage ici
    end;
end;

Chaque lettre est donc stockée tour à tour dans la variable L.
Comment puis-je afficher son caractere ANSII
Je sais que c'est avec Ord, mais j'echoue a chaque fois sur des types de variables incompatible.

Merci beaucoup pour toute aide :D

cs_askil2000 · Answer

var 

L : Char;

Alex

CyberTwister · Answer

Si je met :
L: Char

j'ai une erreur ici :
L := Copy(Edit2.Text,i,1);
Type incompatible 'Char' et 'tcaption'

cs_askil2000 · Answer

Oui en effet il faut déclarer une deuxième variable string qui prend la valeur de Edit2.Text

ensuite

L := MaVar[I];

Alex

Caribensila · Answer

Bonjour,


var
  Longueur: Integer;
  i : integer;
  L :  char;
...
  Longueur := Length(Edit2.Text);
  for i:=1 to Longueur  do begin
    L := Edit2.Text[i];
    Showmessage(IntToStr(Ord(L)));
  end;

f0xi · Answer

procedure GetStringCharCodes(const S: String; var CharCodes: TByteDynArray);
var L : integer;
begin
  L := Length(S);
  SetLength(CharCodes, L);
  Move(S[1], CharCodes[0], L);
// ou (mesurer les performances)
//  CopyMemory(@CharCodes[0], PChar(S), L);
end;

Caribensila · Answer

... Question perfs, c'est poil kif-kif.

Recupérer le code ASCII de chaque caractere d'une string

6 réponses

Votre réponse

Discussions similaires