Just Do It

1.PostMessage，SendMessage        1>PostMessage函数是将一个消息放入到与指定窗口创建的线程相联系的消息队列里，不等待线程处理消息就返回。函数原型为function PostMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL;其中参数：        hW

1.virtual、dynamic、abstract关键字          virtual 表示是虚拟方法； dynamic 表示是动态方法， 这两类方法的共同点是都可以被覆盖(override)。        在代码中调用一个指定的虚拟方法时编译器并不知道它的地址，编译器通过建立虚拟方法表(VMT)来查找在运行时的函数地址。所有的虚拟方法在运行时通过VMT来调度，一个对象的VMT表中

1.SetValue方法妙用       系统默认生成的代码如下，但我们可以在这里增添更多的东西，比如针对Value判断执行一些相关操作，或者触发一些事件等。procedure TForm1.SetTestPro(const Value: string);begin FTestPro := Value;end;2.Image问题      图片在窗体最大化时不能铺满界

1.TStringList分解字符串在编程中我们经常需要分解某个字符串，比如“abc,123,334,akl”，把上述字符串根据逗号分解成4个字符串。procedure TForm1.btnTestClick(Sender: TObject);var v_TestList: TStringList; v_Index: Integer;begin v_TestLis

最近项目中需要如题这样一个方法，在网上搜了下没发现类似的，索性写了一个，还不是很完善。function SerialStr(Astr: string): string;var v_TmpList: TStringList; v_Index: Integer; v_ResultList: TStringList;begin if Trim(Astr) = EmptyStr t

这个方法跟上一个方法相比会消耗一些效率，还需要起始数和结束数，但不受其他字符、重复、顺序干扰。具体如下：{------------------------------------------------------------------------------- 过程名: TSerialNumberDemo.OutputSearialNum 方法二 作者: Admi

procedure TFormMain.btnTestClick(Sender: TObject);var v_Index: Integer; v_ErrMsg: string;begin for v_Index := 0 to 15301 do begin v_ErrMsg := SysErrorMessage(v_Index); if v_ErrMsg <>