[poli-smen]

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

Да, спасибо, в этом и была проблема. Но теперь при нажатии кнопки Играть программа уходит в "Не отвечает". Может у меня где то ещё бесконечный цикл? Почему то не могу приложить исходники, так что скачайте их тут
http://happyminers.ru/launcher.rar

Есть подозрение на эту процедуру:

Код:

procedure IsSetFiles();
var
  count: integer;
  FilesIsSet: Array [1 .. 14] of boolean;
begin
  count := 1;
  While (count < 15) do
  begin
    if FileExists(FilesFullPatch[count]) then
    begin
      count := count + 1;
      FilesIsSet[count] := true;
    end
    else
      FilesIsSet[count] := false;
  end;
  ShowMessage(BooleanToStr(FilesIsSet[13]));
end;

Здесь если очередной файл существует - то всё нормально (счётчик увеличивается), если же файла не существует, то опять попадаем в бесконечный цикл, так как в ветке else счётчик не изменяется.