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

Mon, 11 Aug 2008 18:55:34 -0700 

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!')
   else if (Pos('UPDATE', UpperCase(Memo1.Text)) <> 0) then
      ShowMessage('Comando Update não permitido!');

[As partes desta mensagem que não continham texto foram removidas]

Responder a