|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
проверить на правильность ввод данных в edit
Подскажите как сделать процедуру для проверки значений ввода:
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var a: array[0..32] of char; i, r: integer; e: string; s: PChar; //key: Char; begin e:= Edit1.Text; s:=pchar(e); a[0]:='a'; a[1]:='б'; a[2]:='в'; a[3]:='г'; a[4]:='д'; a[5]:='е'; a[6]:='ё'; a[7]:='ж'; a[8]:='з'; a[9]:='и'; a[10]:='й'; a[11]:='к'; a[12]:='л'; a[13]:='м'; a[14]:='н'; a[15]:='о'; a[16]:='п'; a[17]:='р'; a[18]:='с'; a[19]:='т'; a[20]:='у'; a[21]:='ф'; a[22]:='х'; a[23]:='ц'; a[24]:='ч'; a[25]:='ш'; a[26]:='щ'; a[27]:='ъ'; a[28]:='ы'; a[29]:='ь'; a[30]:='э'; a[31]:='ю'; a[32]:='я'; r := 0; //примерно должно быть так for i:=1 to 32 do begin if s[0] = a[i] then begin key := s[0]; end; if s[0] <> a[i] then//??????????? begin key:=#0; end; end; end; lmikle: Для начала учимся пользоваться тегами! |
#2
|
|||
|
|||
Словами опиши что ты хочешь сделать.
|
#3
|
|||
|
|||
Цитата:
Мне надо в полях 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. |