[Stanei]

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

специально вынес кусок кода на отдельную кнопку и поток, вот:

Код:

          repeat
          rand_koll:=0+random(2);
          sop1:=inttostr(rand_koll)+'.png';

          if Pos('0.png', sop1) <> 0 then
          t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\0.png')
          else
          t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\1.png');
          until stop=true;

ошибка возникает мгновенно, а если сделать так:

Код:

          repeat
          rand_koll:=0+random(2);
          sop1:=inttostr(rand_koll)+'.png';
          sleep(50); //добавить небольшую задержку
          if Pos('0.png', sop1) <> 0 then
          t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\0.png')
          else
          t.t_sop1_pic.Picture.LoadFromFile(Path + 'Data\images\icon\race\1.png');
          until stop=true;

то вроде работает, но не знаю, подожду минут 30, пускай поработает, отпишусь.

Мне хотелось бы узнать в чём разница? При том если задержку поставить менее 50, то ошибка тоже почти сразу возникает.

Помогите разобраться, что бы потом не допускать ошибок.

[Alegun]

Зачем лишние телодвижения на проверки, когда

Код:

  repeat
         sop1:='Data\images\icon\race\'+inttostr(random(2))+'.png';
         t_sop1_pic.Picture.LoadFromFile(Path + sop1);
  until stop=true;

по-другому точно не будет

Есть предположение, ошибка возникает внутри модуля PNG, не успевает отработать подгрузку полностью - проверяйте при каждой итерации цикла на содержимое контейнер или принудительно его обнуляйте перед загрузкой новой картинки

[Stanei]

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

Зачем лишние телодвижения на проверки

просто в проге немного не так, там sop0 получает исходник страницы сайта через инди, а sop1(2,3,...,12), парсят свой кусок кода из sop0, и дальше подключаются функции для его обработки и выводу данных на форму.

Кстати, sleep(50) поставил перед всеми sop(1-12), и с момента как написал эту тему, до сих пор всё работало идеально. Кстати nil без задержки тоже не решает проблему.

Значит придётся перед каждой загрузкой ставить задержку? Только вот что, если у меня работает при задержке 50мс, есть ли гарантия что этой задержки хватит и для других компов? Или на более древних нужна задержка больше?