Closed maxkleiner closed 1 year ago
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;
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');
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;