|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Цитата:
Мне надо в полях 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! так вот, мне надо сделать проверку сначало перврго символа со всем массивом, потом второго..... и т.д. может есть способ по легче? Последний раз редактировалось Admin, 16.04.2011 в 12:44. |