Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];
Вниз
Вопрос про 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c
