- 博客(22)
- 资源 (61)
- 收藏
- 关注
原创 CxGrid 修改去除 no data to display 的两个方法
CxGrid在没有记录时会显示no data to display字样,如果想去除或修改方法一、 在TcxGridDBTableView ==>optionsview==>nodatatodisplayinfo属性里去除或修改方法二、查找cxGridStrs.pas单元,我的是win7 在这个目录中有这个文件C:\Users\chen\Documents\DevExpress VCL\
2017-05-25 17:22:27 4030
原创 数据集和JSON相互转换
使用DELPHI原生类实现数据集和JSON相互转换JSON二要素:数组和对象。对象可以包含数组,数组可以包含对象。无层数限制。OLEVARIANT也类似,OLEVARIANT的一个元素又可以是OLEVARIANT,且无层数限制。XML亦类似。这也是它们能序列一切对象的奥秒所在。JSON就是字符串,定义好序列后的字符串格式,甚至都不需要啥JSON类库,就可以自行组装JSON字符串和解析JSO
2017-05-24 14:12:26 3584
原创 Delphi 函数Shl与Shr
在Delphi中,有两个这样的函数:Shl与Shr;分别用来作按位左移和按位右移运算。格式:操作数 Shl/Shr 移动位数说明:操作数与返回值都是整数 例子:16(10) = 10000(2) 16(10) Shr 1 = 10000(2) Shr 1 = 1000(2) = 8(10) 16(10) Shr 2 = 10000(2) Shr 2 = 10
2017-05-24 11:46:14 4069
原创 如何在cxgrid用ADOQuery DataSource 显示数据
1:cxgridDBTableView的Datacontroller.datasource有没有指到datasource,datasource有没有连到ADOQuery1 2:cxgridDBTableView的columns有没有加对,每个columns对应的列名有没有指正确.
2017-05-24 10:44:20 2340
原创 delphi中Record 和Packed Record的区别
1、Record不带packed: 结构体表明编译器编译时要求进行字对齐,占用内存大,但是速度快一点 2、Record带packed: 结构体表明编译器编译该结构体时不需要进行字对齐,占用内存小,但是速度慢一点
2017-05-24 09:35:26 1114
原创 delphi连接access数据库的步骤(简介)
一、放置adoconnection控件 (ADO组件板中)1、设置name属性 :简单来说就是该控件的名字 为以后在代码中调用他用的 ,也可以不更改。2、connectionstring属性:是设置连接字符串的,连接什么数据库都要用到。如果连接的是access数据库,连接方法如下:(1)单击connectionstring属性后面的省略号,出现如下图所示的对话框。(
2017-05-23 15:24:27 4441
原创 delphi连接access数据库的步骤(详细教程)
前几天,有个网友刚开始学Delphi,想学一下Delphi连Access数据库,可是怎么都连不成功,我就答应给他做个图文教程,现在闲下来了,就来做一个教程。首先我们来确认一下所用到的环境Delphi7,然后就是Access2003。作为一个初学者,为了简化你的操作,我们将用.udl文件。首先介绍一下.udl文件,更详细找度娘。它是微软提供的一种数据库连接文件,你只要指定文件的位置,它会自动生成数据
2017-05-23 15:16:15 17135
原创 delphi LPT1端口打印与开钱箱
{设置打印机}Assignfile(RPrinter,'LPT1');{准备写文件}Rewrite(RPrinter);{向后倒纸}//Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40)); {打印}Writeln(RPrinter,'测试:****'+(Edit1.text));{向前进纸}Wr
2017-05-23 14:47:04 2539
原创 将身份证中取出的生日赋值到TcxDateEdit空间上
1、先用copy取出身份证中的生日,然后拼接为一个字符串,如下; cxDateEdit1.Date := StrToDate('2017-05-22'); 这样就可以了!
2017-05-22 16:55:32 803
原创 Delphi手动创建控件及拥有者和控制者的说明解析
var Fbutton2:Tbutton;//手动添加的两个button对象 Fbutton3:Tbutton;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin Fbutton2 := Tbutton.Create(form1); //创建对象
2017-05-22 15:02:36 866
原创 Delphi 的 Toolbar 的添加图片说明
这是个很早就有的组件,在Windows 界面风格上有相关应用,用它可以方便的构成菜单。在Toolbar内可以显示图片和文字,图片的放置方式需要images与一个imageList组件想关联。其中有几个概念:imageList 图片如何控制大小? 其实imageList中的图片是可以整体控制大小的,默认是height×weight = 16×16 改成想要的尺寸就可以了imageLi
2017-05-19 17:50:16 2909
原创 关于打开数据库时提示"对象打开时,不允许操作",问题分析及解决办法
问题的原因可能: 1、在其他地方已经打开这里没有用close先进行关闭在open 2、如果你的程序是多线程的活,虽然也写了close但是还会报错。 原因是当你这个线程到sql语句时程序跳到下一个线程执行了open,又回来执行前一个线程的open,就会报同样的错误 解决办法: 1、单线程就将close在sql语句之前,先关闭再打开 2、多线程时尽量不要使用同一
2017-05-19 09:28:43 12314
原创 关于Delphi使用Rewrite()报Invalid FileName错的问题
报错的原因: 你可理解错了Rewrite()真正的用法,它会创建不存在的文件但不包括文件夹当你想试图用这个方法创建一个新文件夹下的文件时就会报这个错误解决办法:先判断文件夹是否存在,不存在先创建文件夹,然后用这个方法创建文件这样就可以了var FlogfilePath: string; Fmylog: TextFile; FsysDir: string;
2017-05-18 17:47:51 2477
原创 第一个小项目完成总结(sql数据库自动备份工具)
《本文仅自己作为总结使用》功能: 1、任意选择数据库实例的数据库进行备份 2、可以对单个或多个数据库进行备份 3、可以设置6个自动备份时间(到点进行备份) 4、可以删除规定时间内的备份以及日志文件 5、FTP文件的上传和下载 6、自动发送备份文件到邮箱 7、可以作为服务启动也可以开机自启动用到的技术: 1、sql数据库备份技术 2、
2017-05-17 15:21:08 790
原创 Delphi实现防止程序多次运行
//将此代码写入工程文件 var hmutex: hwnd; Ret: Integer;begin hmutex := CreateMutex(nil, False, 'MpSQL_Backup'); //更成文件名 Ret := GetlastError(); if Ret <> ERROR_ALREADY_EXISTS then begin Applicati
2017-05-17 14:34:53 1131
原创 Delphi中string数据类型的特殊用法(获取string字符串的单个字符)
var Fs:string;//声明一个字符串类型begin Fs := 'zisong';//字符串变量赋值 showmessage(Fs[1]+‘ ’+Fs[2]+‘ ’+Fs[3]+‘ ’+Fs[4]+‘ ’+Fs[5]+‘ ’+Fs[6]);end输出的结果应该是:z i s o n g
2017-05-17 14:09:50 3227
转载 delphi Inc函数和Dec函数的用法
[delphi] view plain copy print?inc自增函数 1.inc(i,n);//i,n:integer;n为自增量 相当于i:=i+n; 2.inc(i);//i:integer; 相当于i:=i+1; dec自减函数 1.dec(i,n);//i,n:integer;n为自减量 相当于i:
2017-05-17 11:52:44 4362
转载 怎么在自己电脑上搭建一个服务器,以便于外网访问呢?
前几天我要测试一个项目,这个是需要往服务器上放才可以测的,但后台太忙了,所以就说让我自己在自己电脑搭建个服务器,把项目代码放在里面测就可以,其实搭建服务器的方法有很多,之前我有用过一个XMAPP的软件它也是可以作为服务器承载代码,以供别人访问,不过我觉得比较流行的还是Tomcat服务器;其实我们偶尔也会写一下网页,javaweb程序,为了逼近现实,我们的项目发布后,都希望我们的项目能让更多的人
2017-05-17 09:48:57 54624 3
转载 DELPHI编写服务程序总结
DELPHI编写服务程序总结一、服务程序和桌面程序的区别Windows 2000/XP/2003等支持一种叫做“系统服务程序”的进程,系统服务和桌面程序的区别是:系统服务不用登陆系统即可运行;系统服务是运行在System Idle Process/System/smss/winlogon/services下的,而桌面程序是运行在Explorer下的;系统服务拥有更高的权限,系统服务拥有
2017-05-17 09:15:42 4189 1
转载 Delphi 设置或者检查应用程序自动启动功能
1、// 调用此函数查找注册表中是否有指定的值,真:自动启动; 假:未自动启动 function TfrmMain.GetAutoRunValue: Boolean;var Reg: TRegistry;begin Reg := TRegistry.Create; //创建一个新键 try Reg.RootKey := HKEY_LOCAL_MACHIN
2017-05-11 22:47:04 681
转载 delphi 判断端口(Port)是否被占用
判断端口(Port)是否被占用 在使用Socks编程时,有时需要判断某个端口是否被占用,也就是是否被其它程序使用。uses Winsock;function IsPortUsed(const aPort: Integer): Boolean;var _vSock : TSocket;_vWSAData : TWSAData;_vAddrIn : TSockAdd
2017-05-05 18:10:55 3186
转载 Delphi中Inputbox 和Inputquery 函数的使用
inputbox的返回值是,你在输入框中输入的文字。而inputquery的返回值是,你是否点击了确定按钮。它的返回值是布尔型的。如果你在inputbox中一样也不输入,就点击取消的话,就会提示出错,而inputquery就不会。它们前面的两个参数都是一样的,分别是输入框的标题,和提示信息。例:if inputbox('加法题','7+5','')='12' then showmes
2017-05-02 10:13:59 1114
FInalbuilder使用说明
2017-02-16
Desktop.zip
2019-12-17
一键解决sql server2000评估出错及服务启动不起来问题
2017-11-15
Delphi网络通信协议分析与应用实现
2017-10-19
SQL Prompt
2017-10-11
delphi 的ehlib 4.5
2017-09-02
Delphi的Ehlib3.2第三方控件
2017-09-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人