随笔分类 -  Delphi学习

上一页 1 2 3 4
Delphi 字符串拆分/分割[1] - TStringList
摘要：1、TStringList 默认以 ','拆分字符 onst constr :String = 'aaa,bbb,ccc,ddd';var strs :TStrings; i :Integer;begin strs := TStringList.Create; strs.CommaText := c 阅读全文
posted @ 2023-05-12 09:16 lucken 阅读(708) 评论(0) 推荐(0)
判断软件的闲置时间GetLastInputInfo
摘要：//GetLastInputInfo是检测系统输入的，应用到某个程序中不合适！ 此问题有二种解法来监控输入消息： 1.用线程级HOOK，钩上MOUSEHOOK与KEYBOARDHOOK 2.在Application.OnMessage中做处理 显然，用第2种方法比较方便！ 众所周知，键盘与鼠标消息都 阅读全文
posted @ 2023-05-11 17:14 lucken 阅读(488) 评论(0) 推荐(0)
Delphi中使用ADO连接Excel
摘要：第一部分： 1. 设置ADOConnection的ConnectionString属性的OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider(这本来是用于连接Access数据库的驱动程序，但也可打开Excel文件),按 "下一步"按钮 2. 选择数据库名称。注 阅读全文
posted @ 2023-05-11 17:10 lucken 阅读(454) 评论(0) 推荐(0)
FastReport问题整理(转载)
摘要：1.FastReport中如果访问报表中的对象？可以使用FindObject方法。TfrxMemoView(frxReport1.FindObject(’memo1′)).Text:=’FastReport’; 2.FastReport中如何使用上下标？设置frxmemoview.AllowHTML 阅读全文
posted @ 2023-05-11 17:07 lucken 阅读(339) 评论(0) 推荐(0)
delphi模板引擎
摘要：program Example; uses Sempare.Template; type TInformation = record name: string; favourite_sport : string; count : integer; end; begin var tpl := Temp 阅读全文
posted @ 2023-05-11 17:06 lucken 阅读(52) 评论(0) 推荐(0)
Close、Halt、terminate、ExitProcess的区别
摘要：Close:1.只关闭本窗体2.当Close是一个主窗体时,程序会退出。3.Close会发生FormClose事件,FormCloseQuery事件4.主窗体close以后程序就Application.Terminate了5.子窗体close以后。没释放,还可以Show出来。6.也是说主窗口的Clo 阅读全文
posted @ 2023-05-10 16:47 lucken 阅读(219) 评论(0) 推荐(0)
TcxGrid属性
摘要：cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号 cxGrid1DBTableView1.Controller.FocusedRow 当前行 cxGrid1DBTableView1.Controller.FocusedColumn 当前列 cxG 阅读全文
posted @ 2023-05-10 16:47 lucken 阅读(126) 评论(0) 推荐(0)
正则表达式的使用方法
摘要：引用单元: uses System.RegularExpressions 1、TRegEx.Match方法 Match()方法总是获取满足条件的第一个匹配，而不关心满足条件的匹配有多少个。 Match()方法都回一个Match对象，其中包含了匹配的各种细节. Match()方法的取值方法 var m 阅读全文
posted @ 2023-05-10 16:12 lucken 阅读(198) 评论(0) 推荐(0)
获取鼠标位置和控件区域
摘要：procedure TForm1.scSplitView1MouseEnter(Sender: TObject);begin if scSplitView1.Opened then Exit; scSplitView1.Opened := True; Label1.Visible := True; 阅读全文
posted @ 2023-05-10 16:00 lucken 阅读(67) 评论(0) 推荐(0)
cxgrid控件主从表（转载）
摘要：效果图大概如下图所示,它能体现出主表里每一条记录的入仓记录,左边的加减号可以展示与隐藏从表. 结构设计如上图右下角所示,做两个level,和两个DB table,从结构上可以很晰的看到,TV报废池是主表,TV查询是从表. 我们需要做两组数据集,SQL内容按业务自己看着写. 然后是主从表的关联设置,这 阅读全文
posted @ 2023-05-10 15:45 lucken 阅读(694) 评论(0) 推荐(0)
Delphi取整函数
摘要：Uses Math floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123t 阅读全文
posted @ 2023-05-08 13:32 lucken 阅读(347) 评论(0) 推荐(0)
Delphi的TValue探索
摘要：一、TValue结构 TValue定义在System.Rtti.pas 通过调用Make(...),将任意类型数据转换为TValue通过调用ExtractRawData(...), ExtractRawDataNoCopy(...)将TValue转换为任意数据类型，两者区别是ExtractRawDa 阅读全文
posted @ 2023-05-06 16:36 lucken 阅读(437) 评论(0) 推荐(0)
泛型字典TDictionary
摘要：// 声明 bplList: TDictionary<string, Integer>; // 创建 bplList := TDictionary<string, Integer>.Create; // 往字典里增加一条 h := LoadPackage(bplName); bplList.Add( 阅读全文
posted @ 2023-05-06 15:36 lucken 阅读(118) 评论(0) 推荐(0)
cxgrid显示行号
摘要：把cxGridView里OptionsView选项中的两项修改成如下 OptionsView.Indicator = TrueOptionsView.IndicatorWidth = 40//宽度 在customDrawIndicatorCell事件中填写 procedure TForm1.cxGr 阅读全文
posted @ 2023-05-06 15:36 lucken 阅读(65) 评论(0) 推荐(0)
关于 class helper for ... 语法
摘要：class helper 可能是从 Delphi 2007 增加的新语法, Txxx = class helper for T... {T... 表示已存在的类} {可以替换已存在的方法} {也可以有新的方法、成员} end; //这之后再使用 T... 类及其子孙类时, 都会优先使用 Txxx 的 阅读全文
posted @ 2023-05-06 15:23 lucken 阅读(106) 评论(0) 推荐(0)

上一页 1 2 3 4