Delphi
文章平均质量分 80
delphiorang
这个作者很懒,什么都没留下…
展开
-
delphi dbgrideh导出到Excel 多表头
引用单元interfaceuses Vcl.ComCtrls,Winapi.CommCtrl,System.Win.ComObj,DBGridEh,Vcl.Forms;implementationuses StrUtils,SysUtils,Vcl.Dialogs,Vcl.Controls,Data.DB,Variants;正文如下:procedure ExportToExcel(dbgrideh1:TDBGridEh;TitleName :String;autoFit:Boolea...转载 2021-03-14 13:00:34 · 444 阅读 · 0 评论 -
Delphi加密解密算法,直接添加
unit Unit2;interfaceuses Controls, Classes, SysUtils;// 加密方法一(通过密钥加密解密)function EncryptString(Source, Key: string): string;function UnEncryptString(Source, Key: string): string;//加密方法二(通过移位加密解密)function Encode(Str: string): string;function...原创 2020-09-06 01:45:52 · 811 阅读 · 0 评论 -
Delphi Excel导入 的通用程序
Delphi Excel导入 的通用程序procedure TForm1.btnClick(Sender: TObject);begin OpenDialog1.Title := '请选择正确的excel文件'; OpenDialog1.Filter := 'Excel(*.xls)|*.xls'; if OpenDialog1.Execute then edit1.Text := OpenDialog1.FileName;end;procedure TForm1.btninC...原创 2020-08-22 22:20:34 · 131 阅读 · 0 评论 -
生成BAT文件
生成BAT文件procedure TForm1.Button1Click(Sender: TObject);var s:TStringList;begin s:=TStringList.Create; s.Add(edit1.Text); s.SaveToFile(extractfilepath(application.exename)+'abc.bat'); showmessage转载 2015-09-21 15:08:47 · 1188 阅读 · 0 评论 -
获取一个文件夹下的所有文件
获取一个文件夹下的所有文件//不包括文件夹里面的文件// 注意,path后面不要有要有'\';// Memo1.Lines := Searchfile('C:\Users\Admin\Desktop\名人格言\Win32\Release\Data');function Searchfile(path: string): TStringList;var SearchRec: TSearchRec转载 2015-09-21 15:07:10 · 1349 阅读 · 0 评论 -
Delphi,几个实用的HTML解析函数
1)HTML 标签值攫取函数,任意标签哦,纯字符串分析,可以配合IDHTTP编程uses StrUtils;function ExtractHtmlTagValues(const HtmlText: string; TagName, AttribName: string; var Values: TStringList): integer;function FindFirs转载 2015-10-27 10:45:48 · 1659 阅读 · 0 评论