随笔分类 - delphi一般
摘要：一、都有窗体的情况下： B窗体继承于A窗体 同一个控件 ab窗体类中是怎么写的呢？ A中的写法 type TFrmBasePaging = class(TXForm) btnSearch: TBitBtn; procedure btnSearchClick(Sender: TObject); pro
阅读全文
摘要：new Date().getTime(); //1533213439019 通过，启发 function DateTimeToUnix(const AValue: TDateTime): Int64;begin Result := SecondsBetween(UnixDateDelta, AVal
阅读全文
摘要：Delphi 1 Delphi 2 Delphi 3 Delphi 4 Delphi 5 Delphi 6 Delphi 7 Delphi 8 Delphi 2005
阅读全文
摘要：https://www.oschina.net/code/snippet_54124_5194
阅读全文
摘要：通常很少对窗体类TForm 添加构造函数，一般类会经常用到； 同事需要创建窗体是先传特殊参数。写法： 代码如下： unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls
阅读全文
摘要：来自: daocaoren0824, 时间: 2005-10-21 11:48:42, ID: 3240062 再给你一份 程序员实用函数 {▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎} {▎ ▎} {▎...
阅读全文
摘要：Delphi 函数大全 - xiucaiyao的专栏 - 博客频道 - CSDN.NEThttp://blog.csdn.net/xiucaiyao/article/details/4544039 名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitpro
阅读全文
摘要：既然已经做出了com程序用delphi来开发的决定，那当然就要对delphi进行一些深入的了解。有人说delphi是一个用控件堆砌起来的工具，和vb没什么两样；也有人说dephi实际上是面向过程的，他的面向对象并不彻底。实际生活中持这两种观点的人不在少数，就拿我认识的一个非常好的程序员来说吧，他很早
阅读全文
摘要：举例：ShowMessageFmt('n1:%x; n2:%x', [n1,n2]); 显示Params 为 array[integer] of TvarRec 进制表示 %o(8) printf("%d(10) %x(16) procedure ShowMessageFmt(const Msg:
阅读全文
摘要：Cardinal 是 4 字节无符号的整型, 先看一个例数:
阅读全文
摘要：fdword :DWORD; procedure TForm10.btn1Click(Sender: TObject); var temp:DWORD; begin fdword :=786627; //786627 11000000000011000011 temp := fdword shr (1*8); // ShowMessage(IntToStr(...
阅读全文
摘要：mmoComplain: TMemo;//cxmComplain.Text 会造成回车键 转换成十六进制的字符串 #$D#$A，而非#13#10 //cxmComplain.Text范例：'风发的是'#$D#$A'范ljk'#$D#$A'13123' strComplain:=cxmComplain.Lines.CommaText; //函数原型 function AdjustLin...
阅读全文
摘要：//1019unit System; 中发现记录体函数命名怪异//乍一看，很怪异，其实是结构体里面 的变量后面直接写 函数类型了。不像传统先定义T***Event = procedure(Sender: TObject;LbName : string)of object;再使用 VarClear ：= T***Event; PVariantManager = ^TVariantMan...
阅读全文
摘要：strTimeZone := Format('%s ~ %s',[formatdatetime('yyyy-mm-dd',dtpStartTime.DateTime), formatdatetime('yyyy-mm-dd',dtpEndTime.DateTime)]); strRecordMsg
阅读全文
摘要：TTrayIcon用法 self.trycn1.Icon:=Application.Icon; Self.trycn1.Hint:=self.Caption; self.trycn1.Visible:=true; 关闭时 begin self.trycn1.Visible:=false; Application.Terminate; end; procedure...
阅读全文
摘要：利用TypInfo单元的GetEnumName和GetEnumValue可以遍历任意枚举类型，并获取其名称和值。下面是示例Demo。 要引入单元TypInfo procedure TForm1.btnTestClick(Sender: TObject); var p: PTypeData; i: Integer; s: String; pt: PTypeInfo; begin ...
阅读全文
摘要：dlgSave := TSaveDialog.Create(nil); dlgSave.filter := 'CSV文件|*.CSV'; dlgSave.DefaultExt := '*.CSV'; dlgSave.filename := '服务.CSV'; if dlgSave.Execu...
阅读全文
摘要：需要AntiVC.dll文件 次世代验证码识别系统 http://antiyzm.sinaapp.com/archives/category/detailunit Delphi7;interfaceuses Windows, Classes, Graphics, Controls, Forms, ...
阅读全文
摘要：调用 speeker.dll 这个文件被本人 放在文件里面，若有人需要可以 联系我需要 mfc100ud.dll msvcr100d.dll注：可以用D7 自带的ActiveX 里面的控件，可以调速，需要安装语音包。unit Unit1;interfaceuses Winapi.Windows...
阅读全文
