摘要：
//获取 RadioGroup 项目名称 procedure TForm1.RadioGroup1Click(Sender: TObject); begin Text := RadioGroup1.Items[RadioGroup1.ItemIndex]; end; //当点击 RadioGroup
阅读全文
posted @ 2011-12-13 19:26
del88
阅读(17)
推荐(0)
摘要：
vari:integer;beginChecklistbox1.MultiSelect:=True;for i:=0 to checklistbox1.Items.Count-1 doCheckListBox1.Checked[i] := True;//删除选中记录for i:=CheckListB
阅读全文
posted @ 2011-12-12 15:09
del88
阅读(26)
推荐(0)
摘要：
https://www.iconfont.cn/ 使用阿里巴巴的这个 SVG、AI和PNG是三种不同的图形或图像格式，它们各自有着独特的特点和用途。 SVG（Scalable Vector Graphics）是一种基于XML的矢量图形格式。矢量图形由数学公式定义的几何形状组成，因此可以无损地缩放到任
阅读全文
posted @ 2011-12-11 16:09
del88
阅读(36)
推荐(0)
摘要：
procedure TForm1.SpeedButton2Click(Sender: TObject);var i:integer;beginfor i :=0 to checklistbox1.Items.count-1 dobegin checklistbox1.Checked[i] := tr
阅读全文
posted @ 2011-12-10 15:55
del88
阅读(18)
推荐(0)
摘要：
{动态获取选项} for i:=0 to CheckListBox1.Count-1 do begin if CheckListBox1.State[i]=cbChecked then //do something; end;
阅读全文
posted @ 2011-12-10 15:29
del88
阅读(17)
推荐(0)
摘要：
start_created := formatdatetime('yyyy-mm-dd',start_created_date_dtp.Date) + ' ' + formatdatetime('hh:mm:ss',start_created_time_dtp.Date); end_created
阅读全文
posted @ 2011-12-10 14:35
del88
阅读(32)
推荐(0)
摘要：
这个搜索 花的时间 最长 整个CSDN就这两篇 记住了哦 http://topic.csdn.net/u/20080506/10/DC9F7C54-E2FC-40EC-B5AD-8E6B95445FE5.html http://topic.csdn.net/u/20081204/11/B418BC5
阅读全文
posted @ 2011-12-07 18:30
del88
阅读(51)
推荐(0)
摘要：
真对sqlserver数据说明（其他数据库没有试过）： 在数据库对应的表中加入 bit 列验证是否被选中 然后dbgrid第一列的filedname是bit列 在DBgrid的onDrawColumnCell事件中写： procedure DBGrid1DrawColumnCell(Sender:
阅读全文
posted @ 2011-12-07 16:36
del88
阅读(34)
推荐(0)
摘要：
Delphi之所以能在.NET与JAVA“两座大山”重压之下，至今仍被广大编程爱好者喜爱、支持，究其原因，除了VCL框架设计精妙之外，强大的数据库程序开发能力也是其长盛不衰的关键因素之一。说到数据库开发不能不提到DELPHI中自带的功能强劲的数据感知组件，这些组件中最为常用的当属DBGrid组件，这
阅读全文
posted @ 2011-12-07 16:34
del88
阅读(45)
推荐(0)
摘要：
两个步骤： 1.选中MainMenu把这它的AutoHotkeys设置成maManual,这样就可以去掉主菜单的快捷键 2.选中子菜单 把这它的AutoHotkeys设置成maManual 这样就可以 去掉子菜单的
阅读全文
posted @ 2011-12-04 20:56
del88
阅读(14)
推荐(0)
摘要：
当由于改文件名造成**not found的时候 造成的原因是 改了文件名 但是 有些单元 引用了 这个单元 以至于会出现上面错误 但是delphi IDE 并没有给提示错误的原因 和错误的地方 只是给了一个**not found 错误，如果一个单元一个单元的去找 到底哪个单元引用了这个单元，工作量很
阅读全文
posted @ 2011-12-03 09:41
del88
阅读(20)
推荐(0)
摘要：
//TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exch
阅读全文
posted @ 2011-11-30 22:12
del88
阅读(24)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure Fo
阅读全文
posted @ 2011-11-30 22:11
del88
阅读(22)
推荐(0)
摘要：
对于TStrings类型变量，需要使用TStringList.Create;创建[luther.gliethttp]，否则提示 abstract error错误 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 常规的用法大家都知道，现在来讨论它的一些高级的用法。 先把要
阅读全文
posted @ 2011-11-30 22:07
del88
阅读(32)
推荐(0)
摘要：
varchar和nvarchar的区别： varchar(n)长度为 n 个字节的可变长度且非 Unicode 的字符数据。n 必须是一个介于 1 和 8,000 之间的数值。存储大小为输入数据的字节的实际长度，而不是 n 个字节（如varchar(6),当字段为qqq时，数据库实际占用空间为3个字
阅读全文
posted @ 2011-11-28 16:05
del88
阅读(12)
推荐(0)
摘要：
SQL中char varchar nchar nvarchar ntext区别和使用（资料汇总） 2008年10月14日 星期二 23:57 一、SQL中char varchar nchar nvarchar ntext的区别 1、CHAR。CHAR存储定长数据很方便，CHAR字段上的索引效率级高，
阅读全文
posted @ 2011-11-28 16:05
del88
阅读(18)
推荐(0)
摘要：
TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。 一、针对TTreeNodes,也就是 TreeView.Items,有这些属性： 1、count，节点个数。 2、item[index] ,通过i
阅读全文
posted @ 2011-11-28 13:08
del88
阅读(30)
推荐(0)
摘要：
想判断ADOQuery的当前状态是 Insert还是 Edit，ADOQuery本身的属性State，Delphi死活不认；还有另一属性RecordsetStatus，无论怎样返回的都是‘[]’。怎么办？？ ADOQuery.Status 没有时间这里等有时间整理下，无意中在CSDN上发现的。 20
阅读全文
posted @ 2011-11-25 20:32
del88
阅读(25)
推荐(0)
摘要：
最近碰到一个问题，就是在TQuery中有一属性CacheUpdate，当我设置它的值为TRUE时就可以任意进行编辑而不让它更新，当我想更新的时候只要Update一下就可以，当ADOQUERY却没有此属性，我想让它实现此功能，请教各位大侠有没有办法？ ADOQuery1.LockType := ltB
阅读全文
posted @ 2011-11-25 16:48
del88
阅读(17)
推荐(0)
摘要：
偶尔看见的，可能将来会用到 这里保存下，将来有时间再整理下 基本上 , 把locktype 设置为ltBatchOptimistic可以帮到你. 不过你最好审视一下你的程序逻辑,为什么不可以在查询的时候就用条件过滤了不要的记录? ltUnspecified A specific lock type
阅读全文
posted @ 2011-11-25 16:32
del88
阅读(36)
推荐(0)
摘要：
都知道Delphi在数据库操作是非常好用的,delphi把ADO一些方法属性都集成了,以下是我的一些总结: *************************************** 通过sql的存储过程来实现: 添加 With ADOQuery1 do begin Close; SQL.Cle
阅读全文
posted @ 2011-11-25 14:42
del88
阅读(22)
推荐(0)
摘要：
ListView1.Items 为标准 Tlistitems类 ListView1.Items (1)赋值 with ListView1.Items.Add do begin Caption:=caption; //添加第一项 SubItems.add(aaaaa); //添加后面数据 SubIte
阅读全文
posted @ 2011-11-25 11:02
del88
阅读(13)
推荐(0)
摘要：
ListView组件位于组件板的Win32页，可用4种图形方式（大图标、小图标、列表、详细列表）来描述选项内容，类似于Windows操作系统中的“我的电脑”，数据项图形保存在ImageList组件中。 1.ListView主要属性 （1）ViewStyle属性 ViewStyle属性用于选择数据项的
阅读全文
posted @ 2011-11-24 23:38
del88
阅读(23)
推荐(0)
摘要：
本例运行效果图: 一般修改 TStringGrid 的 Options 直接在设计时选一下 True 或 False 就行了; 代码中可以像下面操作: StringGrid1.Options := [goFixedVertLine]; StringGrid1.Options := [goFixedV
阅读全文
posted @ 2011-11-24 17:02
del88
阅读(47)
推荐(0)
摘要：
须知: TStringGrid 的每行、每列都是一个 TStrings 对象. 本例功能: 1、分别按列与行修改; 2、分别按列与行读取 运行效果图: //本例代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants,
阅读全文
posted @ 2011-11-24 10:10
del88
阅读(26)
推荐(0)
摘要：
出现这个错误的原因是： 引用的单元里的函数，没有声明 unit StrToMd5;interfaceuses System.SysUtils,IdHashMessageDigest,IdGlobal, IdHash;//声明function str_to_md5(Str: String): Stri
阅读全文
posted @ 2011-11-22 17:43
del88
阅读(61)
推荐(0)
摘要：
有一种人，没有学问，对自己要求不高，甘愿在农村生活，说什么 咱就是农村人能给人家城市里的人比不，这样的话，还显得自己很懂事，哎，对于这样的人，学问、悟性，都在那放着，你无法改变，只能默默应允，生活中有好多自己不喜欢的人，自己除了让这些人不影响到自己的工作，还是让这些人不影响到自己的工作，对此，当无法
阅读全文
posted @ 2011-11-21 21:45
del88
阅读(28)
推荐(0)
摘要：
var s: string;begin //FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间 s := FormatDateTime('c', Now); {返回: 2007-12-18 23:56:05} {指令 c 表示用短格式显示日期
阅读全文
posted @ 2011-11-21 10:26
del88
阅读(25)
推荐(0)
摘要：
工具一:分区助手,以后就用它了,真是超级爽,再也不用硬盘分区魔术师了.(以后无论什么分区就用它了) 官方:http://www.disktool.cn/index.html (帮助文档简洁明了,我靠,操作超级人性化) 工具2:DiskGenius(用着不如工具一,功能也和工具一差远了,只是工具一,刚
阅读全文
posted @ 2011-11-18 14:26
del88
阅读(18)
推荐(0)
摘要：
对.先定义一个 数组类型. 然后函数返回这个数组类型 就可以了. type TStrArr = array of string;function strSplit(strSplit,str:string):TStrArr ;var sl:TStringList; I: Integer;begin t
阅读全文
posted @ 2011-11-13 15:38
del88
阅读(44)
推荐(0)
摘要：
今天在搞一个程序中，要求返回多个值，我知道用数组使用，但以前还没有做过，于是在网上找了一下，得到这个东东，自己定义一个类型，然后将函数的类型设为自定义类型就可以了，我定义的是字符串数组，函数返回值当然是多个字符串了，呵呵。 可以函数过程中设定返回数组的大小，SetLength (result,5)就
阅读全文
posted @ 2011-11-12 09:43
del88
阅读(18)
推荐(0)
摘要：
发现了一种针对新电脑装机的硬盘分区，装系统的快速方法： 用大白菜的U盘启动工具，制作好U盘启动后，把一个系统的GHO文件复制到 U盘上 然后用进入U盘的WINPE系统，然后利用 桌面上的 DiskGenius分区工具 进行快速分区 打开后 点快速分区 进行快速分区 分区好后，再利用 桌面上的 通用G
阅读全文
posted @ 2011-11-11 11:03
del88
阅读(43)
推荐(0)
摘要：
本人喜欢研究电脑这个东西，每次都是自己从网上买零件然后回来自己组装，每次组装电脑 最头大的一件事就是硬盘分区 讨厌复杂的什么DOS分区，而且这种分区使用很局限，步骤很多，对我这种记忆力不好的，又不经常重装系统的人，实在是不适合。 预期记命令 或 步骤 我觉得不如用好一款软件 而且这款软件 还能保证我
阅读全文
posted @ 2011-11-10 16:37
del88
阅读(241)
推荐(0)
摘要：
start_created := formatdatetime('yyyy-mm-dd',DateTimePicker1.Date) + '' + formatdatetime('hh:mm:ss',DateTimePicker2.Date); end_created := formatdateti
阅读全文
posted @ 2011-11-08 17:38
del88
阅读(16)
推荐(0)
摘要：
安装前一定认真先看下 这个安装方法 http://wenku.baidu.com/view/cf7d4f283169a4517723a323.html?from=related http://kiiuyti5p2.blog.163.com/blog/static/176955046201105112
阅读全文
posted @ 2011-11-06 16:54
del88
阅读(28)
推荐(0)
摘要：
可以把复选框加在一个容器上也可以 直接是 窗体上 方法1（窗体上）： var i:integer;beginfor i:=1 to form1.ComponentCount do begin if form1.Components[i-1] is Tcheckbox then begin if Tc
阅读全文
posted @ 2011-11-06 16:49
del88
阅读(25)
推荐(0)
摘要：
//分割字符串 ExtractStringsvar s: String; List: TStringList;begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([
阅读全文
posted @ 2011-11-06 16:20
del88
阅读(207)
推荐(0)
摘要：
背景：原来要替换字符串 官方有StringReplace函数，后来官方引进了StringHelper帮助类，更加简化了字符串的替换操作。这里做个简单对比； 首先看下函数定义原型： 1.StringReplace函数原型 2.TStringHelper类里的原型： 好了，接下来让我们弄个Demo对比下
阅读全文
posted @ 2011-11-06 14:10
del88
阅读(479)
推荐(0)
摘要：
消息框是个很常用的控件，属性比较多，本文列出了它的一些常用方法，及指出了它的一些应用场合。1.最简单用法,不带图形MessageBox(0,'不同意','提示',MB_OK);MessageBox(0,'不同意','提示',MB_OKCANCEL );2.警告对话框:MessageBox(0,'密码
阅读全文
posted @ 2011-11-06 13:20
del88
阅读(45)
推荐(0)
浙公网安备 33010602011771号