计算文件大小
摘要：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
04 2023 档案
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
DBGridEh 表格内容导出为 Excel 文件
摘要：uses DBGridEhImpExp; procedure TForm1.Button1Click(Sender: TObject); var Fn: string; begin //导出汇总结果为 xls, 需要 uses DBGridEhImpExp Fn := 'D:\Data\abc.xl
阅读全文
posted @ 2023-04-07 21:16
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
