摘要: http://docwiki.embarcadero.com/RADStudio/Tokyo/en/F2084_Internal_Error_-_%25s%25d_%28Delphi%29 Resolving Internal Errors (Delphi) http://docwiki.embar 阅读全文
posted @ 2018-08-10 11:16 BSor 阅读(149) 评论(0) 推荐(0) 编辑
摘要: System.Diagnostics.pas: Delphi includes a helpful unit called System.Diagnostics , which implements a TStopwatch record. It allows us to measure time 阅读全文
posted @ 2018-07-27 11:09 BSor 阅读(216) 评论(0) 推荐(0) 编辑
摘要: 不知道什么时候支持的这个。 注意,这个空的用法。 阅读全文
posted @ 2018-07-26 19:59 BSor 阅读(161) 评论(0) 推荐(0) 编辑
摘要: 参考:https://www.cnblogs.com/xumenger/p/4687493.html System.Classes.pas: TList、(TStrings)TStringList System.Contnrs.pas: TObjectList、 TComponentList、TCl 阅读全文
posted @ 2018-07-26 12:10 BSor 阅读(170) 评论(0) 推荐(0) 编辑
摘要: free:静态方法测试对象是否为nil, 不为nil则调用destroy。下面是free的Delphi代码: procedure TObject.Free;begin if Self <> nil then Destroy;end; 一静一动,取长补短,岂不妙哉!但是调用对象的Destroy只是把对 阅读全文
posted @ 2018-07-26 11:43 BSor 阅读(735) 评论(0) 推荐(0) 编辑
摘要: 程序性能优化的3个级别1,程序机制优化(simd,gpu,parallel)2,架构机制优化(缓冲区方向优化,也是工具箱优化,hash,cache,fastlist这类方向)3,思想机制优化(重构算法思想,LBFGS,KDTREE,corner这类方向,主要是重构算法机制) 阅读全文
posted @ 2018-07-19 17:34 BSor 阅读(182) 评论(0) 推荐(0) 编辑
摘要: 一般来说,用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示: with Table Do begin DisableControls;{在修改记录的过程中,使其它部件无效} First; {将记录指针指向第一条记录} while not EOF do begin <读取记录的一个字段值到 阅读全文
posted @ 2018-07-19 15:59 BSor 阅读(133) 评论(0) 推荐(0) 编辑
摘要: 看到不错的文章: https://blog.csdn.net/java_zero2one/article/details/51477791 并发是指一个处理器同时处理多个任务。 并行是指多个处理器或者是多核的处理器同时处理多个不同的任务。 并发是逻辑上的同时发生(simultaneous),而并行是 阅读全文
posted @ 2018-07-19 15:51 BSor 阅读(115) 评论(0) 推荐(0) 编辑
摘要: 对于有些 Project ,IDE 出现下面的情况: 就是 Vcl. 前缀的找不到: 解决办法: unit scope names 那个地方检查有没有 vcl,没有的话,添加上去。 (猜想, Delphi 的 Winapi, System,vcl,这些前缀可能不是一个批次添加上去的。) 阅读全文
posted @ 2018-07-19 12:47 BSor 阅读(210) 评论(0) 推荐(0) 编辑
摘要: 基本知识:判断一个对象是否存在(赋值)的三种办法如下: if obj <> nil thenif Boolean(obj) then if Assigned(obj) then 大家说说,哪一个最快? HCView 作者说,最快的是后面两个。 一直以来,只是用 assigned 和 <> nil。 阅读全文
posted @ 2018-07-19 12:32 BSor 阅读(593) 评论(0) 推荐(0) 编辑