TStream to TStrings error

[varich]

возникла необходимость читать строки из TStream. вот ф-я, которая должна это делать.

 type pstream= ^tstream; //.....
function streamtotstrings(adata:pstream;count:integer):tstrings;
var s:string;
b:array of char;
i,j,last_i:integer;
begin
  s:='';//result:=nil;
  setlength(b,adata^.size);
  adata^.Position:=0;
  j:=adata^.read(b,adata^.Size);
{debug}
 form1.Memo2.Lines.Add('скопировано байт в массив: '+inttostr(j));
  j:=adata^.Size;
  form1.Memo2.Lines.Add('байт в потоке: '+inttostr(j));
{/debug}
 last_i:=0;
 if b[0]<>#0 then begin //  <--  access violation here
for i:=0 to count-1 do
    begin
      if b[i]=#0 then
          begin
              setlength(s,i-last_i);
              move(b[last_i],s,i-1-last_i); 
              last_i:=i+1;
              result.Add(s);
          end;
    end;
end;
end;

но ф-я выдаёт access violation при попытке чтения b[0]. где может быть ошибка? настройки проекта стандартные(D7)

зы кол-во символов в стриме определяется верно(adata^.size), но массив на момент возникновения ошибки забит нулями(#0) и неверного размера(судя по watch list) либо его размер =0

зыы замена типа adata с pstream на tstream ничего не меняет

зыыы косячит функция tstream.read. потому как до её выполнения length(b)=adata.size. после выполнения length(b)=0; а альтернитивного способа читать из потока я не знаю(readbuffer тоже не работает)

[Аватар]

j:=adata^.read(b,adata^.Size);

В динамический массив нельзя так читать, можно так:

j:=adata^.read(b[0],adata^.Size);

[varich]

спасибо. не знал что эта фишка относится к дин. массивам. теперь работает