je trouve dans ce forum l'utilisation de shl et shr qu'est ce que ça veut dire...
(* conversion de la base 10 à la base 2 *)
function DecToBin(a : integer):string;
var s : string;
begin
s := '';
while (a <> 0) do begin
s := chr(48 + a and 1) + s;
a := a shr 1; (* diviser a par deux *)
end;
DecToBin := s;
end;