《夜曲》Flash键盘钢琴谱MN OOOONQQ TTTSRSOO RRRSQNQP PONOON OOOONQQ TTTSRSOO RRR QPNOM《梁祝》Flash键盘钢琴谱 LJIH IGFE NMNLMKJL IJLIJKJIH LGIFHE FHE CEFHI FHE LOMLJLI IJGFEFHICHFEFHE JLGIFHE CECEFGIF EFHILJIJIHFECH FHF... Read More
posted @ 2009-03-25 17:54
zywuhao
Views(2780)
Comments(0)
Diggs(0)
联合利华引进了一条香皂包装生产线，结果发现这条生产线有个缺陷：常常会有盒子里没装入香皂。总不能把空盒子卖给顾客啊，他们只得请了一个学自动化的博士后设计一个方案来分拣空的香皂盒。博士后拉起了一个十几人的科研攻关小组，综合采用了机械、微电子、自动化、X射线探测等技术，花了几十万，成功解决了问题。每当生产线上有空香皂盒通过，两旁的探测器会检测到，并且驱动一只机械手把空皂盒推走。 中国南方有个乡镇企业也... Read More
posted @ 2009-03-25 16:34
zywuhao
Views(175)
Comments(0)
Diggs(0)
请每一个孝顺的子女耐心的看下去！ 结婚那天，妈问我：坐在角落里象两个要饭模样的人是谁？ 我看过去的时候，有个老头正盯着我，旁边还有个老太太，发现我看着他们时赶忙低下头。我不认识他们但也不象要饭的，衣服是新的连折印都看得出来。妈说象要饭的是他们佝偻着身子，老太的身边倚了根拐杖的缘故。 妈说天池是孤儿，那边没亲戚来，如果不认识就轰他们走吧。现在要饭的坏着呢，喜欢等在酒店门口，见哪家办喜事就装作亲戚来吃... Read More
posted @ 2009-03-25 16:27
zywuhao
Views(267)
Comments(0)
Diggs(0)
“你不必严格遵守这些原则，违背它们也不会被处以宗教刑罚。但你应当把这些原则看成警铃，若违背了其中的一条，那么警铃就会响起。” ----------Arthur J.Riel(1)所有数据都应该隐藏在所在的类的内部。p13(2)类的使用者必须依赖类的共有接口，但类不能依赖它的使用者。p15(3)尽量减少类的协议中的消息。p16(4)实现所有类都理解的最基本公有接口[例如，拷贝... Read More
posted @ 2009-03-25 13:53
zywuhao
Views(153)
Comments(0)
Diggs(0)
做网络程序时, 经常用到内存之间的相互复制转换函数.于是写下了下面一些函数{------------------------------------------------------------- 单元: BaseFunc 日期: 200306 24 作者: 王寒松 Administrator 说明: 一些基础操作函数---------------------------------------... Read More
posted @ 2009-03-25 13:49
zywuhao
Views(1239)
Comments(0)
Diggs(0)
本人初学DELPHI，而且完全是业余的，说法有不周之处请见谅。06年12月底，应朋友之邀，给他作一个小软件，里面有表格浏览打印，当时考虑用stringgrid为载体。“别人经验是学习的最佳捷径”我首先就考虑到DFW和盒子、园子上去看看别人怎么说，遇到哪些问题？郁闷的是，DFW和盒子居然打不开，因为以前偶也遇之，可连续三天没上去，有点不知所措了，欣慰的是，我有DFW离线资料（... Read More
posted @ 2009-03-25 13:39
zywuhao
Views(1121)
Comments(0)
Diggs(0)
//StringGrid排序//sourcefunction StringGridRowSwap(mStringGrid: TStringGrid; mFromRow, mToRow: Integer): Boolean;var S: string;begin Result := False; if (mToRow = mFromRow) then Exit; if not Assigned(mS... Read More
posted @ 2009-03-25 13:38
zywuhao
Views(796)
Comments(0)
Diggs(0)
TStringGrid 实现下拉框比较常见的思路是在TSringGrid中嵌入一个TComboBox ，思路虽然简单，但开发起来却很麻烦，而且有时会出现不愿看到的效果。还有一种更巧的方法，是Delphi未公开的。先看两个Delphi提供的VCL：TInplaceEdit 是Delphi 提供的一个未公开的控件，只能内嵌于TCustomGrid中使用，TStringGrid 单元格的编辑功能就是由该... Read More
posted @ 2009-03-25 13:37
zywuhao
Views(2747)
Comments(0)
Diggs(0)
TstringGrid 的行列合并研究【这段代码来自wangxian11】 正好在帖子上看到了，功能能够实现。（wangxian11大哥可真是厉害～～）可惜的是，效果还不是很好，如果将来有更好的希望大家提供吧。 unit Unit1; //建立一工程，//粘贴本单元代码即可看 STringGrid 行列合并效果//但发现非固定行非固定列的合并效果不好interface usesWindows, ... Read More
posted @ 2009-03-25 13:35
zywuhao
Views(730)
Comments(0)
Diggs(0)
如何实现在stringgrid中删除鼠标点中的那一行，下一行再顶上的效果？ procedure TForm1.Button1Click(Sender: TObject);varSel : TGridRect;beginSel := StringGrid1.Selection;DeleteRow(Sel.Top);end; // delete rowprocedure TForm1.DeleteRo... Read More
posted @ 2009-03-25 13:34
zywuhao
Views(896)
Comments(0)
Diggs(0)
--StringGrid行列的增加和删除typeTExCell = class(TStringGrid) publicprocedure DeleteRow(ARow: Longint);procedure DeleteColumn(ACol: Longint);procedure InsertRow(ARow: LongInt);procedure InsertColumn(ACol: Lo... Read More
posted @ 2009-03-25 13:33
zywuhao
Views(736)
Comments(0)
Diggs(0)
unit uzxString;interface uses Classes,SysUtils; const DELIMITER_LF = #10; const DELIMITER_CR = #13 ; const DELIMITER_BLANK = ' '; const DELIMITER_COMMA = ','; { izx interface }type zxCharSet = s... Read More
posted @ 2009-03-25 10:09
zywuhao
Views(766)
Comments(0)
Diggs(0)
{--代码开始--} unit Hintx; interface uses Windows, Messages, Controls; type TIconHintX = class(THintWindow) protected procedure Paint; override;public function CalcHintRect(MaxWidth: Integer; const... Read More
posted @ 2009-03-25 10:02
zywuhao
Views(302)
Comments(0)
Diggs(0)
{========================================================================= 功 能: 网络函数库 时 间: 2002/10/02 版 本: 1.0 备 注: 没有事情干，抄抄写写整理了一些网络函数供大家使用。 希望大家能继续补充===================================... Read More
posted @ 2009-03-25 09:47
zywuhao
Views(341)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号