癫狂编程

Delphi GetCurrentDir 获取当前文件夹

摘要： //获取当前文件夹 GetCurrentDirvardir: string;begindir := GetCurrentDir;ShowMessage(dir); //C:\Documents and Settings\wy\My Documents\RAD Studio\Projectsend; 阅读全文

posted @ 2018-12-09 17:45 癫狂编程阅读(917) 评论(0) 推荐(0)

Delphi对ini文件的操作

摘要：一、INI文件的结构：; 注释[小节名]关键字=值 INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。注释以分号“;”开头。二、定义1、在Int 阅读全文

posted @ 2018-12-09 17:37 癫狂编程阅读(472) 评论(0) 推荐(0)

Delphi中动态创建窗体有四种方式

摘要： Delphi中动态创建窗体有四种方式,最好的方式如下: 比如在第一个窗体中调用每二个,主为第一个,第二个设为动态创建 Uses Unit2; //引用单元文件 procedure TForm1.Button1Click(Sender: TObject);beginform2:=TForm2.Crea 阅读全文

posted @ 2018-12-07 10:57 癫狂编程阅读(6429) 评论(0) 推荐(0)

SQL 取数值小数后两位，但不四舍五入

摘要： select round('1.67789',2,1) /* 1.67*/ 阅读全文

posted @ 2018-12-06 16:37 癫狂编程阅读(3581) 评论(0) 推荐(0)

delphi Edit 控制最大值，只能输入数字型控制小数位数

摘要： delphi语言受众多程序员追捧,主要原因之一就是它有很多第三方的控件可供使用。很多资深的delphi程序员都把自己积累的函数、过程等设计成控件,以方便使用,提高开发效率。本文通过一个只允许输入数字、并且可以设置输入值范围和小数点位数的编辑框控件的设计,详细介绍了控件的实现方法。该控件继承自edi 阅读全文

posted @ 2018-12-04 00:37 癫狂编程阅读(1549) 评论(0) 推荐(0)

使用 TListView 控件(2)

摘要：本例效果图: 代码文件: 窗体文件: 阅读全文

posted @ 2018-12-02 11:30 癫狂编程阅读(244) 评论(0) 推荐(0)

开发一个delphi写的桌面图标管理代码

摘要：参加工作了就很少有时间去玩delphi了，这个适合初学者看看，大神勿喷工具 delhpi7.0 access数据库原则win下有安装office就可用当初不太熟悉sqlite所有没用这做数据库。阅读全文

posted @ 2018-12-01 10:46 癫狂编程阅读(1183) 评论(0) 推荐(0)

web颜色转换为delphi

摘要：今天在写写一个日志浏览和报警功能时，要求用多种颜色去显示不同的信息，客户给出的颜色是web的 rgb颜色，就是用6位16进制数去表示的颜色，直接把他赋值给Delphi的TColor变量，发现显示的颜色不对，差了资料之后才知道 RGB的颜色是从低位向高位存储,而TCOLOR正好与之相反，例如 RG 阅读全文

posted @ 2018-11-30 17:26 癫狂编程阅读(443) 评论(0) 推荐(0)

delphi RGB与TColor的转换

