Delphi 实现刘谦春晚魔术
看了博友的C# 实现刘谦春晚魔术很好，改成了delphi版的。
1 program Project1;
2
3 {$APPTYPE CONSOLE}
4 {$R *.res}
5
6 uses
7 System.SysUtils,
8 System.Classes;
9
10 var
11 list, removeElement: TStringList;
12 i, NameCount, insertIndex, directCount, sexCount: Intege ...
delphi GUID相关操作
GUID相关操作
代码
procedure TForm1.Button1Click(Sender: TObject);
var
GUID1, GUID2: TGUID;
begin
//创建GUID
if CreateGUID(GUID1) <> 0 then
Memo1.Lines.Add('创建失败');
//转换为字符串
Memo1.Lines.Add(GUIDToString(GUID1));
//分段输出
Memo1.Lines.Add(Format('D1 %x', [GUID1.D1]));
M ...
delphi 里 多用TArray 而不是 array of
今天写代码发现个bug，是delphi 编译器 核心层面的：
unit ddx.att;
interface
uses System.Generics.Collections, System.Rtti;
type
xstring = string;
InstanceName = class(TCustomAttribute)
private
Fvalue: array of string;
public
constructor Create(AValue: array of string);
end;
im ...
Delphi Animation
AnimateFloat 是 Delphi 中用于创建简单动画效果的一个函数，它可以让你平滑地改变控件的属性值，例如位置、大小、透明度等。通过指定起始值和目标值，以及动画持续时间，AnimateFloat 函数可以实现属性值的过渡动画效果。
下面是 AnimateFloat 函数的语法：
procedure AnimateFloat(const AObject: TObject; const ...
delphi的bpl、dcp 、dcu
BPL 英文全称 Borland Package library ，是一种特殊的DLL文件，用于代码重用和减少可执行文件。编译bpl时，仅需要添加相应功能的pas文件，如果有窗体，则需要添加dfm文件。既然是DLL文件，那就是在运行时所需要的文件。BPL相当于C++中的DLL
DCP 英文全称：delphi co ...
DELPHI模板编程
DELPHI模板编程
procedure TCRUD<T>.execsql(OnTableModel: TTableModel);
//执行事务性SQL
begin
if req.Body = nil then
Exit;
var pool: TDBPool := GetDBPool(dbid); //database pool
db := pool.Lock;
try
try
table := serialize.TSerial<TTable<T>>.unjson(TStream(req.Body)); //json str ...
delphi 路径操作函数
路径操作函数
System.SysUtils.AnsiCompareFileName
根据当前语言环境比较文件名。
在 Windows 下不区分大小写，在 MAC OS 下区分大小写。
在不使用多字节字符集 (MBCS) 的 Windows 区域设置下，AnsiCompareFileName 与 AnsiCompareText 相同。在 MAC OS 和 Linux 下，AnsiCompareFileName 与 AnsiCompareStr 相同。
begi ...
Delphi中 TStringList 的详细用法
TStringList 类是在Delphi使用最厂的一个对像，我们这里一起来看看 TStringList 的详细用法.
先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
TStringList 常用方法与属性:
var
...
delphi泛型模板编程
delphi泛型模板编程
泛型模板编程的关键：泛型作用体现在模板，体现在虚实之间相互转换。以虚御实，以实立虚，虚中有实，实中有虚，虚事实做，实事虚做。框架、流程。。无不如此，编程之道。
unit TxInfo;
interface
uses
System.Types,
System.Classes,
System.SysUtils,
Generics.Collections;
type
TPeopl ...
Delphi:cxGrid的使用方法
Delphi:cxGrid的使用方法
1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsview的footer=ture然后在cxGRid1的customize中的summary 的footer.add需要合计的列kind= skSum3. 去掉cxgrid 中的过滤下拉箭头选择tableview1.optionscustomize.column ...
delphi Base64转换（加密、解密）
Base64转换（加密、解密）
代码
字符串加密、解密
uses System.NetEncoding;
procedure TForm1.Button1Click(Sender: TObject);
var
str1, str2: string;
begin
//加密
str1 := TNetEncoding.Base64.Encode('测试数据');
Memo1.Lines.Add('加密数据 ' + str1);
//解密
str2 := TNetEncoding.Base64.Decode(str ...
delphi 操作INI文件
转载自: delphi读写INI文件_delphi写数据到ini_苏生米沿的博客-CSDN博客
Delphi提供了读写INI文件的方法，Delphi操作INI文件最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。
一、INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个 ...
delphi json用法详解
在 Delphi 中，使用 JSON（JavaScript Object Notation）可以实现数据的序列化和反序列化，以便在不同系统之间传递和存储数据。下面是使用 Delphi 处理 JSON 的一些常见用法：
创建 JSON 对象：
var
jsonObject: TJSONObject;
begin
jsonObject := TJSONObject.Create;
try
jsonObject.AddPair('name', 'John');
jsonObje ...
Delphi 数据类型
在Delphi中，有许多不同的数据类型可供选择，每个数据类型具有不同的特性和用途。以下是一些常见的Delphi数据类型：
1. 整数类型：
- `Byte`：无符号8位整数。
- `Shortint`：带符号8位整数。
- `Word`：无符号16位整数。
- `Smallint`：带符号16位整数。
&nbs ...
delphi截取字符串心得
在Delphi的日常开发中，确实经常需要截取字符串来满足不同的需求。Delphi自身提供了一些字符串处理函数，但有时候这些函数可能不够用或者使用起来不够方便。下面我将分享一个自己在Delphi开发中用于截取字符串的进一步封装的函数。
/////////////////////////////////////
//提取字符串中指定子字符串前的字符串
fu ...
delphi orm
delphi orm
以计量单位为例。
1）定义单位data-model，实际项目，为了加快开发速度，会使用工具从数据表自动生成data-model。
生成的计量单位data-model
unit danwei.model;
/// <author>cxg 2023-8-30</author>
interface
type //定义 数据模型(data-model)
Tdanwei = record
unitid: string;
uni ...
delphi FastReport 预览设置
FastReport 预览设置
属性和方法
TfrxPreviewOptions.AllowEdit
property AllowEdit: Boolean;
启用或禁用已完成的报表编辑。默认值为 True。
TfrxPreviewOptions.AllowPreviewEdit
property AllowPreviewEdit: Boolean;
在报表预览中启用就地编辑器。允许用户在没有报告报表设计器的情况下编辑准备好的报表文本和其他属 ...
delphi FastReport 打印设置
FastReport 打印设置
属性和方法
TfrxPrintOptions.Copies
property Copies: Integer;
默认可打印份数。默认值为 1。
TfrxPrintOptions.Duplex
property Duplex: TfrxDuplexMode;
全局双工设置。仅在准备报表后设置。
TfrxPrintOptions.PrintMode
property PrintMode: TfrxPrintMode;
打印模式。默认值为 pmDefault。
Tf ...
Delphi应用EXCEL（3） 使用OLEOBJECT
1、创建EXCEL的方法
首先创建 Excel 对象，使用单元ComObj :
Var
ExcelApp : Variant ; begin
ExcelApp := CreateOleObject ( '' Excel.Application '' ) ;
使用OLEOBJECT创建的EXCEL应用程序是一个Variant类型，所以DELPHI不能自动补充语句，也没有帮助文件，需要到visual basic中去寻求帮助，完成功能语句的调用。 ...
delphi应用EXCEL（2） 使用delphi控件
Delphi的excel控件在servers面板中，有些版本的DELPHI中未打开这些控件，但都是安装了的，手动去打开即可。
在servers控件选项页面中，选择ExcelApplication、ExcelWorkbook和ExcelWorksheet这3个控件。
ExcelApplication：用于启动/关闭EXCEL应用程序。
ExcelWorkbook：用于连接工作薄。
ExcelWorksheet：用于连接工作表 ...
