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]