Verificar determinada letra no edit

Delphi

08/01/2005

CAROS AMIGOS

ESTOU FAZENDO UM NAVEGADOR SIMPLES QUE NAO PODE ACESSAR O EXPLORER ENTAO COMO EU FAÇO PARA VERIFICAR O CONTEUDO DIGITADO NO EDIT.TEXT SE TIVER DIGITADO C:\ OU D:\ ELE BLOQUEI


Rafael Roni

Rafael Roni

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

08/01/2005

Tente assim:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
   if copy(Edit1.Text,2,2) = ´:\´ then
      begin
      ShowMessage(´Não é permitido ...´);
      Edit1.SetFocus;
      end;
end;



GOSTEI 0
POSTAR