Вопрос про 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]

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

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

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

if Edit1.Text=" " then

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

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

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

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

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

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

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