- 博客(59)
- 资源 (459)
- 收藏
- 关注
转载 delphi Inc函数和Dec函数的用法
inc有两种用法:一个是inc(integer),就是加1比如i := 100;inc(i);就是i变为101另一个是inc(integer,integer)就是加n比如i:=100;inc(i,50);就是i变成150---------------------------------Dec是递减函数i:=100;dec(i);i就变成99了,如果是de
2013-12-31 21:21:46 6251
转载 Delphi XE4中Or, In, CharInSet,哪个更快?
在Delphi XE4中测试用Or,In,CharInSet三种方式,实现判断一个字符是否在一个字符数组中。作者提供了代码:procedure TForm7.FormCreate(Sender: TObject);const Max = 200000000;var S : AnsiString; PBuffer : PByte; Coun
2013-12-31 17:11:21 2453
转载 Delphi 快捷键
分类快捷键解释备注组件设计类Escape选择当前组件容器 Shift + Click选择多个组件;选择窗体 Tab选择下一个组件 Shift + Tab选择上一个组件 方向键选择此方向的下一个组件
2013-12-31 17:00:48 644
转载 delphi中in的使用
问题: 在Delphi中,如何将集合数据类型中的某元素取出来?如set1:=[1,2,3,4,5,6]中的第三项3取出放入一变量中。 Delphi的集合不同于数组或者List或者VB的Collection,它的元素是没有顺序,所以不存在某个集合中的第3项的说法。你只能用in判断某个元素是否在Delphi的集合中。如 if 3 in set1 then ... else ... 例如
2013-12-31 16:24:29 11229
转载 Delphi - 数组 详解
首先我们要知道什么是数组?数组是一堆相同特性数据的一个集合,也就是每个元素的类型必须是一样的,当然在其他一些弱语法的语言里面,数组的元素可以千奇百怪. 例子:123456Var A:Array[0..2 ]Of Integer ;Begin A[0 ] :
2013-12-31 16:19:22 5570
转载 delphi for xx in xx do 语法的使用示例
uses IOUtils, Vcl.Styles, vcl.Themes; procedure TForm1.FormCreate(Sender: TObject); var dir, fileName, styleName: string; begin //VCL 的样式文件 *.vsf //在 X:\Program Files\Embarcadero\RAD Studio\9
2013-12-31 16:11:30 3261
转载 Delphi中TStringList类常用属性方法详解
//TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换}
2013-12-30 12:27:35 1715
转载 Delphi总结使用TStrings的一些技巧
先把要讨论的几个属性列出来:1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex 先看第一个:CommaText。怎么用呢?用代码说话:const constr :String = 'aaa,bbb,ccc,ddd';var strs :TStrings; i :Integer;be
2013-12-30 12:25:59 9245
转载 Delphi的时间与字符串函数代码示例
SysUtils.StrToDate();SysUtils.StrToDateDef();SysUtils.TryStrToDate();SysUtils.StrToTime();SysUtils.StrToTimeDef();SysUtils.TryStrToTime();SysUtils.StrToDateTime();SysUtils.StrToDateTimeDef();
2013-12-30 12:10:59 2430
转载 Delphi ADO数据操作封装类
{ 将数据集操作方面的东西全部封装成一个单独的类 TcustomAdoDataSet是TadoQuery、TadoTable、TadoDataSet、TadoCommand的公共祖先类 应尽量使用TadoDataSet和TadoCommand类}unit untOpeDataSet;interfaceuses SysUtils, db, adodb,
2013-12-30 12:06:06 2780
转载 delphi假死线程堵塞解决办法
Delphi的高效不多说... 俗话说;真正的程序员用C语言,聪明的程序员用Delphi,一点都不假,和C++比它比C++更简单,更容易上手,功能丝毫不逊色C++,比起VB,毫无疑问比VB好多了,重要的是快,高效! 高效的Pascal编译器,强大的数据库支持==....Delphi在进行计算量相当大的时候会出现程序假死,在线程编程的时候会出现线程堵塞,更重要的是在线程编程时可以大大加快
2013-12-30 09:54:14 5605
转载 Delphi回车键切换焦点
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;type TForm1 = class(TForm) Panel1: TPanel; Label1: T
2013-12-29 22:32:16 2758
转载 Delphi数学常用操作函数二
1. Incprocedure Inc(var X [ ; N: Longint ] );:整数自加N。其中,X为变量;N为要增加的长度。例如:[delphi] view plaincopyD1 := 1; Inc(D1); //结果为2 Inc(D1,2); //D1= D1 +2 结果为3 2. Odd
2013-12-27 22:20:02 1219
转载 Delphi数学常用操作函数一
1.Absfunction Abs(X);:返回指定数值的绝对值。例如:[delphi] view plaincopyAbs(-15); //结果为15 2. Ceil、FloorCeilfunction Ceil(const X: Extended):Integer;:按正无穷大方向四舍五入一个变量
2013-12-27 22:19:16 841
转载 Delphi字符串操作的常用函数四
1. AnsiStrLower、AnsiStrUpperAnsiStrLowerfunction AnsiStrLower(Str: PChar): PChar;:将空终止字符串中的所有字符转换为小写字符。[delphi] view plaincopyAnsiStrLower('ABCDEF'); //结果为abcdef
2013-12-27 22:17:33 1264
转载 Delphi字符串操作的常用函数三
1.strprocedure Str(X [: Width [: Decimals ]]; var S);:格式化一个字符串,并将结果返回给一个变量。With表示该参数设置转换后的字符串宽度;Decimal用于设置小数位数;S用于存储转换后的字符串。在实际使用中,可以用str来替换IntToStr。[delphi] view plaincopy
2013-12-27 22:16:54 867
转载 Delphi字符串操作的常用函数二
1.LeftStr(返回从字符串首开始指定长度的子字符串)function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;function LeftStr(const AText: WideString; const ACount: Integer): WideString;
2013-12-27 22:16:24 1480
转载 Delphi字符串操作的常用函数一
1.UpperCasefunction UpperCase(const S: string): string;:将字符串转换为大写,其返回的string类型[delphi] view plaincopy{按回车时字符串变成大写} procedure TForm1.v_EditChrKeyPress(Sender: TObject; va
2013-12-27 22:14:59 742
转载 Delphi常用随机函数
1. Randomfunction Random [ ( Range: Integer) ];:产生一个0[delphi] view plaincopyRandom(10); //随机产生一个大于等于0小于10的数 使用Random之前,要先用Randomize过程或RandSeed函数来初始化随机数产生器。
2013-12-27 22:13:06 1490
转载 Delphi7文件操作常用函数二
1.ForceDirectories、GetCurrentDir、GetDir、SetCurrentDirForceDirectoriesfunction ForceDirectories(Dir: string): Boolean;:在指定的目录中创建一个目录。其中参数Dir为创建目录的全名,必须包括上级目录。如创建成功则返回true;否则返回false。[del
2013-12-27 22:12:16 755
转载 Delphi7文件操作常用函数一
1. AssignFile、EraseAssignFileprocedure AssignFile(var F; FileName: string);:给文件变量连接一个外部文件名。这里需要注意的是AssignFile不能用在已打开的文件上。[delphi] view plaincopyprocedure TForm1.Button1
2013-12-27 22:10:54 1714
原创 Delphi检查IP地址的合法性
{------------------------------------------------------------------------------- 作者: 曾聪 日期: 2013.12.27 过程名: GetSubStrCount 功能: 获得子字符串在父字符串中出现的次数 参数: sSubStr, sParentStr
2013-12-27 20:47:14 3269 1
转载 exp 时遇到密码有特殊字符(!@#)解决方法
今天exp数据库时,遇到密码有特殊字符情况(!@#)之前没遇到过,oracle不能正确识别net服务名,尝试很多办法,现在总结一下: 1、在windows系统解决办法 exp 用户名/“““密码”””@net服务名 file=mahanso.dmp log=mahanso.log 注:其中:“““密码”””,3对双引
2013-12-26 12:54:29 11116
转载 Oracle不同版本间用exp进行导数据时的问题
关于Oracle不同的版本间用exp进行导数据时的一些问题。 公司内的一个项目系统的数据库从Oracle 8i 升级到 9i 机器t1 安装 Oracle 8.16 机器t2 安装 Oracle 8.17 机器t3 安装 Oracle 9i 现在为了将t1数据库中的某一个用户的数据导入到t3的9i中去, 在t3机器执行: E:
2013-12-24 12:39:20 1811
转载 Raize Components
Raizer是一个超过120个通用VCL组件的用户界面开发包,用在Delphi和C++Builder 开发环境中。革新的特征如自定义框架和先进的带有预览技术的设计编辑器给开发者带来方便。开发者用只要很少的时间和工作量就能开发出久经考验的用户界面。 组件组织Raize Components中的组件被分组到以下7个组件板上。Raize Pa
2013-12-23 23:59:21 3542
转载 Delphi RzDateTimePicker
RzDateTimePicker 在单元说明中显示:Deprecated. This component has been replaced by the TRzDateTimeEdit那么就是用RzDateTimeEdit好了, 但它是英文界面的, 需要设置一下:对于显示事件的,首先设置好几个按钮的标题,如果不设是默认的英文。有空的话还可以设置Hint信息的内容。 然
2013-12-23 23:54:51 2863
转载 Delphi Raize的日期控件RzDateTimeEdit星期几不能正确显示的问题
Raize的日期控件RzDateTimeEdit星期几不能正确显示,星期日至六都只显示一个“星”字? 在Rzpopups.pas 单元 找到 看看有没有这段 if SysLocale.DefaultLCID S2 := Copy( S, 1, 2 )
2013-12-23 23:42:51 2417
转载 Delphi前缀命名规范
Standard页mm TMainMenupm TPopupMenummi TMainMenuItempmi TPopupMenuItemlbl TLabeledt TEditmem TMemobtn TButtoncb TCheckBoxrb
2013-12-23 22:56:04 1903
原创 EXCEL冻结窗口只想冻结前两行
如果要冻结几行或者几列,一起。选择某一个单元格就可以冻结它上侧和左侧的单元格拉。实例:如果只想冻结前两行,列不冻结,仅需要选中A3单元格,点击冻结即可
2013-12-23 09:53:15 6969
原创 关闭Delphi XE5欢迎页面
点击开始->运行->键入:Regedit->确定找到HKEY_CURRENT_USER\Software\Embarcadero\BDS\12.0\Known IDE Packages在右侧找到$(BDS)\Bin\startpageide190.bpl双击它,修改它的值:Start Page IDE Package为_Start Page IDE Package点
2013-12-22 23:57:41 1834
原创 AlphaControls的汉化
AlphaControls1、在的安装包找到Res文件夹例如:E:\Embarcadero\RAD Studio\12.0\Components\AlphaControls\acnt_regdelphixe5\Res2、找到对应的语言包,例如:SimplifiedChinese打开简体中文包,找到sStrings.res3、把资源文件加入工程Project1
2013-12-22 18:31:21 1554
转载 ComboBox实现显示文本与值不同的方法
在html的select下拉框标签里,option选项可以单独设置一个值,可以和显示的文本不同,但在delphi中,下拉框组件ComboBox却无法直接像它一样,赋予一个单独的值,但是我们可以通过其他方法来实现,我们先来试试比较偏门的方法。1.通过两个ComboBox组件来实现演示图:[delphi] view plaincopyprint?
2013-12-21 17:43:13 8455
转载 TComboBox组件
TComboBox组件的重要属性CharCase--------此属性用于设置编辑框内文字的大小写DropDownCount---此属性用于设置当用户下拉组合框时不需要加滚动条就能显示的项的个数DroppedDown-----如组合框当前被下拉,此属性返回TrueItemHeight------此属性用于设置项的高度ItemIndex-------此属性返回组合框中被选
2013-12-21 16:27:43 977
原创 Component和Control区别
很多时候会将一个Panel1放在Form1上,然后再将一个Button1放在Panel1上,这样的话,这个Button1的Owner就是Form1而Parent则是Panel1。 所有的Delphi的Component都有Owner 属性,Owner属性表示这个Component的所有者是谁,比如上面的例子,Button1的所有者(Owner )就是Form1,当Form
2013-12-20 10:03:53 2108
转载 Delphi中避免使用ClassName判断对象的类型
在公司原有系统的代码中,我看到了很多判别对象的ClassName属性进行分别处理的代码。而且似乎已经是处理类似问题的标准方法。但是其中可能会隐含一些问题。首先,我们知道多态是面向对象的三大特性之一。所谓多态,其思想就是,对于不同的具体类型,我们可以通过相同的抽象接口进行访问,而不必关系具体类型的实现细节。就像下达通知:所有员工明天9点在人民广场集合。并不需要具体通知每个住在不同位置的人
2013-12-19 01:16:41 2927
转载 在Delphi中巧改窗体文件实现控件数组
delphi 开发的应用中,每一个窗体都有一个对应的窗体文件(.dfm),用来记录该窗体的属性以及窗体上所有控件的属性,以便在窗体关闭后能准确地重新生成窗体。几乎所有的DELPHI参考书都没有提到过该文件的具体情况,偶尔提到,也都泛泛而谈,因为窗体文件是二进制文件,只有在DELPHI提供的编辑环境中才能看到它的本来面目,对其进行操作可能会出现不可预知的错误;而且在大多数情况下,确实没有修改的必要。
2013-12-18 23:42:08 953
原创 cxRadioButton不显示焦点矩形虚线框
在cxRadioGroup.pas文件中找到 procedure(存储过程)TcxRadioButton.DrawCaption,将ACanvas.Canvas.DrawFocusRect(R)注释掉就可以了。procedure TcxRadioButton.DrawCaption(ACanvas: TcxCanvas; ANativeStyle: Boolean); funct
2013-12-18 16:43:34 1721
原创 cxCheckBox不显示焦点矩形虚线框
在cxCheckBox.pas文件中找到 procedure(存储过程)CalculateCustomCheckBoxViewInfo,将FocusRect属性修改为cxEmptyRectprocedure CalculateCustomCheckBoxViewInfo(AViewData: TcxCustomCheckBoxViewData; AViewInfo: TcxCu
2013-12-18 16:31:38 1774
按照制定时间运行程序(RunAsDate) 1.3 绿色汉化版
2016-12-15
sql-optimizer-for-sql-server_1001官方试用版+安装手册+使用教程
2016-12-15
AlphaControls v11.22 Stable released(D5&XE10.1) (x86&x64) DCUs.rar
2016-12-15
AlphaControls v11.21 Stable (D5~D10.1) (x86&x64) DCUs
2016-12-15
EhLib 9.0 Build 9.0.033 Full Source〖含源码和DEMO〗
2016-12-15
SQLPrompt_7.3.0.775〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2016-12-14
AlphaControls v11.15 Stable (D5~D10.1) (x86&x64) DCUs
2016-09-18
SQLPrompt_7.3.0.513〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2016-09-18
SQLPrompt_7.2.1.267〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2016-05-14
AlphaControls v11.00 Stable (D5~D10.1) (x86&x64) DCUs
2016-05-14
AlphaControls v10.29 Stable (D5~D10.1) (x86&x64) DCUs
2016-05-14
AlphaControls v10.28 Stable (D5~D10) (x86&x64) DCUs
2016-05-14
AlphaControls v10.27 Stable (D5~D10) (x86&x64) DCUs
2016-03-22
AlphaControls v10.26 Stable (D5~D10) (x86&x64) DCUs
2016-03-22
UniDac 6.2.10〖XE10〗 全dcu版本,小白勿下
2016-03-08
AlphaControls v10.25 Stable (D5~D10) (x86&x64) DCUs
2016-02-13
SQLPrompt_7.1.0.306〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2016-02-12
AlphaControls v10.24 Stable (D5~D10) (x86&x64) DCUs
2016-02-04
Devexpress VCL V15.2.3帮助文档〖CHM格式〗
2016-02-03
DxAutoInstaller-2.1.5For Devexpress VCL(DevExpressVCL15.2.2)
2016-02-02
UniDac 8.0.1〖D7,2007,10.1,10.2,10.3〗一键安装版已XX版
2019-09-10
DevExpress VCL V19.1.2 FullSource〖D7~D10.3Rio〗内含安装工具
2019-09-08
DevExpress VCL V18.2.5 FullSource〖D7~D10.3Rio〗内含安装工具
2019-07-18
DevExpress VCL V18.2.8 FullSource〖D7~D10.3Rio〗内含安装工具
2019-07-18
DxAutoInstaller 2.2.rar
2019-07-18
DevExpress VCL V18.2.1 〖D7~D10.3rio〗含安装工具
2019-07-18
Project导出EXCEL表工具(插件)
2018-08-27
Project 2013中文版项目管理 从新手到高手
2018-08-14
AlphaControls v13.04 Beta released(D5&XE10;.2) (x86&x64;) DCUs
2018-03-27
AlphaControls v13.03 Beta released(D5&XE10;.2) (x86&x64;) DCUs
2018-03-22
AlphaControls v13.02 Beta released(D5&XE10;.2) (x86&x64;) DCUs
2018-03-10
AlphaControls v13.01 Beta released(D5&XE10;.2) (x86&x64;) DCUs
2018-02-28
SQLPrompt_7.5.1.1000〖含注册机〗(支持低版本和最高版本SQL2016+VS2015)
2018-02-20
DevExpress VCL V16.2.5 FullSource〖D6~D10.2〗
2018-02-06
DxAutoInstaller-2.1.9 For Devexpress VCL
2018-02-06
UniDac 7.0.1〖D7~XE10.2〗源码版下载
2017-04-07
AlphaControls v12.00 Beta released(D5&XE10;.1) (x86&x64;) DCUs
2017-02-21
AlphaControls v11.25 Stable released(D5&XE10.1) (x86&x64) DCUs
2017-02-07
AlphaControls v11.24 Stable released(D5&XE10.1) (x86&x64) DCUs
2017-02-07
rar文件AlphaControls v11.23 Stable released(D5&XE10.1) (x86&x64) DCUs
2017-02-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人