摘要:直接上代码: procedure TForm1.Button1Click(Sender: TObject); var s: string; function StringContainsChinese(const str: Widestring): boolean; var i: integer;
阅读全文
06 2024 档案
摘要:和网友(不好意思,忘了是那位了)交流中,他反馈BufDataSet多列排序时得到的结果不符合预期,他也给出修复方法,以下是他的验证及修复方法:环境:fpc 3.3.1问题复现步骤: SQLQuery1.IndexFieldNames:='cl;c2 DESC';这个应该是c1列升序,c2列降序,但是
阅读全文
摘要:lazarus/fpc自带的bufDataSet和MemDataSet缺少类似TClientDataSet的Delta功能,这个单元从TDataSet扩展了Delta,可以直接生成增删改的SQL,适用于所有TDataSet。 2024-10-25 高勇高老板增强了GetActionSQL功能: fu
阅读全文
摘要:最近使用bufdataset时发现可以创建ftVariant类型,但无法正常读写。经搜索,发现fpc官方早在2011年就有解决方案,但到今天最新的fpc3.3.1还没支持,按issues的方法,经测试读写ok,如果你也需要在bufDataSet要用到ftVariant,可以参考以下方法:打开fpcs
阅读全文