在 Delphi 10 Berlin 提供了照相及相册自订分辨率的功能，请见官方网站教学： http://docwiki.embarcadero.com/RADStudio/Berlin/en/Taking_Pictures_Using_FireMonkey_Interfaces Params.RequiredResolution := TSize.Create(2048, 2048); Params.RequiredResolution := TSize.Create(3000, 3000);
月度归档： 2017 年 11 月
[Excel]Excel显示为循环引用警告的简便处理
有些繁琐的数据处理当中，会遇到excel的提示，显示为“循环引用”警告，很是头疼。 最简单的方法就是开启迭代计算。 需要找到“excel选项”，点击“公式”选项，在“计算选项”中， 可以看到“启用迭代计算”前面是没有勾选上的，将其勾选上之后，就能解决“循环引用”警告的问题了，表示excel默认可以进行循环引用。
[Excel]VBA自定义BOM
闲话少说，上代码。 新建模块，粘贴如下代码。 Option Explicit Function SerNo(A, B As Integer) Dim T1 As Single Dim T2 As Single, T2a Dim T3 As Single Dim T4 As Single Dim T5 As Single Dim T6 As Single A = A & "-0-0-0-0-0-0-0-0-0-0-0" T1 = InStr(A, "-&quo
[Excel]请假按考勤区间计算时间
这个是最近遇到的一个问题，就是请假的有效计算，要求看图。 解决方法如下： 函数：=ROUND(((E3-INT(C3))*480+SUMPRODUCT(FREQUENCY(ROW(INDIRECT(ROUND(MOD(D3,1)*1440+1,)&":"&F3*1440)),{450,690,780,1020})*{0;1;0;1;0})-(F3&l
[控件]DSPACK的小问题
装了一个DSPack玩玩，尝试编译一下例子程序，结果提示标识符TSysDevEnum未定义； 解决方法：将Uses中的DSUtil改为DXSUtil； 完事！