Edit1. нету функции text

[Jeraldino74]

Var a: integer;
Для кнопки:
Begin
a:=(Edit1.text); // ввод числа
case a of
1: Memo1.text:=‘один’;
2: Memo1.text:=‘два’;
3: Memo1.text:=‘три’;
else Memo1.text:=‘Введите число 1, 2 или 3’;
end;
End;

Почему не появляется функция text

[Noor]

0. Нарушение правил

2.При создание новых тем запрещено:

2.1 Создавать темы с названиями, которые не отражают смысл сообщения, пример - "Help!!!", "Памагите", "тону, спасите!", "а что это вы тут делаете?" и т.д.
Администратор и Модераторы имеют право переименовать закрыть и удалить тему, при этом могут поставить штраф - "№1 Флуд".

1. причем тут "Edit1. нету функции text"
2. Если нужно решение то Вам сюда

[Jeraldino74]

Исправил. Спасибо за замечание.

[Serge_Bliznykov]

свойство Text у контрола - это строка (String),
а вы пытаетесь присвоить числу строку. Так НЕЛЬЗЯ!

нужно преобразоваывать строчку в число.
Если грубо (без контроля ошибок), то можете написать так:

Var a: integer;

  Для кнопки:
Begin
  a := StrToInt(Edit1.text); // ввод числа
....