ET PIS C'EST TOUT !
var rech:string rst:boolean; begin rech:=uppercase(inputbox(‘recherche’,’entrer le nom de l’’élève’,’’)) ; table1.first; rst:=false; while(not table1.eof)do if table1.fieldvalues['nom_elev']=rech then begin rst:=true; break; end else table1.next; if not rst then begin showmessage('Enregistrement introuvable'); end ;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.Button1Click(Sender: TObject); var rech : string; begin rech := UpperCase(InputBox('recherche','nom','')); showmessage(rech); end;