Bonjour à tous,
J'aurais besoin de votre aide concernant un problème que je n'arrive pas à résoudre.. en effet je réalise grâce à une requête SQL une boucle while pour me permettre de retrouver des enregistrements dans une table ensuite grâce à 1 next je passe aux enregistrements suivants jusque là tout est ok par contre j'aimerais que ma requête avance seule grâce à un timer et non un next mais je n'arrive pas à générer le code ... voici mon code
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);
begin
  query1.SQL.Clear;
  query1.SQL.Add('select * from affichdynamique order by Date;');
  if not query1.Active then query1.Active:=True else query1.Execute;
  if query1.RecordCount<>0 then
  begin
    query1.First;
    while not query1.Eof do
    begin
      label1.Caption:=query1.Fields[0].AsString;
      query1.Next;
    end;
  end;
end;
A l'heure actuelle mon next fonctionne avec l'appui sur le bouton mais je voudrais supprimer le bouton et que cela se fasse avec un timer au bout de 10s est ce possible comment faire ?

Merci par avance