每一个公司都自己的规章制度，这些制度不是放在那里摆着看的，而是真真正正起着作用的，当你触犯了这些规章制度，那么你就会受到惩罚，而且不留情面。就像下面这个例子一样。(本文来自e良师益友网) 有一天，清洁工到仓库去领取清洁用的酒精，瓶容量克的酒精放在桌上，就在填好出库单转身的瞬间，边上的一瓶被碰落地，....
分类：
其他好文 时间：
2014-07-30 00:24:02
阅读次数：
173
Problem Description给定一段连续的整数，求出他们中所有偶数的平方和以及所有奇数的立方和。Input输入数据包含多组测试实例，每组测试实例包含一行，由两个整数m和n组成。Output对于每组输入数据，输出一行，应包括两个整数x和y，分别表示该段连续的整数中所有偶数的平方和以及所有奇数...
分类：
其他好文 时间：
2014-07-30 00:18:42
阅读次数：
281
Edit
TEditCut
TEditCopy
TEditpaste
TEditSelectAll
TEditUndo
TEditDelete 编辑 剪切 复制 粘贴 全选 撤销 删除 关联在以下控件上功能有效
TMainMenu
TPopMenu
TToolBar 以下控件功能有效
TMemo
T...
分类：
其他好文 时间：
2014-07-29 21:47:22
阅读次数：
294
//垂直显示标签文本Label1.Caption:='垂'+#13+'直'+#13+'显'+#13+'示';//使用相同的方法,我们也可以制作垂直显示的提示(Hint):button1.Hint:='垂'+#13+'直'+#13+'显'+#13+'示';来自为知笔记(Wiz)
分类：
其他好文 时间：
2014-07-29 21:47:02
阅读次数：
279
//文字在窗体上水平来回移动procedure TForm1.Timer1Timer(Sender: TObject);{ Timer1.Interval:=10;}beginif label1.Left+label1.Width>0 thenlabel1.Left:=label1.Left-2el...
分类：
移动开发 时间：
2014-07-29 21:46:52
阅读次数：
228
//array应用 DayOfWeek星期几判断procedure TForm1.Button1Click(Sender: TObject);vardays:array[1..7] of string;todayIs:string;begindays[1] := '日 ';days[2] := '一...
分类：
其他好文 时间：
2014-07-29 21:44:22
阅读次数：
306
(*
一般的清空combobox方法 combobox1.clear;
...
combobox9.clear;
*) procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin for i:=0 to self.Com...
分类：
其他好文 时间：
2014-07-29 21:43:32
阅读次数：
690
撤销 重做 -
复制 剪切 粘贴 删除 -
全选 不选 ///编辑
///撤销 WebBrowser1.ExecWB(OLECMDID_REDO ,1);
///重做 WebBrowser1.ExecWB(OLECMDID_UNDO ,1);
///-
///复制 WebBrowser1.ExecW...
分类：
其他好文 时间：
2014-07-29 21:43:22
阅读次数：
206
目录认识EF添加数据删除数据修改数据查询数据总结认识EFADO.NET Entity Framework 是微软以ADO.NET为基础所发展出来的对象关系对伊（O/R Mapping）解决方案，早起被称为ObjectSpage，最新版本EF6。实体框架Entity Framework是ADO.NET...
分类：
其他好文 时间：
2014-07-29 21:43:02
阅读次数：
394
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var node: TTreeNode;
begin if Boolean(TreeView1.GetNodeAt(X,Y...
分类：
其他好文 时间：
2014-07-29 21:39:32
阅读次数：
244
