ПИСАТЬ так писать
if (FromServer) and (Connectname=name) and (pck[1]=#$01) then
begin
if (q=false)
then
begin
q:=true;
SendMSG('Пакет принят');
end
else begin
SendMSG('Пакет В ПОМОЙКУ !!!!!!!!!!!!');
pck:='';
end;
__________________
Никого нельзя ничему научить,
но всему можно научиться
народная мудрость
"Если любишь в жизни риск - форматируй жесткий диск!"
|