Bonjour à tous
 
Ce code me pose pb :  
 
procedure Chercher;
var
        Retour : LongInt;
        StartPos, ToEnd : integer;
        Struct_Recherche : TSearchTypeS;
 
begin
 
        StartPos := 0;
        ToEnd := Length(Form1.RichEdit1.Text);
        Retour := Form1.RichEdit1.FindText(Chn_Cherchee, StartPos,ToEnd, Struct_Recherche);
        // etc...
       
 
Je cherche une chaîne ds un RichEdit, et je ne veux pas tenir compte de la casse. Donc, il me faut la fonction FindText, et mettre l'option stMatchCase comme il faut pour Struct_Recherche .  
 
Comment initialiser les options de Struct_Recherche  
 
Cette syntaxe ne fonctionne pas : Struct_Recherche.StMatchCase := quelque chose . Le compilo semble ne pas reconnaître que Struct_Recherche est un record
 
Merci