计算文件大小
摘要：function GetFileSize(const FileName : string): DWORD; var f : integer; begin f := FileOpen(FileName, fmOpenRead); try Result := Windows.GetFileSize(f,
阅读全文
posted @ 2023-04-21 09:20
随笔分类 - Delphi / Delphi代码
Delphi 获得文件大小的方法
摘要：Delphi 获得文件大小的方法 大概有这些： FileSizeByName（需要引用IdGlobal单元 ，XE版本已取消） GetFileSize （use Windows ，仅支持windows） FileSize（不能获得正在使用的文件大小） FileSeek TFileStream.Siz
阅读全文
posted @ 2023-04-19 20:49
delphi 播放GIF动画
摘要：use GIFImg procedure TForm1.Button1Click(Sender: TObject); var pic_path:string; begin pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif'
阅读全文
posted @ 2023-04-13 22:16
将TDateTime值分解为小时、分钟、秒和毫秒，以及计算时间差
摘要：将时间日期分解 procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; Sys
阅读全文
posted @ 2023-04-11 19:54
文件拖放
摘要：Use shellapi; public { Public declarations } procedure TFfile(var Msg:TMessage);message WM_DROPFILES; 单文件拖拽到某个控件上： public { Public declarations } proc
阅读全文
posted @ 2023-04-08 12:16
delphi 资源文件管理 Resources and Images
摘要：1、 把PNG图片放到项目中； 2、 点击主菜单“Project”→“ Resources and Images”，弹出下面的对话框 它会自动识别项目中的图片、音频等文件自动添加进来，如果没有识别出来或者是自定义文件类型的话，就点击【Add】按钮手动添加，然后选择合适的资源类型ResourceTyp
阅读全文
posted @ 2023-04-08 12:10
Delphi Combobox 数据库取值
摘要：combobox1.items.clear; adotable1.open; adotable1.first; with not adotable1.eof do begin combobox1.items.addobject(Fieldbyname('name').asstring,TObject
阅读全文
posted @ 2023-04-04 21:21
Edit边框成为下划线
摘要：设置它的几个属性：BevelEdges |_ beLeft = False; |_ beTop = False; |_ beRight = False; |_ beBottom=True; //就是下面那根横线了BevelInner=bvNone;BevelKind =bkSoft;BevelOut
阅读全文
posted @ 2023-04-04 16:56
DBGridEh使用技巧
摘要：DBGridEh使用技巧 首先将dbgrideh的一个页脚数属性FooterRowCount设置为 1;再将dbgrideh的属性中的sumlist中的Active 设置为 True;第三步：打开dbgrideh的字段列表；选择需要求和的字段，有个属性Footer下有FieldName是求和的字段；
阅读全文
posted @ 2023-03-26 14:54
Delphi动态创建组件，并释放内存
摘要：unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V
阅读全文
posted @ 2023-03-23 12:17
在DELPHI中用TreeView控件从数据库中动态装载信息
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, DB
阅读全文
posted @ 2023-03-22 15:12
DELPHI中EXCEL操作
摘要：DELPHI中EXCEL组件的使用方法: (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口： ExcelA
阅读全文
posted @ 2023-03-20 19:13
Delphi中使用存储过程
摘要：Delphi + MS SQL Server是目前最为流行的管理信息系统开发环境和工具。Delphi的强大数据库操作控件极大地减轻了开发人员的工作量，在这些控件中，最常用的有 TQuery、TTable、TADOQuery、TADOTable、TADODataSete等，这些控件执行查询操作时有一个
阅读全文
posted @ 2023-03-17 17:11
delphi主i窗口中实现多页面管理效果
摘要：MainForm上加PageControl1,把PageControl1的DockSite设为True, 把窗口FB_orderManage的DragKind设为dkDock, DragMode设为dmAuromatic 在MainForm中调用： FB_orderManage:= TFB_orde
阅读全文
posted @ 2023-03-15 21:25
加密解密
摘要：// 加密方法一(通过密钥加密解密) function EncryptString(Source, Key: string): string; function UnEncryptString(Source, Key: string): string; //加密方法二(通过移位加密解密) funct
阅读全文
posted @ 2023-03-14 15:58
delphi7连接mysql
摘要：Params设置如下： 相关控件按如下顺序连接
阅读全文
posted @ 2023-03-11 17:21
Delphi数据库处理组件BDE、ADO、InterBase和dbExpress详细说明
摘要：Delphi中处理数据库主要有两种方法，也就是BDE、ADO，从Delphi 6.0开始还加入了一种dbExpress方法。 另外，Delphi还提供了专门处理Borland 公司自己的数据库产品InterBase 数据库的专门的方法。 BDE（Borland Databas Engine）， 是D
阅读全文
posted @ 2023-03-10 15:53
程序启动欢迎窗体制作方法
摘要：在许多应用软件中，启动程序后，在主导界面出现之前，有一个一般以图象为主,文字为辅的画面，通常用来显示软件或公司的主题标志、软件名称、作者、版权和版本信息等，停留数秒或按了任意键后软件进入主导界面，这个画面称为Splash画面，意思为引人注目画面。这个画面的另外一个用处是在处理耗时进程时，为用户展示一
阅读全文
posted @ 2023-03-07 20:30
复制文件
摘要：在delphi里实现文件复制可以直接调用 copyfile(path1,path2,false); 其中path1为源文件名(包括路径),path2为目标文件名(包括路径); 注意path1,path2为char类型,如果是其他类型注意强制变类型 可以写成copyfile(pchar(path1),
阅读全文
posted @ 2023-03-07 20:28
delphi在ACCESS数据库里的生日查询的实现
摘要：在ADOQuery的属性SQL里写下面的SQL语言 select * from XX表 where format(生日,'mm-dd')=:shengri 说明:上面的shengri可以写成任何东东,呵呵 在delphi里写下面的代码 ADOQuery.Parameters[0].Value:=fo
阅读全文
posted @ 2023-03-07 19:57
