Ayuda String to Array of Bytes

[hach]

Hola,
si te entendi bien estas funciones te van a servir:

Código Delphi [-]
function StringToHexa(texto:String; var dato:array of byte):Boolean;
var i : longint;
begin
  Result := FALSE;
  if trim(texto) = '' then exit;
  if Length(texto) = 1 then texto := '0' +  texto;

  For i := 1 To Length(texto) div 2 do
    dato[i - 1] := strtoint('$' + MidStr(texto, (i * 2) - 1, 2));
  Result := True;
end;

 
function HexaToString(dato: array of byte): string;
var i: longint;
begin
 Result := '';
 for i := 0 To high(dato) do
  Result := Result  + IntToHex(dato[i], 2);
end;

Saludos

Pablo

[vicoxl16]

Muchas Grasias Ami la Funcionde HexaToString me va de Lujo


solo una consulta en la funcion StringToHexa como ago para su llamado

Informacion:array[0..191] of byte

Te lo Agradeceria Amigo

[hach]

Código Delphi [-]
Informacion:array[0..191] of byte;
strHexa: String;
 
strHexa:=´0102A1FF´;
 
StringToHexa(strHexa, Informacion);