Hola de nuevo,
los botones son TBitBtn y en el codigo he puesto esto:
procedure TForm1.BaClick(Sender: TObject);
begin
Filtro:= (Sender as TBitBtn).Caption[1];
Table1.Filtered:= False;
Table1.Filtered:= True;
end;
Ahora solo me falta poner este codigo, pero no se en donde va puesto
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept:= UpCase(Table1.FieldByName('COGNOM1').AsString[1]) = UpCase(Filtro);
end;
muchas gracias
|