|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.09.2012, 11:50 | #1 |
Пользователь
Регистрация: 16.05.2011
Сообщений: 45
|
Edit1. нету функции text
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 Последний раз редактировалось Jeraldino74; 12.09.2012 в 13:14. |
12.09.2012, 13:03 | #2 | |
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,051
|
0. Нарушение правил
Цитата:
2. Если нужно решение то Вам сюда |
|
12.09.2012, 13:13 | #3 |
Пользователь
Регистрация: 16.05.2011
Сообщений: 45
|
Исправил. Спасибо за замечание.
|
12.09.2012, 13:20 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
свойство Text у контрола - это строка (String),
а вы пытаетесь присвоить числу строку. Так НЕЛЬЗЯ! нужно преобразоваывать строчку в число. Если грубо (без контроля ошибок), то можете написать так: Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Максимальное значение edit1.text | KoBRaAndrey | Общие вопросы Delphi | 7 | 07.10.2009 05:40 |
AnsiUpperCase(Edit1.Text); | Шура | Помощь студентам | 3 | 01.12.2008 20:04 |
y=Edit1->Text ??? | m.a.x.i.m | Помощь студентам | 8 | 31.03.2008 11:29 |
if edit1.text:='123'then | ben95 | Помощь студентам | 5 | 28.01.2008 16:29 |
из edit1.text в stringgrid. | fluer | Общие вопросы Delphi | 8 | 25.04.2007 11:23 |