文件流不能读到动态数组?. 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;