[ruslanjon_12]

Подскажите как сделать процедуру для проверки значений ввода:

Код:

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: Для начала учимся пользоваться тегами!

[lmikle]

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

[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! так вот, мне надо сделать проверку сначало перврго символа со всем массивом, потом второго..... и т.д.
может есть способ по легче?