string类型和动态数组类型都是系统自管理的,不用担心内存泄漏。 系统事件中的参数Sender: TObject,是指触发该事件的控件,但Sender是TObject类型的,在实际使用时需要强制向下转型。 --例如有多个Button,以及一个用于显示Label, 且这些按钮的功能都是一样的,比如说将自己的caption赋给Lab
Delphi中有多种字符串类型,常见的有 UnicodeString AnsiString ShortString 不同类型的字符串可以在赋值语句和表达式中混用,编译器会自动进行类型转换。但是在某些情况下可能会造成数据的丢失。(例如双字节字符转换成单字节字符的时候。) 一、Unicodestring 在目前的Delphi中,Strin
本文参考自《delphi2010语法手册》 1. 工程文件结构 源文件联系着unit单元,delphi主模块源文件格式为.dpr,其他模块为.pas,一个完整程序由一个.dpr和若干.pas组成。 2..dpr 程序结构 一个.dpr由程序头、[use从句]、主程序块组成。一个典型工程文件如下: 1 program Project; 2 {$APPT
1、文件构成delphi的主模块文件格式为.dpr(类似C++的.sln文件),其它模块文件为.pas(类似C++的.cpp文件)。所以一个完整的程序由一个.dpr和若干个.pas组成 (1).dpr程序结构一个dpr由程序头、[use从句]、主程序组成,另外源文件联系着unit单元,一个典型的工程文件如下所示:program Project
--位运算符:and、or、xor、not shl(); --二进制左移,相当于*2 shr(); --二进制右移,相当于div 2 delphi中的函数和过程调用都是按就近原则, 比如有一个公共函数fun()和一个对象里的函数TObject.fun(), 调用fun()函数的公共过程PubilcProc()和TObject.Proc()。 publicPro
用fieldbyname能不能取某一数据库的一列的值,并把这一列的值按顺序分别存放到stringgrid的对应的位置中?如果能该怎样写语句??(query控件已经设好) 假设query控件名称为query1,要取的字段名为:name,字符串类型,那么如下写:varsname:string;beginquery1.first;while not query1.eof do //
1、先要安装控件\NativeExcel310(自行下载) 2、添加单元引用 uses nexcel; 3、转换方法 function ExcelToDataSet(fileNmae:string):TClientDataSet; var od: TOpenDialog; wb: IXLSWorkbook; ws: IXLSWorksheet; irow,J: integer; v: Variant; ClientDataSet1: TClientDataSet;
------Delphi7 需要引用:TypInfo单元 --Unit开始-- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TypInfo; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Clic
--------开发环境Delphi7 ----效果图: -----Unit开始 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtDlgs, ExtCtrls, ComCtrls, Math; type TForm1 = class(TForm) Image1: TImage; Image2: TI
--------开发环境Delphi7 ----效果图: ------Unit开始 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtDlgs, ExtCtrls, ComCtrls, Math; type TForm1 = class(TForm) Image1: TImage; Image2: T
------开发环境Delphi7 -----效果图: -----Unit开始 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtDlgs, ExtCtrls, ComCtrls, Math; type TForm1 = class(TForm) Image1: TImage; Image2: TIm
自己的电脑上有些绿色软件,一般是放在D盘的一个目录下面,但是需要放在C盘使用,于是自己写了个拷贝或者更新的小程序练手。 IOUtils 单元主要就是三个结构: TDirectory、TPath、TFile, 很有用。这次我用到了TDirectory。 TDirectory.CreateDirectory(); {建立新目录} TDirecto
Delphi 2010 新增功能之: IOUtils 单元(6): TPath(结构体) 的方法与属性 以后路径相关的处理, 用 IOUtils.TPath 就很方便了. //较常用的方法: TPath.GetTempPath; {获取临时文件夹路径} TPath.GetTempFileName; {获取一个临时
Delphi 系统[4]关键字和保留字 interface、implementation、initialization、finalization 与单元文件(Unit)相关的关键字。 1、定义: interface :单元文件的接口部分,也用于定义接口类型。引用其他单元、定义数据类型、定义过程函数、定义变量常量等,此处定义的类型或数据对其他单元
QuickLogger库,用于记录文件、控制台、内存、电子邮件、rest、事件日志、系统日志、slack、电报、redis、logstash、elasticsearch、influxdb、graylog、Sentry、Twilio、ide 调试消息和抛出事件...... https://github。 com/exilon/QuickLogger QuickLogger Delphi(Delphi XE6
QuickLib快速开发库(AutoMapper、LinQ、IOC 依赖注入、MemoryCache、计划任务、Json 和 Yml 配置和选项模式、序列化程序等),具有对 Delphi 的跨平台支持…… https://github.com/exilon/QuickLib QuickLib Small delphi /Firemonkey(Windows, Linux, Android, OSX & IOS) 和 fpc(
控制项的 window handle 是在 CreateWnd 方法中建立的。 如果你想要在建立 window handle 後接着做某些动作那麽你应该改写 CreateWnd 方法: procedure TMyClass.CreateWnd; begin // 现在还没取得 window handle inherited CreateWnd; // 呼叫 inherited 以取得 window handle
TRichView字体和段落 介绍 TRVStyle.TextStyles Unit RVStyle; //文本样式属性的集合。 property TextStyles : TFontInfos; //文本样式集合中的项目类。 TFontInfos = class(TCustomRVInfos) //文本样式定义文档中的字体和其他文本属性。 TFontInfo = class(TCustomRVFontInfo)
Delphi WMI[3] 获取硬盘ID的方法(无需管理员权限) function GetWMIHardNo() : String; var Locator : OleVariant; WMI : OleVariant; RET : OleVariant; Enum : IEnumVariant; Tmp : OleVariant; Value : Cardinal; begin Result := ''; try
我有一些好消息要告诉你,软件开发的未来已经到来!好吧,准确地说,软件开发未来可能发生的下一件大事就在这里……又一次。 随处可用,只需添加 RAM内存 我对Eiection电子这个名字有这种心理障碍。我不完全确定为什么会这样,但是每当我试图记住这个无处不在的 Web 框架的名称时,我
Delphi WinAPI GetClientRect - 检索窗口客户端区域的坐标。 描述:客户机坐标指定客户机区域的左上角和右下角。由于客户端坐标相对于窗口客户端区域的左上角,因此左上角的坐标为(0,0)。 原型: BOOL GetClientRect( HWND hWnd, LPRECT lpRect ); 参数: hWnd(类型:HWND):要检索其坐
Delphi WinAPI GetWindowRect - 检索指定窗口的边框的尺寸。尺寸以相对于屏幕左上角的屏幕坐标表示。 原型: BOOL GetWindowRect( HWND hWnd, LPRECT lpRect ); 参数: hWnd(Type: HWND):窗口句柄 lpRect(Type: LPRECT):指向接收窗口左上角和右下角屏幕坐标的RECT结构的指针。
默认的情况下,IDE帮我们建立的窗体类都如下: type TForm1 = class(TForm) ScrollBox1: TScrollBox; GroupBox1: TGroupBox; ScrollBox2: TScrollBox; RadioGroup1: TRadioGroup; private { Private declarations } public { Public declarations
Delphi WMI[2] 响应网线断开 uses WbemScripting_TLB,ActiveX,ComObj; procedure OnDisconnect(Sender: TObject; var objWbemObject: OleVariant; var objWbemAsyncContext: OleVariant); procedure TForm1.OnDisco
Sqlserver_datatype Delphi_datatype ------------------- --------------------- AutoInt ftAutoInc integer ftInteger tinyint