[delphi2007]convertir chaque lettre en decimal

Salut ;)

J'ai une question qui je pense doit etre compliquer :roll: bref passons,

J'ai un listbox avec par exemple un mot 'TEST',j'aimerais convertir le mot en Decimal

par exemple

Code:

---

TEST équivaut a 84 69 83 84//encoder en decimal

---

auriez vous une idées ?

merci d'avance pour vos propositions..

Bonjour,

ord( 'T') donne 84. Après joue avec les foncitons de chaines de caractères pour découper ton mot.

@++
Dany

salut skywaukers ;) et merci

voila se que j'ai fait

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm4.Button2Click(Sender: TObject); var S:string; I:integer; Conv:string; begin S:=Edit1.text; //recupere se qu'il y a dans le edit1 for i:=1 to length(s) do Conv:=Conv+inttostr(ord(s[i]))+' ';//ici il converti pour Edit2.text:=(Conv); //le retourner dans edit2 end;

---

voila sa pourra servir au personne a qui sa interesse :P

A+