после sleep не хочет работать

[Музыкант]

здравствуйте. делаю обход графа, и, чтоб наглядно было, делаю sleep, но после того, как он все обошел, не хочет выдаваться ShowMessage('Обход завершен.'); и программа работает как -то заторможенно, но работает, а закрыть ее не получается. Причем если, например у меня 7 вершин и 7 ребер, то все нормалньо работает, а если ребер 21, то уже не работает
Помогите, очень надо

procedure dfs(v: integer;visited:masbool);
var
  i: integer;
begin
  visited[v] := true;
  shape[v].Brush.Color:=clRed;
  for i := 1 to n do
    if ((matr[v, i]<>-1) and (not visited[i])) then
      begin
        sleep(100);
        Application.ProcessMessages;
        dfs(i,visited);
      end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  visited: masbool;
begin
  fillchar(visited,sizeof(visited),0);
  dfs(1,visited);
  ShowMessage('Обход завершен.');
end;

[Serge_Bliznykov]

думаю, что при увеличении количества ребёр проявляются другие проблемы, связанные с резким увеличением вложенности и количества вычислений.

Вот, если закомментировать Sleep() - всё работает нормально? (если нет, тогда проблема явно не в Sleep...)

[Музыкант]

да, если sleep закомментить, то все нормально работает.
если поставить Sleep(1), то через некоторое время ShowMessage('Обход завершен.'); появляется

[s-andriano]

Ну так теперь она работает так, как ты хочешь?

[BARNEY]

А если так

procedure dfs(v: integer;visited:masbool);
var
  i,ii: integer;
begin
  visited[v] := true;
  shape[v].Brush.Color:=clRed;
  for i := 1 to n do
    if ((matr[v, i]<>-1) and (not visited[i])) then
      begin
        for ii := 1 to 1000 do
        Application.ProcessMessages;
        dfs(i,visited);
      end;
end;

[Музыкант]

Сообщение от s-andriano

Ну так теперь она работает так, как ты хочешь?

нет, Sleep(1) глазу ведь незаметная задержка, а если Sleep(500), например, поставить, то не работает

[Музыкант]

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

А если так

procedure dfs(v: integer;visited:masbool);
var
  i,ii: integer;
begin
  visited[v] := true;
  shape[v].Brush.Color:=clRed;
  for i := 1 to n do
    if ((matr[v, i]<>-1) and (not visited[i])) then
      begin
        for ii := 1 to 1000 do
        Application.ProcessMessages;
        dfs(i,visited);
      end;
end;

если в вашем цикле поставить не 1000(потому что опять глазу не заметна эта задержка), а 1000000, то опять прога зависает

[Аватар]

если в вашем цикле поставить не 1000(потому что опять глазу не заметна эта задержка), а 1000000, то опять прога зависает

Ну а почему ей не зависнуть? 1000 секунд прога не будет реагировать на любые действия и так в цикле. Полный абзац

[Музыкант]

Сообщение от Аватар

Ну а почему ей не зависнуть? 1000 секунд прога не будет реагировать на любые действия и так в цикле. Полный абзац

не надо с больной головы на здоровую - где тут про 1000 секунд говорится?
одна итерация цикла никак не может секунду длится, и даже от 1 до 1000000 в разы меньше секунды будет.

[Larboss]

и программа работает как -то заторможенно

Еще бы, каждую итерацию программа засыпает на 100 мс.

а если ребер 21, то уже не работает

Не работает? Точно в этом уверены? Что показывает отладка? Может быть вычисления идут долго...