защита от дурака

[MASTER116]

Вообщем пытаюсь написать код(защита от дурака.) Исправьте пожалуйста, не понимаю в чем ошибка.

[Serge_Bliznykov]

мда...
Вы код с картинки/книжки распознаёте? Или Вам его по телефону диктуют?
Он же даже не скомпилируется!!
Про логику я молчу.

Ну, раз Вам такое нравится, то попробуйте такой код вместо своего:

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9': ;
    'a'..'z', 'A'..'Z': ;
  else
    begin
      key := #0;
      Application.MessageBox(PChar('Данный символ недопустим при вводе логина!'), 'Предупреждение', MB_OK + MB_ICONWARNING);
    end;
  end;
end;

[MASTER116]

изменил код на ваш. Проблема в следующем:
Unsafe type 'PChar'

[Serge_Bliznykov]

Сообщение от MASTER116

изменил код на ваш. Проблема в следующем:
Unsafe type 'PChar'

И что? Не работает?

И вообще, выкиньте PChar, он в данном случае не нужен!

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9': ;
    'a'..'z', 'A'..'Z': ;
  else
    begin
      key := #0;
      Application.MessageBox('Данный символ недопустим при вводе логина!', 'Предупреждение', MB_OK + MB_ICONWARNING);
    end;
  end;
end;

[Samson74_rus]

Уважаемый MASTER116 таким кодом вы можете защититься не только от дурака.
Пишите в гугл - ограничение ввода символов в edit.
http://delphi-faq.ru/palitra-kompone...labeledit.html