文件流不能读到动态数组?.

文件流不能读到动态数组?. VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061226161917101.html
为什么文件流不能读到动态数组?   代码以下  
  procedure   tform1.ComeBackData();  
          var   filespath:string;  
              tFile:TFileStream;  
              tsize,i:longint;  
              tempArr:array   of   byte;  
   
          begin  
                    if   openDialog1.Execute   then  
                        filespath:=openDialog1.FileName   ;   //取得打开的文件名  
                    if   filespath=''   then  
                        exit;  
                    tFile:=TFileStream.Create(filespath,fmOpenRead);       //   创建二进制文件  
                    tsize:=tfile.Size;   //取得总的长度  
   
                    SetLength(tempArr,tsize);     //计算动态数组的长度  
                    //分配动态数组的空间  
                    GetMem(temparr,   tsize   *   SizeOf(byte));  
   
                  tfile.Read(temparr,tsize);  
   
                    FreeMem(temparr,   tsize*SizeOf(byte));  
          end;  
   
  以上代码文件流不能读到动态数组,但可以读到静态数组里,请问为什么?

procedure   tform1.ComeBackData();  
          var   filespath:string;  
              tFile:TFileStream;  
              tsize,i:longint;  
              tempArr:array   of   byte;  
   
          begin  
                    if   openDialog1.Execute   then  
                        filespath:=openDialog1.FileName   ;   //取得打开的文件名  
                    if   filespath=''   then  
                        exit;  
                    tFile:=TFileStream.Create(filespath,fmOpenRead);       //   创建二进制文件  
                    tsize:=tfile.Size;   //取得总的长度  
   
                    SetLength(tempArr,tsize);     //设置(而不是计算)动态数组的长度  
                    tfile.Read(tempArr[0],tsize);  
          end;

//分配动态数组的空间  
                    GetMem(temparr,   tsize   *   SizeOf(byte));  
   
  这个不需要的

procedure   tform1.ComeBackData();  
          var   filespath:string;  
              tFile:TFileStream;  
              tsize,i:longint;  
              tempArr:array   of   byte;  
   
          begin  
                    if   openDialog1.Execute   then  
                        filespath:=openDialog1.FileName   ;   //取得打开的文件名  
                    if   filespath=''   then  
                        exit;  
                    tFile:=TFileStream.Create(filespath,fmOpenRead);       //   创建二进制文件  
                    tsize:=tfile.Size;   //取得总的长度  
   
                    SetLength(tempArr,tsize);     //计算动态数组的长度  
                    //分配动态数组的空间  
                    //GetMem(temparr,   tsize   *   SizeOf(byte));  
                    tFile.Position:=0;  
                  tfile.Read(temparr[0],tsize);  
   
                  //   FreeMem(temparr,   tsize*SizeOf(byte));  
          end;  
 

转载于:https://www.cnblogs.com/delphi2007/archive/2008/09/16/1291701.html