Показать сообщение отдельно
Старый 14.09.2012, 17:59   #3
Новичок
 
Регистрация: 16.08.2012
Сообщений: 12
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
shamos пока неопределено
По умолчанию

Почему не работает:
PHP код:
Объявил:
var 
MyXMyYMyZ Integer;

const 
name 'name'

При каждом пакете:
begin
   
if fromclient and (connectname=namethen
   begin
      
case pck[1of
         
#$59:
         
begin
            MyX
:=Readd(2);
            
MyY:=Readd(6);
            
MyZ:=Readd(10);
            
sendMSG(IntToStr(MyX) + ' ' IntToStr(MyY) + ' ' IntToStr(MyZ));
         
end;
      
end;
   
end;  
end

Последний раз редактировалось shamos, 14.09.2012 в 19:57.
shamos вне форума   Ответить с цитированием