procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:='abcde'; showmessage(inttostr(ord(s[3])));//code en integer de la 3° lettre (tu peux en choisir une autre showmessage('$ '+inttohex(ord(s[3]),2));//code en héxadécimal de la 3° lettre //(en résumé la lettre "c" a pour code ascii 99 càd $63 end;
var s:string; i:integer;//byte suffirait pour le présent exemple codes:string; begin s:='toutou est blanc'; for i:=1 to length(s) do codes:=codes+inttostr(ord(s[i]))+' '; showmessage(codes); codes:=''; {pour faire en héxadécimal :} for i:=1 to length(s) do codes:=codes+'$'+inttohex(ord(s[i]),2)+' '; showmessage(codes) end;