摘要： 1.RGB转换为Tcolor function RGBToColor(R,G,B: byte): Tcolor;begin Result := B Shl 16 or G shl 8 or R;end; 2.Tcolor转换为RGB proceudre Tform1.Button1Clink(Sen 阅读全文

posted @ 2018-11-30 17:24 癫狂编程阅读(2779) 评论(0) 推荐(0)

用Delphi制作仿每行带按钮的列表

摘要： Delphi做程序开发在使用到列表控件时，一般是列表放文本内容，在列表以外放操作按钮，选中列表某项再点按钮进行操作。现在Web开发做列表的样式总是列表的每行都有操作按钮，如微博的列表风格： Web开发常用这种风格，一来是用户找操作按钮的移动距离近，二来制作上也不麻烦，不过CS程序开发就很少能找到现成阅读全文

posted @ 2018-11-29 13:43 癫狂编程阅读(801) 评论(0) 推荐(0)

Delphi 之编辑框控件(TEdit)

摘要： TEdit 组件主要用于数据的输入和显示和编辑等操作。 AutoSelect 获取组件焦点。该属性只能在单行文本组件使用。值为True为选中。false则不选中。 BorderStyle 设置编辑框控件的外观效果。当值为bsSingle，为一个单线边框。为bsNone则无边框 CanUndo 该属性阅读全文

posted @ 2018-11-28 00:04 癫狂编程阅读(2436) 评论(0) 推荐(0)

numEdit

摘要：说明：利用tedit扩展的数字编辑框，允许设置正负、小数点等(The digital edit box using tedit extended, allowing the set of positive and negative, the decimal point) 阅读全文

posted @ 2018-11-24 21:58 癫狂编程阅读(407) 评论(0) 推荐(0)

delphi数据库进行增加操作时，怎么判断插入的这个值是否已经存在？

摘要： //增 procedure TForm1.btnAddClick(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from AZZ where 排名=(''' + Edit1.Text + ''')'); ADOQuery1.Open... 阅读全文

posted @ 2018-11-17 16:41 癫狂编程阅读(649) 评论(0) 推荐(0)

delphi中 dataset容易出错的地方

摘要：最近写delphi项目，用到的数据集中的dataset，一直修改exception啊，写下过程。在对数据集进行任何操作之前，首先要打开数据集。要打开数据集，可以把Active属性设为True，例如： CustTable.Active := True; 也可以调用Open函数，例如：CustQuer 阅读全文

posted @ 2018-11-17 16:08 癫狂编程阅读(1170) 评论(0) 推荐(0)

Delphi函数详解:全局函数,内部函数,类的成员函数,类的静态方法

摘要： {现在这个函数并没有 var 前缀, 也就是说参数应该不会被修改的} function MyFun(p: PInteger): Integer; {PInteger 是 Integer 的指针类型}begin p^ := p^ * 2; Result := p^;end; 阅读全文

posted @ 2018-11-17 11:34 癫狂编程阅读(1711) 评论(0) 推荐(0)

DataSnap与FireDAC三层

摘要：相交资料： http://blog.csdn.net/shuaihj/article/details/6129131http://www.cnblogs.com/hnxxcxg/p/4007876.htmlhttp://www.cnblogs.com/hnxxcxg/p/4008789.htmlht 阅读全文

posted @ 2018-11-16 00:24 癫狂编程阅读(834) 评论(0) 推荐(0)

在delphi中如何解决空格的问题。。。。烦死了。。。。

摘要：我每次从数据库里面取数据出来和Edit里面的进行比较的时候总是会受到空格的困扰。。。老是干扰我。。。如果我用trim 所有都做去掉所有的空格那么这样就非常麻烦又繁琐。。有没有什么方法可以忽略空格的。。。还有就是我如果用Edit1.SetFocus对其进行选中。。那么我如果不把字符串全部删除呢么就会阅读全文

posted @ 2018-11-16 00:08 癫狂编程阅读(899) 评论(0) 推荐(0)

DELPHI控件属性事件说明

摘要：常用DELPHI控件属性事件设置说明常用DELPHI控件属性事件设置说明常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQu 阅读全文

posted @ 2018-11-14 22:24 癫狂编程阅读(996) 评论(0) 推荐(0)

如何控制DBGrid里面显示的浮点数小数点后的位数？

摘要：现在dbgrid里面显示的位数太多，有10几位，根本没办法看。请问怎么设置能控制小数点后的位数呢？在c语言里面是 %7.2f就可以了，可惜不知道dephi里面怎么做啊谢谢各位指点方法1：把那些字段的DisplayFormat属性设为#,##0.00方法2procedure Tform1.ADOQ 阅读全文

posted @ 2018-11-14 22:21 癫狂编程阅读(685) 评论(0) 推荐(0)

delphi 更改DBGrid 颜色技巧

摘要： 1、根据条件更改某一单元格的颜色 2、多种改变方式 3、纵向斑马线效果：实现网格的奇数列和偶数列分别以不同的颜色显示以区别相邻的数据列。 4、纵向斑马线，同时以红色突出显示当前单元格效果：以突出显示当前选中的字段。 5、在数据网格中以红色突出显示当前选中的行。 6、行突显的斑马线效果：既突出当前行，阅读全文

posted @ 2018-11-14 22:10 癫狂编程阅读(892) 评论(0) 推荐(0)