ListView返回选中的多项目 procedure TForm1.Button3Click(Sender: TObject);vars: string;I: Integer;beginfor i := 0 to listview1.items.count - 1 dobeginif listvie...
分类：
其他好文 时间：
2014-07-29 21:31:22
阅读次数：
322
//动态创建组件TEditprocedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);varEdit:TEdit;beginEdit:=Tedit.Cr...
分类：
其他好文 时间：
2014-07-29 21:30:22
阅读次数：
242
ListView添加项目带序列 function AddSelItems(listview1:TListView;ListView2:TListView):Boolean;vars: string;I,j: Integer;beginResult:=False;if listview1.Select...
分类：
其他好文 时间：
2014-07-29 21:30:12
阅读次数：
210
描述：log(n)代码： 1 class Solution: 2 # @param x, an integer 3 # @return an integer 4 def getVal(self, begin, end, x): 5 if end == begi...
分类：
其他好文 时间：
2014-07-29 21:26:42
阅读次数：
263
//返回ListBox选中的多项目 procedure TForm1.Button2Click(Sender: TObject);vari:Integer;s:string;beginfor i:=0 to ListBox1.Items.Count-1 doif ListBox1.Selected[...
分类：
其他好文 时间：
2014-07-29 21:25:42
阅读次数：
235
在运行时移动控件 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
