Ces fonctions renvoit une valeur ou l'autre (chaine, longint ou boolean) en fonction de la valeur TRUE/FALSE passée en paramètre.
En C, on ferait Reponse=(Value=1)?1:2;
ou avec des chaines Reponse=(Key="Y")?"YES":"NO";
En Delphi, ça donnera Reponse:=ChoixS(Key='S','YES','NO');
J'aurais pu utiliser des variants et ne faire qu'une seule fonction mais ce n'était pas le but ici. Si quelqu'un veut se lancer dans l'écriture...
Source / Exemple :
function ChoixS(PremierChoix:Boolean; Choix1,Choix2:ShortString):ShortString; Assembler;
Asm
// If PremierChoix then Result:=Choix1 else Result:=Choix2;
//=- original version was 34 asm lines and 2 external procs by Delphi compiler ;) now it's 14 lines -=
push esi
push edi
test al,al
jz @@NotTrue
mov esi,Choix1
jmp @@End
@@NotTrue:
mov esi,Choix2
@@End:
mov edi,@Result
xor ecx,ecx
mov cl,[esi]
inc cl
rep movsb
pop edi
pop esi
End;
function ChoixL(PremierChoix:Boolean; Choix1,Choix2:LongInt):LongInt; Assembler;
Asm
// If PremierChoix then Result:=Choix1 else Result:=Choix2;
test al,al
jz @@NotTrue
mov eax,edx // it's true so put the first parameter into the result
ret
@@NotTrue:
mov eax,ecx // it's false, put second parameter into result
End;
function ChoixB(PremierChoix:Boolean; Choix1,Choix2:Boolean):Boolean; Assembler;
Asm
// If PremierChoix then Result:=Choix1 else Result:=Choix2;
test al,al
jz @@NotTrue
mov eax,edx // it's true so put the first parameter into the result
ret
@@NotTrue:
mov eax,ecx // it's false, put second parameter into result
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.