- 博客(28)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 Delphi 读取 Excel
Delphi 读取 Excel前言从Delphi中打开Excel表格并读取其中行列数据值，到最后在关闭Excel注意：若没有及时关闭Excel时，会导致打开的Excel还处在电脑进程中，这是大多数人没有注意到的问题代码如下（示例）：procedure TForm1.btnsendClick(Sender: TObject);var list: TStringList; i, rowcount, colcount, icol, irow: Integer; ExcelRead: O
2021-07-28 17:35:35
3595
2
原创 Delphi 串口属性函数
Delphi 串口属性TComm属性封装函数亲测可用代码如下（示例）：function TMainForm.GetByteSize(AIndex: Integer): TByteSize;begin Result := _8; case AIndex of 0: Result := _5; 1: Result := _6; 2: Result := _7; 3: Result := _8; end;en
2021-07-28 17:24:56
407
原创 Delphi 文件操作
Delphi 删除文件夹函数 @文件操作删除文件夹下所有文件封装函数本人亲测可以直接调用！！！！H2O is是液体。210 运算结果是 1024.插入链接与图片链接: link.图片: 带尺寸的图片: 居中的图片: 居中并且带尺寸的图片: 当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。如何插入一段漂亮的代码片去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.// An highlighted blockvar foo = 'bar';生成
2021-07-28 17:04:33
481
原创 2的幂次方（递归）
P1010 幂次方题目链接任何一个正整数都可以用22的幂次方表示。例如137=27+23+2^0同时约定方次用括号来表示，即a^b 可表示为a(b)。由此可知，137可表示为：2(7)+2(3)+2(0)2(7)+2(3)+2(0)进一步：7= 22+2+207=22+2+20(2^1用2表示)，并且3 = 2+2^0所以最后137可表示为：2(2(2)+2+2(0))+2(2+2(0...
2019-03-27 21:11:16
1829
原创 1079 延迟的回文数
1079 延迟的回文数题目链接给定一个 k+1 位的正整数 N，写成 ak⋯a1a0 的形式，其中对所有 i 有 0≤ai<10 且 ak>0。N 被称为一个回文数，当且仅当对所有 i 有 ai=ak−i。零也被定义为一个回文数。非回文数也可以通过一系列操作变出回文数。首先将该数字逆转，再将逆转数与该数相加，如果和还不是一个回文数，就重复这个逆转再相加的操作，直到一个回文数出现。...
2019-03-26 09:46:34
184
原创 快速排序（记忆数组）
1045 快速排序 （25 分)题目链接著名的快速排序算法里有一个经典的划分过程：我们通常采用某种方法取一个元素作为主元，通过交换，把比主元小的元素放到它的左边，比主元大的元素放到它的右边。 给定划分后的 N 个互不相同的正整数的排列，请问有多少个元素可能是划分前选取的主元？例如给定 N=5N = 5N=5, 排列是1、3、2、4、5。则：1 的左边没有元素，右边的元素都比它大，所以它可能...
2019-03-25 21:38:14
459
原创 A+B Format（stack的使用）
1001 A+B Format （20 分)Calculate a+b and output the sum in standard format – that is, the digits must be separated into groups of three by commas (unless there are less than four digits).Input Specif...
2019-03-25 17:05:29
206
原创 1065 单身狗 （结构体标记）
1065 单身狗 （25 分)题目链接“单身狗”是中文对于单身人士的一种爱称。本题请你从上万人的大型派对中找出落单的客人，以便给予特殊关爱。输入格式：输入第一行给出一个正整数 N（≤ 50 000），是已知夫妻/伴侣的对数；随后 N 行，每行给出一对夫妻/伴侣——为方便起见，每人对应一个 ID 号，为 5 位数字（从 00000 到 99999），ID 间以空格分隔；之后给出一个正整数 M...
2019-03-25 16:55:16
359
转载 多项式A除以B（模拟）
L2-018 多项式A除以B （25 分)题目链接这仍然是一道关于A/B的题，只不过A和B都换成了多项式。你需要计算两个多项式相除的商Q和余R，其中R的阶数必须小于B的阶数。【输入格式】输入分两行，每行给出一个非零多项式，先给出A，再给出B。每行的格式如下：N e[1] c[1] … e[N] c[N]其中N是该多项式非零项的个数，e[i]是第i个非零项的指数，c[i]是第i个非零项的...
2019-03-25 16:24:14
1287
原创 1046 Shortest Distance
1046 Shortest Distance1046 Shortest Distance题意：给出n个点，再给出当前点到下一点的距离，计算两点之间的最短距离分析：此题就是给你送分的，即使不会图论的也会写这个！！！！！因为此题只有两条路径可以到达目的地，所以只要用一个数组就行Sum[i]用来记录上一点到这点的距离之和接下来请看代码#include<stdio.h>#i...
2019-03-25 15:40:54
108
TMS FlexCel 强大的Excel操作组件
2022-10-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人