[firebase-br] Caracteres perigosos

[Alessandro Francisco]

Eu fiz uma função que gerencia o caractere quando ele é digitado, no 
onkeypress do form vc coloca esse código:

  if (Key in Caracter) or (key = #39) then
    Key := #0;

O caracter #39 é a aspas simple ', e não esqueça de declar esta constante, 
antes senão dá pau!

const
  Caracter = ['!', '"', '#', '$', '%', '&', '*', '^', '`', '{', '|', '}', 
'~',
    '', '€', '‚', 'ƒ', '„', '…', '†', '‡', 'ˆ', '‰', 'Š', '‹', 'Œ', '‘', '’',
    '“', '”', '•', '–', '—', '˜', '™', 'š', '›', 'œ', 'Ÿ', '¡', '¢', '£', 
'¤',
    '¥', '¦', '§', '¨', '©', 'ª', '«', '¬', '-­', '®', '¯', '°', '±', '²', 
'³',
    '´', 'µ', '¶', '·', '¸', '¹', 'º', '»', '¼', '½', '¾', '¿', 'À', 'Á', 
'Â',
    'Ã', 'Ä', 'Å', 'Æ', 'Ç', 'È', 'É', 'Ê', 'Ë', 'Ì', 'Í', 'Î', 'Ï', 'Ð', 
'Ñ',
    'Ò', 'Ó', 'Ô', 'Õ', 'Ö', '×', 'Ø', 'Ù', 'Ú', 'Û', 'Ü', 'Ý', 'Þ', 'ß', 
'à',
    'á', 'â', 'ã', 'ä', 'å', 'æ', 'ç', 'è', 'é', 'ê', 'ë', 'ì', 'í', 'î', 
'ï',
    'ð', 'ñ', 'ò', 'ó', 'ô', 'õ', 'ö', '÷', 'ø', 'ù', 'ú', 'û', 'ü', 'ý', 
'þ',
    'ÿ', ';'];

Outra coisa que eu tenho constume de fazer é deixar todas as letras em 
maiusculo, usando mesmo processo anterior.
No onkeypress do form vc adiciona este código:

Key := UpCase(Key);

Espero ter ajudado!!

[s]

Alessandro Francisco
cs.alessandro em uol.com.br
C#.Net + Firebird 1.5