摘要：
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
阅读(20)
推荐(0)
posted @ 2012-12-04 17:40
del88
阅读(37)
推荐(0)
posted @ 2012-12-04 17:37
del88
阅读(31)
推荐(0)
摘要：
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
阅读(38)
推荐(0)
摘要：
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
阅读(39)
推荐(0)
摘要：
procedure TfrmImportCsvExcel.Button7Click(Sender: TObject); begin TopSourceToTargetFieldName_pb.Popup(mouse.CursorPos.X,mouse.CursorPos.Y); end;
阅读全文
posted @ 2012-10-22 20:28
del88
阅读(21)
推荐(0)
摘要：
百帖总结这个问题的原因是： 1. 打印机不正常（网络打印机不存在/已经删除）然后就出现这个错，换成正常的打印机就正常 2. 如果是在打印时出现，问题应该在打印的驱动上！建议重新安装合适的打印驱动后再试试！你打印的不是图片吧？ 如果是用delphi时出现那就可以用以下方法 在Delphi中要对一个图像
阅读全文
posted @ 2012-10-19 15:45
del88
阅读(2478)
推荐(0)
摘要：
当要隐藏一列时,要么设置这列的宽度为0要么为1： 当为0的时候： 1 procedure TfrmServerTopLogisticsCompany.FormShow(Sender: TObject); 2 begin 3 {表格的宽度} 4 TopLogisticsCompanyShow_stg.
阅读全文
posted @ 2012-10-18 21:31
del88
阅读(26)
推荐(0)
摘要：
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
阅读(22)
推荐(0)
摘要：
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
阅读(35)
推荐(0)
摘要：
方法一： if listbox1.itemindex <> -1 then showmessage(listbox1.items.strings[listbox1.itemindex]); 不知道是不是能解决你的问题 方法二： ListBox1.Items[ListBox1.ItemIndex] 不
阅读全文
posted @ 2012-10-08 20:37
del88
阅读(20)
推荐(0)
摘要：
若 是你需要实现此功能我并不建议你使用TListBox。而是使用TComboBox，因为ComboBox 直接实现了此类功能，你在主窗口中放置一个 ComboBox。将它Style设置成 csSimple。这时就可以调整ComboBox的高度了。你可以像TListBox 一样设置Items， 并通过
阅读全文
posted @ 2012-10-08 20:21
del88
阅读(28)
推荐(0)
摘要：
之前用Access作一个应用，但找不到货币转换成大写人民币的功能（当然可以通过excel 转换，但不在一个应用上，放弃）。以为比较简单，自己试写，谁知用了两个晚上，才基本实现，但没有小数点（元）以下货币的转换。也没有兆的判断。而且对字 符的合法性也没有检验。今天有时间，将其完善一下。（可能还会有考虑
阅读全文
posted @ 2012-10-07 09:47
del88
阅读(81)
推荐(0)
摘要：
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
阅读(21)
推荐(0)
摘要：
ShowScrollBar(TreeView1.Handle,SB_HORZ,false);//隐藏水平滚动条 ShowScrollBar(TreeView1.Handle,SB_VERT,false);//隐藏垂直滚动条 ShowScrollBar(TreeView1.Handle,SB_BOTH
阅读全文
posted @ 2012-09-22 21:05
del88
阅读(54)
推荐(0)
posted @ 2012-09-22 10:28
del88
阅读(22)
推荐(0)
摘要：
另： TStringList 有一个小Bug Delimiter将空格也作为分隔符的问题 它会将空格当做分隔符！ 例 List.Delimiter := '|'; List.DelimitedText := 'aaa|bb b|ccc|ddd'; //bbb若有空格，那么它的Count就是5而不是4
阅读全文
posted @ 2012-09-05 20:59
del88
阅读(12)
推荐(0)
摘要：
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
阅读(22)
推荐(0)
摘要：
Delphi的单引号,真是会把人搞晕的一个符号 Delphi中不使用双引号,单引号必须配对 ①引号内无字串的情况下 ShowMessage('');->空字串 ShowMessage(' ' ');->这是错的 ShowMessage('''');->显示一个引号 原则-> 从左开始,去掉第一个引号
阅读全文
posted @ 2012-09-01 14:26
del88
阅读(64)
推荐(0)
摘要：
1、系统托盘组件 TTrayIcon 简介 TTrayIcon 的主要属性: TrayIcon.Icon 指定托盘图标, 有几种用法: 1、设计时选择; 2、把一个 TIcon 对象给它; 3、使用当前程序图标: TrayIcon1.Icon := Application.Icon; 4、TrayI
阅读全文
posted @ 2012-08-30 10:35
del88
阅读(31)
推荐(0)
摘要：
TComboBox 清空的话 切记一定不要任务 TComboBox.text = "";就完了 完全没有必要用TComboBox.text := ''; 正确的应该是用TComboBox.ItemIndex := -1; 举例： 针对TComboBox组件的清空一定要这样用才可 TComboBox.
阅读全文
posted @ 2012-08-18 15:28
del88
阅读(18)
推荐(0)
摘要：
如果要让软件自动排序，不写任何代码（能满足大多数需求） 方法： 1. 2. 3. 加入EhlibADO单元（我是使用ADO连接数据库，如果是BDE，就EhLibDBE单元） 二，由于官方的这种方法有时候不能满足我们的需求,就是如果本身查询的SQL语句含有,ORDER BY 的话 如：select *
阅读全文
posted @ 2012-08-18 00:20
del88
阅读(36)
推荐(0)
摘要：
执行下面SQL 会收到如题的错误.这是为什么呢? 注意红色部分,它属于子查询,再关注出错信息.问题出在order by...... select location from (Select * From LOCATION Where WAREHOUSE = N'W3_SHANGHAI' And PU
阅读全文
posted @ 2012-08-17 20:38
del88
阅读(26)
推荐(0)
摘要：
如此简单的事，却浪费我大量的时间和精力 原因是我的系统是win7_64位,mysql支持的还不是太好,所以无论怎样都是不成功 悲哀,wamp也是,装64位的不是这错就是那错, 再加上我是开发者，而客户的电脑大多数都是32位的，即使是64位的，我在32位系统上做出来的软件也是完全可以兼容64位的，而反
阅读全文
posted @ 2012-08-15 20:44
del88
阅读(26)
推荐(0)
摘要：
通过 idhttp 带进度条上传演示一下，下载和上传原理差不多，说明一下下面例子中的的idhttp 是动态创建的 第一步：添加一个StatusBar或者gauge 进度条，这2个都可以。我用的是 statusbar ，因为这个好看，属性保持默认就可。 第二步：获取上传进度需要填写idhttp中的on
阅读全文
posted @ 2012-08-14 12:15
del88
阅读(20)
推荐(0)
摘要：
在程序中使用了IdHTTP的话，在执行Get或Post过程的时候，程序界面会无法响应，造成程序假死，但在任务管理器中又能看到程序正在运行。 这是因为Indy系统组件都使用了阻塞式Sock，阻塞式Sock的缺点就是使客户程序的用户界面“冻结”。当在程序的主线程中进行阻塞式 Socket调用时，由于要等
阅读全文
posted @ 2012-08-14 11:53
del88
阅读(14)
推荐(0)
摘要：
大致了解： 1. get是从服务器上获取数据，post是向服务器传送数据。 get 和 post只是一种传递数据的方式，get也可以把数据传到服务器，他们的本质都是发送请求和接收结果。只是组织格式和数据量上面有差别，http协议里面有介绍 2. get是把参数数据队列加到提交表单的ACTION属性所
阅读全文
posted @ 2012-08-14 11:52
del88
阅读(149)
推荐(0)
摘要：
几个在Delphi 中取本机的计算机名、IP地址、Windows登录的用户名的函数. uses Windows, WinSock; { ComputerLocalIP } //取本机的 IP 地址 function ComputerLocalIP: string; var ch: array[1..
阅读全文
posted @ 2012-07-24 10:37
del88
阅读(54)
推荐(0)
摘要：
1.首先来看imagelist中的图片 2.HotImageIndex产生的效果,就是鼠标放上去的时候,HotImage显示出来如下： 3.超人性化功能来了 -- 这个的效果是点击之后,自动闪烁显示，切换imageindex和这个imageindex对应的图像，意思是当前这个按钮被点击了，
阅读全文
posted @ 2012-07-21 21:09
del88
阅读(80)
推荐(0)
摘要：
前戏：用这个工具 以后我完全可以做外挂，要好好 学学了。。。 下载地址：http://files.cnblogs.com/del88/spylite24.zip 第一篇：用这个工具获取别人软件用的是什么控件：
阅读全文
posted @ 2012-07-17 20:07
del88
阅读(168)
推荐(0)
摘要：
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
阅读(23)
推荐(0)
摘要：
Filter 属性 赋值为一字符串 用于过滤文件类型; 字符串说明如下： ‘|’分割的两个，一个是注释，一个是真的Filter，显示出来的是那个注释。如果要一次显示多中类型的文件，用分号分开。如： Open1.Filter="图片文件(*.jpg,*.gif,*.bmp)|*.jpg;*.gif;*
阅读全文
posted @ 2012-07-13 22:25
del88
阅读(50)
推荐(0)
摘要：
设置Column[i]的ToolTips为TrueDBGridEh的ShowHint为True当容不下时就会出现Hint 当移动鼠标到该单元格时，可以显示单元格容纳不下的文本内容
阅读全文
posted @ 2012-07-06 10:49
del88
阅读(36)
推荐(0)
摘要：
edit控件，怎样分别获取光标所在位置前面、后面的字符串 showmessage( '光标前："' +copy(edit1.Text,1,edit1.SelStart) +'" 光标后："' +copy(edit1.Text,edit1.SelStart+1,length(edit1.Text))
阅读全文
posted @ 2012-07-02 21:33
del88
阅读(10)
推荐(0)
摘要：
//Edit 文本的选择与光标位置 procedure TForm1.Button1Click(Sender: TObject); begin Edit1.SetFocus; //给于焦点 SendMessage(Edit1.Handle,EM_SETSEL,0,1); //选择第一个字符 Send
阅读全文
posted @ 2012-07-02 17:59
del88
阅读(20)
推荐(0)
摘要：
方法一: 于Form或ScrollBox的MouseWheel事件中添加如下代码: if WheelDelta <0 then scrollbox1.Perform(WM_VSCROLL,SB_LINEDOWN,0) else scrollbox1.Perform(WM_VSCROLL,SB_LIN
阅读全文
posted @ 2012-07-02 00:46
del88
阅读(37)
推荐(0)
摘要：
封装成了一个TFastDateTime类， 2013-03-12 补充 暂时用自动修改用户电脑的日期格式的方法 Delphi中StrToDateTime函数TFormatSettings参数的使用 var FSetting : TFormatSettings; DateTime1: tDateTim
阅读全文
posted @ 2012-06-28 21:54
del88
阅读(32)
推荐(0)
摘要：
delphi 中 tedit组件，如何判断用户按下的是否是enter键？ 在Delphi中，对于TEdit组件，你可以通过处理其OnKeyPress事件来判断用户是否按下了Enter键。这个事件在用户按下并释放一个键时被触发。 下面是一个简单的示例代码，演示了如何在TEdit组件的OnKeyPres
阅读全文
posted @ 2012-06-27 14:21
del88
阅读(131)
推荐(0)
摘要：
1.建立wamp/www/下建立shopdaxia文件夹 2.增加虚拟目录(wamp可以自动给增加) --写的时候只写如shopdaxia 3.编辑httpd.conf,让虚拟目录启动 -- -- --补充 4. 修改httpd-vhosts.conf --补充 2012-06-28补充--上面写错
阅读全文
posted @ 2012-06-25 20:31
del88
阅读(37)
推荐(0)
posted @ 2012-06-14 21:13
del88
阅读(18)
推荐(0)
浙公网安备 33010602011771号