InttoBytes about maxbox4 HOT 3 CLOSED

or

function ByteToString(var Value: TBytes): String;  // var and const OK!
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;

from maxbox4.

Func StrToBytes(const Value:Str): TBytes;
Func BytesToStr(const Value: TBytes):Str;
Func GetBytes(value:Str): TBytes;
Func GetBytesInt(value: Smallint): TBytes;
Function StreamToBytes( const ASource : TStream) : TBytes');

from maxbox4.

9 flcSysUtils.pas //2 functions with cwindows possible + freqObj +TBytes utils
Func AnsiBytesOf(const S:Str): TBytes;
Func GetBytes(value:Str): TBytes;
Func GetBytesInt(value: Smallint): TBytes;
Func AnsiByteArrayStringLen2(Data: TBytes): Integer;
Func StringToAnsiByteArray2(const S:Str): TBytes;
Func AnsiByteArrayToString2(const Data: TBytes; Count: Integer):Str;
Func BytesOf(const Value: Ansistr): TBytes;
Func BytesOfChar(const Value: AnsiChar): TBytes;
Func StringOf(const Bytes: array of Byte): Ansistr;

from maxbox4.