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

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

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

Возврат к проверке [D6, Win95/98]

an-na2002 © (2004-08-16 12:08:00)
Как сделать чтобы при нажатии OK на ShowMessage программа возвращалась обратно к IF
begin
If Edit2.Text='' Then ShowMessage('Ошибка! Введите M');
....
....
end.

Anatoly Podgoretsky (2004-08-16 12:55:00) [1]
Думкин © (16.08.04 12:38) [16]
Ну а иначе как тебя отругать :-)

Думкин (2004-08-16 12:38:00) [2]
> [15] Vasya.ru (16.08.04 12:35)

Я не понял - в чем беда? И Скажите мне о уважаемый, в чем такая прелесть вашего кода и ПРИНЦИПИАЛЬНОЕ отличие от моего.
По-моему, по своей бесполезности ваш код мало отличается от моего. Или как?

Vasya.ru (2004-08-16 12:35:00) [3]
an-na2002 (16.08.04 12:08)
Как сделать чтобы при нажатии OK на ShowMessage программа возвращалась обратно к IF
begin
If Edit2.Text='' Then ShowMessage('Ошибка! Введите M');
....
....
end.
Repeat
If Edit2.Text='' Then ShowMessage('Ошибка! Введите M');
Until (Edit.Text <> '');

Думкин © (16.08.04 12:09) [1]А реально помочь советом жаба душит?

Думкин (2004-08-16 12:32:00) [4]
> [12] Sandman25 © (16.08.04 12:30)

Почему не должно? Опять телепатией балуемся?

Anatoly Podgoretsky (2004-08-16 12:30:00) [5]
КаПиБаРа © (16.08.04 12:27) [10]
Наши дни!

Ура мы уже близко от Редмонда.

Sandman25 (2004-08-16 12:30:00) [6]
[11] Думкин © (16.08.04 12:28)

Все равно неправильно. При невыполнении условия зацикливания быть не должно.

repeat
If Edit2.Text='' Then
ShowMessage('Ошибка! Введите M');
else
break
until false;

Думкин (2004-08-16 12:28:00) [7]
> [9] Sandman25 © (16.08.04 12:26)

Ну условие то проверяется. :)
Хотя конечно, можно и так:

while 2=2 do If Edit2.Text='' Then ShowMessage('Ошибка! Введите M');

Можно бы и goto, но ... я его не пользую. :(

КаПиБаРа (2004-08-16 12:27:00) [8]

> Думкин © (16.08.04 12:21) [7]
> > [4] VMcL © (16.08.04 12:20)
>
> Ух ты! Ты сразу догодался?
> Я ничего не советовал, я просто ответил на вопрос. Или это
> не так?

Летят Шерлок Холмс и доктор Ватсон на воздушном шаре. Заблудились. Видят мужик внизу идет.
- Ватсон: Добрый день. Не подскажете где мы аходимся.
- Мужик: На воздушном шаре.
- Ватсон: Что за идиот!
- Холмс: Это не идиот а программист. Ибо только программист может дать такой точный и бесполезный ответ.

Sandman25 (2004-08-16 12:26:00) [9]
[7] Думкин © (16.08.04 12:21)

Не-а. У тебя возврата к if не происходит. У тебя и if-а-то нет :)

Anatoly Podgoretsky (2004-08-16 12:25:00) [10]
VMcL © (16.08.04 12:20) [4]
Так он это и просил, правда с IF

Думкин (2004-08-16 12:21:00) [11]
> [4] VMcL © (16.08.04 12:20)

Ух ты! Ты сразу догодался?
Я ничего не советовал, я просто ответил на вопрос. Или это не так?

VMcL (2004-08-16 12:21:00) [12]
>> mOOx © (16.08.04 12:11) [2]

Для того, чтобы что-то выполнялось, нужно что-то написАть.

КаПиБаРа (2004-08-16 12:20:00) [13]

> while Edit2.Text='' do ShowMessage('Ошибка! Введите M');

Blbjnbpv

VMcL (2004-08-16 12:20:00) [14]
>> Думкин © (16.08.04 12:09) [1]
>> Рамиль © (16.08.04 12:12) [3]

Ну посоветовали, так посоветовали. Вечный цикл, ИМХО :-)

Рамиль (2004-08-16 12:12:00) [15]
while Edit2.Text='' do
ShowMessage();

mOOx (2004-08-16 12:11:00) [16]
А как вообще сделать так, чтобы при нажатии на кнопку у меня что-то выполнялось?

Думкин (2004-08-16 12:09:00) [17]
while Edit2.Text='' do ShowMessage('Ошибка! Введите M');

Удачного дня.

Наверх

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