///
Как зациклить выполнение скрипта
Автор D_N_A, 25 мар 2005 10:57
Сообщений в теме: 3
#1
Отправлено 25 марта 2005 - 10:57
#2
Отправлено 25 марта 2005 - 11:11
procedure Test1; forward;
procedure Main;
var
i: byte;
begin
try
for i := 1 to (сколько надо) do
Test1;
except
Log.Error('Exception', ExceptionMessage);
end;
end;
procedure Main;
var
i: byte;
begin
try
for i := 1 to (сколько надо) do
Test1;
except
Log.Error('Exception', ExceptionMessage);
end;
end;
Ab altero expectes, alteri quod feceris
#3
Отправлено 25 марта 2005 - 11:13
Выполнять, соответственно, нужно процедуру main.
Ab altero expectes, alteri quod feceris
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных