delphi
文章平均质量分 61
singular2611
编程人生,成就梦想
展开
-
DBChart代码实现绑定数据库
来源:http://hi.baidu.com/ma_wei/blog/item/0c8d1a12aa0431175baf53b6.html一:属性相关:Series选项:(1)Format页(数据柱的风格)在Color Each中打勾,就可使用多种颜色显示,color按钮用于设置颜色,Style用于设置图表的风格(Rectangle长方体,Pyramid三角体,转载 2015-07-15 14:15:53 · 983 阅读 · 0 评论 -
Delphi三层网络架构代码实现
Delphi三层网络架构代码实现1 .三层网络的概念三层架构(3-tier architecture) 通常意义上的三层架构就是将整个业务应用划分为:表现层(UI)、业务逻辑层(BLL)、数据访问层(DAL)。 区分层次的目的即为了“高内聚,低耦合”的思想。概念简介1、表现层(UI):通俗讲就是展现给用户的界面,即用户在使用一个系统的时候他的所见所得。2、业务逻辑层(B原创 2015-03-26 22:58:20 · 2362 阅读 · 1 评论 -
cxgrid几种条件下行变色问题与解决
cxgrid几种条件下行变色问题与解决1 .鼠标选中行变色。其实默认条件下,鼠标选中的行就会变色,但是被点中的单元格不变色,如果想让单元格和其它列一样的话,在cxGrid1DBTableView中找属性OptionsSelection中的CellSelect的属性变成False.但是默认颜色可能达不到使用者的要求,比如有粉粉控的人只喜欢粉色,想让选中的行变成粉色怎么办呢?很简单,只需要原创 2015-03-29 11:06:41 · 2771 阅读 · 0 评论 -
Cxgrid列表加一列序号
在Cxgrid中有OnGetDisplayText()事件,这个时间可以完成在Cxgrid表格中加一列序号,这列序号不会根据排序改变而改变。procedure TForm1.cxGrid1DBTableView1Column1GetDisplayText( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; va原创 2015-03-21 11:49:27 · 2554 阅读 · 0 评论 -
DBLookupCombox控件的使用的问题
DBLookupCombox控件的使用DBLookupCombox是以下拉列表形式显示数据中的一个字段的内容,使用DBLookupCombox一般会出现两个问题。1. 把DBLookupCombox控件与数据库表连接起来,发现运行时下拉表中没有数据。解决方法:把数据库控件搭建好后,把它的DataSource连接到DBLookupCombox控件的ListSource上,然后在ListField属性里原创 2015-03-24 09:50:04 · 996 阅读 · 0 评论 -
TcxShellListView添加文件
procedure TFormSystemTree.N29Click(Sender: TObject);var tmpStr: string; // 添加文件..begin if OpenDialog1.Execute() then begintmpStr := lvMain.Path + '\' + ExtractFileName(OpenDialog1.filename);原创 2015-04-02 23:05:04 · 666 阅读 · 0 评论 -
ShellListView切换PopMenu的具体操作方法
需要用到ShellListView的OnMouseDown事件,PopMenu中的OnPopup()事件。其中还有如何获得PopMenu出现的坐标代码如下:procedure TFormSystemTree.lvMainMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); va原创 2015-03-22 11:33:25 · 598 阅读 · 0 评论 -
delphi中cxgrid和数据库搭配的基本应用
在delphi中我用的数据库控件是unidac,数据库是采用sqlite数据库,让delphi开发的软件和数据库连接上,并且对数据库的表可以操作有已下控件基本够用了。uniconnection1是连接数据库的,双击打开选择使用的数据库,然后在把下面的database里面填上数据库的所在位置,就能连接上了,sqliteuniprovider1是表示sqlite服务端,用什么数据库就选什么服务原创 2015-03-18 20:54:13 · 2438 阅读 · 0 评论 -
delphi中fastreport的基本使用
本人也是刚接触fastreport这款控件,其实用起来还挺简单了制作一般的报表一定够用了,需要连接数据库的组件都拖出来,连接好数据库,然后只需要Tfrxreport和TfrxDBdataset,把TfrxDBdataset控件的datasource挂上,然后双击Tfrxreport,点击左上角菜单report,再在下拉菜单里面点data里面有个TfrxDBdataset,把它左面的框框打上勾就原创 2015-03-18 18:07:03 · 6466 阅读 · 0 评论 -
delphi的多线程实现和线程与进程的关系说明
做了个多线程的测试Demo unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Unit2;type TForm1 = class(TForm)lbl1: TLabel;btn1: TB原创 2015-04-05 11:41:30 · 1533 阅读 · 0 评论 -
Delphi中ListView中实现自定义删除功能的方法
第一种:有时删除文件会出现文件删不掉现象 if lvMain.InnerListView.ItemIndex <> -1 then begin// DoContextMenuVerb(lvMain.SelectedFolder, 'delete');DoContextMenuVerbB(lvMain.Folders[lvMain.InnerListView.ItemIndex], 'd原创 2015-04-12 21:50:47 · 1516 阅读 · 0 评论 -
delphi 中一种好用的数组定义方法以及函数嵌套的使用源代码
type TArr = array of integer;function abc(a:integer):Tarr; var tempArr:TArr; begin setlength(tempArr,2); tempArr[0] := a; tempArr[1] := a + 10; result:=tempArr;原创 2015-04-09 09:38:24 · 1269 阅读 · 0 评论 -
Delphi 中控件路径添加不进去解决方法
使用notepa++打开工程中的*.dproj文件,在里面找到类似如下的区域<DCC_UnitSearchPath>T:\BusinessSkinForm1006Source;T:\数据库访问\UniDAC4.3.8.20120624\Source;T:\数据库访问\UniDAC4.3.8.20120624\Source\UniProviders\SQLite;T:\UniDAC4.3.8.2012原创 2015-07-14 07:55:15 · 1287 阅读 · 0 评论 -
delphi 与 sqlite 参考
转自:http://www.cnblogs.com/jxsoft/archive/2012/06/02/2532273.html本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。file:1 准备工作part1 delphi版本:delphi2007 for win32 update3。任转载 2015-07-14 14:08:22 · 996 阅读 · 0 评论 -
Cport 详细解释和应用
转载:http://www.cnblogs.com/Bung/archive/2011/05/20/2051636.html通过comport获取计算机中的所有串口号:procedure TForm1.FormCreate(Sender: TObject); //获取计算机中的串口号var Cnumber:TStrings; i:Integer;begin转载 2015-06-19 21:25:19 · 4759 阅读 · 0 评论 -
Delphi 中Teechart 光标移动到series上高亮显示
Teechart 光标移动到series上高亮显示做项目用到Teechart,刚刚了解Teechart,需要完成一幅图中多条曲线,并且鼠标光标移动到哪条曲线上哪条曲线就高亮变粗。其实这个功能很简单,只要分别找到Teechart中的各个series,在series的事件中有OnMouseEnter和OnMouseLeft两个事件。分别在两个事件中对series.color进行幅值,线条变粗也是相同的道原创 2015-05-20 21:58:14 · 1760 阅读 · 0 评论 -
颜色列表 delphi中使用颜色
http://blog.csdn.net/coolhao123/article/details/14454661转载 2015-05-20 14:09:22 · 1803 阅读 · 0 评论 -
Delphi 实现右下角任务栏功能
实现软件在右下角任务栏很简单,只需要使用TTrayIcon控件,代码只要一句就可以了。 指定托盘图标, 有几种用法: 1、设计时选择; 2、把一个 TIcon 对象给它; 3、使用当前程序图标: TrayIcon1.Icon := Application.Icon; 4、TrayIcon1.SetDefaultIcon; 这也是使用当前程序图标. 一般使用这个功能都是像QQ那样,关闭QQ原创 2015-04-29 18:34:08 · 2868 阅读 · 0 评论 -
Delphi2010中采用DataSnap的三层网络架构服务器获取客户端ip,端口信息
需要的控件首先要有 TDSServerModule、 TDSServer、TDSTCPServerTransport; TDSServerClass、TDataModule;实现上述功能主要控件如下图所示 包含的单元包括 SysUtils, Classes, DSTCPServerTransport, DSHTTPCommon, DSHTTP, DSServ原创 2015-04-29 19:08:23 · 1958 阅读 · 0 评论 -
Delphi中Undac控件连接MYSQL数据库问题总结
1、数据库挂到cxgrid上,中文显示不正确我调试了好长时间,怀疑是编码问题,mysql的编码方式我都试过了,都不可以。 解决问题过程: (1)、在dos系统下进入mysql数据库输入show variables like ‘char%’; 我考虑可能是character_set_connection的编码有问题,于是开始设置它的编码方式,但是,这个编码方式重新启动数据库还是原来的编码方式原创 2015-04-29 18:22:02 · 1493 阅读 · 0 评论 -
TcxShellListView自定义打开文件夹和文件功能
这是完成自定义打开文件和文件夹功能procedure TFormSystemTree.N24Click(Sender: TObject);var SEI: TShellExecuteInfo;//对文件夹或文件操作参数结构体begin if lvMain.InnerListView.Selected <> nil then beginif lvMain.Folders[lvMain原创 2015-04-01 23:20:46 · 1219 阅读 · 0 评论 -
delphi中使用sqlite数据库出现database is locked问题
本人之前编写的资产管理系统,编译时没有问题,但过了一段时间重新运行提示database is locked ,造成这种问题有很多中可能,大多部分是数据库正在处理数据时,又有其他的操作对数据库操作解决方法:这种问题首先把所有的连接数据库的表全部取消激活(Active)然后一个一个表激活,每激活一个表时就在数据库中运行一个数据库数据更改语句,如果没有弹出database is locked 那么继原创 2015-03-18 17:40:23 · 2416 阅读 · 0 评论 -
TThread学习wParam和lParam
TThread类 Thread类是Delphi语言提供的线程类,该线程类可以完成大多数的线程操作TThread类的属性 1.(1)FreeOnTerminate属性 当线程终止时是否自动删除线程对象.默认值为True; 语法:property FreeOnTerminate: Boolean; 2 Priority属性 指定线程的优先级.转载 2014-11-18 10:45:20 · 522 阅读 · 0 评论 -
delphi cxgrid 的用法和问题
对对对原创 2014-10-14 21:00:33 · 1193 阅读 · 0 评论 -
delphi调用dll
第一章为什么要使用动态链接库(DLL) top 提起DLL您一定不会陌生,在Windows中有着大量的以DLL为后缀的文件,它们是保证Windows正常运行和维护升级的重要保证。(举个例子,笔者的Win95 System目录下尽有500多个DLL文件。)其实,DLL是一种特殊的可执行文件。说它特殊主要是因为一般它都不能直接运行,需要宿主程序比如*.EXE程序或其他DLL的动态调用才能够使用转载 2014-10-28 15:24:19 · 623 阅读 · 0 评论 -
telnet相关操作与问题
procedure TDMSetWake.tl1Connected(Sender: TObject; StatusCode: Integer; const Description: string);begin if 0 begin FormMain.lblTelnetLinkStatus.Caption := ('Telnet连接失败: ' + Des原创 2014-10-28 14:57:40 · 478 阅读 · 0 评论 -
delphi编写与调用DLL(delphi7下测试通过)
delphi调用dll 第一章为什么要使用动态链接库(DLL) top 提起DLL您一定不会陌生,在Windows中有着大量的以DLL为后缀的文件,它们是保证Windows正常运行和维护升级的重要保证。(举个例子,笔者的Win95 System目录下尽有500多个DLL文件。)其实,DLL是一种特殊的可执行文件。说它特殊主要是因为一般它都不能直接运行,需要宿主程序比如*.EXE转载 2014-10-28 15:20:08 · 1665 阅读 · 0 评论 -
delphi功能键
1、1bit 就是1位二进制数. 1Byte就是1个字节.1个字节是由8个二进制位组成的.原创 2014-10-27 19:41:48 · 351 阅读 · 0 评论 -
DELPHI如何使用指针
大家都认为,C语言之所以强大,以及其自由性,很大部分体现在其灵活的指针运用上。因此,说指针是C语言的灵魂,一点都不为过。同时,这种说法也让很多人产生误解,似乎只有C语言的指针才能算指针。Basic不支持指针,在此不论。其实,Pascal语言本身也是支持指针的。从最初的Pascal发展至今的Object Pascal,可以说在指针运用上,丝毫不会逊色于C语言的指针。 以下内容分为八部转载 2014-10-17 14:49:54 · 410 阅读 · 0 评论 -
delphi中写配置文件程序
unit UnitConfig; interfaceuses Classes;type{ TVConfig TVConfig =class(TObject) private AppExeDir: String; Fpbxuser: string; protected public propertypbxu原创 2014-10-27 20:58:44 · 750 阅读 · 0 评论 -
解决打开delphi时delphi无响应问题
在注册表里找到HKEY_CURRENT_USERSoftwarecodegearBDS7.0Known IDE Packages删除右边的数据项: ($BDS)Binstartpageide140.bpl原创 2015-01-29 14:25:51 · 826 阅读 · 0 评论 -
delphi中对数据库操作的问题与解决
1.本人用sqlite数据库时删除数据库中时,删除失败,但不报错,解决方法是将数据库中的缺省属性(default)修改成''两个单引号2在使用delphi中query控件时,对数据库操作时报语法错误!但是实际上根本没有语法错误举例如下:with query1 dobeginsql.add('delete from tb_room where id=8');excute;en原创 2015-03-16 13:45:51 · 786 阅读 · 0 评论 -
delphi中WinExec的使用
delphi中WinExec的使用WinExec((PAnsiChar(FExecFileName + ' "' + adress + '"')), SW_SHOWNORMAL);WinExec();函数是执行dos命令符操作用的,用这个函数需要注意命令参数如果有空格需要加双引号,里面的字符串应该用PAnsiChar格式。原创 2015-03-20 10:44:14 · 5993 阅读 · 0 评论 -
数据库相对路径写法,及使用
在使用数据库时,因为相对路径的原因,每次运行软件时数据库都是刚刚连接上,所以数据库中的表和控件中的table,或者query还未激活,这时需要动态打开这些表。如下 conWake.Database := ExtractFilePath(Application.ExeName) + 'wake.db3'; conWake.Connect; Self.tb_Users.Ope原创 2015-03-18 22:55:49 · 2915 阅读 · 0 评论 -
delphi中传参数才能运行的软件编写(ParamStr)
delphi中传参数才能运行的软件编写(ParamStr)ParamStr 表示的是启动应用程序时传给其的参数,比如在windows的dos系统下你想用命令符操作notepad.exe打开1.txt需要输入下面命令:c:\windows\system32\notepad.exe c:\1.txt c:\1.txt就是给notepad.exe传的参数。ParamStr(0) 代表应用原创 2015-03-19 14:48:48 · 1614 阅读 · 0 评论 -
永久解决delphi 2010不能2次启动问题
由于在Windows安装了最近的更新(KB2982791, KB2970228)后,Delphi的IDE需要创建的一个文件%TEMP%\EditorLineEnds.ttr会被系统锁定,导致除非重新启动操作系统,否则Delphi 8~2010无法启动两次。如果你使用了IDEFixPack 2.7以上版本,则不会受到这个问题的影响。IDEFixPack会阻止IDE调用AddFontRes原创 2015-03-04 17:32:31 · 2058 阅读 · 0 评论 -
有关使用des加密解密问题
为什么写的des加密解密软件,在本地加密的文件可以正确解密,而通过QQ传送的加密字符串解不出来?答:因为delphi中有自己的编码和转码方式,在本地加密的文本delphi软件可以自行转码,而网上的加密字符串大多为unicode码。解决:将加密的文本按照一个个字符装入内存空间原创 2015-03-17 14:57:56 · 328 阅读 · 0 评论 -
DevExpress VCL的多语言支持文件
用法1:在工程中加入控件cxLocalizer; 在程序中加入如下语句:Localizer.LoadFromFile(语言文件.ini);Localizer.Language := '中文(简体,中国)';Localizer.Active := true;用法2:用DevExpress提供的工具cxLocalizerEditor打开这个ini文件,然后File->Build Resource原创 2015-03-20 14:05:29 · 1591 阅读 · 0 评论 -
创建世界唯一标识符GUID,在cxgrid单元格中关键字显示不同颜色
创建GUIDfunction WGetGUID(): string;var Uid: TGuid; rs: HResult;begin rs := CreateGuid(Uid); if rs = S_OK then beginresult := GuidToString(Uid) end elseresult := '';end;Cxgrid单元格关键字变色原创 2015-03-20 12:30:48 · 696 阅读 · 0 评论 -
Delphi中配置文件的架构
unit UnitConfig;interfaceuses Classes;type { TVConfig } TVConfig = class(TObject) privateAppExeDir: String;tree: AnsiString; protected public property ptree: AnsiString read tree write tre原创 2015-03-20 11:14:46 · 627 阅读 · 0 评论