[gerych]

вот не большой код

Код:

var
StrList: array of TStringList;

procedure Recrus(I: Integer);
var
v:Integer;
begin
 for v := 0 to StrList[i].Count - 1 do
   begin
    if I<>High(StrList)-1 then
    begin
      //sort other//Если данный стринглист не последний в массиве то сортируем следующие
      Recrus(i+1);
    end else
     begin
      //do something// обрабатывается последний стринглист
     end;
    end;
end;

Смысл этого кода заключается в том что при выборе одной строки в одном стринглисте меняется состав следующего стринглиста и так далее пока не достигнут конец массива.Если же обрабатывается последний лист то после проверки каждой его строки получаем собственно искомые результаты. То есть если в массиве два листа по 10 строчек то вызывая процедуру Recrus(0) результатов получается 100. В данном случае код выполняется мгновенно. Но если будет 5 листов то не сложно подсчитать что результатов становится 100000. В программе возникают массивы и по 50 листов в которых число строк может превышать 1000 ) тут ясно что выполнение процедуры затягивается на очень долгий срок(может и на сутки...), по этому засунул ее в Thread чтобы не мешала выполнять другие действия. А теперь внимание вопрос): Как можно поставив Thread на паузу сохранить куда нибудь в файл состояние процедуры чтобы при следующем запуске программы продолжить рекруссию именно с места паузы????