Function FileLenght(sFn:String):Integer; Var iFileHandle: Integer; begin {$I-} Result:=0; if not FileExists(sFn) then Exit; iFileHandle := FileOpen(sFn, fmOpenRead); try Result:=FileSeek(iFileHandle,0,2); finally FileClose(iFileHandle); end; end; pr
将缓冲区中的内容写入文件中，学习Delphi中FileWrite的使用方法： begin H := FileOpen(d:\ini.txt,fmOpenWrite); if H -1 then begin FileSeek(H,0,2);//将文件指针定位到文件的末尾 buffer := 源码素材网是开源源代码下载网站; IntToStr(FileWrite(H,buffer^,Length(buffer))); CloseHandle(
