最后的家当，还好问题不难(4分)

一个数据包分成若干的数据段，格式如下 每段由一个word长的头记录段长度，接着是段内容
，数据段的数量不定，长度也不定，要求用最简单的代码把这个包的每个段内容分别读到几个数组
里。 数据格式举例：
08 00 01 01 01 01 01 01 01 01 ...............04 00 01 01 01 01
|__________________________| |______________|
第一段 最后一段

分少没人答？

很简单
假定你的数据放在一个 String 变量里，数组为 X[i,j];

procedure GetData(const S:String
var X: MyDataArray);
var
I, J, N: Integer;
P: ^Word;
begin
I:= 1
N:= 0;
repeat
P:= @S;
for J:= 1 to P^ do begin
X[N, J]:= Byte(S);
Inc(I)
if I > Length(S) then Break;
end;
Inc(N);
until false;
end;