Petit équivalent du ?: du c en delphi pour les chaines, longint & boolean

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 594 fois - Téléchargée 28 fois

Contenu du snippet

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;

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.