Показать сообщение отдельно
Старый 14.09.2012, 21:48   #4
Местный
 
Аватар для kpa9pt
 
Регистрация: 13.01.2010
Сообщений: 159
Сказал Спасибо: 18
Имеет 30 спасибок в 23 сообщенях
kpa9pt имеет немного плохого в прошлом
По умолчанию

А так?

PHP код:
//Объявил:
const name 'name';
var 
MyXMyYMyZ Integer;

//При каждом пакете:
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
kpa9pt вне форума   Ответить с цитированием