delphi通过方法名调用方法
delphi通过方法名调用方法
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
type
TFunc = procedure(Param: string) of object; //定义方法原型
TForm1 = cl ...
【最新】Delphi XE7 绿色版下载，亲测可用！
最后更新时间 2017-12-05.
本文整理自2ccc盒子iny的帖子 → 链接到原贴
破解 → 链接
一、绿色版介绍
绿色版除了不包含 FastReport（RAD Studio自带的FastReport为精简版），其它均为完整版，没有做任何的精简，也没有做任何的改动！
绿色版包括了绿化程序1.0版(RADStudioXE7Green.exe)，如有更新，仅仅只需要更新RADSt ...
C#.NET制作DLL供DELPHI调用
因为工作需求，本来想用C#做一个WebService，但是弄了两天没做成。于是想，反正都是我这一台电脑，做个DLL吧。
1 namespace U8Service
2 {
3 public interface IMyFunc
4 {
5 int Jia(int a, int b);
6 int Jian(int a, int b);
7 }
8 [ClassInterface(ClassInterfaceType.None)] ...
mormot2ORM
mormot2ORM
unit mormot.orm.core;
/// root class for defining and mapping database records
// - inherits a class from TOrm, and add published properties to describe
// the table columns (see TPropInfo for SQL and Delphi type mapping/conversion)
// - this published properties can be auto-fill ...
mormot118ORM
mormot118ORM
unit mORMot;
/// root class for defining and mapping database records
// - inherits a class from TSQLRecord, and add published properties to describe
// the table columns (see TPropInfo for SQL and Delphi type mapping/conversion)
// - this published properties can be auto-fille ...
delphi 浮点类型比较，判断是否为零
浮点类型比较，判断是否为零
代码
比较浮点数
procedure TForm1.Button1Click(Sender: TObject);
var
d1, d2: Double;
begin
d1 := 1.2345;
d2 := 1.2346;
//判断浮点数是否相等（误差小于0.0001）
if SameValue(d1, d2, 0.0001) then
Memo1.Lines.Add('相等')
else
Memo1.Lines.Add('不相等');
// ...
delphi 判断字符串是否包含汉字，正则版与非正则版实现
代码一
//正则版
uses RegularExpressions; //相关单元
function IsChineseStr(s: String): Boolean;
const
pattern ='[\x{4E00}-\x{9FA5}]'; //测试用的表达式
begin
Result:=false;
if TRegEx.IsMatch(s, pattern) then
begin
Result:=True;
end;
end;
//非正则版
function isChina(S: string): Boolean;
var
pSt ...
delphi 判断字符串是否为纯字母组合的函数
代码一
function IsEnCase(Vaule:String):boolean; //判断字符串是否为纯字母组合
var
i:integer;
begin
Vaule:=trim(Vaule); //去空格知
for i:=1 to length(Vaule) do //准备循环
begin
if ( Vaule in ['A'..'Z']) or ( Vaule in ['a'..'z']) then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回
begin
result:=true; ...
delphi 判断字符串是否为纯数字组合
核心代码
function IsNUM(Vaule:String):boolean; //delphi 判断字符串是否为纯数字组合
var
i:integer;
begin
Vaule:=trim(Vaule); //去空格知
for i:=1 to length(Vaule) do //准备循环
begin
if ( Vaule in ['0'..'9']) then //如果Vaule的第i个字不道是A-Z或者a-z中的任一个回
begin
result:=true; //返回值 不是
end
...
Delphi(lazarus) TStringHelper用法详解(转载)
Delphi(lazarus) TStringHelper用法详解
Delphi XE4的TStringHelper，对操作字符串进一步带来更多的方法，使用这些方法才可以实现跨平台的代码。
Delphi引用单元:System.SysUtils.TStringHelperLazarus引用单元:SysUtils
大小写转换:--------------------------------------------------------------------------------&n ...
delphi D11编程语言手册 学习笔记(P344-392) 接口/类操作
这本书可以在 Delphi研习社②群 256456744 的群文件里找到. 书名: Delphi 11 Alexandria Edition.pdf
置顶: 好烧脑啊!
P344-365 接口
"接口" 的概念和 "类" 特别是 "抽象类" 近似, Delphi 之初并没有接口, 后来(Delphi 3)为了支持 COM 引入了接口, 再后来发展成为 Delphi 重要的语言特性.
使用 COM ...
学习Delphi原生JSON框架(一) TJsonValue
一、前言
Delphi自带了json支持，引用System.json，你就可以处理json，读写json格式的内容都是被支持的。发展了几个版本，无论性能及稳定性都已经成熟，我不喜欢引用更多的三方到项目中，所以，对于Delphi处理json来说，自带的是我的首选。
目前，Delphi Json的实现，支持json所有的类型：
TJSONObject
TJSONArray
TJSONNum ...
Delphi IdTCPClient[1] 介绍、属性、方法
Delphi IdTCPClient[1] 介绍、属性、方法
1、介绍
实现TCP客户端。TIdTCPClient封装了一个完整的TCP（传输控制协议）客户端，包括socks支持。TIdTCPClient可以用作特定协议实现的祖先类。许多Indy客户端组件，如TIdDayTime、TIdEcho、TIdFinger、TIdFTP、TIdGopher、TIdPHTTP、TIdNNTP、TIdPOP3、TIdQUOT、TIdSMTP、TIdTeln ...
delphi 正则表达式的使用方法
本文写于2022-10-14,D版本10.3.3
引用单元:
uses System.RegularExpressions
1、TRegEx.Match方法
Match()方法总是获取满足条件的第一个匹配，而不关心满足条件的匹配有多少个。
Match()方法都回一个Match对象，其中包含了匹配的各种细节.
Match()方法的取值方法
var
m:TMatch;
begin
m := TRegEx.Match('a1 ...
Delphi SuperObject json操作类的基本用法
Delphi2009中开始提供了json支持，但并不完善，提供的单元为（Delphi 2009-Delphi XE4 为DBXJson,很不好用，当时据说是为Datasnap开发准备，方法功能不完善，缺少比如XE5以上版本（System.json)中所提供的GetValue等方法。所以经过各种测试json官方提供的几个单元，比如ljkjson等。最终发现还是SuperObject最好用。 ...
Delphi语言 历史与发展前景
转载:https://www.cnblogs.com/bolang100/p/9804938.html
自1995年Borland公司发布Delphi 1.0以来，Delphi受到很多开发者的亲睐，到1999年发布Delphi5，Delphi以其开发快捷、控件丰富、易于上手等优势吸引了众多的开发者，用户人数达到高潮，一度超越Visual Studio。可是好景不长，在推出Delphi7之后不久，Borland公 ...
delphi model
delphi model
model就是record（记录或结构体）。model来源于以下几种途径。面向model编程适用于任何开发语言。
1）人工书写model。
type
Ttunit = record
[Serialize(1)] unitid: string;
[Serialize(2)] unitname: string;
end;
TtunitArray = record
[Serialize(1)] status: integer;
[Serializ ...
Delphi 新语法：泛型
这里的新语法一般指Delphi7不支持的语法，高版本中会经常遇到，所以花一点时间学会使用它。泛型是一种特殊的类型。你不用一开始就指明参数的具体类型，而是先定义一个类型变量，在使用的时候再确定参数的具体类型。准备从万一博客中学习，节约翻找资料的时间。
最简单的泛型
一开始我们看下Tbyte类型的定义
继续看一下 ...
delphi 常用控件属性设置说明
常用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 ...
delphi TMS FlexCel 导出PDF设置
TMS FlexCel 导出PDF设置
属性和方法
TFlexCelPdfExport.Compress
property Compress: Boolean
当为true时，PDF文件将被压缩。默认值 true。
TFlexCelPdfExport.PageLayout
property PageLayout: TPageLayout
设置打开文档时的默认页面布局。
TPageLayout
首次打开文档时的查看器设置。
unit
FlexCel.Pdf
None 保持用户 ...
