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

[klemberg]

NLObP, спасибо, но это уже мелочи

Блин, я понял

вот то, что мне нужно было:

var
  MEMBER_LIST:  array of string;

procedure MemberList;
var
  i, j: integer;
  memberCount: integer;
begin
  j:=96; //смещение для memberCount
  memberCount:=ReadD(j); //количество итемов не должно превышать max!

  SetLength(MEMBER_LIST, memberCount);

  for i:=0 to memberCount-1 do
  begin
      MEMBER_LIST[i]:= ReadS(j) + ';' + IntToStr(ReadD(j)) + ';' + IntToStr(ReadD(j));
      inc(j,16);
  end;
end;

begin
  //****************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;

  //****************************************************************************
  if FromServer then
  begin
    case pck[1] of
      //************************************************************************
      #$53: MemberList;       //пакет 0x53 (PledgeShowMemberListAll)
    end;
  end;
end.

NLObP, спасибо огромное!!!