case 2 caractère

Bijour,
voila j'aimerait qu'un case test 2 caractère :

case (Edit.text[i]+Edit.text[i+1]) of
'ab' : begin
................

Mais ca marche pas, pourquoi? Ya t'il une autre solution.
MERCI bcp!!

Lanosic

Le case ne fonctionne que sur les type Ordinaux ( entiers, enumérés, caractères...), les chaines ne font pas partie des ordinaux. Case n'est donc pas applicable dans ce cas.

La seule solution est d'utiliser des If Then Esle :

Chaine:=Edit.text[i]+Edit.text[i+1]; If Chaine='ab' Then .... Else If Chaine='bc' Then ... Else If ...

--- Nono40@fr.st ---
Nouveau ---> Nono40.fr.st


-------------------------------
Réponse au message :
-------------------------------

> Bijour,
> voila j'aimerait qu'un case test 2 caractère :
>
> case (Edit.text[i]+Edit.text[i+1]) of
> 'ab' : begin
> ................
>
> Mais ca marche pas, pourquoi? Ya t'il une autre solution.
> MERCI bcp!!
>
> Lanosic

Merci bcp. c'est cool d'avoir répondu!
j'y avait pas penser! Merci ;)

Lanosic


-------------------------------
Réponse au message :
-------------------------------

> Le case ne fonctionne que sur les type Ordinaux ( entiers, enumérés, caractères...), les chaines ne font pas partie des ordinaux. Case n'est donc pas applicable dans ce cas.
>
> La seule solution est d'utiliser des If Then Esle :
>
>

Chaine:=Edit.text[i]+Edit.text[i+1]; > If Chaine='ab' > Then .... > Else If Chaine='bc' > Then ... > Else If ...

>
> --- Nono40@fr.st ---
> Nouveau ---> Nono40.fr.st
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bijour,
> > voila j'aimerait qu'un case test 2 caractère :
> >
> > case (Edit.text[i]+Edit.text[i+1]) of
> > 'ab' : begin
> > ................
> >
> > Mais ca marche pas, pourquoi? Ya t'il une autre solution.
> > MERCI bcp!!
> >
> > Lanosic
>

Voici comment faire un case avec des chaines de caractères...
Focntion qui peut être améliorée !

function StringIndex(s: string; list: array of string): integer;
var i: integer;
begin
result := -1;
for i := 0 to high(list) do
if AnsiCompareText(list[i], s) = 0 then
begin
result := i;
break;
end;
end;

case StringIndex(MaChaine, ['ceci', 'cela', 'autrechose']) of
0: FaireCeci;
1: FaireCela;
2: FaireAutreChose;
end;

@plus