Ver Mensaje Individual
  #2  
Antiguo 08-11-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola yebabas.

Si no entiendo mal lo que buscas realizar, tenes que tomar la cadena de a dos caracteres:
Código Delphi [-]
ShowMessage(IntToStr(StrToInt('$'+'AA'))+#13#10+
            IntToStr(StrToInt('$'+'AE'))+#13#10+
            ...);

Por ejemplo, si tenes el número hexadecimal en una cadena y quisieras pasarlo a otra en formato decimal separado por un espacio:
Código Delphi [-]
function Hex2dToInt(const Hexa: string): string;
var
  i,c: Integer;
begin
  c:= 1;
  for i:= 1 to Length(Hexa) div 2 do
  begin
    Result := Result + IntToStr(StrToInt('$' + Copy(Hexa, c, 2))) + ' ';
    Inc(c, 2);
  end;
  SetLength(Result,Length(Result)-1);
end;

// Ejemplo de llamada:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.Text := 'AAAE3153';
  Memo1.Lines.Add(Hex2dToInt(Memo1.Text));
end;

Saludos.

Edito: Es claro que se debe convenir el uso de dos caracteres para representar un valor numérico hexadecimal.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 08-11-2012 a las 22:31:43.
Responder Con Cita