convertir un caractère en binaire

Bonjour,

J'ai trouvé la solution, il faut convertir le caractère au code Ascii utilisant la fonction ord car exemple : ord('A') donne 65, ensuite on utilise le petit programme suivant pour convertir le code Asccii en code binaire à 8 bits:

var

I, car:integer;

 reste:array[1..8]of integer;

 res:string;

begin

    for i:=1 to 8 do reste[i]:=0;

//met les valeurs à zéro car un tableau est toujours initialisé avec des valeurs non nuls.

  i:=1;

 while car <> 0 do

 begin

  reste[i]:=car mod 2;//le reste de la div(0 ou 1)

  car:=car div 2;//le nombre résulant de la div par 2 (128/2=64)

  inc(i);//permet le passage à l'indice suivant du tableau RESTE

  end;

 for i:=8 downto 1 do

  res:=res+inttostr(Reste[i]);

//inverse le résultat