通过类名称（字符串）创建类实例 首先要在 initialization 区域注册要创建的类 RegisterClass(TYourClass); 然后在运行期使用如下代码创建 TYourClass 类的实例。 procedure Txxx.xxxx;varcls: TPersistentClass;ys: TYourClass;begincls := GetClass('TForm2');ys := TYourClass(cl
delphi面向服务开发解决方案 1）服务接口设计 基于openapi3进行接口设计。面向服务设计的接口，支持跨平台和跨语言，支持任何终端设备。 以《商品资料》资源为例。 unit server.resources.goods; /// <author>cxg 2022-6-8</author> interface uses System.SysUtils, WiRL.Core.Re
delphi openapi 1）在服务器上运行服务接口中间件 2）在客户端浏览器打开网址：http://42.193.160.160:8080/rest/app/openapi/ 即可在线查看API详细说明，API接口文档都是自动生成的。
openapi-delphi 源码获取：https://github.com/paolo-rossi/OpenAPI-Delphi 什么是 OpenAPI-Delphi OpenAPI-Delphi是一个用于Delphi的 OpenAPI 3.0 生成器，可帮助您从普通的 Delphi 类开始生成 OpenAPI 3.0 文档（以 JSON 格式）。Delphi-OpenAPI 使用Neon序列化库将 OpenAPI 模型从 Del
Neon - Serialization Library for Delphi 源码获取：https://github.com/paolo-rossi/delphi-neon Neon是Delphi的序列化库，可帮助您将（来回）对象和其他值转换为 JSON。它支持简单的 Delphi 类型，但也支持复杂的类和记录。Neon在设计时考虑了REST ，用于在没有“元数据”或添加字段的应用
procedure TForm1.con1ExecuteComplete(Connection: TADOConnection; RecordsAffected: Integer; const Error: Error; var EventStatus: TEventStatus; const Command: _Command; const Recordset: _Recordset);begin mmo1.Lines.Add('con1ExecuteComplete');
XML 文档注释 概述 XML文档注释包括： 以三斜杠 (///) 引入。 使用 XML 标签结构化。 像常规代码块或区域一样折叠和展开（请参阅 使用代码折叠。） Delphi支持。 XML文档注释显示在 Help Insight 中（如果解析成功），并且在生成 XML 文档（作为 devnotes XML 元素）时由编译器包含。 XML 标签
--------开发环境是Delphi XE10-------- 这里要说的是BUG问题， var respStream : TStringStream; respStream.DataString有问题，中文部分乱码！ 解决方法也在代码当中 ---------------------------- 1 unit u_Main; 2 3 interface 4 5 uses 6 Winapi.Windows, W
Delphi TMessage[5] 未定义的特殊消息:$0118 1、$0118 消息特点： 此消息只在文本输入类控件(如: TMemo、TEdit)获得焦点时触发，例如，控制输入光标（光标每秒闪烁一次）; 此消息每秒发送1次, 和输入光标同步; 此消息的方法 WndProc、Dispatch、DefaultHandler 都不能响应，但Application.On
Delphi TMessage[4] TMsg 类型结构 TMsg对Windows消息中的信息进行编码 //Delphi type TMsg = packed record hwnd: HWND; //消息发送到的窗口的句柄。 message: UINT; //消息的标识符（Windows消息代码）。 wParam: WPARAM; //消息的wParam。 lParam: LPARAM;
1.RGB转换为Tcolor function RGBToColor(R,G,B: byte): Tcolor;begin Result := B Shl 16 or G shl 8 or R;end; 2.Tcolor转换为RGB proceudre Tform1.Button1Clink(Sender: Tobject);var Color: TColor; R, G, B: integer;begin Color := ClBlack; R := Color
Delphi TCursor[3] TControl.Cursor 指定鼠标指针进入控件覆盖的区域时用于表示鼠标指针的图像。 property Cursor: TCursor; 更改光标的值，以便在鼠标指针进入控件时向用户提供反馈。游标的值是全局变量Screen维护的游标列表中游标的索引。除了TScreen提供的内置游标之外，应用程
@ 与 ^ 运算符//例1：procedure TForm1.Button1Click(Sender: TObject);varstr: string;p: Pointer;beginp := @str; //变量 str 的地址p := @Form1; //变量 Form1 的地址p := @TForm1.Button1Click; //过程 TForm1.Button1Click 的地址p := Addr(str); //同 p := @str;ShowMessage(
转自delphi 7 下安装 indy 10.5.8 教程 - 晓不得2013 - 博客园 (cnblogs.com) 第二步:菜单 Component ---> Install Packages... 找到此行，点击 "Remove" 删除它。 第三步,点击上图中的 "Add.." ,按 ctrl 键选中 D:\Delphi7\Indy 10.5.8\D7\目录下的两个文件: dclIndy
delphi RichView的使用介绍 RichView 组件 由 9 个组件模块组成，分别是： 1、TRVStyle：主要是定义RICHVIEW样式，定义后，其它RIHCVIEW都可以引用此样式。 2、TRichView ：主要用于显示文本，图像，等等 3、TRichViewEdit： 主要用于编辑文本，图像，等等 4、TDBRic
Delphi提供了repository功能，可以使开发人员共享开发模板，合理使用repository功能可以加快开发速度，开发组配置好共享的repository就可以使用repository了 Add to Repository 当前的窗口添加到仓库文件 Repository 中 2. Repository 管理（现有的Repository 删除，修改）
procedure TForm1.btn1Click(Sender: TObject);var constr,str,str1,str2,str3,str4:string; strs :TStrings; i:Integer;beginconstr:='1-2-3';strs := TStringList.Create; strs.Delimiter := '-'; strs.DelimitedText := constr; for i := 0
delphi try 抛出异常消息 try //代码 except on E: Exception do begin raise E; end; end; try...finally...end // 创建、打开、加锁等 try //具体处理 finally //释放、关闭、解锁等 end; try...except...end try //可能产生异常
Delphi TPicture[1]介绍 1、概念 TPicture包含位图、图标、图元文件图形或用户定义的图形。 TPicture是一个TGraphic容器，用于保存图形，其类型在graphic属性中指定。如果图形可以是任何TGraphic类，则使用它来代替TGraphic。 其中TPicture的LoadFromFile和SaveToFile方法是多态的。例
Delphi TGraphic[1]介绍 1、概念 TGraphic是对象的抽象基类类型，例如可以存储和显示视觉图像的图标、位图和图元文件。 TGraphic是一个无法实例化的抽象类。后代图形对象覆盖了TGraphic的许多方法，以满足其特定文件格式和图形特征的需要。TGraphic还介绍了使用TPicture对象和剪贴板
Delphi XE Debug 和 Release 的区别 1、概念 Debug 通常称为调试版本，它包含调试信息，可以单步执行、断点、跟踪等功能，但生成的可执行文件比较大，代码运行速度较慢，可以说不作任何优化，主要作用是便于程序员调试程序。 Release 通常称为发布版本，它往往是对源代码进行了各种优化，使得程
delphi 做主从表 一般步骤及设置如下（示例）： 一、添加好数据库组件，比如 adoquery、dataSource 各两个（及其他的 AdoConnection 等)。 二、假设主表名为qryMain，从表名为qryDetail，两个 datasource 分别取名为 dsMain、dsDetail，主表与从表关联字段为 id，则设置示例如下： dsMain.DataSet =
StrUtils 单元和 Math 单元 分别有一个 IfThen 函数（注意参数是数字还是字符串）, 举例: StrUtils 单元和 Math 单元 分别有一个 IfThen 函数, 举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Std
function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas 功能 返回指定的逻辑字符串 说明 IfThen(True, '是', '否') = '是'; IfThen(False, '是', '否') = '否
使用 Delphi 的 FireMonkey 框架，开发跨平台的程序，可以做到一个源码，编译成 Windows, Mac OS, Android, iOS，甚至是 Linux 上面运行的程序。 简单说，就是可以开发 Android 和 iOS 的 APP，同时代码不修改也可以运行在 Windows 上和 Mac OS 上面。 如果你发布的 APP 需要给各国用户使用，需
