StringList还有这样的功能,真不错
s := hehe~xixi~wawaFUnPackList := TStringList.Create;FUnPackList.Delimiter := '~';FUnpackList.DelimitedText := s;这样就可以把字符串hehe,xixi,wawa存到FUnpackList中了,呵呵,挺不错的。[@more@]
2007-03-23 一周总结
本周开始动手做“外部设备”的socket通信端了。整套通信机制,报文内容,组包规则都由我来决定。第一次那么完整的写通信程序哦,呵呵。上周在大概了解了一下项目之后,周一周二,完成了文档的建立,同时请教了一下师父怎样写这类程序,师父提供了不少建议,并告知我到底是写一个服务器端还是使用WEB服务器应当考虑到现实的情况。由于与“外部设备”的外包公司由专门的线路连接,于是就可以当成是在局域网内完成SOCKET的开发,并且只与对方的一台机器通讯,这样一来,服务器端就可以变的很简单了。周三开始考虑报文的组织和解开了。到今天(
FORMKEYDOWN事件
为了使用FORMKEYDOWN事件,则将 FORM的 KeyPreview 属性设为 TRUE [@more@]
MYSQL初学者使用指南--(由MYSQL.CN转帖)
MYSQL初学者使用指南有很多朋友虽然安装好了mysql但却不知如何使用它。在这篇文章中我们就从连接mysql、修改密码、增加用户等方面来学习一些mysql的常用命令。一、连接mysql。格式: mysql -h主机地址 -u用户名 -p用户密码1、 例1:连接到本机上的mysql。首先在打开DOS窗口,然后进入目录mysqlin,再键入命令mysql -uroot -p, 回车后提示你输密码,如果刚安装好mysql,超级用户root是没有密码的, 故直接回车即可进入到mysql中了,mysql的提示符是:mysql>2、 例2:连接到远程主机上的mysql。假设远程主机的IP为:110.110.110.110,
封装的几点要求--(转)
首先,必须保证接口是功能的全集,即接口能够覆盖所有需求。不能完成必要功能的封装是毫无意义的。其次,尽量让接口是最小冗余的。这是为了简化客户的学习,难用的封装是容易被人遗忘的。冗余接口的存在是被允许的,但必须保证冗余接口是有效的。也就是说,增加这个冗余接口会带来非常大的好处,比如性能的飞速提升。最后,要保证接口是稳定的。将接口和实现分离,并将实现隐藏,就是为了能保护客户的代码在功能实现细节改变的情况下,不必随之改变。三天两头改变接口的封装是惹人讨厌的。记住一个原则:一旦接口被公布,永远也不要改变它
创建StringList类型的数组
type TStringListarr=array of TStringList;Var B:TStringListarr; j:integer;begin SetLength(B, 4); For j:=0 to 3 do Begin B[j]:=TStringList.Create; End;end;[@more@]
一名Delphi程序员的开发习惯--转
一名Delphi程序员的开发习惯blueski推荐 [2007-1-20]出处:DelphiFans.com作者:不详 有关开发习惯的一些想法,如鲠在喉,不吐不快。究其发贴动机,当然不排除有骗取参与分的可能,但另一方面,也希望能给同行(念Xing)者提供一些建议,或者参考(希望不是误人子弟)。同时,也希望各位能够就我的这些陋习,发表一点看法,给出批评和指正的意见。谢谢。 一.建立工程目录 首先,第一步要做的,当然是给新项目建一个单独的目录(别笑)。目录名称与项目名称同名,或者另取一个也可,只要清楚、简练。然后,在此目录中创建以下各个目录
关于字符串和float之间转换格式的问题
数字型转换成字符串后,保留两位小数的方法:一、Label1.Caption := Format('%.2f',[1234.567]); 四舍五入到结果为:1234.57。Format('%.2n',[1234.5678]) 可实现1,234.57这样的效果! 二、var D:Double; begin D := Trunc(D*100) / 100; end 三、floattostrf(数值,FFFIXED,12,2); OR formatfloat('0.00',数值);文件转换时有用。[@more@]
20070206工作情况
1、完成客户资料报表模块开发!2、DB2中日期用between .. and 查询时,实际取的区间时[startdate,enddate)[@more@]