原创 最省事的Windows控件视觉样式启用方法

头文件引用后加了一条 MSVC 链接器指令头文件引用后加了一条 MSVC 链接器指令除了使用。

原创 MSYS2 UCRT64 + g++ C++ 中文输出乱码 完整全过程

g++.cpp。

原创 伸缩缝填料对比：沥青杉木板 vs 聚乙烯闭孔泡沫板

沥青木板伸缩缝 | 40348（一个定额） | 木板制作 + 熔化沥青 + 涂沥青 + 安装（缝里填木板 + 表面灌沥青胶泥，全套） | 锯材 2.2m³ + 沥青 1.24t = 11801 元 || 施工工艺 | 木板硬挺，浇筑混凝土时可兼作侧模板，省支模拆模工序，施工方便 | 板体质软，不能兼作模板，需另行支模浇筑，工序多一道 || 项目 | 清单名称 | 单价 | 单位 |

原创 整数最接近等因数分解函数（汇编优化版）

这段Delphi/Pascal混合代码包含两个核心功能：ISqr函数计算整数平方根的向下取整值，MostEqualDivisors过程寻找整数N最接近的一对因数。ISqr通过汇编实现高效计算，从1开始递增测试直到平方超过输入值。MostEqualDivisors先获取N的近似平方根，然后调整找到能整除N的最近因数对，通过FavorY参数控制输出顺序。该算法特别适用于图形界面布局、任务分配等需要将总数拆分为最接近方正矩形的场景，如将24个元素分为4×6而非3×8，确保视觉均衡。汇编实现提升了计算效率，整体方案

原创 今日C/C++学习笔记20260223

define AREA(r) PI * r * r // AREA(1+2) 展开为 PI*1+2*1+2，结果错误# define AREA(r) PI * r * r // AREA(1+2) 展开为 PI*1+2*1+2，结果错误# define AREA(r) PI * r * r // AREA(1+2) 展开为 PI*1+2*1+2，结果错误# define AREA(r) PI * r * r // AREA(1+2) 展开为 PI*1+2*1+2，结果错误。

原创 老MFC项目升级，重新定义Windows版本

错误根源是WINVER宏值低于 MFC 要求的 0x0501；解决方式是通过项目属性或预编译头文件，将WINVER和均定义为 0x0501；宏定义必须放在所有头文件包含之前，否则无法生效。

原创 Visual 中的一些字符指针学习

对于正在使用 VC++ 6.0 的你来说，可以把LPTSTR理解为一个“智能”的字符串指针。如果你的项目是普通的控制台程序或MBCS程序，它就是一个char*；如果你的项目是为了处理中文、日文等需要广泛字符集而设置了Unicode支持，它就自动变成了wchar_t*。为了方便和可移植性，在VC++ 6.0中处理字符串时，推荐使用TCHARLPTSTR和_T()宏这套组合。在VC++ 6.0中，这些类型都是用来表示字符串的，但它们之间有一些细微的区别。类型本质是否可变字符集典型用途CHARchar。

原创 没有找到程序入口点 unresolved external symbol _main

基础

原创 cout ＜＜ fixed ＜＜ setprecision(2) ＜＜ v； fixed 为什么不用括号，它是函数吗

fixed 不是函数：它是无参数的流操纵符（格式标记），作用是修改 cout 的浮点数输出模式，因此不用加括号；setprecision (2) 是函数调用：它是带参数的操纵符，需要传参指定小数位数，因此必须加括号；核心逻辑cout << 操纵符的本质是 “给流设置格式”，无参操纵符直接用，有参操纵符需要传参（括号）。简单记：只有 “需要传参数的操作” 才加括号，fixed只是切换格式、不需要传参，所以不用括号。

原创 printf(“%lf“, ys) 和 cout ＜＜ ys 输出的浮点数格式存在细微差异

核心原因：OJ 对输出格式逐字符校验，默认输出 6 位小数（补 0），而cout默认省略末尾 0，前者与标准答案格式不匹配。关键规则无精度指定时输出 6 位小数；cout默认输出浮点数的有效数字（去末尾 0）。解决方案：要么改用cout输出，要么用printf("%g", 变量)替代printf("%lf", 变量)，让输出格式匹配标准答案。

原创 已经三个点坐标，计算三角形面积

【代码】已经三个点坐标，计算三角形面积。

原创 海伦公式求三角形面积

【代码】海伦公式求三角形面积。

原创 C++中一些宏定义的使用如 M_PI

【代码】C++中一些宏定义的使用如 M_PI。

原创 MessageBox的用法，在Delphi与vs中的区别

C++ 调用MessageBox需先包含，Unicode 字符串加L前缀（或用_T宏兼容）；空句柄用NULL（语义更规范）或0均可，常量组合推荐用而非；现代开发优先用显式指定 Unicode 版本，避免编码乱码问题。

原创 【无标题】

android:text="坐标转换（GCJ-02→WGS-84）"

原创 Delphi连接MySql数据库

在看Delpih6数据库开发实例导航这本书时，里面的数据库管理系统用的InterBase，但是Delphi11中已经没有这个东西了，我就想到利用MS的access但是里面有很多的SQL语句不支持，比如设置字段的默认值等，后来我想到连接到MySQL,也是在网上查了很我资料。先设置右边的属性，CharacterSet是设置字符编码为utf8，是中文支持。1、添加FDQuerry，设置connect属性为：FDConnection1，5、加入DataSource1控件，设置其DataSet为FDQuery1，

