Más o menos sería esto:
Código:
packet[i]=((lenField shr 7) And $7f) Or $80;
Inc(i);
packet[i]=lenfield And $7f;
Inc(i);
packet[i]=((dataLen shr 7) And $7f) Or $80;
Inc(i);
packet[i]=(partPos shr 8) And $ff;
Inc(i);
packet[i]=partPos And $ff;
Inc(i);
Por tanto:
<< equivale a shl, pero conservando el bit de signo
>> equivale a shr, pero conservando el bit de signo
>>> es un shr, pero para datos sin signo
& es un And
| es un Or