Bonjour
Voila, je souhaiterais utiliser le mot clef "IN" pour tester la presence d'une chaine dans un tableau de chaine, hors cela ne marche que si je fait reference a un tableau non ouvert.
Je suis surement pas tres claire donc voila un exemple

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button3Click(Sender: TObject);
Var TmpList: Array Of String;
    i:Integer;
begin
     SetLength(TmpList,6);
     For i := 0 to 5 Do TmpList[i] := inttostr(i);
 
     If '5' In TmpList Then edit3.Color := clred Else edit3.Color := clwhite;
     If '5' In ['1','2','3','4','5','6'] Then edit3.Color := clred Else edit3.Color := clwhite;
 
 
end;
Avec le premier if il se produit l'erreur suivante
[Erreur] essai.pas(68): E2015 Opérateur non applicable à ce type d'opérande

Par contre le 2eme If ne pose aucun probleme.

N'y a t il aucun moyen de contourné ceci ou est ce moi qui fait une erreur tout betement ?
Sur tout les site ou je suis aller et qui parler de In, celui ci etait utilisé soit dans une boucle For soit avec un tableau fixe, y compris dans l'aide.

Merci du coup de main
Qwaz