delphi reopen recent open
delphi:传递参数的几种方式（转载）
原文地址：https://www.delphitop.com/html/chengxu/2732.html 一、默认方式以值方式传递参数 procedure TForm1.ProcNormal(Value: string); begin OrigNum:=Value+' Me'; lblReturn ......
[USACO22OPEN] Up Down Subsequence P
[USACO22OPEN] Up Down Subsequence P 注意到这个问题是不弱于直接求 LIS 的，因此考虑 dp。 设 \(f_i\) 表示以 \(i\) 结尾的最长这个什么串的长度，显然没办法直接转移，那么暴力的想法就是多设一维，这样自然就寄了。我们考虑到这样一件事情：如果我们假装 ......
启动open5GS的核心网和srsLTE的enodeB时遇到报错S1-Setup failure Cannot find Served TAI
问题的场景 启动open5GS的核心网和srsLTE的enodeB、ue，遇到报错S1-Setup failure Cannot find Served TAI，导致enodeB连接不上mme。 报错信息 S1-Setup failure Cannot find Served TAI Check ' ......
delphi电子处方流转(医院)
作者QQ：（648437169） 【delphi电子处方流转(医院)】支持 就诊登记、电子处方上传预核验、处方处方医保电子签名、电子处方上传、电子处方撤销、电子处方信息查询、电子处方审核结果查询、电子处方取药结果查询、电子处方药品目录查询等功能。 ......
delphi电子处方流转(药店)
作者QQ：（648437169） 【delphi电子处方流转(药店)】支持 处方下载、处方核验、处方审核、药品销售出库明细上传、药品销售出库明细撤销等功能。 ......
delphi 路径操作函数
路径操作函数 System.SysUtils.AnsiCompareFileName 根据当前语言环境比较文件名。 在 Windows 下不区分大小写，在 MAC OS 下区分大小写。 在不使用多字节字符集 (MBCS) 的 Windows 区域设置下，AnsiCompareFileName 与 A ......
Log4Delphi日志学习
转载请注明出处：https://www.cnblogs.com/coder163/p/9309717.html https://log4delphi.sourceforge.net/tutorial.html Log4D下载： 官网地址 导入Delphi：Tool-->Options-->Envir ......
Failed to open /sysroot/etc/fstab:Input/output error
Failed to open /sysroot/etc/fstab: Input/output error 解决办法： umount /dev/dm-0 xfs_repair -v -L /dev/dm-0 reboot ......
安装open5GS时出现报错Meson test fails for 9 cases
错误产生场景 执行下面代码时产生错误，有9个test都失败了 $ ./build/tests/attach/attach ## EPC Only $ ./build/tests/registration/registration ## 5G Core Only 产生原因 未安装MongoDB或者未运 ......
P2345 [USACO04OPEN] MooFest G
按 \(v\) 从小到大排序，这样可以转化为 \(v_j\times|x_i-x_j|(i<j)\)。 CDQ 分治，返回时按照 \(x\) 从小到大排序。考虑如何计算前一段区间对后一段区间的贡献。假设前一段区间当前扫到 \(i\)，后一段区间当前扫到 \(j\)。 每次拿出最小的计算贡献。如果 \ ......
frps: 2023/11/15 10:49:24 http: Accept error: accept tcp [::]:7650: accept4: too many open files; retrying in 1s
0.错误信息表明 frps 服务在接受传入连接时遇到了问题，特别是与端口 7750 相关的错误，具体错误为 "accept tcp [::]:7750: accept4: too many open files"，意味着打开文件数目过多。 这种错误通常发生在系统达到文件描述符的打开数目限制时。在类U ......
Delphi图像处理中ScanLine的使用
一般我们在Delphi中进行图像处理时采用Pixels像素点赋值的方法，Delphi代码如下： varx,y:Integer;cColor:TColor;begin for y:=0 to Image1.Height-1 do for x:=0 to Image1.Width-1 do cColor ......
XMLHttpRequest 使用方法:var xhr=new XMLHttpRequest();xhr.open('get','xxxx',true);xhr.send();
Ajax技术核心就是XMLHttpRequest对象。 Ajax技术的工作原理：可以分成3步 1.创建Ajax对象：var xhr = new XMLHttpRequest(); 2.xhr 发送请求：xhr.open('get','test.html','true'); xhr.send(); 3 ......
微服务系列-Spring Boot使用Open Feign 微服务通信示例
公众号「架构成长指南」，专注于生产实践、云原生、分布式系统、大数据技术分享。 前言 在前几个教程中我们已经看到： 使用 RestTemplate 的 Spring Boot 微服务通信示例 使用 WebClient 的 Spring Boot 微服务通信示例 在本教程中，我们将学习如何使用 Spri ......
srsLTE出现Couldn't open , trying /root/.config/srsran/epc.conf
输入命令 $ sudo ./srsepc/src/srsepc 出现错误无法打开epc配置文件 Software Radio Systems EPC Couldn't open , trying /root/.config/srsran/epc.confCouldn't open /root/.co ......
关于.UnsupportedClassVersionError: org/example/Merge has been compiled by a more recent version of the Java Runtime (class file version 61.0), this version of 问题的彻底解决
问题描述 之前我是改变了本机上面的JDK的版本17为8； 然后这次我再次尝试MapReduce运行就报错了； 尝试更改IDEA中的环境JDK为8，还是一直显示这个错误~~~ 问题解决 根本问题在pom.xml文件这里，里面有定义我们使用的JDK的版本， 只要将其中的17改为8，然后再运行，就没有问题 ......
Delphi 用TDatasetToJSONBridge原生支持DataSet导出Json（转红鱼儿）
Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 1 procedure TForm18.Button2Click(Sender: TObject); 2 var 3 cV: TDatasetToJSONBridge; 4 jo: Tjsonobject; 5 be ......
[USACO22OPEN] Apple Catching G
[USACO22OPEN] Apple Catching G 题目描述 天上下苹果了！在某些时刻，一定数量的苹果会落到数轴上。在某些时刻，Farmer John 的一些奶牛将到达数轴并开始接苹果。 如果一个苹果在没有奶牛接住的情况下落到数轴上，它就会永远消失。如果一头奶牛和一个苹果同时到达，奶牛就会 ......
调用Delphi DLL 注意事项
1. 使用统一的调用约束(__stdcall) 2. array of 调用 delphi 接口: procedure ProcessArray(const Arr: array of Integer); stdcall; VC： typedef void(__stdcall *ProcessArr ......
Delphi 10.x 提示脚本错误的解决方法
Delphi 10.x 提示脚本错误的解决方法 解决办法如下： 10.1版本修改方法： 打开注册表，在cmd中输入regedit,以管理员的身份运行， 找到HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\18.0\Known IDE Packages项， 找到$ ......
P9194 [USACO23OPEN] Triples of Cows P 题解
Description 给定一棵初始有 \(n\) 个点的树。 在第 \(i\) 天，这棵树的第 \(i\) 个点会被删除，所有与点 \(i\) 直接相连的点之间都会两两连上一条边。你需要在每次删点发生前，求出满足 \((a,b)\) 之间有边，\((b,c)\) 之间有边且 \(a\not=c\) ......
解决升级到 Delphi 12 后遇到 SQLite 不兼容的问题
今天升级到 Delphi 12 后，编译运行原来的项目，出现“[FireDAC][Phys][SQLite][sqlite3]-303.Capability is not supported”的错误。 经过查找文档，发现是FireDAC SQLite 版本更新导致的。 RAD Studio 12.0 ......
XXII Open Cup named after E.V. Pankratiev, Grand Prix of Daejeon 部分题解
省流：A、B、C、E、H、K、L。 D 和 I 之后可能会看心情补，剩下的题大概这辈子都不会做了。 A. Points 有两个由二维平面上的点组成的可重点集 \(U,V\)。如下定义 \(D(U,V)\)： 当 \(U,V\) 中存在一个为空时，\(D(U,V) = -1\)。 否则 \(D(U,V ......
存储过程返回多数据集 Delphi 中处理方法
1.在C# 中我们可以通过DataSet 来接收多个数据集，但在Delphi 中没有这样的集合对象，因此处理起来稍微麻烦点，不过还是能处理的。这里举个例子： Oracle Code --包头 create or replace package mypackage is type cur_type i ......
./rmblastn: error while loading shared libraries: libzstd.so.1: cannot open shared object file: No such file or directory
001、问题， ./rmblastn 命令报错如下： ./rmblastn: error while loading shared libraries: libzstd.so.1: cannot open shared object file: No such file or directory 0 ......
题解：USACO23OPEN-Silver
题解：USACO23OPEN-Silver T1 Milk Sum 给定一个长度为 \(N\) 的序列 \(a_1,a_2,...,a_n\)，现在给出 \(Q\) 次操作每次将 \(a_x\) 修改为 \(y\) ， 每次修改后，求将序列重排后的 \(T\) 的最大值，定义 \(T=\sum_{i ......
mysql docker容器中导入数据库失败 Failed to open file ‘‘****.sql‘‘, error: 2
mysql docker 容器中导入数据库失败【Failed to open file ‘’****.sql’’, error: 2】使用浑身解数docker exec -it xxxxxxxxx sh 进入mysql容器。mysql -uroot -pxxxx 登陆use database； 切换 ......
P8424 [JOI Open 2022] 跷跷板（Seesaw）
Description 一根长度为 \(10^9\) 的直杆从左到右水平放置。你可以忽略这根杆的重量。共有 \(N\) 个砝码挂在这根杆上，每个砝码的质量为一单位。这 \(N\) 个砝码的位置两两不同。第 \(i(1 \leq i \leq N)\) 个砝码的位置为 \(A_i\) 。即，第 \(i ......
linux启动mysql数据库，报错mysql: error while loading shared libraries: libtinfo.so.5: cannot open shared object file: No such file or directory
如下 原因： 解决方案： 1、在/usr/lib64目录里面找一个差不多名称版本的文件进行链接 # 软连接出一个新的文件 sudo ln -s /usr/lib64/libtinfo.so.6.1 /usr/lib64/libtinfo.so.5 若本服务器没有相近版本的文件 2、从其他服务器下载一 ......