Не ждет завершения процедуры.

[myg]

Экспериментирую на кошках, т.е. на тетрисе.
Написал программу в Delphi 2010. Но одна проблема.
Опишу одно из ея проявлений:

// выше проверяетсо, можно ли опустить фигуру, если нет, то

CheckFill;
// проверка заполненности рядов и удаление заполненных

FigDown:=False;
// опустить фигуру не получилось

Fig:= FigNext;
// присваиваем фигуре следующую из очереди

Bc:=(MaxColumns div 2)-2; Bl:=0;
// смещение фигуры относительно стакана

AssignCoordinate(Fig, Bc, Bl);
// назначаем координаты фигуре

FigNext:=CreateFig;
// создаем новую фигуру в очереди

AssignCoordinate(FigNext, 0, 0);
// назначаем коорд. фигуре из очереди на дополнительном поле
// для показа следующей фигуры

ClearFieldNext;
// очищаем поле

DrawFigNext(Helper);
// и рисуем след. фигуру (если вкл. подсказка)

Все вроде просто, прозрачно и работает. Но!
Если в процедуре CheckFill при удалении заполненных рядов добавить красивости, т.е. замедленного удаления с эффектами, порядка нескольких ms, то, не дожидаясь ея завершения, начинают исполнятся следующие строки кода. И получается каша. В других местах программы, при перехвате клавиатуры, я это обошел. А тут не знаю как. И убирать красивости не хочу. Почему программа не работает линейно, а разбивается на потоки? Я ей таких указаний не давал.

[Пепел Феникса]

Почему программа не работает линейно, а разбивается на потоки?

как минимум нужно показать CheckFill.
возможно сами команды таковы.

[myg]

Сообщение от Пепел Феникса

как минимум нужно показать CheckFill.
возможно сами команды таковы.

procedure CheckFill;

var i, j, Counter, Deleted, DeleteLine: integer;

begin
 Deleted:=0;                               // удаленных линий
 for j:= 1 to MaxLines - 1 do
  begin
  Counter:=0;                          // счетчик заполненных позиций в строке
  for i := 0 to MaxColumns - 1 do
    begin
     Counter:= Counter + Shape[i, j].Tag;
    end;
   if Counter = MaxColumns then
    begin
     DeleteLine:=j;                         // удаляемая строка
     DelLine(DeleteLine);
     inc(Deleted, (Deleted+1));        // для целей ведения счета
    end;
  end;
end;

procedure DelLine(var DelL: integer);
var k, l, m: integer;
begin
 m:=DelL;
 PlaySound('Laser.wav', 0, SND_ASYNC);
 for k := 0 to MaxColumns - 1 do           // удаление строки с эффектами
 begin
  Shape[k, DelL].Brush.Color:=clFuchsia;
  Delay(2);
  Shape[k, DelL].Visible:=False;
  Shape[k, DelL].Tag:=0;
  Shape[k, DelL].Brush.Color:=clYellow;
 end;

 for l := m downto 1 do        // опускание вышележащих строк
  begin
   for k := 0 to MaxColumns - 1 do
    begin
     Shape[k, l].Tag:=Shape[k, l-1].Tag;
     Shape[k, l].Visible:=Shape[k, l-1].Visible;
    end;
  end;
end;

где,
Shape - массив TShape создающий игровое поле
Tag = 1 означает, что позиция занята ранее упавшей фигурой



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Пепел Феникса]

форма просто не пересовывается в это время.(при изменении видимости, цвета(скорее всего тоже), лишь посылается сообщение о пересовке, которое будет обработано как выйдете из события, или по Application.ProcessMessage)

[myg]

Сообщение от Пепел Феникса

форма просто не пересовывается в это время.(при изменении видимости, цвета(скорее всего тоже), лишь посылается сообщение о пересовке, которое будет обработано как выйдете из события, или по Application.ProcessMessage)

Да прыгал я вокруг этого Application.ProcessMessages
Проблема не в отрисовке, а в том, что действительно выполняются следующие процедуры до завершения длительной.

[3D Hunter]

Язык линейный, и если вы пишите код в одном потоке (главный поток программы), то все должно выполнятся линейно. Что за метод Delay(2), не подскажете?

[myg]

Сообщение от 3D Hunter

Язык линейный, и если вы пишите код в одном потоке (главный поток программы), то все должно выполнятся линейно. Что за метод Delay(2), не подскажете?

В том-то и проблема! Не могу понять как при еще не отработавшей процедуре запускается следующая.

procedure Delay(MSecs: Longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
{ allowing access to other controls, etc. }
Now := GetTickCount;
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

из RxLibrary

[3D Hunter]

ИМХО, сомнительный метод. Вместо Delay() пишите уж так:

Application.ProcessMessages;
Sleep(55);

[Пепел Феникса]

Проблема не в отрисовке, а в том, что действительно выполняются следующие процедуры до завершения длительной.

именно в этом и проблема.
так как при необходимости пересовки вы лишь сообщение получаете, не более.
а его нужно обработать.(можно попробовать кстати ручной репаинт вызывать, хотя шейпы поидее должны сами это делать).