三樱椒-CSDN博客

原创 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 510

转载 Delphi中ClientDataSet的用法

Delphi中ClientDataSet的用法小结 TClientDataSet控件继承自TDataSet，其数据存储文件格式扩展名为 .cds，是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能，而本身并不依赖上述几种数据库驱动程序，基本上能满足单机"瘦"数据库应用程序的需要。一、TClientDataSet的基本属性和方法介绍 1

2017-02-24 14:41:08 676

原创 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 1595

原创 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 2188 2

转载 Delphi 常用API函数存档

Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows 排列一个父窗口的最小化子窗口 AttachThreadInput 连接线程输入函数 BeginDeferWindowPos 启动构建一系列新窗口位置的

2016-07-28 16:35:24 433

原创 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 321

原创 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 804 1

uhjiok123的博客--- 菜鸟级人员