Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1228488
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2008-09-16 14:57:49



为什么文件流不能读到动态数组?   代码以下  
  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;  
 

阅读(1401) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~