التصفية حسب التحديد في dbgrid

[احمد العراقي]

السلام عليكم 
عدل عليها بما يناسبك

• dmt.client هي الـ DataSet الخاصة بك.
  
• dbgClients هي DBGrid الخاصة بك.
  

PHP كود :

procedure TfrmListClient.ToolButton1Click(Sender: TObject);
var
  I: Integer;
  FilterStr, FieldName: string;
begin
  FieldName := dmt.Client.Fields[0].FieldName;
  FilterStr := FieldName + ' = -1';
  for I := 0 to dbgClients.SelectedRows.Count - 1 do
  begin
    dmt.Client.GotoBookmark(dbgClients.SelectedRows[i]);
    FilterStr := FilterStr +' or '+ FieldName + ' = ' + dmt.Client.Fields[0].AsString;
  end;
  dmt.Client.Filter := FilterStr;
  dmt.Client.Filtered := True;
end; 


شكرا اخي العزيز غاية الشكر و كل من قام بالرد على سؤالي حقا هذا المنتى رائع , اشكرم جميعا ,نعم هذا هو الكود الذي يعمل بالصورة التي كنت احتاجها مرة اخرى اشكرم جميعا