摘要：function GetFileSize(const FileName : string): DWORD; var f : integer; begin f := FileOpen(FileName, fmOpenRead); try Result := Windows.GetFileSize(f, 阅读全文

摘要：Delphi 获得文件大小的方法 大概有这些： FileSizeByName（需要引用IdGlobal单元 ，XE版本已取消） GetFileSize （use Windows ，仅支持windows） FileSize（不能获得正在使用的文件大小） FileSeek TFileStream.Siz 阅读全文

摘要：use GIFImg procedure TForm1.Button1Click(Sender: TObject); var pic_path:string; begin pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif' 阅读全文

摘要：将时间日期分解 procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; Sys 阅读全文

摘要：Use shellapi; public { Public declarations } procedure TFfile(var Msg:TMessage);message WM_DROPFILES; 单文件拖拽到某个控件上： public { Public declarations } proc 阅读全文

摘要：1、 把PNG图片放到项目中； 2、 点击主菜单“Project”→“ Resources and Images”，弹出下面的对话框 它会自动识别项目中的图片、音频等文件自动添加进来，如果没有识别出来或者是自定义文件类型的话，就点击【Add】按钮手动添加，然后选择合适的资源类型ResourceTyp 阅读全文

摘要：uses DBGridEhImpExp; procedure TForm1.Button1Click(Sender: TObject); var Fn: string; begin //导出汇总结果为 xls, 需要 uses DBGridEhImpExp Fn := 'D:\Data\abc.xl 阅读全文

摘要：combobox1.items.clear; adotable1.open; adotable1.first; with not adotable1.eof do begin combobox1.items.addobject(Fieldbyname('name').asstring,TObject 阅读全文

摘要：设置它的几个属性：BevelEdges |_ beLeft = False; |_ beTop = False; |_ beRight = False; |_ beBottom=True; //就是下面那根横线了BevelInner=bvNone;BevelKind =bkSoft;BevelOut 阅读全文

摘要：需要五个控件： DBGridEh, TDataSource, TClientDataSet,TMemTableEh, TDataSetDriverEh DBGridEh.DataSource > TDataSource TDataSource.DataSet > TMemTableEh TMemTa 阅读全文

摘要：搜索面板和过滤数据（SearchPanel） 行政2023 年 3 月 2 日约3分钟 DBGridEh可以显示一个特殊的面板来搜索和过滤网格中的数据。 在搜索模式下，网格在所有网格单元格中以不同的颜色（默认为黄色）显示搜索短语。网格还允许您过滤数据，以便屏幕仅显示包含搜索字符串的记录。中有省略号按 阅读全文

摘要：语言资源 行政 2023 年 3 月 2 日 约4分钟 在本页 通过外部文件使用语言资源 为应用程序的语言常量创建语言资源 默认语言资源 使用动态语言资源加载的演示项目 Delphi标准建议对依赖于语言的常量字符串使用资源字符串和 dfm 文件的各个版本。 EhLib 自第 9 版起使用略有不同的技 阅读全文

摘要：DBGridEh使用技巧 首先将dbgrideh的一个页脚数属性FooterRowCount设置为 1;再将dbgrideh的属性中的sumlist中的Active 设置为 True;第三步：打开dbgrideh的字段列表；选择需要求和的字段，有个属性Footer下有FieldName是求和的字段； 阅读全文

摘要：unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, DB 阅读全文

摘要：DELPHI中EXCEL组件的使用方法: (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口： ExcelA 阅读全文

摘要：Delphi + MS SQL Server是目前最为流行的管理信息系统开发环境和工具。Delphi的强大数据库操作控件极大地减轻了开发人员的工作量，在这些控件中，最常用的有 TQuery、TTable、TADOQuery、TADOTable、TADODataSete等，这些控件执行查询操作时有一个 阅读全文

摘要：MainForm上加PageControl1,把PageControl1的DockSite设为True, 把窗口FB_orderManage的DragKind设为dkDock, DragMode设为dmAuromatic 在MainForm中调用： FB_orderManage:= TFB_orde 阅读全文

摘要：分析结果： 这里发现一个问题，就是 elements（这个数字）和后面的那个数字必须对应，这个是以为编码问题，造成系统识别的长度不一样。 因此解决最简单的办法：直接修改字符长度一样就可以了。 修改位置： {== TRzLEDDisplay Constants ==} type TRzLEDValid 阅读全文