txgh

摘要： 运行时动态获取控件（类）属性值 代码 运行时根据控件名称获取Caption属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRtti 阅读全文

摘要： SQLite 设置自增列、重置自增列 创建表 设置主键自增 CREATE TABLE [tCeShi]( [ID] INTEGER PRIMARY KEY AUTOINCREMENT, [Name] TEXT(50), [Amount] REAL); 插入数据 主键位置写成NULL insert i 阅读全文

摘要： 自定义光标 代码 使用图像的方式 你可以使用两个位图（一个用于普通图像，一个用于遮罩图像）来创建图标，并将其手动加载到 Cursors 属性 使用完自定义光标后要调用Windows API函数DestroyIcon const crMyCursor = 5; procedure TForm1.But 阅读全文

摘要： 设置全局级别光标 代码 begin Screen.Cursor := crHourGlass; try //业务处理的代码... finally Screen.Cursor := crDefault; end; end; 方法 Vcl.Forms.TScreen.Cursor property Cu 阅读全文

摘要： Base64转换（加密、解密） 代码 字符串加密、解密 uses System.NetEncoding; procedure TForm1.Button1Click(Sender: TObject); var str1, str2: string; begin //加密 str1 := TNetEn 阅读全文

摘要： FireDAC 分页查询 代码 分页查询 procedure TForm1.Button1Click(Sender: TObject); begin //设置每页返回的记录数（获取的最大记录数） FDQuery1.FetchOptions.RecsMax := 20; //获取第1页的数据（从0开始 阅读全文

摘要： FireDAC 数据集快速遍历方式 代码 遍历数据集 procedure TForm1.Button1Click(Sender: TObject); var vTick: DWORD; I: Integer; vCount: Integer; begin //查询数据 FDQuery1.Open(' 阅读全文

摘要： FireDAC 调用 Execute 提示 [FireDAC][SQL Server Native Client 10.0]字符串数据，长度不匹配 错误 问题 调用 Execute 向SQL Server数据库中批量插入数据时，参数中有BLOB 数据类型（ftBlob、ftMemo 等）时，出现 [ 阅读全文

摘要： # FireDAC 批量执行命令（批量插入、更新、删除） ## 代码 ### 批量插入 ```delphi procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin //建立连接 FDConnection1.Conne 阅读全文

摘要： # FastReport 保存和加载已准备的报表 ## 属性和方法 ### TfrxReport.PreviewPages ```delphi property PreviewPages: TfrxCustomPreviewPages; ``` 指向已完成报表的当前页面的链接。它用于与完成的报表相关 阅读全文