[delphi-br] Urgente - Como bloquear um texto no TMemo ?

Olá pessoal, Estou desenvolvendo um construtor de Querys e gostaria de bloquear a digitação de comandos como DELETE, UPDATE, INSERT etc permitindo apenas a construção de sintaxe de pesquisa como SELECT. Alguém sabe como fazer isso ?? Att, Jorge Ericsson S. Pinheiro Analista/Projetista de

Re: [delphi-br] Urgente - Como bloquear um texto no TMemo ?

Antes de executar a query verifique se existem esses comandos no texto do memo. if (Pos('INSERT', UpperCase(Memo1.Text)) 0) then ShowMessage('Comando Insert não permitido!') else if (Pos('DELETE', UpperCase(Memo1.Text)) 0) then ShowMessage('Comando Delete não permitido!')