BinToHex из Classes. Как юзать и скормить ей большой String

[Alex Cones]

Наткнулся на функу BinToHex из модуля Classes (если что, привожу её код):

procedure BinToHex(Buffer, Text: PChar; BufSize: Integer); assembler;
const
  Convert: array[0..15] of Char = '0123456789ABCDEF';
var
  I: Integer;
begin
  for I := 0 to BufSize - 1 do
  begin
    Text[0] := Convert[Byte(Buffer[I]) shr 4];
    Text[1] := Convert[Byte(Buffer[I]) and $F];
    Inc(Text, 2);
  end;
end;
{asm
        PUSH    ESI
        PUSH    EDI
        MOV     ESI,EAX
        MOV     EDI,EDX
        MOV     EDX,0
        JMP     @@1
@@0:    DB      '0123456789ABCDEF'
@@1:    LODSB
        MOV     DL,AL
        AND     DL,0FH
        MOV     AH,@@0.Byte[EDX]
        MOV     DL,AL
        SHR     DL,4
        MOV     AL,@@0.Byte[EDX]
        STOSW
        DEC     ECX
        JNE     @@1
        POP     EDI
        POP     ESI
end;}

1) Совершенно не понятно, почему асм закомментен.
2) Зачем ей столько параметров и какие нужно ввести ( в смысле как её юзать).
3) Если я ей "скормлю" String длиной ~2 9440 000 символов, она её переварит?

[Stilet]

Совершенно не понятно, почему асм закомментен.

Наверное для прикола )

Зачем ей столько параметров и какие нужно ввести ( в смысле как её юзать).

var s:string;bz:integer;l:PAnsiChar;
begin
 s:='12345';
 GetMem(l,length(s));
 BinToHex((@s[1]),l,length(s));
 Caption:=l;
end;

она её переварит?

А ты попробуй и отойди

[Alex Cones]

А чтоб получить результат в String?

[Stilet]

А чем тебе PAnsiChar не String?

[raxp]

вариации на тему:

var
   s:string;
   Buf:string;//pchar;
begin
   s:= '45';
   SetLength(Buf,Length(s)*2);
   //GetMem(buf,length(s));
   BinToHex(PChar(s), pchar(Buf), length(s));
   caption:= buf;
end;

но делает функа тоже, что и...

inttohex(ord(s[i]),2)

только массив в bintohex сразу

[Alex Cones]

GetMem(l,length(Bits));
 BinToHex((@Bits[1]),l,length(Bits));
 S:=l;

Длина битс что-то около э...э... 1 000 000 симв.

Ашипка AccessViola

P.S.

Var
 F: TextFile;
 BitS, S: String;
 X, Y : Integer;
 CurrentNumOfColor : Byte;
 LBit, Bit : TBitMap;
 MultiFlag : Boolean;
 CurrentBitS :String;
 I :Integer;
 N :Integer;
 l:PAnsiChar;