Hola Jrodfer89.
Cita:
|
... pero no se en donde va puesto...
|
Hacé click sobre el componente
TDataSet que estes usando (
TTable,
TADOTable, etc) de modo que quede seleccionado. Desde el Object Inspector (si está oculto presiona F11) hace click sobre la pestaña
Events y luego doble click sobre el evento
OnFilterRecord, Delphi automáticamente te armará el cuerpo de la función así:
Código Delphi
[-]procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
end;
Luego copia y pega la línea:
Código Delphi
[-] Accept:= UpCase(Table1.FieldByName('COGNOM1').AsString[1]) = UpCase(Filtro);
ente el
begin ~
end y listo.
Cuando incluyas código en tus mensajes recorda usar los TAG's:
Saludos
