Busqueda en string sin SQL

[*Caro*]

Hola de nuevo, no me he explicado bien, digamos que tenemos "Ana Maria Rojas" con el IoPartialKey si hacemos una búqueda por "Maria", no lo va ha encontrar ya que hace la búsqueda aproximada de lo que se pasa como parametro y cualquier cosa que venga despues, osea que encontraría todos los registros que en ese campo comiencen con "Maria". Y lo que creo que quiere es %Cadena%, osea cualquier cosa, el parametro y cualquier cosa.

Como mi bolita de cristal tampoco funciona, puede que no le haya entendido bien al amigo .

Saluditos

[klionsis]

jeje, mis disculpas a todos por no ser claro. Caro, es exáctamente lo que busco... el Lopartialkey siempre me busca por el comienzo de la cadena, quiro poder buscar por lo que contiene la cadena..

Saludos..

[klionsis]

Bueno, parece que mi falta de claridad los ha dejado sin habla . Todavía no encuentro una solución para mi problema.. si alguién tiene una idea podría ayudarme...

Gracias!!

[[Lepe]]

Caro ya te dió la solución en su primer mensaje. Otra forma no hay.

Podrías decir por qué no te sirve un query, quizás le encontremos solución.

Saludos

[donki]

Hola chicos,

A ver que os parece mi aportación.

Si os fijais en la implementación del Locate lo que hace es un clon del RecordSet (en el caso de utilizar los componentes de ADO). Luego Filtra con la propiedad filter el Clon y con el bookmark que obtiene posiciona el TDataset principal. Creo que podria servirte un código similar a este:

Dataset1.DisableControls;
Dataset1.Filtered := True;
Dataset1.Filter := 'Campo_Por_El_que_buscas like '+QuotedStr('%'+Valor+'%');
bm := DataSet.GetBookMark;
Dataset1.Filtered := False;
Dataset1.EnableControls;
Dataset1.GotoBookMark(bm);

Espero que te ayude

[*Caro*]

Hola de nuevo, con el Locate no vas a poder hacer la búsqueda que quieres. Y otra función que haga lo que quieres creo que no hay. Lo que se me ocurre es que te hagas tu la función y busques el registro, mas o menos así.

Código Delphi [-]
var
 Campo : String;
 Encontrado : Boolean;
 Marca : TBookMarkStr;
begin
  Encontrado := False;
  Try
   Marca := Query.Bookmark;
   Query.DisableControls;
   Query.First;
   //Recorremos hasta encontrar o hasta el final
   While Not Query.Eof do
    begin
     Campo := Query.FieldByName('nombrecampo').AsString;
     if AnsiPos(Edit1.Text, Campo)>0 then
      begin
       Encontrado := True;
       break;
      end;
     Query.Next;
    end;
  finally
   Query.EnableControls;
  end;
  //Si no ha encontrado, lo posicionamos donde estaba antes
  //y si ha encontrado se queda en en esa posición.
  if Not Encontrado then
   Query.Bookmark := Marca;

Saluditos

[[Delphius]]

Perdonen que me entrometa en el hilo, pero la curiosidad me invade ¿klionsis, porqué ese "rechazo" a la consulta SQL?
¿En qué te puede afectar o perjudicar?

Saludos,