Filtro ADOQuery - números e caracteres com acentos

Delphi

11/02/2005

Pessoal, sou novo aqui no fórum e depois de algumas horas lendo vários tópicos, decidi me cadastra para obter ajuda em uma das dúvidas que me atormenta há dias.

Estou usando filtros e surgiram algumas dúvidas.

Eu tenho um ComboBox e um dos item é 0-9. Eu tenho que filtrar apenas os valores do campo ´vicst´ que começam com números de 0 a 9.

Este não funciona:
else if ComboBox1.ItemIndex = 1 then
with ADOQuery1 do begin
  Filtered := False;
  Filter := ´vicst Like ´ + QuotedStr(´[!a-z]´+´*´);
  Filtered := True;
end


Preciso fazer outro filtro do campo ´vicst´ com valores que começam com [b:4f05375b32]caracteres especiais[/b:4f05375b32]. Para letras de A a Z estou fazendo o filtro desta maneira:

else if ComboBox1.ItemIndex = 2 then
with ADOQuery1 do begin
Filtered := False;
Filter := ´vicst Like ´ + QuotedStr(´A´+´*´);
Filtered := True;
end

Funciona bem, neste caso para palavras que começam com a letra ´A´, no entanto, os valores do campo ´vicst´ que começam com acentos (ex.: Âxxx, Áxxx, Ãxxx, Àxxx, etc) não são filtrados. Como filtrar os valores que contenham, no inicio, acentos ([b:4f05375b32]àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ[/b:4f05375b32]) e caracteres do tipo ([b:4f05375b32]!@#$¬¨&*[/b:4f05375b32]) ????


Le4br

Le4br

Curtidas 0
POSTAR