Discussion :

[shell13010]

Salut

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

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

par exemple

Code :

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

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

auriez vous une idées ?

merci d'avance pour vos propositions..

[skywaukers]

Bonjour,

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

@++
Dany

[shell13010]

salut skywaukers et merci

voila se que j'ai fait

Code :

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

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

A+