[NLObP]

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

Вот тоже попытался коечто слямзить и добавить но....как говорится "дело было не в машине.." вот оно:
[...]
если заремить строки проверки x=7 то пп работает, берет торг но бафает только до b(9), b(10) уже не идет...В чем ошибка моя подскажите

Ты забыл про конструкцию типа:

if X then  Y;
if X then begin X1; X2; X3; end;

Так по идее должно работать (не забываем inc(x) делать):

begin
 case x of
   1: begin
      buf:=hstr(b1);
      SendToServerEx(bufer);
      inc(x);
   end;
   2: begin
      buf:=hstr(b2);
      SendToServerEx(bufer);
      inc(x);
   end;
   3: begin
      buf:=hstr(b3);
      SendToServerEx(bufer);
      inc(x);
   end;
   4: begin
      buf:=hstr(b4);
      SendToServerEx(bufer);
      inc(x);
   end;
   5: begin
      buf:=hstr(b5);
      SendToServerEx(bufer);
      inc(x);
   end;
   6: begin
      buf:=hstr(b6);
      SendToServerEx(bufer);
      inc(x);
   end;
   7: begin
      if (prof=2) then begin
        buf:=hstr(b7);
        SendToServerEx(bufer);
      end;
      inc(x);
   end;
   8: begin
      if (prof=1) then begin
        buf:=hstr(b8);
        SendToServerEx(bufer);
      end;
      inc(x);
   end;
   9: begin
      buf:=hstr(b9);
      SendToServerEx(bufer);
      inc(x);
   end;
   10: begin
       buf:=hstr(b10);
       SendToServerEx(bufer);
       inc(x);
   end;
   11: begin
      if (prof=1) then begin
        buf:=hstr(b11);
        SendToServerEx(bufer);
      end;
      inc(x);
   end;
   12: begin
       buf:=hstr(b12);
       SendToServerEx(bufer);
       inc(x);
   end;
   13: begin
       buf:=hstr(b13);
       SendToServerEx(bufer);
       inc(x);
   end;
   14: begin
       if (prof=2) then begin
         buf:=hstr(b14);
         SendToServerEx(bufer);
       end;
       inc(x);
   end;
   15: begin
      if (prof=2) then begin
        buf:=hstr(b15);
        SendToServerEx(bufer);
      end;
      x:=0;
   end;
 end;
end;