[Delphi] byte array -> string / string -> byte array 변환

특별한 설명은 없습니다. 아래 코드를 참고하세요.

type

  TByteArr = array of byte;

function ByteToString(const Value: TByteArr): String;

var

  I: integer;

  S : String;

  Letra: char;

begin

  S := '';

  for I := Length(Value)-1 downto 0 do begin

    letra := Chr(Value[I] + 48);

    S := letra + S;

  end;

  Result := S;

end;

 

function StrToByte(const Value: String): TByteArr;

var

  I: integer;

begin

  SetLength(Result, Length(Value));

  for I := 0 to Length(Value) - 1 do Result[I] := ord(Value[I + 1]) - 48;

end;