Recent

Author Topic: [resolvido] localizar em dbgrid  (Read 2304 times)

FKROBERT

  • New Member
  • *
  • Posts: 18
    • http://fkrobert.bl.ee/
[resolvido] localizar em dbgrid
« on: June 23, 2015, 05:47:28 am »
dbgrid1.dscontato.tbcontato.locate(dbgrid1.columns[0].fieldName,Edit1.text,[loPartialKey,locaseInsensitive]);

estou usando este codigo para localizar mas ele da erro nao sei porque?? alguem me ajuda, o erro simplesmente nao compila o programa, nao sei se o erro é o q ali esta como tb sdfdataset que eu coloquei

« Last Edit: June 24, 2015, 02:06:41 am by FKROBERT »
"Feliz é aquele que transfere o que sabe e aprende o que ensina" Cora Coralina

-

site pessoal -  http://fkrobert.bl.ee/
:)

FKROBERT

  • New Member
  • *
  • Posts: 18
    • http://fkrobert.bl.ee/
Re: [resolvido] localizar em dbgrid
« Reply #1 on: June 24, 2015, 02:06:17 am »
como eu usava um tsdfdataset
entao  SOLUÇÃO FOI

procedure TForm1.Button2Click(Sender: TObject);

var n,nn:integer;
arq,rel:tstringlist;
dadoa,dadob:string;
m:tmemorystream;
begin

m:=tmemorystream.Create;
arq:=tstringlist.create;
rel:=tstringlist.create;
arq.loadfromfile('c:\bd.csv');
n:=0;
repeat
dadoa:=copy(arq.strings[n],1,length(arq.strings[n]));
nn:=1;
repeat
dadob:=copy(dadoa,nn,length(edit1.text));
if dadob=edit1.text then //se o objeto ou parte é encontrado em qualquer linha do arquivo
begin
rel.add(arq.strings[n]); //então é adicionado no resultado
end;
inc(nn);
until(nn=length(dadoa)-length(edit1.text));
inc(n);
until(n=arq.count);
rel.SaveToStream(m); //é salvo para memoria
tbcontato.Active:=false;
tbcontato.LoadFromStream(m);// o sdfdataset carrega da memoria
tbcontato.Active:=true;//o sdfdataset é ativado
tbcontato.First;

m.free;
rel.Free;
arq.Free;
end;               
"Feliz é aquele que transfere o que sabe e aprende o que ensina" Cora Coralina

-

site pessoal -  http://fkrobert.bl.ee/
:)

 

TinyPortal © 2005-2018