[Resolvido] com o comando...

[deio 0]

ola a todos, eu tenho este codigo aqui :

Accept := (dbf1nome_razao.AsString ='x');

onde o x é oq eu desejo filtrar, eu ja troquei o x por edit1.text, mas pelo oq eu entendi, oq estiver escrito dentro do edit1.text deveria estar entre '', mais ou menos assim:

 

edit1.text := ola;
	Accept := (dbf1nome_razao.AsString =edit1.text);

o "Accept := (dbf1nome_razao.AsString =edit1.text);" ficaria assim:
   "Accept := (dbf1nome_razao.AsString =ola);"  mas o resultado deveria ser
   "Accept := (dbf1nome_razao.AsString ='ola')";

 

ja tentei escrever 'ola' no edit mas naum funcionou, como eu faço entaum pra q o edit1.text tenha essa função do '' ?

[marcio.theis 3]

Particularmente não entendi o que deve de fazer a sua instrução, teria como comentar ela ? sobre o propósito que se deseja chegar ?

[deio 0]

é um comando num componente q estou usando, o comando completo seria :

procedure TForm1.Dbf1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := (dbf1nome_razao.AsString ='jose');
dbf1.Filtered := true;
end;

onde o comando vai filtar a tabela pela palavra escrita, se for igual ou parecido o accept recebe true e aquele dado se mantem na tabela, se naum for parecido com a palavra o accept recebe false, e exclui aquele dado da tabela, assim filtrando ela....

 

nessa parte aki :"dbf1nome_razao.AsString ='jose' " , "dfb1" é o componente no form, "nome_razao" é a coluna da tabela, "AsString " é pra filtrar a tabela pela a palavra q estiver nessa parte "='jose' "

 

eu tinha trocado o 'jose' q eu usei pra testar o codigo por edit1.text, só q pra funcionar o q eu escrevi no edit deveria estar entre '' no codigo, que nem no exemplo q dei no primeiro post...

[marcio.theis 3]

Se quiser passar o valor do TEdit, tente algo como:

 

procedure TForm1.Dbf1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := (dbf1nome_razao.AsString = '''' + edit1.Text + '''');
dbf1.Filtered := true;
end;

[FabioRubim 0]

Mas Accept não é booleana?

var Accept: Boolean

[deio 0]

funciona mais ou menos assim, eu tenho essa lista:

ana
andrei
beatriz
bruno

a palavra q uso seria 'an' como parametro, dai o codigo vai passar pela lista, e vai processa-la assim:

True
True
False
False

filtrando toda lista, cortando fora oq for false, apresentando a lista assim :

ana
andrei

é mais ou menos assim q ela funciona....

[deio 0]

Se quiser passar o valor do TEdit, tente algo como:

 

procedure TForm1.Dbf1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := (dbf1nome_razao.AsString = '''' + edit1.Text + '''');
dbf1.Filtered := true;
end;

 

aew consegui, vlw XD

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif