bonjour

j'au une table matériel (code_mat, nom_mat,dat_mat,.........etc)

je veux saisie un code dans un edit et je test s'il est existe ou non
voila ma procédur mais ne fonctionne pas et elle m'affiche rein:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var
  x,i:integer;
begin
  x:=strtoint(edit1.Text);
  table.First;
  while table.Eof do 
  begin
    if(table.FieldByName('code_mat').AsInteger<>x) then
      caption:='non';
    else
      caption:='oui'
    table.Next;
  end;
end;