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

← →
UDS (2003-02-06 00:05) [0]

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

← →
mrcat (2003-02-06 00:08) [1]

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;

← →
mrcat (2003-02-06 00:09) [2]

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

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

← →
UDS (2003-02-06 00:21) [3]

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

← →
Anatoly Podgoretsky (2003-02-06 00:27) [4]

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

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

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

← →
mrcat (2003-02-06 00:43) [6]

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

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

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

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

← →
UDS (2003-02-06 00:47) [7]

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

← →
mrcat (2003-02-06 00:53) [8]

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

← →
UDS (2003-02-06 00:59) [9]

ок

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