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