unit R30; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRei30 = class(TForm) Panel1: TPanel; Button1: TButton; ScrollBar1: TScrollBar; ScrollBar2: TScr
这里的新语法一般指Delphi7不支持的语法，高版本中会经常遇到，所以花一点时间学会使用它。泛型是一种特殊的类型。你不用一开始就指明参数的具体类型，而是先定义一个类型变量，在使用的时候再确定参数的具体类型。准备从万一博客中学习，节约翻找资料的时间。 最简单的泛型 一开始我们
unit R29; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRei29 = class(TForm) Panel1: TPanel; Button1: TButton; ScrollBar1: TScrollBar; ScrollBar2:
据说Delphi 2005开始支持For in语句.并没有深入调查,依然从万一博客学习并整理. 一、遍历 TStrings var List: TStrings; s: string; begin List := TStringList.Create; List.CommaText := 'aaa,bbb,ccc'; for s in List do ShowMessage(s); List.Free; end;
常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Class TADOStoredProc Class TButton Class TBitBtn Class TComboBox Class TStaticTex
问题:dxBarManager1 里面添加了cxBarEditItem1 这是个文本框,运行可以输入内容,但是当焦点失去时,刚刚输入的内容没了.只能每次输完内容后一定要按回车才能保存内容.这里面所有能改变值的控件都是这样子的,有没有什么办法可以在控件去焦点时,自动保存刚刚的更改?我试过sendmessage
1.位置:OnGetContentStyle事件,在事件列表的Style下. 2.OnGetContentStyle何时触发: 当获取内容数据的UI样式(style)时触发此事件. 注意,用户每次点击单元格时,都会触发此事件! 3.参数解释 procedure TForm1.cxGrid1DBTableView1StylesGetContentStyle(Sender: TcxCustomGridTabl
Delphi XE6新增了一些特性并增强了原有的功能，主要有以下几个方面： IDE（整合开发环境） Internet XML（扩展标记语言） Compiler（编译器） COM/Active X Database support（数据库支持） CORBA Actions（动作） Custom Variants（可定义的可变类型） VCL 单元和特性 RTL单元和特性 Cross-platform de
Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的“BorlandTurbo Pascal”，最早的版本由美国Borland（宝兰）公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。
stringlist通过Delimiter方法获取切割字符，默认受空格字符影响。 var sl: TStringList; str: string; i: Integer;begin str := 'aa,b b,cc,dd'; sl := TStringList.Create; sl.Delimiter := ','; //设置判断特殊字符截取不同内容 sl.De
首先搜索现成的文章学习 原文：https://www.cnblogs.com/guorongtao/p/15132445.html 其次自己理解并总结最常见的用法 constructor用来定义构造函数，destructor用来定义析构函数，property用来定义属性。 constructor后面一般跟Create，destructor后面一般跟Destroy; override; 创建一
TMS FlexCel 导出PDF 属性和方法 TFlexCelPdfExport 用于将Excel文件导出为PDF的组件。 unit FlexCel.Render TFlexCelPdfExport.Create constructor Create(const aWorkbook: TExcelFile); constructor Create(const aWorkbook: TExcelFile; const aAllowOverwritingFiles: Boole
内存中的字节顺序与网络传输的字节顺序是不一样的，用名词说就是大端存储和小端存储的区别，有时候就需要转换。 Delphi7不支持inline内联函数，可以把inline去掉。 function Swap16(const Value: Word): Word; inline; begin Result := Swap(Value); end; function Swap32(const Val
其实就是#13#10 //Delphi7中： const sLineBreak = {$IFDEF LINUX} #10 {$ENDIF} {$IFDEF MSWINDOWS} #13#10 {$ENDIF}; //Delphi11中： const sLineBreak = {$IFDEF POSIX} _AnsiStr(#10) {$ENDIF} {$IFDEF MSWINDOWS} _AnsiStr(#13#10) {$ENDIF};
使用VBA接口实现。 VBA官方接口： Office Visual Basic for Applications (VBA) 参考 | Microsoft Docs 常用办公三件套的接口和其他的软件接口齐全。 打开Word ： uses ComObj ///声明,所有VBA相关的对象都使用Variant实现 wApp,eApp,wordRange:Variant; ///实现 try wApp:=Get
有时候我们会把内存流，文件流等作为参数传递给函数内部使用。 在传参之前必须加上 dMem.Position := 0; 不然就会出错。 因为如果dMem流是作为其他函数输出流的话，它的Position是在最后的。 dMem.Position := 0; Base64Encode(dMem, Result);
效果要求: 点击树形结构不同的行,弹出不一样的下拉菜单 窗体设计: 数据库设计: 实际效果: 核心代码: procedure TForm1.PopupMenu1Popup(Sender: TObject); var iType: Integer; begin with FDQuery1 do begin if RecordCount = 0 then // 当没有数
刚开始新建时,我acok是取名为mrok,acno是取名mrno,所以直接弹错"TModalResult" 与 "TAction"不兼容 最后是在重写 ModalResult:=mr....时,看到mrok和mrno提示后面的属性,居然是TAction,才明白原来是取名不规范造成的! 大致如下: 正常情况是这样的:
delphi基于结构的CRUD（JSON） 以采购订单为例。 unit rest.tcgddtcgdd2; //代码由代码工厂自动生成 //2022-08-20 16:04:54 {$I def.inc} interface uses {$IFDEF firedac} db.firedac, db.firedacPool, {$ENDIF} {$IFDEF unidac}db.unidac, db.unidacpool, {$ENDIF} class
procedure TFormAlissaA.ListViewAAdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); begin if Item.SubItems[0] = 'Send' then begin Sender.Canvas.Fon
handle := FindWindow(nil,PChar('窗口的标题')); 或者： procedure TForm1.Button1Click(Sender: TObject); var hCurrentWindow: HWnd; WndText:String; begin hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST); while hCurrentWindow <> 0 do begin Wnd
1 记得use WinSvc; 2 3 //------------------------------------- 4 // 获取某个系统服务的当前状态 5 // 6 // return status code if successful 7 // -1 if not 8 // 9 // return codes: 10 // SERVICE_STOPPED 11 // SERVICE_RUNNING 12 // SERVICE_PAUS
function ChangeFileExt(const FileName, Extension: string): string; var I: Integer; begin I := LastDelimiter('.' + PathDelim + DriveDelim,Filename); if (I = 0) or (FileName[I] <> '.') then I := MaxInt; Result := Copy(FileN
可以生成自定义长度的随机字符串，字符串可以是大小写字母、数字或者是他们的混合。 function RandomStr(StrLength: Integer; Lowercase: Boolean = True; Number: Boolean = True; Uppercase: Boolean = False): string; const UpperStr = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; Lowe
根据c#改编而来，很多年了。 function GenerateChineseWords(count: integer): string; var i: integer; regionCode, positionCode: integer; regionCode_Machine, positionCode_Machine: integer; chineseWords: string; begin Randomize; for i := 0 to count - 1 do
