- 博客(7)
- 收藏
- 关注
RSS订阅原创 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
566
转载 Delphi中ClientDataSet的用法
Delphi中ClientDataSet的用法小结 TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。 一、TClientDataSet的基本属性和方法介绍 1
2017-02-24 14:41:08
776
原创 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
1707
原创 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
2476
转载 Delphi 常用API函数 存档
Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput 连接线程输入函数 BeginDeferWindowPos 启动构建一系列新窗口位置的
2016-07-28 16:35:24
492
原创 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
363
原创 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
852
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人