si tu tiens absolument à utiliser case of en pascal tu peux le faire si si...
il suffit d'utiliser une TStringList par exemple
...
liste.add('un'
;
liste.add('deux'
;
liste.add('trois'
;
...
case liste.indexof(chaine) of
0 : // ici si chaine='un'
1 : // ici si chaine='deux'
2 : // ici si chaine='trois'
...
end;
[jfdsdjhfuetppo]--Message édité par Taureau--[/jfdsdjhfuetppo]