Скачать: CL | DM;

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

← →
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]

ок

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c