Busqueda en string sin SQL

[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,

[klionsis]

jeje, no es rechazo, es solo que la consulta sql me devuelve una coleccion de registros segun el filtro que le pase (me restringe el conjunto de registros a los que se se corresponden con el filtro) y yo no necesito esto, lo que necesito es posicionarme en un registro y que si quiero ver el registro que sigue me lo permita por mas que este no cumpla el criterio de busqueda que le dí... se entiende?

Gracias a todos por las alternativas que me dieron!! no he podido probarlas aún pero les aviso de los resultados...

Disculpen por la ignorancia, soy principiante..