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;
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.