NLObP, спасибо, но это уже мелочи
Блин, я понял
вот то, что мне нужно было:
delphi Код:
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, спасибо огромное!!!