应该先
L := FContentLength ;
for longIndex := 0 to FContentLength - 1 do
begin
if FContentData[ longIndex ] = 0 then //0表示内容结束
begin
L:=longIndex;
break;
end;
end;
setlength( ContentData , L );
memcopy(ContentData[1] , FContentData , L );