RENVOIT UNE CHAINE DE X FOIS LE CARACTÈRE DEMANDÉ

Function RepCar(Car:Char; Nb:Byte):ShortString; Assembler;
Asm
    // original delphi coded version : 26 lines and 2 external procedures call, now it's 10 lines
    push   edi

    mov    edi,@Result
    mov    ebx,eax             // save needed car (EAX) into ebx
    mov    al,dl               // now take the number of chars (EDX) into al
    stosb                      // and store it ;)
    xor    ecx,ecx
    mov    cl,dl               // say we want Nb Chars
    mov    al,bl               // of this char
    rep    stosb               // and repeat ;)

    pop    edi
End;