[ruslanjon_12]

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

Словами опиши что ты хочешь сделать.

Мне надо в полях edit проверить правильность вводимых данных.
Для одного поля это легко:

Код:

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я', #8, #13]) then
    begin
      key := #0;
    end;
end;

Админ: Пользуемся тегами!

а вот из этого кода сделать процедуру не получается: не совместимость типов пише т Tobject и Char! так вот, мне надо сделать проверку сначало перврго символа со всем массивом, потом второго..... и т.д.
может есть способ по легче?