Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос про if then else

Zif © (2004-11-27 00:19:00)
помогите с запросом: где я еще надо поставить 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;

Zif (2004-11-27 11:56:00) [1]
спасибо, проблему решил

NikotiN (2004-11-27 10:51:00) [2]
а ведь прошло целых 10 часов прежде чем кто-то заметил. :)

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

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

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

Verg (2004-11-27 09:58:00) [3]

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

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

if Edit1.Text =' ' then

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

PZ (2004-11-27 07:41:00) [4]
Возможно, ошибка где-то в предыдущем коде.

GanibalLector (2004-11-27 00:35:00) [5]
Не,логика(если ее можно так назвать) верна.
Вот еще:
> if Edit2.Text:=''
if Edit2.Text=''

DrPass (2004-11-27 00:34:00) [6]
Ну раз ты смог войти в Интернет, то и пропущенный end сможешь найти - это задачка попроще будет. Подсказка: в этой процедуре все операторы и знаки препинания на месте. Только название странное. Или у тебя в программе есть класс Button?

Zif (2004-11-27 00:27:00) [7]
суть в другом: у меня ошибка где-то. не поставлен end или ; - из-за этого ошибки

GanibalLector (2004-11-27 00:22:00) [8]
> if Edit1.Text:='1'
if Edit1.Text='1'

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »