[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 на паузу сохранить куда нибудь в файл состояние процедуры чтобы при следующем запуске программы продолжить рекруссию именно с места паузы????

[Bargest]

Во-первых, можно обойтись и без рекурсии простым циклом без особого усложнения кода. Например, пройтись по массиву от последнего элемента к первому и обработать каждый стринглист.
Во-вторых, есть метод TThread.Suspend для паузы. Хотя лучше конечно поток не на паузу поставить, а поставить ему флажок и подождать, а сам поток периодически проверяет флаг, и если его поставили - прекращает сортировку и вырубается, сохранив где-нибудь номер, где остановился.
Ну а сохранение в файл - проходишь по всем стринглистам, сейвишь их, потом сохраняешь номер текущего обрабатываемого. С циклом это будет сделать в пару сотен раз проще, чем с рекурсией. Потому что для рекурсии придется еще сохранять состояние стека этого потока и адрес команды, и соответственно загружать.

[gerych]

Сообщение от Bargest

Во-первых, можно обойтись и без рекурсии простым циклом без особого усложнения кода. Например, пройтись по массиву от последнего элемента к первому и обработать каждый стринглист.
Во-вторых, есть метод TThread.Suspend для паузы. Хотя лучше конечно поток не на паузу поставить, а поставить ему флажок и подождать, а сам поток периодически проверяет флаг, и если его поставили - прекращает сортировку и вырубается, сохранив где-нибудь номер, где остановился.
Ну а сохранение в файл - проходишь по всем стринглистам, сейвишь их, потом сохраняешь номер текущего обрабатываемого. С циклом это будет сделать в пару сотен раз проще, чем с рекурсией. Потому что для рекурсии придется еще сохранять состояние стека этого потока и адрес команды, и соответственно загружать.

Спасибо. С флажком все предельно понятно но вот на счет цикла...(( Как вы заметили массив динамический и его длина зависит от выполнения программы и может быть как 3 так и 100. Думаю стоит ли объявлять массив для 100 элементов??? А если в рантайме понадобится 101? Хотелось бы разобраться именно с рекруссией(полезно будет и по глубже узнать структуру языка). Но к сожалению о стэке я и понятия не имею. Где можно об этом почитать не подскажете?

[Bargest]

Динамический массив не проблема:

Код:

for i:=Max_Num-1 downto 0 do 
...

Если знаешь номер последнего элемента, его можно поставить на место Max_Num.
А по поводу стека - это решение глупо, сложно и ненадежно. Имхо. Почитать в книгах и статьях про ассемблер.

[PhoeniX]

Что такое рекруссия??? о_О
Рекурсия же...

[angvelem]

Лучше не спрашивай, а то за разглашение...

[Страдалецъ]

Странные вы. Очевидно же, что это рекурсия с использованием ненормативной русской лексики.