datasnap的restful服务器
摘要：说真话，这玩意真的简单好用。但你要控制好： 1、内存泄漏和异常处理好； 2、有没有发现，通过服务器对数据库进行读写时，在资源管理器中，如果是sql server，就会看到连接1433的连接一直挂在那里。好闹心。 说主题：因为采用get or post链接，将LifeCycle设置为'Invocati
阅读全文
posted @ 2025-02-18 18:47
随笔分类 - delphi
frxpngimage单元的编译错误：frxpngimage left side cannot be assigned to
摘要：一个老项目中，使用软数字录入数据，编译时出现n个：frxpngimage left side cannot be assigned to 原因是使用了frxpngimage单元，在D11中编译出现若干frxpngimage left side cannot be assigned to。 经网查查找
阅读全文
posted @ 2024-11-22 09:44
学习unigui【27】像pg的jsonb一样编辑json。
摘要：var I: Integer; CurrentObject: TJSONObject; FieldName: string; Pair: TJSONPair;function CreateJSONValueForVariant(const aValue: Variant): TJSONValue;b
阅读全文
posted @ 2024-06-03 11:39
学习unigui【22】unistringGrid的标题栏双击事件
摘要：第一步：在TuniStringGrid的ClientEvents.ExtEvents中定义Ext.grid.Panel的reconfigure事件: function reconfigure(sender, store, columns, oldStore, oldColumns, eOpts) {
阅读全文
posted @ 2024-03-01 17:14
学习unigui【21】unistringGrid的标题栏动态增加
摘要：var Column: TUniGridColumn; begin Column := TUniGridColumn(unstrngrd_summary.Columns.Add); Column.Title.Caption := DateToStr(currentDate); end 要清楚标题栏和
阅读全文
posted @ 2024-02-29 17:48
学习unigui【20】unistringGrid
摘要：做成下面效果图： 采用unistringGrid控件。 问题： 1、不同的日期区间如何得到。如： 项目 开始时间时间 -- 终止使用时间 呼吸机 yyyy-mm-dd yyyy-mm-dd 呼吸机 yyyy-mm-dd yyyy-mm-dd 插管 yyyy-mm-dd yyyy-mm-dd SELE
阅读全文
posted @ 2024-02-27 11:40
学习unigui【18】unidbgrid的GridsGroupingSorting
摘要：折腾二天，你不按照demo里的代码来，就是没有效果。功力不够导致的。学习学习再学习！努力努力再努力！ procedure TUniGridsGroupingSorting.UniDBGrid1MultiColumnSort( Columns: TUniDBGridColumnArr; Directi
阅读全文
posted @ 2024-02-02 09:33
unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】
摘要：uniTreeVviewc创建一个tree，显示患者姓名（PatientName）。因为需要用到患者ID（PatientID），所以使用help： TPatientTreeNode = class(TUniTreeNode) //strict private FPatientID: string;
阅读全文
posted @ 2023-12-16 18:46
d融合窗口之后的，如何执行该窗口方法
摘要：通常我们这样设计： MyForm ：TXXXXForm； 然后 MyForm := TXXXXForm.Create(Self); 如果其他Form调用MyForm方法： MyForm .mothed; 采用窗口融合方法后，一般不会采用指定变量MyForm了，那么后来的其他单元执行MyForm的方法
阅读全文
posted @ 2023-02-08 10:04
delphi类助手helpers，这个NB，省事、大幅提高效率
摘要：1、我们会想要能够对一个数据型别进行扩充，而不想继承类别。 2、如果我们想为一个组件类别加入新的方法，为它提供新的功能，而且不想通过继承来做。(如对TFDMEMTable增加方法等，你就得继承做处理，or做成控件进行安装...很繁琐） 那就使用class或者Record助手： 这些特殊用途的数据型别
阅读全文
posted @ 2023-02-04 15:20
cxgrid汇总数是零显示空白
摘要：TcxDataSummaryItem.OnGetTextprocedure TApportionDeptCost.cxgrdbndtblvwDBBandedTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetTex
阅读全文
posted @ 2023-01-07 10:09
fastreport的水纹
摘要：ou can add text in TfrxReport.OnEndDoc event procedure TForm1.frxReport1EndDoc(Sender: TObject); var p: TfrxReportPage; m: TfrxMemoView; i: integer; b
阅读全文
posted @ 2022-11-24 11:24
fastreport的汉化
摘要：fastreport的语言包，是通过不同的xml实现的。它是UTF8编码。可是我们D的IDE默认的是ansi。希望设定成默认UTF8.怎么做： Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Embarcadero\B
阅读全文
posted @ 2022-08-29 10:50
Delphi使用TStopwatch计时器精确计时【转】
摘要：引用 System.Diagnostics 单元 属性： Elapsed 获取当前实例测量得出的总运行时间。 ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。 ElapsedTicks 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。 IsRunn
阅读全文
posted @ 2022-08-20 16:03
cxgrid的使用模糊搜索
摘要：//增加一行；焦点到当前指定cell。 frm.cxgrd1.SetFocus; frm.cxgrdbtblvwGrid1DBTableView1.DataController.AppendRecord;//or FDMemTable.Applend; frm.cxgrdbtblvwGrid1DBT
阅读全文
posted @ 2022-05-27 18:16
pg中函数调用中的SQL语句
摘要：PG的sql语句的组织，由于特殊有点小麻烦。掌握方法就简单了 函数:"fn_BillsCharge2Account"("aSQlConditionStr" varchar)调用： SELECT "public"."fn_BillsCharge2Account"('("科室代码" = ''101001
阅读全文
posted @ 2022-05-14 14:47
学习cxgrid换肤
摘要：cxgrid的换肤有时有点绕人。贴图依葫芦画瓢即可。
阅读全文
posted @ 2022-05-05 16:50
FDMemtable如何增加一条自身复制的记录
摘要：procedure TFrame_Bill.CopyARecord; var lAFDmemtable : TFDMemTable; begin {$REGION '增加一条复制的记录'} try lAFDmemtable := TFDMemTable.Create(nil); lAFDmemtab
阅读全文
posted @ 2022-04-16 15:54
RegisterClass注册后getclass总是nil，why？
摘要：这个问题有点老。但是有点烦人。 一般流程是 RegisterClass后通过getclass or findclass就会成功。 可是莫名其妙出现总是返回nil。咱也不清楚，网上找了好久，一个久远的帖子解决了问题。为什么？不知道。 RTTI据说可以解决同样的问题，待有时间熟悉。 找到了一个办法，随便
阅读全文
posted @ 2022-03-31 11:13
