Visor de Nibles

[[Lepe]]

Mira la función HexTobin en la ayuda.

Código Delphi [-]
function HextoBinEx(hexa:string):string;
var buffer: array of string;
     BuffSize:integer;
begin
BuffSize := length(hexa)*2;
setlength( buffer, BuffSize);
{$T-}
HexTobin(pansichar(lowercase(hexa)), @buffer, BuffSize);
{$T+}
Result := buffer;
end;

De memoria sería así, tendrá errores.

Saludos