Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 '' ?
é 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;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...
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;Mas Accept não é booleana?
var Accept: Boolean
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....
>
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
beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
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 ?