Código Delphi [-] while i <= length(cadena) do begin valor:=StrToInt('$'+ cadena[i]+cadena[i+1]); stream.write(valor,1); i:=i+2; end;
while i <= length(cadena) do begin valor:=StrToInt('$'+ cadena[i]+cadena[i+1]); stream.write(valor,1); i:=i+2; end;