Buenas a todos.
Estoy intentando recorrer una base de datos (Una Tabla) y mientras la recorro intento revisar un campo Memo buscando Frases especificas.
lo he intentado de la siguiente manera
Código Delphi
[-]
Var
N, I : Integer;
S : String;
Begin
I := 0;
S := qryBuscarCampoMemo.AsString;
For N := 0 To qryBuscar.qryBuscar.RecordCount Do
Begin
if AnsiContainsText( S, 'Frase a Buscar' )= True Then
Begin
I := I+1;
Label1.Caption:=IntToStr(I); End;
dsBuscar.DataSet.Next;
End;
End;
Y bueno no se lo que pasa pero no consigo que esto ande.