comment afficher à un dbgrid ma requête dans ce code?

Question

bonjour est-il possible pour ce code d'afficher à un tdbgrid les résultats de la recherche dans une liste comme style? (Par exemple, si je recherchais john, toutes les données conataining john sur un certain domaine seront affichés à TDBGrid)

procedure Tspcb.dccolbtnClick(Sender: TObject); 
begin 
    zdctable.First; 
    while not zdctable.EOF do 
    begin 
    if (zdctable.FieldByName('Collector').AsString = dcedit.Text) 
    then begin 
     cn.Caption := zdctable.FieldByName('Client_Name').AsString; 
     col.Caption := zdctable.FieldByName('Collector').AsString; 
     pay.Caption := zdctable.FieldByName('Daily_Payment').AsString; 
     date.Caption := zdctable.FieldByName('Date').AsString; 
     ddate.Caption := zdctable.FieldByName('Due_Date').AsString; 
     id.Caption := zdctable.FieldByName('ID').AsString; 
     la.Caption := zdctable.FieldByName('Loan').AsString; 
     tc.Caption := zdctable.FieldByName('Total_Collectibles').AsString; 
    end; 

    ShowMessage('click ok for next profile'); 
    zdctable.Next; 
    end; 
end; 

Answer 1

il suffit d'ajouter une source de données, ensemble de données de propriété définie sur votre zdctable ensemble de données, ajoutez un DBGRID à votre formulaire et définissez la source de données de propriété sur la source de données.

Le seul morceau de code que vous aurez besoin est dans le OnchangeEvent de dcedit

procedure TForm3.dceditChange(Sender: TObject); 
begin 
    zdctable.FilterOptions:=[foCaseInsensitive]; // if wished 
    zdctable.Filtered := Length(dcEdit.Text) > 0; 
    if zdctable.Filtered then 
     // zdctable.Filter := 'Collector like ' + QuotedStr('%' + dcEdit.Text + '%') 
     zdctable.Filter := 'Collector like ' + QuotedStr('*' + dcEdit.Text + '*') // Zeos- Syntax 
    else zdctable.Filter := ''; 
end;