Seleccionar registros que comiencen por un valor string

[roman]

Es algo extraño el error, pero lo cierto es que ahora que veo con más detalle, noto que estás usando el operador = en lugar de like como debería ser. Además, lo del substring no es necesario.

Veamos. Fíjate que en tu primer caso (que el campo contenga un texto determinado) tienes una consulta así (obviando la parte de mayúsculs/minúsculas):

Código SQL [-]
select * from TITULOS where (NomTit like :cCadena)

Y que busque el texto contenido lo logras rodeando de comodines el parámetro:

Código Delphi [-]
ParamByName('cCadena').AsString := '%' + cCadena + '%':

Ahora bien, para el segundo caso (que el campo comience con un texto determinado) tu consulta puede ser la misma:

Código SQL [-]
select * from TITULOS where (NomTit like :cCadena)

La diferencia está al sustituir el parámetro. Ahí sólo usas el comodín final:

Código Delphi [-]
ParamByName('cCadena').AsString := cCadena + '%':

Con esto no deberías tener problema.

// Saludos

[Pedro-Juan]

Muchas gracias roman, ya funciona. Ha quedado así:

Código Delphi [-]
 if (F_Main.sCheckB_MayMinBuscarTit.Checked) then begin
     cCadena := cCadena + '%';
     DM_TitAnd_PUIP.Q_TITULOS.SQL.Add('Where (NomTit like :cCadena)');
     DM_TitAnd_PUIP.Q_TITULOS.Parambyname('cCadena').AsString := cCadena;
 end
 else
     DM_TitAnd_PUIP.Q_TITULOS.SQL.Add('where UPPER(NomTit) like ''' + AnsiUpperCase(cCadena) + '%''');

Qué claro cuando se sabe!

Un saludo.