原创 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

原创 OJ题库汇总

信息学题库 - 计蒜客计蒜客OI题库致力于为参加noi、noip、信息学竞赛的选手提供优秀的Online Judge系统。它拥有海量题目、快速准确的在线测评，是学习信息学的理想OJ。https://nanti.jisuanke.com/oi信息学奥赛一本通（C++版）在线评测系统http://ybt.ssoier.cn:8088/C语言网 - 编程入门学习 - 实用的编程在线学习网站C语言网(www.dotcpp.com)不仅提供C语言，还包括C++、java、算法与数据结构等课程在内的各种入门教程、视频录

原创 QT学习之信号与槽（二） QSlider 与QSpinBox互动

//信号和槽的学习二 QSlider 与 QSpinBox的互相发送信号（互动）//槽函数//点击按钮关闭标签，要建立信号和槽的关系//发送信号，由要操作的槽函数接收并处理#include <QApplication>#include <QDialog>#include <QSpinBox>#include <QSlider>int main(int argc,char** argv){ QApplication app(argc.

原创 QT学习之信号和槽(二)

//信号和槽的学习//槽函数//点击按钮关闭标签，要建立信号和槽的关系//发送信号，由要操作的槽函数接收并处理#include <QApplication>#include <QDialog>#include <QLabel>#include <QPushButton>int main(int argc,char** argv){ QApplication app(argc,argv); QDialog parent;/.

原创 QT学习之父窗口

#include "mainwindow.h"#include <QApplication>#include <QWidget>#include <qdialog.h>#include <QLabel>#include <QPushButton>#include <QMainWindow>int main(int argc, char *argv[]){ QApplication app(argc,a...

原创 汇编语言求两数之和

#include <iostream>int main(){ int a; int b; int c; _asm { mov a,3 //3的值放在a对应的位置 mov b,4 //4的值放在a对应的位置 mov eax,a //把a内存的值放在eax寄存器中 add eax,b //eax 和 b相加，结果存在eax mov c,eax //将eax 的值放在c中 } std::cout << c; //把c的值输出 re.

原创 2021-10-11 C++Primer 练习3.20 Vector

#include <iostream>#include <vector>using namespace std;int main(){ std::vector<int> sc; int a; while (cin >> a) { sc.push_back(a); } for (decltype(sc.size()) i = 0; i < sc.size() - 1; ++i) { cout << sc[i].

原创 2021-10-10 第1个win32程序

/*------------------------------------------------------------------HelloMsg.c -- Displays "Hello, Windows 98!" in a message box (c) Charles Petzold, 1998--------------------------------------------------------------------*/#include <windows.h>.

原创 2021-10-10 Fibonacci数列循环迭代求解

/*********************************************************************Fibonacci sequency: 1, 1, 2, 3, 4, 8, 13, 21, 34, 55, 89, 144, ...Its recursion definition is: F1 = 1, F2 = 1, ... F_n = F_(n-1) + F_(n-2) (n > 2)Write a program using array t.

原创 2021-10-05 两数之和Python版

def twoSum(nums, target): sz = len(nums) for i in range(sz): for j in range(i): if nums[i] + nums[j] == target: return {i, j}def twoSumDict(nums, target): # 用len()方法取得nums列表长度 n = len(nums) # 创建一个.