- 博客(7)
- 收藏
- 关注
原创 Delphi函数 处理字符串《确保字符串分号;的位置和数量符合规则》--笔记
实现效果每个项目后只跟定一个分号,传入 ;abc;123;jkl; 返回 abc;123;jkl; //消除了,字符串第一位为分号的问题传入 abc;;;123;;;jkl; 返回 abc;123;jkl; //消除了,字符串中项目之后跟了多余的分号;传入 abc;;;123;;;jkl 返回 abc;123;jkl; //在字符串最后的项目
2017-03-04 12:43:37
531
转载 Delphi中ClientDataSet的用法
Delphi中ClientDataSet的用法小结 TClientDataSet控件继承自TDataSet,其数据存储文件格式扩展名为 .cds,是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能,而本身并不依赖上述几种数据库驱动程序,基本上能满足单机"瘦"数据库应用程序的需要。 一、TClientDataSet的基本属性和方法介绍 1
2017-02-24 14:41:08
711
原创 Delphi SQL语句中 数值型(Integer) 的引号使用---个人笔记
数据库中2个表 TableA , TableB,TableA中字段 TypeID 为数值型(Integer)TableB中字段ID为数值型(Integer),TypeName为字符型(string),TypeID和ID中的值相, 知道TypeID,得到TypeName with adoquery1 do begin clsoe; sql.lear sq
2016-08-03 17:25:14
1653
原创 Delphi 拦截/封锁 点击窗体右上角 最小化 最大化 层叠 关闭 按钮
type TFormManage = class(TForm) sbtn1: TSpeedButton; procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender
2016-07-28 17:12:07
2243
2
转载 Delphi 常用API函数 存档
Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput 连接线程输入函数 BeginDeferWindowPos 启动构建一系列新窗口位置的
2016-07-28 16:35:24
467
原创 Delphi 一种简单的二进制校验方法,适用于简单的权限管理或开关控制
var keyword:Word;//校验变量procedure TFormMain.FormShow(Sender: TObject);beginkeyword:=0;// 0000 0000 0000 0000 初始化校验变量为0end;procedure TFormMain.btn1Click(Sender: TObject);//点击button1
2016-07-27 17:55:40
345
原创 delphi vclskin与MDI子窗体冲突--美化mainmenu与子窗体BorderIcons冲突
Delphi vclskin控件使MDI子窗体中BorderIcons无效【系统环境】Windows XP Delphi7 【控件属性】VCLSkin 4.11.07.25【说明】使用VClSkin后,在MDI子窗体中设置 BorderIcons:=[]; ( 即 窗体右上角 最大化、最小化、关闭 按钮 为空) 无效!VClSkin中默认属性 xcMai
2016-07-27 17:31:46
825
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人