全部博文(788)
分类:
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); //设置(而不是计算)动态数组的长度
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;