Renvoit une chaine de x fois le caractère demandé

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 728 fois - Téléchargée 28 fois

Contenu du snippet

Ecrite uniquement pour optimiser la version Delphi.
Cette fonction renvoit un shortstring contenant "Nb" fois le caractère "Car".

Source / Exemple :


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;

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.