问题描述：
Given an input string, reverse the string word by word.
For example,
Given s = "the sky is blue",
return "blue is sky the".
解题思路：
每遍历出一个单词时，将该单词添加一个空格字符（如果临时字符串为空，即扫描出第一个单词，就不要添加空格字符），然后添加...
分类：
其他好文 时间：
2014-07-29 21:52:52
阅读次数：
239
(*
一般的清空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
自动滚动到最底端scrollUses MSHTML;{$R *.dfm}varScrollPos: integer=0;procedure TForm1.Button1Click(Sender: TObject);begininc(ScrollPos, 10);if WebBrowser1.Docu...
分类：
其他好文 时间：
2014-07-29 21:42:02
阅读次数：
506
function ItemExist(Text:string;TreeView:TTreeView):Boolean;var i: Integer;begin Result:=False; if (Trim(Text)'') then begin for i := 0 to TreeView.Ite...
分类：
其他好文 时间：
2014-07-29 21:41:52
阅读次数：
252
//TListView列表拒绝添加重复信息
procedure TForm1.Button1Click(Sender: TObject);vari: Integer;beginif (Trim(Edit1.Text)'') thenbeginfor i := 0 to ListView1.Items...
分类：
其他好文 时间：
2014-07-29 21:41:42
阅读次数：
300
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var Node: TTreeNode;begin with TreeView1 do begin Node := GetN...
分类：
移动开发 时间：
2014-07-29 21:40:42
阅读次数：
393
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
一，首先引入“mmsystem”单元。二，启动定时器： var MMTimerID: Integer; // 定时器ID MMTimerID := timeSetEvent(1000, 0, @TimerProc, 0, TIME_PERIODIC);三，定时器过程代码：procedure Tim....
分类：
其他好文 时间：
2014-07-29 21:33:32
阅读次数：
283
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
