Delphi 获取文件大小根据显示GB MB KB B

functionGetFileSize(constFileName:string):DWORD;varf:integer;beginf:=FileOpen(FileName,fmOpenRead);t…

delphi filestream

procedureTForm1.Button1Click(Sender:TObject);varf1:TFileStream;filename:String;beginOpenDialog1.Exec…

Delphi IdHashMessageDigest 获取文件MD5

usesIdHashMessageDigest;functionMD5(constfileName:string):string;varidmd5:TIdHashMessageDigest5;fs:T…

Delphi 文件转换Base64

usesEncdDecd;functionFileToBase64(FileName:string):string;varMemoryStream:TMemoryStream;beginResult:…

Delphi 获取文件创建时间，修改时间，最后

functionGetFileLastAccessTime(FileName:string;AFlag:Integer):TDateTime;varWFD:TWin32FindData;FileTim…

Delphi 取得文件版本

//取得文件版本functionGetFileVer(strFileName:String):String;varn,Len:DWORD;Buf:PChar;Value:Pointer;s…

Delphi txt日志log

{新建一个TXT文档}ProcedureNewTxt(FileName:String);VarF:Textfile;{定义F为Textfile}BeginAssignFile(F,F…

Delphi 先加载原内容在写入增加新内容

{先附上原内容在写入新内容}ProcedureAppendTxt(Str:String;FileName:String);VarF:Textfile;BeginAssignFi…

Delphi判断文件夹（目录）是否存在，不存在就创建的办法

procedureTForm1.Button1Click(Sender:TObject);beginifnotFileExists(Edit1.Text)then//ifnotDirectoryExi…

delphi 获得父目录–指定级父目录

functionget_dir_parent(dir:string;n:integer):string;//n为几级父目录varst:string;i:integer;beginst:=G…

Delphi 用 TBytesStream 类实现的读文件为十六进制字符的函数

代码文件:--------------------------------------------------------------------------------unitUnit1;i…

Delphi 文件查找记录类型 - TSearchRec

SysUtils单元下的TSearchRec是一个记录类型，主要通过FindFirst,FindNext,andFindClose使用。接上一篇举例说…

delphi 查找目录下文件（多文件查找）

【跟随万一老师的足迹】查找目录下文件，在万一老师的基础上升级下，支持多文件查找-文件操作(一)//sysGetF…

Delphi怎样读取Excel表的所有字段名

Excel的sheet1表中有N个列，第一列的数据是字段名，分别是学号姓名性别年龄……，表中数据如下：学号姓名性…

Delphi 一行一行读取txt文件

Delphi中一行一行读取txt文件内容有两个高效的方法。1、使用Readln（）方法。2、使用TS****ingList。以读取…

Delphi 从流数据获知文件类型

functionStreamGetFileType(aStream:TStream):String;varBuffer:Word;beginResult:='';aStream.Position:=0…

Delphi 根据文件路径获取文件名

functionGetMovieName(constfn:string):string;vari:Integer;s:string;begins:=trim(fn);ifs[Length(s)]='\…

delphi 判断目录是否有写入权限

functionDirWritable(m_dir:string):boolean;//目录是否有写入权限vartmpStrs:TStrings;//测试数据目录是否…

delphi中判断某个文件是否已经打开

ifFileExists(FileName)thenif(FileOpen(FileName,fmShareExclusive)<0)thenShowMessage('文件已打开');

Delphi获取文件创建时间、文件最后修改时间

procedureTForm1.Button1Click(Sender:TObject);//获取文件创建时间varFileName:string;ti:Integer;dt:TDat…