原文作者：专家，特留存，感谢。 Berlin和Tokyo共存(以此为例，3,4,5,6个版本都可以共存，不按此办法，容易反复出现某个版本又提示注册) 一、安装tokyo前先处理berlin 1.建立C:\ProgramData\Embarcadero\10.1目录（例如新建10.1目录，放进去）。 2.转移C:\ProgramData\Embarcadero下的.licenses、.cgb_license、*.slip(这个文件名称可以修改一下，一串数字不好肉眼识别)到第1步建立的C:\Prog
年度归档： 2017 年
[DLL]Delphi 动态调用DLL代码
静态调用往往不够灵活和影响性能，采取动态调用是上上之选。 不废话上通用代码。 procedure TForm1.btn12Click(Sender: TObject); type TIntFunc = function(n: Integer): Extended; stdcall; var Th: Thandle; Tf: TIntFunc; Tp: TFarProc; begin Th := LoadLibrary(‘dll.dll’); { 装载DLL } if Th > 0 then tr
[FMX]Firemonkey Android 照相自订分辨率测试
在 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);
[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； 完事！