delphi中得到文件的大小

delphi中得到文件的大小 var vSearchRec: TSearchRec; begin FindFirst(‘<文件名>’, faAnyFile, vSearchRec); Caption := IntToStr(vSearchRec.Size); // vSearchRec.FindData.ftCreationTime//创建时间 // vSearchRec.FindData.ftLastA···

delphi里面控制Edit只能输入数字

如何在delphi里面控制Edit只能输入数字 ━━━━━━━━━━━━━━━━━━━━━━━━━━ if not (key in [‘0’..’9′,#8]) then key := #0; 只能输入汉字,而不能输入数字或其他字符 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 在Edit的OnKeyPress事件中 procedure TF···

Delphi 格式化函数format的用法

一、Format函数的用法 Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌 ,以供大家查询之用: 首先看它的声明: function Format(const Format: string; const Args: array of const): string; over···

DELPHI控件 多页控制组件PageControl

PageControl组件位于组件板的Win32页中,该组件用于 实现窗体上多页面技术,每个页面上均能添加若干控件。程序运行时,单击页面标签就可以在多页之间切换。 1.建立多页 用鼠标右键单击PageControl组件,在弹出式菜单中选择New Page子菜单可添加新页,用De···
delphi-opendialog

delphi OpenDialog取文件名称、路径

学习delphi编程先用到了组件OpenDialog 首先是通过OpenDialog组件取文件名称、路径 首先建立form 使用的组件如下图 delphi-opendialog 然后在按钮的单击事件添加如下代码 with OpenDialog1 do begin Filter:=’dbf数据库(*.dbf)|*.dbf’;  //过···