Проверка правильности ввода символов

[LLIypLLIyH]

Помогите

должны вводится только буквы. на цифру должен выводить: ошибка введите букву (с последующей возможностью ввода)

[puporev]

На китайском написать, поймешь?

[LLIypLLIyH]

А, ну на Паскальском

[puporev]

А знаки препинания, пробел, BackSpase и т.д.? Если тебе надо, пиши полностью условие задачи, а не выдергивай отдельные фразы.

[NikLik]

Я сейчас не дома, так что сорри
используй OnKeyPress

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);      
var n:boolean;
begin  
case key of 
0..9: n:=true;
if not n then key:="";
end;

[puporev]

Во-первых автору уже видимо не надо, а во-вторых он просил на Паскале.

[ViNcHeStEr]

Вот мой вариант сделанный на Дельфи:

repeat
x:=0;
  for i:=1 to length(s) do {Цикл по строке}
  if not(s[i] in ['a'..'z',',',' ']) then x:=1; {Если литера<>a..z,',',' ', то x=1}
  if x=1  then
  begin
  writeln('"FORMAT:slovo, svovo"!' );
  goto 1;
  end;
  until z<>1;

[LLIypLLIyH]

Мне админ сделал предупреждение, типа я тут оскорбил когото

Где тут оскарбление?????