Скачать: CL | DM;

Вопрос про if then else   Найти похожие ветки 

← →
Zif ©   (2004-11-27 00:19) [0]

помогите с запросом: где я еще надо поставить end или end; или ;

procedure Button.Click;
begin
 if Edit1.Text:="1" then
 begin
   
   if  Edit1.Text:="" then
     MessageBox(Handle, "название", "Пустые значения", MB_OK)
   else
     Label1.Caption:="значение";

   if  Edit2.Text:="" then
     MessageBox(Handle, "название2", "Пустые значения", MB_OK)
   else
   Label2.Caption:="значение";

 end
 else MessageBox(Handle, "Внимание", "Пустые значения", MB_OK);
end;

---

← →
GanibalLector ©   (2004-11-27 00:22) [1]

> if Edit1.Text:="1"
if Edit1.Text="1"

> if  Edit1.Text:=""
тоже самое

---

← →
Zif ©   (2004-11-27 00:27) [2]

суть в другом: у меня ошибка где-то. не поставлен end или ; - из-за этого ошибки

---

← →
DrPass ©   (2004-11-27 00:34) [3]

Ну раз ты смог войти в Интернет, то и пропущенный end сможешь найти - это задачка попроще будет. Подсказка: в этой процедуре все операторы и знаки препинания на месте. Только название странное. Или у тебя в программе есть класс Button?

---

← →
GanibalLector ©   (2004-11-27 00:35) [4]

Не,логика(если ее можно так назвать) верна.
Вот еще:
>  if  Edit2.Text:=""
if  Edit2.Text=""

---

← →
PZ   (2004-11-27 07:41) [5]

Возможно, ошибка где-то в предыдущем коде.

---

← →
Verg ©   (2004-11-27 09:58) [6]

>  if  Edit1.Text:=" " then
>      MessageBox(Handle, "название", "Пустые


Это не операция сравнения

if  Edit1.Text=" " then

Вот это - операция сравнения

---

← →
NikotiN ©   (2004-11-27 10:51) [7]

а ведь прошло целых 10 часов прежде чем кто-то заметил. :)

да и вообще процедура не очень правильная

if Edit1.Text:="1" then
begin
  if  Edit1.Text:="" then

и как сработает 2ой if? или у тебя тут ещё есть и паралельные процессы?

---

← →
Zif ©   (2004-11-27 11:56) [8]

спасибо, проблему решил

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c