qq_33577118的博客

基于原版的mcjson //2024-09-12 新增 // function TMcJsonItem.fGetAsJSON_NoFirstKey_my(): string; // 这是N['B1'].AsJSON的结果 "B1":{"240825":{"D1":"STR","D2":"STR"},"240819":{"D1":"STR","D2":"STR"}} // 这是N['B1'].fGetAsJSONNoFirstKey_my的结果 {"240825":{"D1":"STR","D2":"STR"},"240819":{"D1":"STR","D2":"STR"}} // 因为 N['B1'].AsJSON:=N['B1'].AsJSON; 会多了"B1": 所以导致出错 // 所以自己新增了 AsJSON_NoFirstKey_my函数 // 使用方法 // N['B1'].AsJSON:=N['B1'].AsJSON_NoFirstKey_my; function TMcJsonItem.fGetAsJSON_NoFirstKey_my(): strin

说明: 自定义中的数据类型尽量不要用string 如果使用那么在保存数据,与读取数据中增加转换 var MyDynamicArray: array of Char; begin SetLength(MyDynamicArray, 48); // 设置数组长度为 48 StrPCopy(MyDynamicArray, 'Hello, World!'); // 将字符串复制到数组中 SetLength(MyDynamicArray, 0); // 释放数组内存 end; ======================== var ch1: array[0..47] of Char; str1: string; begin // 假设 ch1 已被赋值 str1 := StrPas( ch1); end; type Re_TodayData = record ArrToday: array[0..47] of Integer; len:Cardinal; s1:array[0..255]

最精简使用MORMOT MORMOT是免费开源的SDK，它封装了HTTP.SYS，这是许多人使用它的原因，让人难以想像的是它居然支持DELPHI6及以上版本。 但MORMOT本身已经被封装的很庞大，它提供许多的单元，这让人不免眼花缭乱，惊恐而不敢下手试用。 其实，我们完全可以最精简使用MORMOT，比如笔者就只使用它的HTTP.SYS通讯部分，其他部分舍弃不用。 只需要复制MORMOT的以下几个单元文件： SynCommons.pas，SynCrtSock.pas，SynLZ.pas，SynZip.pas，SynWinSock.pas, Synopse.inc，SynopseCommit.inc， trees.obj，deflate.obj。

1)SQLMemTable_Thread多线程读写同一个内存表 2)启动时读取数据SMemDB.db 3)退出时保存数据SMemDB.db 4)循环操作中.两个线程写入,两个线程读取 注意:用到BMDThread控件,DBGridEh控件

AlphaControls是一个标准的皮肤控件集合，它具有很多新的属性，可以添加到普通的控件中以增强程序界面效果，同时还能添加一些行为到普通的控件中，并使用了一些新技术。AlphaControls是一个易于使用且很强大的工具，非常适合用于开发具有独创的皮肤和无皮肤的业务/媒体应用程序。

CHANGES: * V1.5 * + 修正indent[aaa,bbb] 的问题 ,后面没换行的问题，主要是美化。 * + 2014-2-18 by xuweihang czmagic@163.com * V1.4 * + 修正D7下关闭溢出出错的问题{.$.Q-} * + 2014-2-18 by xuweihang czmagic@163.com * V1.3 * + Add support to Delphi XE2 * + Delphi XE2 RTTI marshalling * + 2013-08-17 by xuweihang czmagic@163.com * v1.2 * + support of currency data type * + right trim unquoted string * + read Unicode Files and streams (Litle Endian with BOM) * + Fix bug on javadate functions + windows nt compatibility * + Now you can force to parse only the canonical syntax of JSON using the stric parameter * + Delphi 2010 RTTI marshalling * v1.1 * + Double licence MPL or LGPL. * + Delphi 2009 compatibility & Unicode support. * + AsString return a string instead of PChar. * + Escaped and Unascaped JSON serialiser. * + Missed FormFeed added \f * - Removed @ trick, uses forcepath() method instead. * + Fixed parse error with uppercase E symbol in numbers. * + Fixed possible buffer overflow when enlarging array. * + Added "delete", "pack", "insert" methods for arrays and/or objects * + Multi parametters when calling methods * + Delphi Enumerator (for obj1 in obj2 do ...) * + Format method ex: obj.format('%tab[1]%') * + ParseFile and ParseStream methods * + Parser now understand hexdecimal c syntax ex: \xFF * + Null Object Design Patern (ex: for obj in values.N['path'] do ...)

