del88 - 博客园

2013年1月15日

摘要：看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得... 通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := Inpu 阅读全文

posted @ 2013-01-15 22:31 del88 阅读(13) 评论(0) 推荐(0) 编辑

2012年12月29日

TCheckListBox用法(网上摘抄,挺不错)

摘要：在Delphi中checklistbox中高亮选中（不论是否Checked）能够进行操作么？删除，上下移动等等删除：CheckListBox.DeleteSelected; 上下移： CheckListBox.Items.Move 删除用 CheckListBox1.Items.Delete(In 阅读全文

posted @ 2012-12-29 14:01 del88 阅读(9) 评论(0) 推荐(0) 编辑

2012年12月26日

Dbgrideh 获取行的值

摘要：获取DBGrid选择列值遍历DBGrid，取如下值: DBGrid.SelectedField.FieldName就是当前字段的字段名. DBGrid.SelectedField.DisplayLabel就是当前字段的标题. DBGrid.SelectedField.DisplayText就是当前阅读全文

posted @ 2012-12-26 00:07 del88 阅读(15) 评论(0) 推荐(0) 编辑

2012年12月24日

ListView基本用法大全

摘要： Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListV 阅读全文

posted @ 2012-12-24 23:43 del88 阅读(7) 评论(0) 推荐(0) 编辑

TListView列居中显示

摘要： procedure TfrmServerTopLogisticsCompany.FormShow(Sender: TObject); var I: Integer; begin for I := 0 to ListView1.Columns.Count-1 do begin ListView1.Co 阅读全文

posted @ 2012-12-24 16:02 del88 阅读(3) 评论(0) 推荐(0) 编辑

2012年12月10日

TMemo 循环获取某一行值新方法

摘要： procedure TfrmFilterTopTidByTopOutSidList.Button1Click(Sender: TObject); var I: Integer; top_out_sid_list_str: string; begin top_out_sid_list_str := ' 阅读全文

posted @ 2012-12-10 10:59 del88 阅读(6) 评论(0) 推荐(0) 编辑

2012年12月4日

Dbgrideh 表格的行高

摘要：阅读全文

posted @ 2012-12-04 17:40 del88 阅读(20) 评论(0) 推荐(0) 编辑

Dbgrideh 字体垂直居中

摘要：阅读全文

posted @ 2012-12-04 17:37 del88 阅读(11) 评论(0) 推荐(0) 编辑

2012年11月15日

如何卸载lnmp的PureFTPd

摘要： PureFTPd有的时候可能安装不成功,通常不用安装这个ftp用SSH登陆就可省得它还占用资源. 卸载方法： kill `cat /var/run/pure-ftpd.pid` rm -rf /home/wwwroot/ftp/ rm -rf /usr/local/pureftpd/ 军哥的回答, 阅读全文

posted @ 2012-11-15 13:41 del88 阅读(15) 评论(0) 推荐(0) 编辑

2012年11月2日

SQL SEERVER 各个版本功能包---各个版本 sqlncli下载方法

摘要： http://www.microsoft.com/zh-cn/download/search.aspx?q=Microsoft+SQL+Server+2005+%E5%8A%9F%E8%83%BD%E5%8C%85 MSDN 搜：Microsoft SQL Server 2005 功能包，Micro 阅读全文

posted @ 2012-11-02 00:39 del88 阅读(21) 评论(0) 推荐(0) 编辑

sql2008和sql2012的连接驱动局域网和远程互联有问题--用sql2005连接驱动解决(看了万帖,尝尽各种方法也无果)

摘要： sql2008和sql2012的连接驱动局域网和远程互联有问题都连接不上数据库--只能用sql2005的连接驱动来连接sql2005版本以上的数据库正好我的软件支持sql2005完美支持以上三个数据库(2005,2008,2012) 这个我攻了3次托了近4个月，才发现不是软件和数据库设置的问题,而阅读全文

posted @ 2012-11-02 00:30 del88 阅读(17) 评论(0) 推荐(0) 编辑

2012年10月22日

让鼠标点击哪里就出来右键的菜单--可以获取鼠标的位置,同时左击代替右击显示出来右键菜单

摘要： procedure TfrmImportCsvExcel.Button7Click(Sender: TObject); begin TopSourceToTargetFieldName_pb.Popup(mouse.CursorPos.X,mouse.CursorPos.Y); end; 阅读全文

posted @ 2012-10-22 20:28 del88 阅读(7) 评论(0) 推荐(0) 编辑

2012年10月19日

FastReport在预览和编辑模板的时候提示：Canvas does not allow drawing 原因及解决方法

摘要：百帖总结这个问题的原因是： 1. 打印机不正常（网络打印机不存在/已经删除）然后就出现这个错，换成正常的打印机就正常 2. 如果是在打印时出现，问题应该在打印的驱动上！建议重新安装合适的打印驱动后再试试！你打印的不是图片吧？如果是用delphi时出现那就可以用以下方法在Delphi中要对一个图像阅读全文

posted @ 2012-10-19 15:45 del88 阅读(820) 评论(0) 推荐(0) 编辑

2012年10月18日

TStringGrid隐藏列时避免黑边问题

摘要：当要隐藏一列时,要么设置这列的宽度为0要么为1：当为0的时候： 1 procedure TfrmServerTopLogisticsCompany.FormShow(Sender: TObject); 2 begin 3 {表格的宽度} 4 TopLogisticsCompanyShow_stg. 阅读全文

posted @ 2012-10-18 21:31 del88 阅读(11) 评论(0) 推荐(0) 编辑

2012年10月11日

TTreeView 如何判断有没有数据项的时候--针对没有数据的时候点击事件判断下

摘要： 1 procedure TfrmMain.TopExceptionMemoList_tvClick(Sender: TObject); 2 var 3 MyTopTradeApi: TTopTradeApi; 4 begin 5 MyTopTradeApi := TTopTradeApi.Creat 阅读全文

posted @ 2012-10-11 21:40 del88 阅读(13) 评论(0) 推荐(0) 编辑

2012年10月8日

delphi listbox 使用

摘要： listbox删除删除选中的某个： procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=0; while i<listbox1.Count do//删除掉前一个后，下一个会上移，所以用while if li 阅读全文

posted @ 2012-10-08 20:39 del88 阅读(14) 评论(0) 推荐(0) 编辑

获取ListBox选中的值与删除当前选中的

摘要：方法一： if listbox1.itemindex <> -1 then showmessage(listbox1.items.strings[listbox1.itemindex]); 不知道是不是能解决你的问题方法二： ListBox1.Items[ListBox1.ItemIndex] 不阅读全文

posted @ 2012-10-08 20:37 del88 阅读(9) 评论(0) 推荐(0) 编辑

delphi 用combox 来模仿百度的下拉框输入提示

摘要：若是你需要实现此功能我并不建议你使用TListBox。而是使用TComboBox，因为ComboBox 直接实现了此类功能，你在主窗口中放置一个 ComboBox。将它Style设置成 csSimple。这时就可以调整ComboBox的高度了。你可以像TListBox 一样设置Items，并通过阅读全文

posted @ 2012-10-08 20:21 del88 阅读(9) 评论(0) 推荐(0) 编辑

2012年10月7日

delphi 金额转大写人民币函数--百贴整理能用的&用法

摘要：之前用Access作一个应用，但找不到货币转换成大写人民币的功能（当然可以通过excel 转换，但不在一个应用上，放弃）。以为比较简单，自己试写，谁知用了两个晚上，才基本实现，但没有小数点（元）以下货币的转换。也没有兆的判断。而且对字符的合法性也没有检验。今天有时间，将其完善一下。（可能还会有考虑阅读全文

posted @ 2012-10-07 09:47 del88 阅读(35) 评论(0) 推荐(0) 编辑

2012年9月25日

SQL 聚合函数的列可以不包含在 group by中

摘要： http://www.w3school.com.cn/sql/sql_groupby.asp SELECT Customer,SUM(OrderPrice) FROM Orders GROUP BY Customer 阅读全文

posted @ 2012-09-25 12:15 del88 阅读(9) 评论(0) 推荐(0) 编辑

2012年9月22日

TreeView 没有滚动条设置参数,滚动条是自动的,可用API来隐藏滚动条

摘要： ShowScrollBar(TreeView1.Handle,SB_HORZ,false);//隐藏水平滚动条 ShowScrollBar(TreeView1.Handle,SB_VERT,false);//隐藏垂直滚动条 ShowScrollBar(TreeView1.Handle,SB_BOTH 阅读全文

posted @ 2012-09-22 21:05 del88 阅读(13) 评论(0) 推荐(0) 编辑

wamp+mysql+windowsServer2008R2上搭配好后,增加mysql访问用户和用户权限非常重要,切记啊,否则网站被攻击用户名密码泄露后损失不可估量

摘要： 2012-09-22补充 : 阅读全文

posted @ 2012-09-22 10:28 del88 阅读(12) 评论(0) 推荐(0) 编辑

2012年9月21日

SQL 聚合函数---是这样用的不要再迷糊

摘要：下面这才是正确的聚合统计用法,统计出相同的手机号,的订单,不需要的列不要搜索 SELECT top_task_receiver FROM top_task GROUP BY top_task_receiver HAVING COUNT(top_task_id) > 1 下面这样用是错的,因为top_ 阅读全文

posted @ 2012-09-21 23:13 del88 阅读(10) 评论(0) 推荐(0) 编辑

2012年9月5日

TStringList 有一个小Bug先记录下不知道真假，以后有时间测试下

摘要：另： TStringList 有一个小Bug Delimiter将空格也作为分隔符的问题它会将空格当做分隔符！例 List.Delimiter := '|'; List.DelimitedText := 'aaa|bb b|ccc|ddd'; //bbb若有空格，那么它的Count就是5而不是4 阅读全文

posted @ 2012-09-05 20:59 del88 阅读(3) 评论(0) 推荐(0) 编辑

TStringList indexof find 查找字符串+前车之鉴

摘要： var lst:TStringList ; i:Integer ; begin lst:=TStringList.Create ; try lst:=TStringList.Create ; lst.CaseSensitive :=true; lst.Delimiter :=','; lst.Del 阅读全文

posted @ 2012-09-05 20:41 del88 阅读(10) 评论(0) 推荐(0) 编辑

2012年9月1日

Delphi中的引号，单引号，双引号

摘要： Delphi的单引号,真是会把人搞晕的一个符号 Delphi中不使用双引号,单引号必须配对 ①引号内无字串的情况下 ShowMessage('');->空字串 ShowMessage(' ' ');->这是错的 ShowMessage('''');->显示一个引号原则-> 从左开始,去掉第一个引号阅读全文

posted @ 2012-09-01 14:26 del88 阅读(17) 评论(0) 推荐(0) 编辑

2012年8月30日

系统托盘相关-总结

摘要： 1、系统托盘组件 TTrayIcon 简介 TTrayIcon 的主要属性: TrayIcon.Icon 指定托盘图标, 有几种用法: 1、设计时选择; 2、把一个 TIcon 对象给它; 3、使用当前程序图标: TrayIcon1.Icon := Application.Icon; 4、TrayI 阅读全文

posted @ 2012-08-30 10:35 del88 阅读(11) 评论(0) 推荐(0) 编辑

2012年8月18日

TComboBox 清空的话切记一定不要任务 TComboBox.text = "";

摘要： TComboBox 清空的话切记一定不要任务 TComboBox.text = "";就完了完全没有必要用TComboBox.text := ''; 正确的应该是用TComboBox.ItemIndex := -1; 举例：针对TComboBox组件的清空一定要这样用才可 TComboBox. 阅读全文

posted @ 2012-08-18 15:28 del88 阅读(4) 评论(0) 推荐(0) 编辑

dbgrideh 点击标题排序我自己

摘要：如果要让软件自动排序，不写任何代码（能满足大多数需求）方法： 1. 2. 3. 加入EhlibADO单元（我是使用ADO连接数据库，如果是BDE，就EhLibDBE单元）二，由于官方的这种方法有时候不能满足我们的需求,就是如果本身查询的SQL语句含有,ORDER BY 的话如：select * 阅读全文

posted @ 2012-08-18 00:20 del88 阅读(10) 评论(0) 推荐(0) 编辑

2012年8月17日

除非另外还指定了 TOP、OFFSET 或 FOR XML，否则，ORDER BY 子句在视图、内联函数、派生表、子查询和公用表表达式中无效。

摘要：执行下面SQL 会收到如题的错误.这是为什么呢? 注意红色部分,它属于子查询,再关注出错信息.问题出在order by...... select location from (Select * From LOCATION Where WAREHOUSE = N'W3_SHANGHAI' And PU 阅读全文

posted @ 2012-08-17 20:38 del88 阅读(4) 评论(0) 推荐(0) 编辑

2012年8月15日

delphi 连接mysql

摘要：如此简单的事，却浪费我大量的时间和精力原因是我的系统是win7_64位,mysql支持的还不是太好,所以无论怎样都是不成功悲哀,wamp也是,装64位的不是这错就是那错, 再加上我是开发者，而客户的电脑大多数都是32位的，即使是64位的，我在32位系统上做出来的软件也是完全可以兼容64位的，而反阅读全文

posted @ 2012-08-15 20:44 del88 阅读(4) 评论(0) 推荐(0) 编辑

2012年8月14日

idhttp post 上传或下载时显示进度条

摘要：通过 idhttp 带进度条上传演示一下，下载和上传原理差不多，说明一下下面例子中的的idhttp 是动态创建的第一步：添加一个StatusBar或者gauge 进度条，这2个都可以。我用的是 statusbar ，因为这个好看，属性保持默认就可。第二步：获取上传进度需要填写idhttp中的on 阅读全文

posted @ 2012-08-14 12:15 del88 阅读(7) 评论(0) 推荐(0) 编辑

Idhttp Get/Post假死

摘要：在程序中使用了IdHTTP的话，在执行Get或Post过程的时候，程序界面会无法响应，造成程序假死，但在任务管理器中又能看到程序正在运行。这是因为Indy系统组件都使用了阻塞式Sock，阻塞式Sock的缺点就是使客户程序的用户界面“冻结”。当在程序的主线程中进行阻塞式 Socket调用时，由于要等阅读全文

posted @ 2012-08-14 11:53 del88 阅读(4) 评论(0) 推荐(0) 编辑

idhttp get与post

摘要：大致了解： 1. get是从服务器上获取数据，post是向服务器传送数据。 get 和 post只是一种传递数据的方式，get也可以把数据传到服务器，他们的本质都是发送请求和接收结果。只是组织格式和数据量上面有差别，http协议里面有介绍 2. get是把参数数据队列加到提交表单的ACTION属性所阅读全文

posted @ 2012-08-14 11:52 del88 阅读(56) 评论(0) 推荐(0) 编辑

2012年7月24日

delphi 获取IP地址和计算机名--归纳

摘要：几个在Delphi 中取本机的计算机名、IP地址、Windows登录的用户名的函数. uses Windows, WinSock; { ComputerLocalIP } //取本机的 IP 地址 function ComputerLocalIP: string; var ch: array[1.. 阅读全文

posted @ 2012-07-24 10:37 del88 阅读(6) 评论(0) 推荐(0) 编辑

2012年7月21日

delphi 新奇特功能--Tbutton-bsCommandLink-鼠标点击后动画显示--超人性化日

摘要： 1.首先来看imagelist中的图片 2.HotImageIndex产生的效果,就是鼠标放上去的时候,HotImage显示出来如下： 3.超人性化功能来了 -- 这个的效果是点击之后,自动闪烁显示，切换imageindex和这个imageindex对应的图像，意思是当前这个按钮被点击了，阅读全文

posted @ 2012-07-21 21:09 del88 阅读(44) 评论(0) 推荐(0) 编辑

2012年7月17日

spylite24超给力工具,用这个以后我可以联想直接操控别人的软件,不知道是什么原理--第一篇用这个工具查看别人的软件用的是什么控件

摘要：前戏：用这个工具以后我完全可以做外挂，要好好学学了。。。下载地址：http://files.cnblogs.com/del88/spylite24.zip 第一篇：用这个工具获取别人软件用的是什么控件：阅读全文

posted @ 2012-07-17 20:07 del88 阅读(47) 评论(0) 推荐(0) 编辑

如何将光标焦点放在memo控件的第一行?

摘要： memo有这样方法可以实现，例如：Memo1.SelStart:=j;Memo1.SelLength:=j;Memo1.SetFocus;其中，j表示光标移动的位置。 Memo1.Lines.Add(ADODataSet_fat.FieldByName( 'Name ').AsString); // 阅读全文

posted @ 2012-07-17 09:53 del88 阅读(8) 评论(0) 推荐(0) 编辑

2012年7月13日

TOpenDialog 过滤文件的后缀 Filter-自己

摘要： Filter 属性赋值为一字符串用于过滤文件类型; 字符串说明如下： ‘|’分割的两个，一个是注释，一个是真的Filter，显示出来的是那个注释。如果要一次显示多中类型的文件，用分号分开。如： Open1.Filter="图片文件(*.jpg,*.gif,*.bmp)|*.jpg;*.gif;* 阅读全文

posted @ 2012-07-13 22:25 del88 阅读(19) 评论(0) 推荐(0) 编辑

2012年7月6日

DBGridEh实现hint显示单元格容纳不下的文本内容

摘要：设置Column[i]的ToolTips为TrueDBGridEh的ShowHint为True当容不下时就会出现Hint 当移动鼠标到该单元格时，可以显示单元格容纳不下的文本内容阅读全文

posted @ 2012-07-06 10:49 del88 阅读(12) 评论(0) 推荐(0) 编辑