摘要:delphi使用outputdebugstring调试程序和写系统日志procedure TForm1.btn1Click(Sender: TObject);begin OutputDebugString('dddddd'); OutputDebugString('11');end;proced...
阅读全文
随笔分类 - DELPHI
摘要:结构体定义PYpType=^TYpType;TYpType=record yfcode:string; ypcode:string; YpUnitPrice:Currency; YpRetailPrice:Currency; YpCostPrice:Currency; YpTotal:Currency; CkTotal:Currency; YpUseDT:string; YpAddr:string; Dwcode:string; CzyCode:string; Update_DT:TDateTime; IsDelete:Integer; IsApprove:Integer;end;加入结构体f
阅读全文
摘要:Block With工具,用来提取开域with的工具,如下代码:1 ADOQuery_Tmp.Data := fData;2 ADOQuery_Tmp.Filtered := false;3 ADOQuery_Tmp.Filter := '选择=1';4 ADOQuery_Tmp.Filtered := true;经过使用此工具,提取ADOQuery_Tmp字符串后,代码为:1 With ADOQuery_Tmp do2 Begin3 Data := fData;4 Filtered := false;5 Filter := '选择=1';6 Filtered
阅读全文
摘要:在FormCreate设置PersonSignLB的windows消息aHint :=THintWindow.Create(nil);aHint.Color :=clInfoBk;FWndMethod := PersonSignLB.WindowProc;PersonSignLB.WindowProc := LabelWndProc;显示个人提示框procedure TMainForm.LabelWndProc(var Msg: TMessage); //根据一定长度,将字符串变为回车的字符 function SplitByLen(src:string;var row:Integer;perC
阅读全文
摘要:**************************数学单元*********************************Delphi / Kylix 跨平台运行时(Runtime)库Copyright (c) 1996, 2001 Borland 软件********************************************************************这个单元包含高性能的算术、三角、对数、统计和金融方面的计算及FPU程序函数用于补充Delphi语言System.pas 单元中的数学常规程序函数 注意1) 对于有些函数,这个单元中涉及的概念或常数由Earl
阅读全文
摘要:[步骤][功能][说明]Move移动1、将选定的静态函数从一个类移动到另一个类2、将选中的类或接口移动到其他单元Extract Interface抽取接口将选定的函数抽取到一个新的接口Extract Superclass抽取基类将选定的函数、属性、字段从一个类里抽取到一个基类中Pull Member Up将成员向上拉1、将子类中的函数或字段移动到父类2、将子接口中的函数移动到父接口Push Members Down将成员向下推1、将父类中的字段或者函数移动到子类2、将父接口中的函数移动到子接口Safe Delete安全删除在确认没有其他代码调用的情况下,删除所选定的变量、组件、类或接口Inli
阅读全文
摘要:DuplicateHandle函数可以用来复制线程等。
在一个进程中,这个函数可根据位于不同进程内的现有句柄创建一个新句柄。可以从这两个进程中发出对这个函数的调用。进程必须提供PROCESS_DUP_HANDLE访问权限,否则函数执行不能成功
阅读全文
摘要:根据定义计算对文法中每一 A∈VN 计算 FOLLOW(A)(a) 设S为文法中开始符号,把{#}加入FOLLOW(S)中(这里"#"为句子句号)。(b) 若A→αBβ是一个产生式,则把FIRST(β)的非空元素加入FOLLOW(B)中。 如果β =>ε则把FOLLOW(A)也加入FOLLOW(B)中。(c) 反复使用(b)直到每个非终结符的FOLLOW集不再增大为止。或:(a)对文法开始符号S,令#∈FOLLOW(S)。(b)若B→αAβ是一个产生式,则令FIRST(β)-{ε}属于FOLLOW(A);(c)若B→αA是一个产生式,或B→αAβ是一个产生式且有ε∈F
阅读全文
摘要:Delphi调用JavaScript解析Json
1.首先加入ComObj单元
2.加入函数
阅读全文
摘要:提取图标到ImageList
const
SFile='D:\windows\system32\shell32.dll';
阅读全文
摘要:默认DBGRID选中行的颜色为深蓝色,可以在程序中改变
在DBGRID的OnDrawColumnCell中写入
阅读全文
摘要:可将Options->pcoUserPageColorForTab设为True,这样标签按钮的颜色和标签页内容颜色一致
阅读全文
摘要:求出下一个发票号,如FP001的下一个为FP002,FP 001 X的下一个为FP 002 X,FP 001 XN 002的下一个号码为FP 002 XN 002
总是取出第一个数字并加一,但是不足的位数要补零
阅读全文
摘要:在delphi中,可以用WIN API锁定鼠标移动范围。
设有两个按钮,button1用来锁定范围,button2用来解除锁定,代码为:
阅读全文
摘要:对于常用的SQL语句,有时为了规整,必须让关键字大写,但对有的不规范的,我们可以用正则表达式修改为大写,具体步骤为:
阅读全文