[Resolvido] pra criar a condição

[deio 0]

ola a todos, tenho esta condição aki:

 

if combobox1.ItemIndex = 0 then  datamodule3.Dbf1.Filter := 'TIPO_PESSO[b]=[/b]' + quotedstr(edit1.Text);

onde está o '=' pode ser : '=' , '>' , '>=' , '<' , '<=' , 'Begins with', 'Ends with' , 'Contains'.

o q pretendo fazer é, colocar um combobox com cada item contendo uma dessa opções, e selecionando uma das opções ele ja modificasse o igual pela opção selecionada, como eu faço isso?

[deio 0]

eu fiz assim e está dando erro :

 

procedure TForm4.Button1Click(Sender: TObject);vars: string;beginif combobox2.ItemIndex = 0 then  s:= combobox2.Items.Names[0];if combobox1.ItemIndex = 0 then  datamodule3.Dbf1.Filter := 'TIPO_PESSO'+s + quotedstr(edit1.Text);

[Hugo Slepicka 0]

Não entendi o seu objetivo, poderia ser mais claro e dar um exemplo???

[marcio.theis 3]

Tente da seguinte forma:

 

procedure TForm4.Button1Click(Sender: TObject);beginif combobox1.ItemIndex = 0 then	datamodule3.Dbf1.Filter := 'TIPO_PESSO' + combobox2.Items.Strings[combobox2.ItemIndex] + quotedstr(edit1.Text);

Desta forma não precisa nem da variável S...

[Pantoja 5]

isso seria para qe amigo?

[marcio.theis 3]

isso seria para qe amigo?

No caso é uma consulta onde o usuário escolhe o campo que deseja pesquisar, e a restrição sobre, digitando depois em um Edit o valor que deseja restringir, digamos que em um combo você tenha os campos disponíveis de filtro, como: Código, Nome, CPF, etc... e no outro combo o tipo de restrição que pode fazer: =, >=, <=, <>, etc... então o user seleciona o campo, depois a restrição, informa no edit pelo que deseja pesquisa, e monta dinamicamente a pesquisa...Pelo que entendi seria isto... http://forum.imasters.com.br/public/style_emoticons/default/shifty.gif

[Pantoja 5]

hummmentendi!mas o user tem qeu ser meio avançado certo?

[marcio.theis 3]

É... Precisa ser esperto no que deseja consulta...

[deio 0]

aew, desculpa a demora pra responder, fiquei sem o meu PC por algumas semanas....Márcio, o código q você me deu funcionou perfeitamente XÞvocê entendeu direitinho pra q serve o comando XD só acho q naum precisava dar uma resposta tão sarcástica/irônica pro Pantoja hehe....

[marcio.theis 3]

aew, desculpa a demora pra responder, fiquei sem o meu PC por algumas semanas....Márcio, o código q você me deu funcionou perfeitamente XÞvocê entendeu direitinho pra q serve o comando XD só acho q naum precisava dar uma resposta tão sarcástica/irônica pro Pantoja hehe....

São brincadeiras entre eu e ele :PBOm que deu certo... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif