说明: //读取文件函数 function ReadFile1(FileName:String):boolean; var sFileName: string; f: TfileStream; ED_Data: array[0..2048] of char; lRet: integer; lOffset: Longint; lOrigin: Word; i,count:integer; begin sFileName:=form1.opendialog1.FileName; f := TfileStr
<jhfjhf123> 上传 | 大小:104kb