function Trouver(AText: string): boolean; begin //Initialiser le résultat Result : = False; with DM.DSRuche.Dataset do begin First; while not EOF do begin if Fields[0].AsString = AText then begin Result := True; //Là, il faut sortir de la boucle While Break; end ; Next; end; end; end; Mais pourquoi n'utilises-tu pas la méthode Lookup des TDataSet ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question