Como automatizar sele��o de letras com e sem acento?

Question

Eu criei um dicion�rio, mas devido ao fato de estar sempre colocando novas palavras, de vez em quando preciso reimprimir, mas para a cada vez eu tenho que reimprimir tudo, inclusive as letras que n�o ...

Weber · Answer

Usando banco de dados FB 2 basta definir o collate como PT_BR....

Edilcimar · Answer

Isto que voc� falou eu j� fa�o, por�m n�o funciona, se eu mandar imprimir de A at� Z ele n�o imprime os caracteres com valores superiores a 128, para poder imprimir de A at� Z tenha que mandar imprimir de A at� �, a� sim todas as letras s�o impressas em ordem alfab�tica, de forma correta. Se eu mandar imprimir apenas a letra A, as letras � e � n�o s�o impressas, apesar de que as mesmas aparecem na tela.

Carlosrm · Answer

Edilcimar,D� para aproveitar essa fun��o?[code:1:3b6b19c084]function RemoveAcento(Str:String): String;Const  ComAcento = ����������������������������ܴ;  SemAcento = �aaeouaoaeioucuAAEOUAOAEIOUCU�;Var  x : Integer;Begin  For x := 1 to Length(Str) do    if Pos(Str&#91;x&93;,ComAcento)<>0 Then      Str&91;x&93; := SemAcento&91;Pos(Str&91;x&93;,ComAcento)&93;;  Result := Str;end;[/code:1:3b6b19c084]espero que ajude. carlosrm...

Edilcimar · Answer

Carlosrm, eu n�o usei a fun��o inteira, mas ela me forneceu uma id�ia para fazer algo simples, grato.
Ficou assim:
Isto abaixo � feito de um loop

With table1 do
Begin
   First;
   While not eof do
   Begin
      Letra1 := Copy(FieldByName(�xyz�).AsString,1,1);
      Next;
      Letra2 := Copy(FieldByName(�xyz�).AsString,1,1);
      If ((Letra1 <> Letra2) and ((Pos(Letra1,SemAcento) <> 0) and (Pos(Letra2,ComAcento) <> 0))) OR
      ((Letra1 <> Letra2) and (Pos(Letra1,ComAcento) <> 0) and (Pos(Letra2,SemAcento) <> 0))) then
         Ejetar := False
      Else If (Letra1 <> Letra2) then
         Ejetar := True
   End;
End;

Carlosrm · Answer

Edilcimar.legal que tenha sido �til de alguma forma. Confesso que peguei essa fun��o na internet e tenho usado para imprimir em matriciais.J� aproveitei posts seus e de outros colegas do f�rum para tirar duvidas e aprender. E a cada dia aproveito mais.Como se dizia antigamente: �Uma m�o lava a outra e as duas lavam o rosto.�...

Weber · Answer

No select � para funcionar corretamente, pois usando o collate pt_br o where funciona correto e como voc� mesmo j� diz o order by tamb�m funciona.

Where xyz like (�A��)

O resultado do select ser� tudo que inicia com A a � � � �...

Edilcimar · Answer

Weber, o programa � um dicion�rio para uso pr�prio, tem poucas palavras, vou acrescentando mais a medida que vou aprendendo, � para uso em um �nico computador, portanto uso uma table. O programa me permite atrav�s de 2 edits dizer qual a letra inicial e qual a letra final a ser impressa, portanto uso um filtro, o qual apesar de ser um processo lento, aqui � impercepit�vel, pois s� � utilizado durante a impress�o, na tela ele mostra todos os caracteres em ordem alfab�tica, o problema era s� durante a impress�o, portanto creio que seja um problema com o filtro, mas do jeito que fiz o problema foi solucionado.