procedure TPageListDialogFrame.ListView1ScrollViewChange(Sender: TObject); var allheight: real; begin with Sender as TListView do begin allheight := S ...
分类：
其他好文 时间：
2021-04-07 10:29:44
阅读次数：
0
这段代码本身是没有问题的，但是发现如果更改了系统日期分隔符(例如将系统日期分隔符更改为2016/4/11，“-”变为"/")，StrToDate就会报错，提示：'2016-4-11'不是有效日期类型，通过这个可以说明StrToDate函数是转换的依据就是系统当前日期分隔符，所以我们要像上面代码将字符 ...
1.StrToDate为delphi7中字符串转换为日期的函数例如: var Dat:Tdate; begin Dat:=StrToDate('2016-4-11'); //这里会将'2016-4-11'转换为Tdate类型，就是日期类型 end; 【在网上查询的资料不够完美，做法基本是让系统适用程 ...
题意：求无向图去掉每一条边后的两两最短路之和 非标解 之前见过去掉每个点的两两最短路的问题，用的区间分治+Floyed，我想着边的也可以试一试，结果就过了。。。 设g(l,r)表示除了[l,r]区间内的边都加上了的情况下的两两最短路矩阵，那么有递推式$\left\{\begin{matrix}\be ...
分类：
其他好文 时间：
2021-04-06 14:09:28
阅读次数：
0
2维波动方程初边值问题:2维波动方程如下, \begin{equation} \frac{\partial^2u}{\partial t^2} = D\left(\frac{\partial^2u}{\partial x^2} + \frac{\partial^2 u}{\partial y^2}\ ...
分类：
其他好文 时间：
2021-04-05 12:49:02
阅读次数：
0
效果展示: 代码展示: # 导入画笔并为画笔设置别名为pen import turtle as pen # 设置画笔速度(1~10逐渐增加,0最快) pen.speed(0) # 设置画笔颜色以及填充颜色 pen.color('red') # 开始填充颜色 pen.begin_fill() # 以绝 ...
分类：
其他好文 时间：
2021-04-05 12:07:29
阅读次数：
0
BEGIN MERGE PGENIUS..DISC_CLS_FND AS TARGET USING (SELECT SEQ,ISVALID, DISC_ID, DISC_CLS_CODE,DECLAREDATE FROM #INSERTED_DISC_CLS WHERE DISC_TYPE=2) A ...
分类：
其他好文 时间：
2021-04-02 13:37:34
阅读次数：
0
unordered_map unordered_map底层实现是哈希表，所以不会根据key来排序 undered_map<T1,T2> m; //T1是key值，T2是value值，初始的时候 m 是空映射 插入方式：键值对的形式插入 unordered_map<int, int> map; for ...
分类：
编程语言 时间：
2021-04-02 13:12:10
阅读次数：
0
I.CF1458E Nim Shortcuts 我们考虑把一对石子堆 \((x,y)\) 映射到笛卡尔平面上的一个点 \((x,y)\)。 先考虑没有捷径时的方案。很明显，这是简单的NIM游戏，当且仅当直线 \(y=x\) 上的状态是先手必败态。但是，我们有必要搞清楚该结论的由来： 如果对于一个位置 ...
分类：
其他好文 时间：
2021-04-02 12:52:12
阅读次数：
0
数分（1）期中总结 复习大纲 集合与映射（交并补、单射、双射、满射）； 数列（确界原理、极限运算、柯西收敛准则、Stolz定理、单调确界定理、子列与主列关系）； 函数（极限运算、Heine定理（联系数列与函数）、柯西收敛准则、连续性、零点存在定理、介值定理、闭区间套定理、有限开覆盖定理、一致连续性） ...
分类：
其他好文 时间：
2021-04-01 13:11:22
阅读次数：
0
