在运行时移动控件 procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);constSC_DragMove = $F012;beginBegi...
分类：
移动开发 时间：
2014-07-29 21:21:02
阅读次数：
234
//ListView删除选中的多项目function DeleteMultSelItems(ListView:TListView):Boolean;varI: Integer;beginResult:=False;if ListView.Selected =nil then Exit;for i :...
分类：
其他好文 时间：
2014-07-29 21:19:22
阅读次数：
204
//获得汉字字符个数function ChineseWordsCount(text:string):Integer;var i,sum,e,c,t: Integer;begin Result:=0; c := 0; sum := Length(text); if Sum=0 then exit; f...
分类：
其他好文 时间：
2014-07-29 21:14:32
阅读次数：
211
function ReverseString(s: string): string;var i: integer; s1:string;begin s1 := ''; for i := 1 to Length(s) do s1 := s[i] + s1; Result:=s1;end;procedu...
分类：
其他好文 时间：
2014-07-29 21:05:32
阅读次数：
197
{ 1 h=1*60 m=1*60*60 s=1*60*60*1000 hs=3600000hs}function StartCount():string;{$j+}consth:Integer=0;m:Integer=0;s:integer=0;{$j-}begininc(s);if s>=60 ...
分类：
其他好文 时间：
2014-07-29 20:46:32
阅读次数：
178
//Canvas.TextOut文字保存为图片//Delphi开发案例精选，使用TextOut在画布上画图procedure TForm1.Button1Click(Sender: TObject);varMy_Image:Timage;i:integer;begintryMy_Image:=Tim...
分类：
其他好文 时间：
2014-07-29 20:42:32
阅读次数：
227
最近用到了postgresql中的to_char将数字转为字符串，现将官网的实例搜集如下除了以上功能外，to_char还有四舍五入的功能selectto_char(3.005,‘0.99‘)返回3.01selectto_char(3.003,‘0.99‘)返回的是3.00好了有啥问题直接流言一超交流
分类：
数据库 时间：
2014-07-29 18:21:03
阅读次数：
210
A - N!
Time Limit:5000MS Memory Limit:32768KB 64bit IO Format:%I64d
& %I64u
Submit Status
Description
Given an integer N(0 ≤ N ≤ 10000), your task is to calculate N!
...
分类：
其他好文 时间：
2014-07-29 18:06:02
阅读次数：
280
基本数据类型包装类Integer Character其他的都是将首字母大写;包装类和基本类型之间的转换:Integer intInteger i = new Integer(int value);int i2 = i.intValue();基本数据类型和String转换String -->intst...
分类：
编程语言 时间：
2014-07-29 17:20:02
阅读次数：
332
Integer Inquiry
Time Limit: 2000/1000 MS (Java/Others) Memory Limit: 65536/32768 K (Java/Others)
Total Submission(s): 12426 Accepted Submission(s): 3123
Problem Description
One of the fi...
分类：
其他好文 时间：
2014-07-29 15:03:38
阅读次数：
245
