Цитата:
Сообщение от Breadfan
Вот тоже попытался коечто слямзить и добавить но....как говорится "дело было не в машине.." вот оно:
[...]
если заремить строки проверки x=7 то пп работает, берет торг но бафает только до b(9), b(10) уже не идет...В чем ошибка моя подскажите
|
Ты забыл про конструкцию типа:
Код:
if X then Y;
if X then begin X1; X2; X3; end;
Так по идее должно работать (не забываем inc(x) делать):
delphi Код:
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;