| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как перейти к определнному шагу выполнения программы?

UDS ©   (2003-02-06 00:05:00) 

Мне необходимо, чтобы программа вернулась к своему началу.
В Бейсике это вопрос решается довольно просто с помощью оператора безусловного перехода GOTO (Перед строкой к которой нужно вернуться ставится лэйба типа 10, а в программе, когда нужно вернуться к этой строке просто пишется GOTO 10).
Имеется ли подобная функция в Дельфи?

---

UDS   (2003-02-06 00:59:00) [1]

ок

---

mrcat   (2003-02-06 00:53:00) [2]

while TestNextUser(Params) do // Операция тестирования пользователя
begin
InitializeTestParams(Params); // Инициализация установок для следующего тестирования
end;

---

UDS   (2003-02-06 00:47:00) [3]

Вот я как раз щас "изначально" нахожусь. И как мне изначально исключить такую необходимость, если необходимость повтора предусматривается самой программой?

---

mrcat   (2003-02-06 00:43:00) [4]

Да я понял, что с множеством форм, это будет сделать довольно трудно.

imho, полная чушь

А что значит менять структуру

изначально исключить необходимость "скакать" между форм с помощью goto

---

UDS   (2003-02-06 00:39:00) [5]

Я не знаю где и как писать этот цикл если у каждого юнита свой текст, а у меня этих юнитов штук 10.

---

Anatoly Podgoretsky   (2003-02-06 00:27:00) [6]

Так это же цикл по определению

---

UDS   (2003-02-06 00:21:00) [7]

Да я понял, что с множеством форм, это будет сделать довольно трудно.
А что значит менять структуру. Програма выполняет тестирование. И после того как оттестирован один человек, нужно вернуться к началу, чтобы начать тестировать следующего...

---

mrcat   (2003-02-06 00:09:00) [8]

Мне необходимо, чтобы программа вернулась к своему началу.

P.S. структуру менять не пробовали?

---

mrcat   (2003-02-06 00:08:00) [9]

goto - F1

A goto statement, which has the form

goto label

transfers program execution to the statement marked by the specified label. To mark a statement, you must first declare the label. Then precede the statement you want to mark with the label and a colon:

label: statement

Declare labels like this:

label label;

You can declare several labels at once:

label label1, ..., labeln;

A label can be any valid identifier or any numeral between 0 and 9999.
The label declaration, marked statement, and goto statement must belong to the same block. Hence it is not possible to jump into or out of a procedure or function. Do not mark more than one statement in a block with the same label.
For example,

label StartHere;

...
StartHere: Beep;
goto StartHere;

---

Наверх