ActiveDelphi

[pebk]

Boa Tarde, Utilizo a Procedure abaixo para realizar as pesquisas, contudo necessido fazer uma pesquisa em qualquer parte do texto ou apartir do inicio idem ao comando Like do SQL passando %conteudo% o % sendo para ignorar o texto anterior ou proximo existe alguma maneira de fazer utilizando dessa forma ou qual a melhor forma para utilização?

procedure TF_CadBase.CDSSetKey(DS: TDataSet; var DBG: TDBGrid; Campo, Valor: String);
var
i : Integer;
begin
if (Trim(Valor)='') then Exit;

TClientDataSet(DS).IndexDefs.Update;
for i := 0 to TClientDataSet(DS).IndexDefs.Count - 1 do
begin
if TClientDataSet(DS).IndexDefs.Items[i].Name = Campo then
begin
TClientDataSet(DS).DeleteIndex(Campo);
end;
end;

for i := 0 to DBG.Columns.Count - 1 do
begin
if DBG.Columns[i].Field.FieldName = Campo then
DBG.Columns[i].Title.Font.Color := clRed
else
DBG.Columns[i].Title.Font.Color := clBlack;;
end;

TClientDataSet(DS).AddIndex(Campo,Campo,[],'','',0);
TClientDataSet(DS).IndexName := Campo;

TClientDataSet(DS).SetKey;
TClientDataSet(DS).FieldByName(Campo).AsString := UpperCase(Valor);

if not TClientDataSet(DS).GotoKey then
ShowMessage('Registro não Encontrado!');
end;
end;

[Batera]

Boa noite pebk. Não sei se pode te ajudar, mas pra esse tipo de pesquisa eu normalmente utilizo o bom e velho Filter:

[pebk]

O que não queria é Utilizar o Filter mas se não tiver jeito altero pro mesmo e quando tiver uma opção melhor ai altero a aplicação.

[maizena]

Oia um conterraneo!
_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch

[maizena]

Não seria mais facil fazer isso via SQL?
_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch

[pebk]

Via SQL alem de Tornar o Trafego da Rede Maior acaba onerando o Servidor do Banco dependendo da quantidade de filtros sendo executado simultaneamente com o Filter ou o FindKey o mesmo é tratado localmente pelo ClientDataSet sem Realização de Buffer de dados do servidor.