delphi 读取BIN文件
//读取文件函数functionReadFile1(FileName:String):boolean;varsFileName:string;f:TfileStream;ED_Data:array[0..2048]ofchar;lRet:integer;lOffset:Longint;lOrigin:Word;i,count:integer;beginsFileName:=form1.opendialog1.FileName;f:=TfileStream.Create(sFileName,fmOpenRead);tryf.Seek(lOffset,l
用户评论