总结 创建用时 Hash=list < json <内存表 读取用时 json < Hash <内存表 <list

DelphiWebScriptII，脚本编译器

BMDThread控件是一套相当成熟的线程控件，使用它可以让你快速的创建、管理线程。 1、将路径添加搜索路径下 2、BMThreadDsnD7.dpk先编译后安装 安装后两个控件

C-源码-(包括stdio,stdlib和string三大部分).rar

Delphi7-SQLMemTable 多线程 同时 修改内存表（SQLMemTable）例子

EhLib.VCL 9.5内部版本9.5.012专业版。 ---------------------------------------------- 该库包含Borland Delphi版本7、9的组件和类。 Developer Studio 2006，Delphi 2007，Embarcadero RAD Studio 2009-XE10.3，Lazarus。 目录 ----------------- 总览 安装库 安装帮助 示范节目 注册和价格 其他资讯 关于作者 从哪儿开始。 ------------------- 从主要的Demo项目开始概述库 。\ Demos \ Bin \ MainDemo.Exe。 （已编译的演示文件在该库的评估版中可用） 如果您使用了库的早期版本，则可以阅读摘要 的新功能和更改中的内容history-eng.html。 此版本库中有关新功能的更多详细信息 可以在文件中找到-关于EhLib 9.5 Eng.doc 要在IDE中安装该库的新版本，请使用安装程序 。\ Installer \ EhLibInstaller.exe 如果安装时有任何问题，请写信给ehlib支持 地址support@ehlib.com 您还可以按照以下说明在库IDE中手动安装文件 第2章安装库 安装后，请确保所有已安装组件的可操作性。 为此，请打开IDE，编译并启动一个主要的演示项目。 。\ Demos \ MainDemo \ Project1_XE2.dpr 阅读下一个文件，以获取有关使用库组件的完整说明： 。\ Hlp \ ENG \“ EhLib-用户指南.doc” 在文件中阅读有关EhLib for Lazarus的信息-Lazarus \ readme.txt 总览 -------- 该库包含几个组件和对象。 TDBGridEh组件 TDBGridEh提供TDBGrid的所有功能 并添加了一些新功能，如下所示： 允许选择记录，列和矩形区域。 可以对应于多个/所有列的特殊标题。 能够显示总和/计数/其他字段值的页脚。 自动调整列大小以将网格宽度设置为等于客户端宽度。 能够更改行和标题的高度。 允许自动中断单行长标题和数据行 到多行。 标题可以充当按钮，并可以选择显示排序标记。 自动排序标记。 能够用省略号截断长文本。 查找列表可以显示几个字段。 在查找字段中进行增量搜索。 冻结的列。 DateTime选择器支持TDateField和TDateTimeField。 允许根据字段值显示TImageList中的位图。 允许隐藏和跟踪水平或垂直滚动​​条。 允许隐藏列。 允许显示冻结，页脚和数据行的3D框架。 允许绘制备忘字段。 多行就地编辑器。 比例滚动与数据集的排序无关。 自动显示布尔字段的复选框。允许显示 其他类型字段的复选框。 具有保存和还原布局的程序（可见列，列 注册表或ini文件中的顺序，列宽，排序标记，行高）。 允许显示提示（工具提示）以显示单元格中不适合的文本。 允许将数据导出为Text，Csv，HTML，RTF，XLS和内部格式。 允许从文本和内部格式导入数据。 可以对各种数据集中的数据进行排序。 可以过滤各种数据集中的数据。 当DBGridEh连接到TMemTable类型的数据集时，它允许： 在不移动活动记录的情况下查看所有数据。 显示TMemTable记录的树型结构。 在SubTitle过滤器的下拉列表中自动形成值列表。 根据所选库伦创建分组记录。 TDBVertGridEh组件 在“垂直方向”中显示数据集中的一条记录的组件。 有一个特殊的列来显示字段标题 可以像DBGridEh中一样自定义就地编辑器和单元格数据。 TDBLookupComboboxEh组件 提供TDBLookupCombobox的所有功能并添加 几个新功能如下： 可以有平面样式。 允许只将值分配给KeyValue属性 显示文本属性。 允许将值键入（分配）到数据列表中未包含的Text属性 （样式= csDropDownEh）。 允许将KeyValue和Text保持为互不影响的值。 当KeyField，ListField，ListSource，DataField和DataSource生效 属性为空。 下拉列表可以： 显示标题 有上浆力， 自动将宽度设置为列表字段DisplayWidth之和（宽度= -1）， 用户按下按键时自动掉线。 编辑按钮可以： 显示下拉，省略号或位图图像。 有指定的宽度。 还有其他事件：OnKeyValueChanged，OnButtonClick。 TDBSumList组件 此组件用于总计一个记录中的记录的总数和数量。 TDataSet具有动态更改。组件保留TDBSum的列表 对象，其中包含组操作的类型（goSum或goCount） 和名称总和字段（无需goCount字段名称）。 TPrintDBGridEh组件 TPrintDBGridEh提供用于预览和预览的属性和例程。 具有以下功能的TDBGridEh组件的打印： 能够垂直扩展行，直到打印所有文本。 缩放网格以使其适合页面宽度的能力。 能够打印/预览网格标题。 能够打印/预览页面标题和页面页脚 指定当前页面，当前日期，当前时间和/或静态的宏 文本。 自动打印/预览TDBGridEh的选定区域 不为空。 能够在网格之前和之后打印/预览富文本。 TPreviewBox组件 TPreviewBox使您可以创建可自定义的运行时预览。 TPrinterPreview对象 TPrinterPreview允许您将可打印数据记录在缓冲区中以进行跟踪 将它们输出到屏幕上并发送到打印机。TPrinterPreview具有所有功能，并且 属性与TPrinter对象中的属性相同。您可以类似地使用TPrinterPreview对象 TPrinter的功能，除了一些细节。在TPrinter Printer.Canvas.Handle和 Printer.Handle相同，但在TPrinterPreview中PrinterPreview.Canvas.Handle 表示图元文件，其中的数据和PrinterPreview.Handle的内容相同 代表Printer.Handle。这意味着您必须使用 用于绘制操作的PrinterPreview.Canvas.Handle（DrawText，DrawTexteEx等） 并在返回有关以下信息的函数中使用PrinterPreview.Handle 打印机功能（GetDeviceCaps等）。全局功能PrinterPreview 返回默认的PrinterPreview对象，并以默认预览形式显示数据。 TDBEditEh组件 表示可以显示和编辑字段的单行或多行编辑控件 在数据集中或可以用作非数据感知的编辑控件。 TDBDateTimeEditEh组件 表示可以显示和编辑的单行日期或时间编辑控件 数据集中的日期时间字段，或可用作非数据感知的编辑控件。 TDBComboBoxEh组件 表示结合了编辑框的单行或多行编辑控件 带有可滚动列表，并且可以显示和编辑数据集中的字段，或者可以 用作非数据感知组合编辑控件。 TDBNumberEditEh组件 表示可以显示和编辑数字的单行数字编辑控件 数据集中的字段或可以用作非数据感知的编辑控件。 TPropStorageEh，TIniPropStorageManEh，TRegPropStorageManEh组件 组件实现了在设置中存储组件属性的技术 存储，如ini文件，注册表等。 TMemTableEh组件 数据集，将数据保存在内存中。它可能考虑为 记录。 此外，它： 支持一个特殊的接口，该接口允许DBGridEh组件查看所有 数据而不移动活动记录。 允许从TDataDriverEh对象（DataDriver属性）获取数据。 允许卸载更改回DataDriver中，可操作或推迟（在 CachedUpdates属性的相关性）。 允许在客户端上创建主/明细关系（过滤记录） 或在外部源上（更新参数[Params]并需要数据 从DataDriver）。 允许一次（无动态支持）排序数据，包括 计算和查找字段。 允许在设计时创建和填充数据，并将数据保存在的dfm文件中 形成。 允许以树的方式进行记录。每条记录可以有一条记录 元素分支和本身是其他父母记录的元素。 组件TDBGridEh支持显示这些组件的树型结构 记录。 允许连接到其他TMemTableEh的内部阵列（通过 ExternalMemData属性）并使用其数据：排序，过滤，编辑。 具有用于在列表的一列中请求所有唯一值列表的接口 记录数组，忽略数据集的本地过滤器。TDBGridEh使用此 属性，用于自动填充字幕的DropDownBox中的列表 过滤单元。 TDataDriverEh组件 执行两项任务： 将数据传送到TMemTableEh。 处理TMemTableEh的更改记录（将它们记录在其他数据集中， 或调用事件以处理程序中的更改）。 TSQLDataDriverEh 具有四个TSQLCommandEh类型的对象的DataDriver：SelectCommand， DeleteCommand，InsertCommand，UpdateCommand，GetrecCommand。 TSQLDataDriverEh无法将查询传输到服务器，但会调用全局 （对于应用程序）执行SQL必须编写的事件 服务器上的表达式。 TBDEDataDriverEh，TIBXDataDriverEh，TDBXDataDriverEh和TADODataDriverEh组件。 这些是SQLDataDrivers，可以使用以下命令将查询传递到服务器 数据访问的相应驱动程序。 -------------------- 2.安装库 -------------------- -------------------- 2.1自动安装库 -------------------- 从“安装程序”文件夹中运行EhLibInstaller.exe程序以在以下位置安装EhLib Delphi / C ++ Builder IDE。该程序创建文件夹以保持EhLib二进制 和其他重新整理的文件，将重新整理的文件复制到创建的文件夹， 编译程序包，在IDE中注册程序包并编写重新格式化的路径 在注册表中。 如果您具有可执行的安装程序（例如，EhLibSetupD7Eval.exe） 那么您只需要运行程序并遵循安装过程即可。自动设置 将所有单元写入必要的目录，在IDE中安装软件包和帮助文件。 -------------------- 2.2手动安装库 ------------------- 按照以下说明从EhLib归档文件安装文件： - 2.2.1。对于RAD Studio XE2（Delphi）或更高版本： -------------------

Delphi 10.4 中英文切换助手 随时中切换中英文，方便学习

Delphi控件备份还原 支持D7,2007,2010，xe版本 备份前后控件的pas文件的目录必须一致，自行备份控件文件夹

delphi 10 中英文切换助手 随时中切换中英文，方便学习

AlphaControls软件包是用于AlphaSkins用户界面设计的非常有价值且专业的组件。AlphaController软件包对于构建商业和媒体软件非常有用，并且易于使用。许多功能和特性极大地提高了此程序包的价值。这个软件包有一套不错的界面控件，在其他任何软件包中都找不到。每个控件都有其自己的属性，并且具有与其他控件不同的属性。还提供了各种图形和渲染工具，它们都是实时渲染的，AlphaController14的缩放引擎已被完全重写

StyleControls是一款功能强大的套包控件，包含了独特的高级可扩展标准VCL控件的解决方案和控件，各种风格和高级按钮、复选框、发光效果、动画效果等，支持Delphi/C++Builder XE2-XE10.3。简单和可调整控件的标准主题和VCL风格