Кружок нубов(Вопрос-Ответ)

[Breadfan]

to SeregaZ

тебе надо счтывать примерно так:

If pck[1]:=#$4A then 
    Begin
     j:=2;                 // j - стартовая позиция указателя
     CharOID:=ReadD(j);   // -- OID перса
     TextType:=ReadD(j); //-- индекс чата в котором пишется текст
     nick:=ReadS(j);    //-- считывается ник, и, одновременно, указатель байта сдвигается на его длинну, т.е после выполнения команды будет j:=j+(длинна_блока_оканчивающегося "00 00")
     text:=ReadS(j);   //-- считывается текст
    end;

Когда пакет с текстовыми данными - номера байт явно не указывай
ReadH\D\S\Q(j) - не только считывает содержимое j-того байта, но и соответствуще меняет значение j
Вообще же, текст в пакете оканчивается "00 00" - можно так выискивать конец блока...