Comment puis-je savoir quand un TDBGrid Delphi a fini de remplir à partir d'une base de données?

Question

J'ai une base de données remplissant un TDBGrid dans Delphi 2007 Pro. Lorsque la grille finit de remplir, je souhaite remplir automatiquement une zone de liste en fonction des données traitées à partir de la grille. Je peux le faire manuellement en regardant et en attendant que la grille se remplisse complètement avec l'ensemble de données, puis appelle ma prochaine procédure. Y at-il un événement qui permettrait d'appeler la procédure suivante lorsque la grille finit de remplir automatiquement? Merci.

Answer 1

Si vous utilisez un descendant TDataSet, vous pouvez utiliser son événement AfterOpen:

"AfterOpen is called after the dataset establishes access to its data and the dataset is put into dsBrowse state."

modifier (exemple de code pour les commentaires de Duilio's answer): Dans le ci-dessous, la CDS est un 'TClientDataSet'. Un 'TDBGrid' est également attaché à l'ensemble de données au moyen d'un 'TDataSource', mais la fonctionnalité de la grille n'est pas affectée par le code ci-dessous, ou la fonctionnalité de la ListBox avec la grille d'ailleurs.

procedure TForm1.CDSAfterOpen(DataSet: TDataSet); 
var 
    sl: TStringList; 
begin 
    sl := TStringList.Create; 
    try 
    sl.Sorted := True; 
    sl.Duplicates := dupIgnore; 

    DataSet.DisableControls; 
    try 
     DataSet.First; 
     while not DataSet.Eof do begin 
     sl.Add(DataSet.Fields[1].AsString); 
     DataSet.Next; 
     end; 
     DataSet.First; 
    finally 
     DataSet.EnableControls; 
    end; 

    ListBox1.Items.Assign(sl); 
    finally 
    sl.Free; 
    end; 
end; 

Answer 2

Je pense que vous pouvez exécuter:

TDataSet.Open; 
TDataSet.FetchAll; 
{At this point DBGrid should be populated} 

Cela obtenir toutes les données de votre table. Lorsque vous avez terminé, votre DBGrid devrait être rempli.