一片荷叶的专栏

1.SYDDepreciation 【简述】根据"sum-of-years-digitsdepreciation"方法计算某期的折旧额。这是一种加速折旧方法，在早一些的年份折旧速度快于晚一些的年份。计算方法是：(Cost-Salvage)*Period/[（1+Life）*Life/2]（该函数支持对数组操作）定义SYDDepreciation(Cost,Sa...

function LowerColToIndex(value: string): Integer;var I:Integer; c:Char;begin if value='' then begin Result:=0; Exit; end; if Length(value)<>1 then begin Result:=0;...

最近在delphi中表格单元格编辑运算符处理的时候，有一点小小的收获分享给大家方法一：模拟键盘操作  +-*/（）等功能比如模拟加号：keydb_event(VK_ADD,MapVirtualKey(VK_ADD,0),0,0);模拟等号：keydb_event(VkKeyScan('='),0,0,0);这个可能会影响系统键盘状态，比如用了shift,会影响其他程序的

转http://blog.sina.com.cn/s/blog_53d1e9210100ukdt.html目 录===============================================================================⊙ DFM 文件与持续机制(persistent)⊙ ReadComponentResFile / WriteCo

转自http://blog.sina.com.cn/s/blog_53d1e9210100ukdx.html本文上篇基本上是 RTTI 入门介绍，续篇介绍了所有 TypInfo.pas 中的函数，附加了Classes.pas、Graphics.pas、Controls.pas 中的几个 RTTI相关函数。对于关键函数的代码提供汇编注释。希望本文覆盖了 Delphi 中 80% 的 RTTI函数

转自：http://blog.sina.com.cn/s/blog_53d1e9210100uke4.html目录===============================================================================⊙ RTTI 简介⊙ 类(class) 和 VMT 的关系⊙ 类(class)、类的类(class

Delphi代码 创建带参数的进程的代码 var  si:STARTUPINFO;  pi:PROCESS_INFORMATION;  tp:string;  exepathname:string;  param1:string;  ...    ZeroMemory(@si,sizeof(STARTUPINFO));    si.cb:=sizeof(ST

 procedure TMainForm.test();var  UpdateFilePath:string;  si:STARTUPINFO;  pi:PROCESS_INFORMATION;begin  UpdateFilePath:=C:/a/b/c.exe;  ZeroMemory(@si,sizeof(STARTUPINFO));  si.dwFlags:=STARTF_USESHO

C++版 BOOL OnputCreateProcess(char cmdline[128],char outputfilename[256]){ BOOL brunsucc = FALSE; SECURITY_ATTRIBUTES SecAtrrs={0}; SecAtrrs.nLength=sizeof(SecAtrrs); SecAtrrs.lpSecurityDescriptor=

 unit OrderListView;interfaceuses  SysUtils, Classes, Controls, ComCtrls;type  TOrderListView = class(TListView)  private    { Private declarations }  protected    procedure ColClick(Column: TLi