Conversion de caractére á ASCII avec 2 edit box (champs de texte)
Dancsi27
Messages postés7Date d'inscriptionsamedi 6 décembre 2008StatutMembreDernière intervention20 mars 2009
-
8 mars 2009 à 23:26
Dancsi27
Messages postés7Date d'inscriptionsamedi 6 décembre 2008StatutMembreDernière intervention20 mars 2009
-
9 mars 2009 à 17:39
Bonjours tout le monde,
J'ai une petite exercice á faire pour l'école oú j'ai une fiche avec un button Quitter et 2 edit box (champs de texte)
Le button quitter permet de fermer l'application, jusque lá ça va :P
Le programme doit afficher les codes ASCII dans le 2e edit box séparés par un espace dés qu'on tape un caractére dans le 1er edit box (procédure editchange, ça va aussi). Je sais que je dois utiliser la fonction Ord pour faire la conversion de char --> ASCII, mais je suis bloqué pour faire le lien entre les 2 edit box.
Ord marche avec 1 caractère seulement et non des chaînes de caractère et il doit donner un résultat entier (0 á 255)
les edit box sont des strings, que je dois associer aux caractéres que je tape.
Quelqu'un peut m'aider pour faire le lien?
Ex: si je tape AB dans le premier edit box, "65 66" doivent s'afficher dans edit2. Il faut tenir compte aussi du Backspace (code #8 si je me souviens bien)
A voir également:
Decodeur ascii en texte
Convertir code ascii en texte - Meilleures réponses
Convertisseur code ascii en texte - Meilleures réponses
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 9 mars 2009 à 11:34
Salut,
que de complications
il y avait plus simple et tout est géré
function StrToASCII(const aStr: string): string;
var I: Integer;
begin Result := EmptyStr;
for I : = 1 to Length(aStr) do Result := Result + IntToStr(Ord(aStr[I])) + #32;
end ;
procedure TForm1.Edit1Change(Sender: TObject);
begin Edit2.Text : = StrToASCII(Edit1.Text);
end;