原创 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是提示的意思。

原创 Delphi 发工资问题（贪心算法）

【代码】Delphi 发工资问题（贪心算法）

原创 Delphi 的Read 与Readln 的区别

结合运行窗口，你输入1 2 3 4 这是一行ReadLn在读入时把这四个数当成一行，read(a,b)只读入了前两个数：1 2，就准备读下一行了，下一行输入3，再下一行输入2，所以输出1232；Read是逐个读取数据，不考虑换不换行。

原创 Delphi IF语句的应用

【代码】Delphi IF语句的应用。

原创 EDIT的读写，获取与写入

【代码】EDIT的读写，获取与写入。

原创 VS2022 VC++环境中工具栏图标恢复

这是网上的说法：https://blog.51cto.com/u_15127705/3579061q​​​​​​​q。后来我发现右键点击弹出快捷菜单，有一个恢复工具箱的菜单，点击后等待了约3~5秒，工具栏的图标就有了。

原创 阿里官方身份证OCR文字识别API 批量识别身份证信息到Excel表格

2、运行时若在pycharm中出现图片格式错误等原因，一般就是阿里官方身份证OCR文字识别API过期或次数用完了，试用是免费的，只有100次，每张照片计一次，可以用新支付宝首次 1分可以有500次。1、工程施工单位中经常要统计工人的身份信息，用于工人信息统计表、工资发放表。在网上查询了相关内容，经调试后可以运行。

原创 MFC登录对话框 GetDlgItemText 的用法

/ TODO: 在此添加控件通知处理程序代码。//得到该窗口句柄的文本。//得到该窗口句柄的文本。

原创 GPS工具箱导出数据

一、进入路线测量->右下角历史记录->右侧框选后(直接选中导弹出菜单导出的没路径)->点击顶部的导出->弹出批量导出对话框->选择kml（含照片）->点击开始导出->选择合并导出方式。二、在GPSToolBox下找到导出文件同名的文件夹，复制出来就可以了。

原创 ZL_P3_1函数 数制转换

要改成relult += pow(2.0, i);因为函数重载中没第一个参数是整形的重载函数。

原创 头歌平台 第2关：整数四则运算表达式的输出格式控制

本关任务：用户输入两个四位数以内的整数，请你对两个整数进行四则运算（为保证除法能正确计算，输入的第二个整数不能为0），要求输出的四则运算表达式是完整对齐的。例如，给定输入1256和20，其符合上述对齐要求的四则运算的输出格式应该如下所示（为了让空格显示的更直观，这里暂用下划线。我们用%5d，是在数据的前面补0，看上面第二个数在后面补0，就用%-5d，是这个题目的关键。

原创 1092：求出e的值

【代码】1092：求出e的值。

原创 NOI P1

cout << "周长：" << l << endl;cout << "面积：" << s << endl;

原创 qsort 与动态分配

C++

原创 递归的入门

递归在软件开发中，递归是经常被使用的一种编程技巧，但是递归又是非常难理解的，这篇文章笔者总结了下递归难理解的原因，然后针对每个原因来讲解怎么样去理解和使用递归https://mp.weixin.qq.com/s/ct5l2_YMNCYIqtQZpBN1YA学习以上内容的笔记：一、一般函数的调用利用的是栈：二、方法调用自己，一定要有终止条件，否则栈溢出三、压栈、出栈的过程上面是压栈的过程，下面是压栈、出栈的过程，更好的理解两个代码块的执行顺序，自己操作如下：四...

原创 T1011 反向输出一个三位数

反向输出一个三位数 - 题库 - 计蒜客1、采用一个变量对反向转换后的数据进行存储#include <iostream>#include <cmath>using namespace std;int main(){ int a; cin >> a; int result = 0; while (a) { result = result * 10 + a % 10; a = a / 10; } printf("%03d",result