11 2013 档案

反查字符串
摘要：{反向查找字符串}function TForm1.ReversePos(SubStr, S: String): Integer;var TemPos : Integer; //查找到的位置begin{把每个字符串都反过来，再pos找地址} TemPos := Pos(ReverseString(SubStr), ReverseString(S)); if TemPos > 0 then {得到正序位置} TemPos := Length(S) - TemPos - Length(SubStr) + 2; Result := TemPos;end; 阅读全文
posted @ 2013-11-24 17:37 GOD攀 阅读(227) 评论(0) 推荐(0)
多线程改变窗口标题
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) grp1: TGroupBox; edt1: TEdit; btn1: TButton; btn2: TButton; btn3: TButton; btn4: TButton; procedure btn1Click(Sender: TObject); ... 阅读全文
posted @ 2013-11-07 18:10 GOD攀 阅读(290) 评论(0) 推荐(0)
热键1，效果图和全代码
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActnList, ComCtrls, ExtCtrls;type TForm1 = class(TForm) btn1: TButton; grp1: TGroupBox; btn2: TButton; grp2: TGroupBox; lbl1: TLabel; actlst1: TActionList; l... 阅读全文
posted @ 2013-11-07 11:25 GOD攀 阅读(673) 评论(0) 推荐(0)