Case(Delphi)

[CAMOBAP]

i:integer; 
edit1.text:=inttostr(i);
case not i of 
1:showmessage('Ошибка');
2:showmessage('Ошибка');
3:showmessage('Ошибка');
4:showmessage('Ошибка');
else
...

как по другому можно передать ?не совсем робота способно.

[veniside]

Да переделать по-разному можно. Только задача-то в чём состоит?

[CAMOBAP]

если в edit введены не те числа - выводиться ошибка.

[ArtGrek]

если я правелно понял, вводим в едит 1,2,3,4 , если другие числа то ошибка

var
  i:integer; 
begin
  i := StrToInt(Edit1.Text);

  case  i of 
    1: ...
    2: ...
    3: ...
    4: ...
  end
  else showmessage('Ошибка');

[veniside]

i := StrToIntDef(Edit1.Text, -1);
case (i) of

  -1: ShowMessage('Мы ожидали число, а вы ввели херню (или -1, что тоже плохо).');
   0: ShowMessage('Ну и зачем вы ввели 0? Мы были о вас лучшего мнения.');
   1: ShowMessage('Молодец, возьми с полки пирожок.');
  2..100: ShowMessage('Вас слишком много.');
  else
     ShowMessage('Вы ввели такой чудовищный бред, что даже анализировать его лень.');
end;

[CAMOBAP]

спасибо) veniside твой вариант порадовал)
ArtGrek твой подходит больше, но не совсем работает. ругается на

 i := StrToInt(Edit1.Text);

[Error] Unit5.pas(64): Incompatible types: 'String' and 'Integer'

[a9N2k]

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

спасибо) veniside твой вариант порадовал)
ArtGrek твой подходит больше, но не совсем работает. ругается на

 i := StrToInt(Edit1.Text);

[Error] Unit5.pas(64): Incompatible types: 'String' and 'Integer'

StrToInt(число->строка)
IntToStr(cтрока->число)

[ArtGrek]

var
  i:integer; 
 i := StrToInt(Edit1.Text);

не реально

[Error] Unit5.pas(64): Incompatible types: 'String' and 'Integer'

иши ошибку у себя

[CAMOBAP]

нашел .поправил.спасибо большое)

как можно ограничить нажатия клавиш? только что бы 1-4 нажимались.

[GetMax]

как можно ограничить нажатия клавиш? только что бы 1-4 нажимались.

Примерно так

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   If Not ( Key in ['1'..'4']) then Key:=Chr(0)
end;

end.