![](https://img-blog.csdnimg.cn/20201014180756919.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi-基础
lypingfan
时光荏苒,再好的记忆,也挡不住时光流逝,与其流逝不如记录。
展开
-
TstringList 操作
1、过滤 “空格” 在 xe 10.4 测试通过。设置:StrictDelimiter := true.2、基础性操作可参考以下链接:(4条消息) Delphi总结使用TStrings的一些技巧_踏雪无痕的博客-CSDN博客_delphi tstrings原创 2022-06-06 09:48:09 · 73 阅读 · 0 评论 -
设置cxGrid某条件下颜色
procedure cxgrdbtblvwGrid1DBTableView1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);var BColor, FColor: TColor;begin BColor := ACanvas.Canvas.Brush.Color; FColor := A...原创 2022-05-30 16:30:47 · 299 阅读 · 0 评论 -
delphi fastreport 动态加载TfrxDBDataset
在动态 生成TfrxDBDataset并加载数据之后,再进行报表文件的加载,否则,数据集会找不到。 frxrprt1.DataSets.Clear; //清空数据集//加载数据集 frxrprt1.DataSets.Add(frxdbdtst_sfxxi); frxrprt1.DataSets.Add(frxdbdtst_BaseInfor); frxrprt1.DataSets.Add(frxdbdtst_LJxxi); frxrprt1.DataSets.Add(frxdbd...原创 2021-11-23 15:45:47 · 1660 阅读 · 0 评论 -
delphi 取整函数
uses math;//在xe10.2测试正常使用。1.round(四舍六入五留双) var2 i, j: Integer; begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2 end;2.RoundClassic(传统四舍五入)3.trunc(取得X的整数部分)如:trunc(-123.55)=-123, floor(123.55)=1234.ceil(取得大于等于X的最小的整数)如:ceil(-12转载 2021-11-22 22:42:49 · 997 阅读 · 0 评论 -
superobject 遍历
最近在处理贯标的JSON数据,为了全部遍历所有的数据。使用SuperObject.{type BllParam = record sParamName: string; sParanAlias: string; sParamvalue: string; sparsmvalueAlias: string; sNode: string; iParamType: TFieldType; // end; arrayBllParam =...原创 2021-10-15 22:36:46 · 582 阅读 · 0 评论 -
cxGrid 锁定一行,让该行数据不能编辑
在使用cxGrid时,由于设置了所有单元格都能编辑,但在特定的情况下,让某些行,根据一些列值条件,让该行整行锁定,不能编辑。研究了很久,在DevExpress官网上找到了相关的资料,因此,分享给大家。Dev官网的列子是这样的// DISABLE A ROW整行禁止编辑procedure TForm1.cxGrid1DBTableView1Editing(Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; ...转载 2021-07-15 17:26:00 · 444 阅读 · 0 评论 -
FDQuery Filter
delphi xe 10.2Fdquery进行数据Filter过滤时,字段名称必须要用大写,否则过滤数据永远为空。delphi 7版本则不必大写,但是严格来讲,还是与字段保持一致吧。原创 2021-05-25 09:02:34 · 481 阅读 · 0 评论 -
delphi Combobox 键值对
unit Unit4;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm4 = class(TForm) cbb1: TComboBox; btn1: TButton; ...原创 2021-03-17 10:10:31 · 404 阅读 · 2 评论 -
Delphi常用函数收集(持续中)
目录一、math单元一、math单元Ceilfunction Ceil(const X: Extended):Integer;:按正无穷大方向四舍五入一个变量。例如:Ceil(-2.8)=-2; Ceil(2.8)=3; Ceil(-1.0)=-1;Floorfunction Floor(const X: Extended): Integer;:按负无穷方向四舍五入一个变量。例如:Floor(-2.8)=-3; Floor(2.8)...原创 2020-07-08 09:55:52 · 940 阅读 · 0 评论 -
delphi DCC32命令行方式编译delphi工程源码
CSDN转载。转载 2017-03-21 15:49:16 · 1124 阅读 · 0 评论