Aula dia 26/05/2015

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  Campo := Column;
  ClientDataSet1.IndexFieldNames := Campo.FieldName;
  Column.Index := 0;
  Edit1.SetFocus;

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Campo.Field.DataType = ftInteger  then
    ClientDataSet1.Locate(Campo.FieldName, StrToIntDef(Edit1.Text, 0), [])
  else
    if Campo.Field.DataType = ftString then
      ClientDataSet1.Locate(Campo.FieldName, Edit1.Text, [loPartialKey])
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet1.IndexFieldNames := ClientDataSet1.Fields[0].FieldName;
  Campo :=  DBGrid1.Columns[0]
end;