Вызов функции из цикла

← →
Anonimus © (2005-06-08 11:26) [0]

Добрый день. есть следующая задача. Имеем функцию, время выполнения которой может колебаться от 7-8 ms до 2 s.
Требуется вызвать эту функцию из цикла для каждого элемента некоего массива записей, при том непрерывно для каждого элемента массива вне зависимости от того, выполнена ли функция для предидущего элемента массива. Т.е.
function f1(<paramlist>): boolean; var arr: array of tMyRec; begin for i:=0 to Length(arr)-1 do if f1(arr[i]) then begin <statements> end; end;

при этом нужно, чтобы f1(arr[1]) могла вернуть результат независимо от того отработала ли f1(arr[0])
Какэто можно реализовать?

← →
dmitry501 © (2005-06-08 11:35) [1]

Anonimus © (08.06.05 11:26)
Функцию f1 реализуй через tthread

← →
GreatMaster (2005-06-08 11:38) [2]

А накой ты рекурсию то заворачиваешь?

← →
Digitman © (2005-06-08 11:39) [3]

для каждого аргумента организуй доп.трэд и вызывай ф-цию с этим аргументом в созданном трэде

← →
Anonimus © (2005-06-08 11:48) [4]

Т.е. я так понимаю:

function f1(<paramlist>,th: TThread): boolean; begin .......... th.Terminate; end; var arr: array of tMyRec; th: TThread; begin for i:=0 to Length(arr)-1 do begin th:=TThread.Create; if f1(arr[i]) then begin <statements> end; th.resume; end; end;

Я правильно понял?

Вызов функции из цикла Найти похожие ветки