原创 Delphi 枚举的学习

【代码】Delphi 枚举的学习。

原创 记忆化搜索

【代码】记忆化搜索。

原创 学习electron

一、开发环境1、先行安装 node.js 和 npm2、检查 Node.js 是否正确安装，请在您的终端输入以下命令：检测安装的版本 node -v npm -v因为 Electron 将 Node.js 嵌入到其二进制文件中，你应用运行时的 Node.js 版本与你系统中运行的 Node.js 版本无关。4、npm start 开始运行程序5、打包程序 npm run build。

原创 如何根据经纬度差计算两点之间距离

假设地球在A纬度的周长为L，则A 纬度间的距离为 L/360，而在纬度为A的地区，其平行于赤道的圆周长为 L*cosA（这个画张图，根据半径的比就明白了），相应的 1 经度间的横向距离为 L*cosA/360。赤道的实际周约长为40000km，代入上面的公式就可以大致估算出 1 纬度间的纵向距离为 111km，纬度为A的地区的 1 经度间的横向距离为 cosA*111km。在北极或南极点上，所有的经线都汇聚于一点，所以所有经度间的距离都为0，在赤道上，所有的经线都分散得最开，每条经线间的距离也最大。

原创 在vs code 中配置Free Pascal Compile 及代码格式化等

说明：ptop 是fpc 中自带的代码格式工具。2、安装vs code。

原创 信奥编程启蒙 3040：练8.5 幸运数

首先想到的是 当 n mod k 0 就n--,找到最大的能被 k整除的数就可以了。后面在一本通启蒙中可以通过，但是在Hydro中不能通过，显示超时。A同学认为自己的幸运数是不超过N𝑁的非负整数里能被K𝐾整除的最大的数，你能帮他的算幸运数吗?输入—行，包含两个整数N𝑁,K𝐾(1≤N,K≤2×1091≤𝑁,𝐾≤2×109)。超时后想了一下应该有更快的办法，应该就是数学上，的问题，更新算法：耗时变成1ms。输出—行，包含一个整数，表示幸运数。

原创 信奥编程启蒙 3068：【例13.3】时间差

现在给出一个时间，单位是秒，要求按照电子表格式输出，输出保证不会超过 2424 小时。3067：【例13.2】 电子表。把时间转化成电子表格式输出。电子表上的时间显示方法形如。

原创 Pascal的枚举

【代码】【无标题】

原创 Delphi 利用集合求大写字符与元音字符

【代码】Delphi 利用集合求大写字符与元音字符。

原创 Delphi 函数的 out 形参

【代码】Delphi 函数的 out 形参。

原创 Delphi 过程的传值调用 及函数的返回值

【代码】Delphi 过程的传值调用 及函数的返回值。

原创 Delphi 函数的传地址

【代码】Delphi 函数的传地址。

原创 雨污管网开挖深度的计算

一般的管网工程都有纵断面设计图，结合纵断面里的管内底高程-管厚度(直径0.6管厚0.06，直径0.8承插管直径0.08厚) - 砂砾石基础一般0.15厚 - 路面结构层厚度就是沟槽开挖深度了，是不是很简单。管内底埋深其实就是管内流水面到设计路面顶的高差。

原创 MessageBox 等基本函数的使用

原创 GPS工具箱导出数据2

今天在导出数据的时候只导出了kml文件，没有导出照片。试了几次还是不行，最后想起了有一次把所有照片都复制出来，也就是GPSToolBox中的site文件夹，里面就是我们现场所拍摄的所有照片，我把Site文件夹复制到桌面，将前面导出的kml文件复制到Site文件内，再用GoogleEarth打开Site文件夹内的kml文件。就达到了目的，但是复制Site文件夹很费时间，因为他是我们所有的照片。

原创 Delphi编写的图片查看器

【代码】Delphi编写的图片查看器。

原创 Pascal 用递归求最大公约数

varbeginelseend;beginreadln;end.

原创 Pascal 求最大公约数，辗转相除法。

varbeginbegina := b;b := t;end;Writeln(a);readln;end.

原创 P108 Delphi 递归求阶乘

【代码】P108 Delphi 递归求阶乘。

原创 P87 4.1 C++ FOR 与Delphi FOR 的区别

输出x, sin(x), cos(x), tan(x)的值。已知X=0，10， 20，180。第10行出现 给FOR 循环变量赋值i错误。

原创 Free pascal ID去乱码

属性]窗口中，选择[选项]页，下拉[当前代码页(C)],选择[437 (美国)]右击[Free Pascal]快捷图标，选[属性]Free Pascal的IDE界面乱码解决方法。

原创 win10 chm文件打开空白怎么办 win10 chm文件打开空白解决办法

有的win10用户遇到chm文件在本地打开是正常的，但是一旦共享就会出现打开空白的情况，像这种情况怎么办呢？3、说明：之所以右键属性中没有【解除锁定】的按钮，估计是因为这份chm文件并不在用户的本地，而是局域网上面的共享文件，而win10对网络上的文件打开和运行总是特别谨慎的，总会有各种安全和风险提示。2、按此方法，就可以正常打开这个chm文件，虽然每次都要在压缩包中打开，但对于chm文件共享后打开内容空白这也算是终极解决方法了。

原创 Formate函数的一般使用

【代码】Formate函数的一般使用。

原创 Delphi7应用教程学习1.3【练习题目】：文本及悬停文字的显示

这个例子主要用到了btn的Hint 属性，Hint是提示的意思。