delphi 生成xml 方法 与 delphi txt文件操作

ProcedureTForm1.Button1Click(Sender:TObject);Varxmlstr,FileName:String;f:Textfile;BeginxmlStr:='';xm…

Delphi 调用API打开文件 使用系统默认打开方式进行打开

usesshellapi;//调用API打开文件使用系统默认打开方式进行打开.procedure.OpenFileAPI(sfn:string);beginSh…

Delphi 获取用户当前的Windows临时文件夹

//获取用户当前的Windows临时文件夹functionGetWinTempPath:string;varTempDir:array[0..255]ofchar;beginG…

Delphi 取目录下指定文件到列表

procedureTForm1.searchfile(Astrs:TStrings;path:string);//注意,path后面要有'\';var//取目录下的SQL文件…

Delphi 判断文件扩展名函数

作者：小宇飞刀functionIsImageFile(constfn:string):Boolean;varextfn:String;beginextfn:=LowerCase(Extr…

Delphi SaveLog 日志

procedureSaveLog(constsMsg:s****ing);varsList:TS****ingList;fn:s****ing;beginsList:=TS****ingList.Cr…

Delphi2010新功能:TDirectory.GetFiles 支持通配符

Delphi2010新增功能之:IOUtils单元:TDirectory.GetFiles支持通配符unitUnit1;interfaceusesWindows,Message…

Delphi 查询当前目录下文件名是否存在

procedureTForm1.Button1Click(Sender:TObject);varFileToFind:string;beginFileToFind:=SysUtils.FileSear…

Delphi ShellExecute打开文件另类用法

ifStrLen(PChar(filePathEdit.Text))>0thenbeginifShellExecute(Handle,'open',PChar(filePathEdit.Text),n…

Delphi 最简单的文件大小Bytes转MB

functionBytesToMB(X:Int64):String;beginResult:=FormatFloat('0.00MB',X/1024/1024);end;

Delphi GetFileSize 获取文件大小 2

functionGetFileSize(constaFileName:String):Int64;varSr:TSearchRec;beginifFindFirst(aFileName,faAnyFi…

Delphi FileOpenDialog1 多选加载大量文件,不受中文文件名影响

//OpenDialog1多选模式加载大量包含中文名文件会出错。20200114vari:integer;s****:s****ing;tmp:TS****ing…

delphi OleVariant excel保存文件

usesComObj,Excel;varExcel:OleVariant;Excel:=CreateOleObject('EXCEL.Application');Excel.Application.W…

Delphi操作Word中的表

ProcedureGetWordCellStr;varWordApp:TWordApplication;WordDoc:TWordDocument;DocInx,FileName,CfCversion…

Delphi 获取所有磁盘盘符列表

usesSystem.Generics.Collections,System.Math,System.IOUtils;procedureTForm1.Button5Click(Sender:TObje…

Delphi 得到不同平台的录音文件保存路径

usesSystem.IOUtils;//需要引入//得到不同平台的录音文件保存路径functionGetAudioFileName(constAFileName…

Delphi 字符串保存UTF-8过程

procedureSaveAsUTF8(constName:String;Data:TStrings);constcUTF8:array[1..3]ofbyte=($EF,$BB,$BF);varW_…

Delphi TStringList 保存txt文本文件最后一行不留空行

savatxt:=TStringList.Create;savatxt.TrailingLineBreak:=False;savatxt.SaveToFile('123.txt');

Delphi 一个分割文本文件的代码

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…

Delphi 流分割与合并文件的函数

//分割文件的函数{参数1是要分割的文件名;参数2是要风格文件的大小,单位是KB}{分割后的文件名扩展名用序号替…