Chirs, ahora que he solucionado el problema con mi base de datos de la empresa, te pongo el código de búsqueda que tengo (más que seguro que tu también lo conoces) e imágenes para expresar mejor lo que hablaba de las búsquedas.
Código
Código Delphi
[-]procedure TFcontactos.Button2Click(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
if CheckBox1.Checked=false then
begin IBDContactos.Active:=False;
IBDContactos.SelectSQL.Clear;
IBDContactos.SelectSQL.Add('select * from CONTACTOS WHERE UPPER (EMPRESA) LIKE '+QuotedStr('%'+UpperCase(Edit1.Text)+'%'));
IBDContactos.Active:=True;
end else
begin IBDContactos.Locate(RemoveAcentos(UpperCase('EMPRESA')),
RemoveAcentos(UpperCase(edit1.Text)),
[ loCaseInsensitive,loPartialKey]);
end;
end;
end;
imagen de la base sin búsqueda
Segunda imagen ya buscando
y Tercera imagen
Como te comentaba, según realiza la búsqueda, sólo van quedando los que coinciden, es verdad que si pones búsqueda sin acentos (se que tengo que corregir el acento de búsqueda), ya no se habilita esta opción, pues aún no he descubierto la manera de hacerlo, pero aún así se ira posicionando en el registro según la búsqueda.
Por cierto RemoveAcentos es una función que me baje de un foro de delphi brasileño, si hace falta pongo la función.