Не могу разобраться с Inc

[Pearl777]

Здравствуйте! Пишу одну программкку, но в результате наткнулся на стену.

 while Work do
  begin
   CS.Enter;
   Inc(Acc);
   Inc(tp);
   Inc(gr);
   if Acc < Accounts.Count then CAcc:=Acc else Acc:=0;
   if tp < Proxy.Count then CurProxy:=tp else tp:=0;
   if gr < Group.Count then CurGroup:=gr else begin
   Inc(ps);
   end;

    if ps < Images.Count then CurImages:=ps else work:=false;
   CS.Leave;

   if Work then
    begin

Суть заключается в том, что программа должна загружать фото на сайт. Пример: Берем первый аккаунт (Acc) и первую картинку (ps), загружаем эту картинку во все группы (gr). Если группы закончились, то мы берем следующую картинку и опять же загружаем во все группы.

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

[alextrof94]

inc - функция наращения на 1, если не принимает других параметров. Неужели сложно использовать простые циклы?

for pc:=0 to Pictures.Count do
 for acc:=0 to Accounts.Count do
  for tp:=0 to Proxy.Count do
   for gr:=0 to Group.Count do
   begin
    //uploading pc
    //тут загрузятся все pc
   end;

[Slym]

судя по коду чел пытается "распоточить" и циклы в таком случае не канают (не в таком виде)

while Work do
  begin
   CS.Enter;
   Inc(gr);
   if gr >= Group.Count then
   begin
     gr:=0;
     Inc(tp);
     if tp >= Proxy.Count then
     begin
       tp:=0;
       Inc(Acc); 
       if Acc >= Accounts.Count then
       begin
         Acc:=0;
         Inc(ps);
         if ps>= Images.Count then work:=false;
       end;
     end;
   end;
  cur:=.....
   CS.Leave;

   if Work then
    begin

[Pearl777]

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

inc - функция наращения на 1, если не принимает других параметров. Неужели сложно использовать простые циклы?

for pc:=0 to Pictures.Count do
 for acc:=0 to Accounts.Count do
  for tp:=0 to Proxy.Count do
   for gr:=0 to Group.Count do
   begin
    //uploading pc
    //тут загрузятся все pc
   end;

Мне не понятно как в случае окончания цикла начать его выполнение заново.


Уже даже изменил свой старый исходник, и вышла та же фишка. Мне кажется, что это из-за нескольких Inc`ов. Потому как до подключения

             Inc(Img);
   if Img<images.Count then CImg:=Img else Work:=false;

   Inc(Grp);
   if Grp<groups.Count then CGrp:=Grp else Grp:=0;

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

[Pearl777]

Всем спасибо! Вопрос больше не актуален.

             Inc(Acc);
    if Acc >= Accounts.Count then
       begin
         Acc:=0;
       end;

   if Img >= images.Count then work:=false;


             Inc(Grp);
   if Grp >= groups.Count then begin
   Grp:=0;
    inc(img);
      end;

Вот так все отлично работает.